sampler.c

   1 /*
   2 Calf Box, an open source musical instrument.
   3 Copyright (C) 2010-2013 Krzysztof Foltman
   4
   5 This program is free software: you can redistribute it and/or modify
   6 it under the terms of the GNU General Public License as published by
   7 the Free Software Foundation, either version 3 of the License, or
   8 (at your option) any later version.
   9
  10 This program is distributed in the hope that it will be useful,
  11 but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 GNU General Public License for more details.
  14
  15 You should have received a copy of the GNU General Public License
  16 along with this program.  If not, see <http://www.gnu.org/licenses/>.
  17 */
  18
  19 #include "config-api.h"
  20 #include "dspmath.h"
  21 #include "errors.h"
  22 #include "midi.h"
  23 #include "module.h"
  24 #include "rt.h"
  25 #include "sampler.h"
  26 #include "sampler_impl.h"
  27 #include "sfzloader.h"
  28 #include "stm.h"
  29 #include <assert.h>
  30 #include <errno.h>
  31 #include <glib.h>
  32 #include <math.h>
  33 #include <memory.h>
  34 #include <sndfile.h>
  35 #include <stdio.h>
  36 #include <stdlib.h>
  37
  38 float sampler_sine_wave[2049];
  39
  40 GQuark cbox_sampler_error_quark()
  41 {
  42     return g_quark_from_string("cbox-sampler-error-quark");
  43 }
  44
  45 static void sampler_process_block(struct cbox_module *module, cbox_sample_t **inputs, cbox_sample_t **outputs);
  46 static void sampler_process_event(struct cbox_module *module, const uint8_t *data, uint32_t len);
  47 static void sampler_destroyfunc(struct cbox_module *module);
  48
  49 void sampler_steal_voice(struct sampler_module *m)
  50 {
  51     int max_age = 0;
  52     struct sampler_voice *voice_found = NULL;
  53     for (int i = 0; i < 16; i++)
  54     {
  55         FOREACH_VOICE(m->channels[i].voices_running, v)
  56         {
  57             if (v->amp_env.cur_stage == 15)
  58                 continue;
  59             int age = m->serial_no - v->serial_no;
  60             if (v->gen.loop_start == -1)
  61                 age += (int)((v->gen.bigpos >> 32) * 100.0 / v->gen.cur_sample_end);
  62             else
  63             if (v->released)
  64                 age += 10;
  65             if (age > max_age)
  66             {
  67                 max_age = age;
  68                 voice_found = v;
  69             }
  70         }
  71     }
  72     if (voice_found)
  73     {
  74         voice_found->released = 1;
  75         cbox_envelope_go_to(&voice_found->amp_env, 15);
  76     }
  77 }
  78
  79 static inline float clip01(float v)
  80 {
  81     if (v < 0.f)
  82         return 0;
  83     if (v > 1.f)
  84         return 1;
  85     return v;
  86 }
  87
  88 void sampler_process_block(struct cbox_module *module, cbox_sample_t **inputs, cbox_sample_t **outputs)
  89 {
  90     struct sampler_module *m = (struct sampler_module *)module;
  91
  92     //float channels[2][CBOX_BLOCK_SIZE];
  93
  94     for (int c = 0; c < m->output_pairs + m->aux_pairs; c++)
  95     {
  96         int oo = 2 * c;
  97         for (int i = 0; i < CBOX_BLOCK_SIZE; i++)
  98             outputs[oo][i] = outputs[oo + 1][i] = 0.f;
  99     }
 100
 101     int vcount = 0, vrel = 0;
 102     for (int i = 0; i < 16; i++)
 103     {
 104         int cvcount = 0;
 105         FOREACH_VOICE(m->channels[i].voices_running, v)
 106         {
 107             sampler_voice_process(v, m, outputs);
 108
 109             if (v->amp_env.cur_stage == 15)
 110                 vrel++;
 111             cvcount++;
 112         }
 113         m->channels[i].active_voices = cvcount;
 114         vcount += cvcount;
 115     }
 116     m->active_voices = vcount;
 117     if (vcount - vrel > m->max_voices)
 118         sampler_steal_voice(m);
 119     m->serial_no++;
 120     m->current_time += CBOX_BLOCK_SIZE;
 121 }
 122
 123 void sampler_channel_process_cc(struct sampler_channel *c, int cc, int val)
 124 {
 125     struct sampler_module *m = c->module;
 126     // Handle CC triggering.
 127     if (c->program && c->program->rll && c->program->rll->layers_oncc && m->voices_free)
 128     {
 129         struct sampler_rll *rll = c->program->rll;
 130         if (!(rll->cc_trigger_bitmask[cc >> 5] & (1 << (cc & 31))))
 131             return;
 132         int old_value = c->cc[cc];
 133         for (GSList *p = rll->layers_oncc; p; p = p->next)
 134         {
 135             struct sampler_layer *layer = p->data;
 136             assert(layer->runtime);
 137             // Only trigger on transition between 'out of range' and 'in range' values.
 138             // XXXKF I'm not sure if it's what is expected here, but don't have
 139             // the reference implementation handy.
 140             if (layer->runtime->on_cc_number == cc &&
 141                 (val >= layer->runtime->on_locc && val <= layer->runtime->on_hicc) &&
 142                 !(old_value >= layer->runtime->on_locc && old_value <= layer->runtime->on_hicc))
 143             {
 144                 struct sampler_voice *v = m->voices_free;
 145                 int exgroups[MAX_RELEASED_GROUPS], exgroupcount = 0;
 146                 sampler_voice_start(v, c, layer->runtime, layer->runtime->pitch_keycenter, 127, exgroups, &exgroupcount);
 147                 sampler_channel_release_groups(c, -1, exgroups, exgroupcount);
 148             }
 149         }
 150     }
 151     int was_enabled = c->cc[cc] >= 64;
 152     int enabled = val >= 64;
 153     switch(cc)
 154     {
 155         case 64:
 156             if (was_enabled && !enabled)
 157             {
 158                 sampler_channel_stop_sustained(c);
 159             }
 160             break;
 161         case 66:
 162             if (was_enabled && !enabled)
 163                 sampler_channel_stop_sostenuto(c);
 164             else if (!was_enabled && enabled)
 165                 sampler_channel_capture_sostenuto(c);
 166             break;
 167
 168         case 120:
 169         case 123:
 170             sampler_channel_stop_all(c);
 171             break;
 172         case 121:
 173             // Recommended Practice (RP-015) Response to Reset All Controllers
 174             // http://www.midi.org/techspecs/rp15.php
 175             sampler_channel_process_cc(c, 64, 0);
 176             sampler_channel_process_cc(c, 66, 0);
 177             c->cc[11] = 127;
 178             c->cc[1] = 0;
 179             c->pitchwheel = 0;
 180             c->cc[smsrc_chanaft] = 0;
 181             // XXXKF reset polyphonic pressure values when supported
 182             return;
 183     }
 184     if (cc < 120)
 185         c->cc[cc] = val;
 186 }
 187
 188 void sampler_process_event(struct cbox_module *module, const uint8_t *data, uint32_t len)
 189 {
 190     struct sampler_module *m = (struct sampler_module *)module;
 191     if (len > 0)
 192     {
 193         int cmd = data[0] >> 4;
 194         int chn = data[0] & 15;
 195         struct sampler_channel *c = &m->channels[chn];
 196         switch(cmd)
 197         {
 198             case 8:
 199                 sampler_channel_stop_note(c, data[1], data[2], FALSE);
 200                 break;
 201
 202             case 9:
 203                 if (data[2] > 0)
 204                     sampler_channel_start_note(c, data[1], data[2], FALSE);
 205                 else
 206                     sampler_channel_stop_note(c, data[1], data[2], FALSE);
 207                 break;
 208
 209             case 10:
 210                 // handle chokeable one shot layers
 211                 if (data[2] == 127)
 212                     sampler_channel_stop_note(c, data[1], data[2], TRUE);
 213                 // polyphonic pressure not handled
 214                 break;
 215
 216             case 11:
 217                 sampler_channel_process_cc(c, data[1], data[2]);
 218                 break;
 219
 220             case 12:
 221                 sampler_channel_program_change(c, data[1]);
 222                 break;
 223
 224             case 13:
 225                 c->cc[smsrc_chanaft] = data[1];
 226                 break;
 227
 228             case 14:
 229                 c->pitchwheel = data[1] + 128 * data[2] - 8192;
 230                 break;
 231
 232             }
 233     }
 234 }
 235
 236 static int get_first_free_program_no(struct sampler_module *m)
 237 {
 238     int prog_no = -1;
 239     gboolean found;
 240
 241     // XXXKF this has a N-squared complexity - but I'm not seeing
 242     // this being used with more than 10 programs at the same time
 243     // in the near future
 244     do {
 245         prog_no++;
 246         found = FALSE;
 247         for (int i = 0; i < m->program_count; i++)
 248         {
 249             if (m->programs[i]->prog_no == prog_no)
 250             {
 251                 found = TRUE;
 252                 break;
 253             }
 254         }
 255     } while(found);
 256
 257     return prog_no;
 258 }
 259
 260 static int find_program(struct sampler_module *m, int prog_no)
 261 {
 262     for (int i = 0; i < m->program_count; i++)
 263     {
 264         if (m->programs[i]->prog_no == prog_no)
 265             return i;
 266     }
 267     return -1;
 268 }
 269
 270 struct release_program_voices_data
 271 {
 272     struct sampler_module *module;
 273
 274     struct sampler_program *old_pgm, *new_pgm;
 275     uint16_t channels_to_wait_for;
 276 };
 277
 278 static int release_program_voices_execute(void *data)
 279 {
 280     struct release_program_voices_data *rpv = data;
 281     struct sampler_module *m = rpv->module;
 282     int finished = 1;
 283
 284     for (int i = 0; i < 16; i++)
 285     {
 286         uint16_t mask = 1 << i;
 287         struct sampler_channel *c = &m->channels[i];
 288         if (c->program == rpv->old_pgm || c->program == NULL)
 289         {
 290             sampler_channel_set_program_RT(c, rpv->new_pgm);
 291             rpv->channels_to_wait_for |= mask;
 292         }
 293         if (rpv->channels_to_wait_for & mask)
 294         {
 295             FOREACH_VOICE(c->voices_running, v)
 296             {
 297                 if (m->deleting)
 298                 {
 299                     sampler_voice_inactivate(v, TRUE);
 300                     continue;
 301                 }
 302                 // This is a new voice, started after program change, so it
 303                 // should not be terminated and waited for.
 304                 if (v->program == rpv->new_pgm)
 305                     continue;
 306                 // The voice is still going, so repeat until it fades out
 307                 finished = 0;
 308                 // If not in final fadeout stage, force final fadeout.
 309                 if (v->amp_env.cur_stage != 15)
 310                 {
 311                     v->released = 1;
 312                     cbox_envelope_go_to(&v->amp_env, 15);
 313                 }
 314             }
 315         }
 316     }
 317
 318     return finished;
 319 }
 320
 321 static void swap_program(struct sampler_module *m, int index, struct sampler_program *pgm, gboolean delete_old)
 322 {
 323     static struct cbox_rt_cmd_definition release_program_voices = { NULL, release_program_voices_execute, NULL };
 324
 325     struct sampler_program *old_program = NULL;
 326     if (pgm)
 327         old_program = cbox_rt_swap_pointers(m->module.rt, (void **)&m->programs[index], pgm);
 328     else
 329         old_program = cbox_rt_array_remove(m->module.rt, (void ***)&m->programs, &m->program_count, index);
 330
 331     struct release_program_voices_data data = {m, old_program, pgm, 0};
 332
 333     cbox_rt_execute_cmd_sync(m->module.rt, &release_program_voices, &data);
 334
 335     if (delete_old && old_program)
 336         CBOX_DELETE(old_program);
 337 }
 338
 339 static void select_initial_program(struct sampler_module *m)
 340 {
 341     static struct cbox_rt_cmd_definition release_program_voices = { NULL, release_program_voices_execute, NULL };
 342     struct release_program_voices_data data = {m, NULL, m->programs[0], 0};
 343     cbox_rt_execute_cmd_sync(m->module.rt, &release_program_voices, &data);
 344 }
 345
 346 static gboolean load_program_at(struct sampler_module *m, const char *cfg_section, const char *name, int prog_no, struct sampler_program **ppgm, GError **error)
 347 {
 348     struct sampler_program *pgm = NULL;
 349     int index = find_program(m, prog_no);
 350     pgm = sampler_program_new_from_cfg(m, cfg_section, name, prog_no, error);
 351     if (!pgm)
 352         return FALSE;
 353
 354     if (index != -1)
 355     {
 356         swap_program(m, index, pgm, TRUE);
 357         return TRUE;
 358     }
 359
 360     struct sampler_program **programs = malloc(sizeof(struct sampler_program *) * (m->program_count + 1));
 361     memcpy(programs, m->programs, sizeof(struct sampler_program *) * m->program_count);
 362     programs[m->program_count] = pgm;
 363     if (ppgm)
 364         *ppgm = pgm;
 365     free(cbox_rt_swap_pointers_and_update_count(m->module.rt, (void **)&m->programs, programs, &m->program_count, m->program_count + 1));
 366     if (m->program_count == 1)
 367         select_initial_program(m);
 368     return TRUE;
 369 }
 370
 371 void sampler_unselect_program(struct sampler_module *m, struct sampler_program *prg)
 372 {
 373     // Ensure no new notes are played on that program
 374     prg->deleting = TRUE;
 375     // Remove from the list of available programs, so that it cannot be selected again
 376     for (int i = 0; i < m->program_count; i++)
 377     {
 378         if (m->programs[i] == prg)
 379             swap_program(m, i, NULL, FALSE);
 380     }
 381 }
 382
 383 static gboolean load_from_string(struct sampler_module *m, const char *sample_dir, const char *sfz_data, const char *name, int prog_no, struct sampler_program **ppgm, GError **error)
 384 {
 385     int index = find_program(m, prog_no);
 386     struct sampler_program *pgm = sampler_program_new(m, prog_no, name, sample_dir);
 387     pgm->source_file = g_strdup("string");
 388     if (!sampler_module_load_program_sfz(m, pgm, sfz_data, TRUE, error))
 389     {
 390         free(pgm);
 391         return FALSE;
 392     }
 393
 394     if (index != -1)
 395     {
 396         swap_program(m, index, pgm, TRUE);
 397         if (ppgm)
 398             *ppgm = pgm;
 399         return TRUE;
 400     }
 401
 402     struct sampler_program **programs = calloc((m->program_count + 1), sizeof(struct sampler_program *));
 403     memcpy(programs, m->programs, sizeof(struct sampler_program *) * m->program_count);
 404     programs[m->program_count] = pgm;
 405     if (ppgm)
 406         *ppgm = pgm;
 407     free(cbox_rt_swap_pointers_and_update_count(m->module.rt, (void **)&m->programs, programs, &m->program_count, m->program_count + 1));
 408     if (m->program_count == 1)
 409         select_initial_program(m);
 410     return TRUE;
 411 }
 412
 413 gboolean sampler_process_cmd(struct cbox_command_target *ct, struct cbox_command_target *fb, struct cbox_osc_command *cmd, GError **error)
 414 {
 415     struct sampler_module *m = (struct sampler_module *)ct->user_data;
 416
 417     if (!strcmp(cmd->command, "/status") && !strcmp(cmd->arg_types, ""))
 418     {
 419         if (!cbox_check_fb_channel(fb, cmd->command, error))
 420             return FALSE;
 421         for (int i = 0; i < 16; i++)
 422         {
 423             struct sampler_channel *channel = &m->channels[i];
 424             gboolean result;
 425             if (channel->program)
 426                 result = cbox_execute_on(fb, NULL, "/patch", "iis", error, i + 1, channel->program->prog_no, channel->program->name);
 427             else
 428                 result = cbox_execute_on(fb, NULL, "/patch", "iis", error, i + 1, -1, "");
 429             if (!result)
 430                 return FALSE;
 431             if (!(cbox_execute_on(fb, NULL, "/channel_voices", "ii", error, i + 1, channel->active_voices) &&
 432                 cbox_execute_on(fb, NULL, "/volume", "ii", error, i + 1, sampler_channel_addcc(channel, 7)) &&
 433                 cbox_execute_on(fb, NULL, "/pan", "ii", error, i + 1, sampler_channel_addcc(channel, 10))))
 434                 return FALSE;
 435         }
 436
 437         return cbox_execute_on(fb, NULL, "/active_voices", "i", error, m->active_voices) &&
 438             cbox_execute_on(fb, NULL, "/active_pipes", "i", error, cbox_prefetch_stack_get_active_pipe_count(m->pipe_stack)) &&
 439             cbox_execute_on(fb, NULL, "/polyphony", "i", error, MAX_SAMPLER_VOICES) &&
 440             CBOX_OBJECT_DEFAULT_STATUS(&m->module, fb, error);
 441     }
 442     else
 443     if (!strcmp(cmd->command, "/patches") && !strcmp(cmd->arg_types, ""))
 444     {
 445         if (!cbox_check_fb_channel(fb, cmd->command, error))
 446             return FALSE;
 447         for (int i = 0; i < m->program_count; i++)
 448         {
 449             struct sampler_program *prog = m->programs[i];
 450             if (!cbox_execute_on(fb, NULL, "/patch", "isoi", error, prog->prog_no, prog->name, prog, prog->in_use))
 451                 return FALSE;
 452         }
 453         return TRUE;
 454     }
 455     else if (!strcmp(cmd->command, "/polyphony") && !strcmp(cmd->arg_types, "i"))
 456     {
 457         int polyphony = CBOX_ARG_I(cmd, 0);
 458         if (polyphony < 1 || polyphony > MAX_SAMPLER_VOICES)
 459         {
 460             g_set_error(error, CBOX_MODULE_ERROR, CBOX_MODULE_ERROR_FAILED, "Invalid polyphony %d (must be between 1 and %d)", polyphony, (int)MAX_SAMPLER_VOICES);
 461             return FALSE;
 462         }
 463         m->max_voices = polyphony;
 464         return TRUE;
 465     }
 466     else if (!strcmp(cmd->command, "/set_patch") && !strcmp(cmd->arg_types, "ii"))
 467     {
 468         int channel = CBOX_ARG_I(cmd, 0);
 469         if (channel < 1 || channel > 16)
 470         {
 471             g_set_error(error, CBOX_MODULE_ERROR, CBOX_MODULE_ERROR_FAILED, "Invalid channel %d", channel);
 472             return FALSE;
 473         }
 474         int value = CBOX_ARG_I(cmd, 1);
 475         struct sampler_program *pgm = NULL;
 476         for (int i = 0; i < m->program_count; i++)
 477         {
 478             if (m->programs[i]->prog_no == value)
 479             {
 480                 pgm = m->programs[i];
 481                 break;
 482             }
 483         }
 484         sampler_channel_set_program(&m->channels[channel - 1], pgm);
 485         return TRUE;
 486     }
 487     else if (!strcmp(cmd->command, "/load_patch") && !strcmp(cmd->arg_types, "iss"))
 488     {
 489         struct sampler_program *pgm = NULL;
 490         if (!load_program_at(m, CBOX_ARG_S(cmd, 1), CBOX_ARG_S(cmd, 2), CBOX_ARG_I(cmd, 0), &pgm, error))
 491             return FALSE;
 492         if (fb)
 493             return cbox_execute_on(fb, NULL, "/uuid", "o", error, pgm);
 494         return TRUE;
 495     }
 496     else if (!strcmp(cmd->command, "/load_patch_from_file") && !strcmp(cmd->arg_types, "iss"))
 497     {
 498         struct sampler_program *pgm = NULL;
 499         char *cfg_section = g_strdup_printf("spgm:!%s", CBOX_ARG_S(cmd, 1));
 500         gboolean res = load_program_at(m, cfg_section, CBOX_ARG_S(cmd, 2), CBOX_ARG_I(cmd, 0), &pgm, error);
 501         g_free(cfg_section);
 502         if (res && pgm && fb)
 503             return cbox_execute_on(fb, NULL, "/uuid", "o", error, pgm);
 504         return res;
 505     }
 506     else if (!strcmp(cmd->command, "/load_patch_from_string") && !strcmp(cmd->arg_types, "isss"))
 507     {
 508         struct sampler_program *pgm = NULL;
 509         if (!load_from_string(m, CBOX_ARG_S(cmd, 1), CBOX_ARG_S(cmd, 2), CBOX_ARG_S(cmd, 3), CBOX_ARG_I(cmd, 0), &pgm, error))
 510             return FALSE;
 511         if (fb && pgm)
 512             return cbox_execute_on(fb, NULL, "/uuid", "o", error, pgm);
 513         return TRUE;
 514     }
 515     else if (!strcmp(cmd->command, "/get_unused_program") && !strcmp(cmd->arg_types, ""))
 516     {
 517         if (!cbox_check_fb_channel(fb, cmd->command, error))
 518             return FALSE;
 519         return cbox_execute_on(fb, NULL, "/program_no", "i", error, get_first_free_program_no(m));
 520     }
 521     else
 522         return cbox_object_default_process_cmd(ct, fb, cmd, error);
 523     return TRUE;
 524 }
 525
 526 gboolean sampler_select_program(struct sampler_module *m, int channel, const gchar *preset, GError **error)
 527 {
 528     for (int i = 0; i < m->program_count; i++)
 529     {
 530         if (!strcmp(m->programs[i]->name, preset))
 531         {
 532             sampler_channel_set_program(&m->channels[channel], m->programs[i]);
 533             return TRUE;
 534         }
 535     }
 536     g_set_error(error, CBOX_MODULE_ERROR, CBOX_MODULE_ERROR_FAILED, "Preset not found: %s", preset);
 537     return FALSE;
 538 }
 539
 540 MODULE_CREATE_FUNCTION(sampler)
 541 {
 542     int i;
 543     static int inited = 0;
 544     if (!inited)
 545     {
 546         for (int i = 0; i < 2049; i++)
 547             sampler_sine_wave[i] = sin(i * M_PI / 1024.0);
 548         inited = 1;
 549     }
 550
 551     int max_voices = cbox_config_get_int(cfg_section, "polyphony", MAX_SAMPLER_VOICES);
 552     if (max_voices < 1 || max_voices > MAX_SAMPLER_VOICES)
 553     {
 554         g_set_error(error, CBOX_SAMPLER_ERROR, CBOX_SAMPLER_ERROR_INVALID_LAYER, "%s: invalid polyphony value", cfg_section);
 555         return NULL;
 556     }
 557     int output_pairs = cbox_config_get_int(cfg_section, "output_pairs", 1);
 558     if (output_pairs < 1 || output_pairs > 16)
 559     {
 560         g_set_error(error, CBOX_SAMPLER_ERROR, CBOX_SAMPLER_ERROR_INVALID_LAYER, "%s: invalid output pairs value", cfg_section);
 561         return NULL;
 562     }
 563     int aux_pairs = cbox_config_get_int(cfg_section, "aux_pairs", 0);
 564     if (aux_pairs < 0 || aux_pairs > 4)
 565     {
 566         g_set_error(error, CBOX_SAMPLER_ERROR, CBOX_SAMPLER_ERROR_INVALID_LAYER, "%s: invalid aux pairs value", cfg_section);
 567         return NULL;
 568     }
 569
 570     struct sampler_module *m = calloc(1, sizeof(struct sampler_module));
 571     CALL_MODULE_INIT(m, 0, (output_pairs + aux_pairs) * 2, sampler);
 572     m->output_pairs = output_pairs;
 573     m->aux_pairs = aux_pairs;
 574     m->module.aux_offset = m->output_pairs * 2;
 575     m->module.process_event = sampler_process_event;
 576     m->module.process_block = sampler_process_block;
 577     m->programs = NULL;
 578     m->max_voices = max_voices;
 579     m->serial_no = 0;
 580     m->deleting = FALSE;
 581     // XXXKF read defaults from some better place, like config
 582     // XXXKF allow dynamic change of the number of the pipes
 583     m->pipe_stack = cbox_prefetch_stack_new(MAX_SAMPLER_VOICES, cbox_config_get_int("streaming", "streambuf_size", 65536));
 584
 585     for (i = 0; ; i++)
 586     {
 587         gchar *s = g_strdup_printf("program%d", i);
 588         char *p = cbox_config_get_string(cfg_section, s);
 589         g_free(s);
 590
 591         if (!p)
 592         {
 593             m->program_count = i;
 594             break;
 595         }
 596     }
 597     m->programs = calloc(m->program_count, sizeof(struct sampler_program *));
 598     int success = 1;
 599     for (i = 0; i < m->program_count; i++)
 600     {
 601         gchar *s = g_strdup_printf("program%d", i);
 602         char *pgm_section = NULL;
 603         int pgm_id = -1;
 604         const char *pgm_name = cbox_config_get_string(cfg_section, s);
 605         g_free(s);
 606         char *at = strchr(pgm_name, '@');
 607         if (at)
 608         {
 609             pgm_id = atoi(at + 1);
 610             s = g_strndup(pgm_name, at - pgm_name);
 611             pgm_section = g_strdup_printf("spgm:%s", s);
 612             g_free(s);
 613         }
 614         else
 615         {
 616             pgm_id = i;
 617             pgm_section = g_strdup_printf("spgm:%s", pgm_name);
 618         }
 619
 620         m->programs[i] = sampler_program_new_from_cfg(m, pgm_section, pgm_section + 5, pgm_id, error);
 621         g_free(pgm_section);
 622         if (!m->programs[i])
 623         {
 624             success = 0;
 625             break;
 626         }
 627     }
 628     if (!success)
 629     {
 630         // XXXKF free programs/layers, first ensuring that they're fully initialised
 631         free(m);
 632         return NULL;
 633     }
 634     m->voices_free = NULL;
 635     memset(m->voices_all, 0, sizeof(m->voices_all));
 636     for (i = 0; i < MAX_SAMPLER_VOICES; i++)
 637     {
 638         struct sampler_voice *v = &m->voices_all[i];
 639         v->gen.mode = spt_inactive;
 640         sampler_voice_link(&m->voices_free, v);
 641     }
 642     m->active_voices = 0;
 643
 644     for (i = 0; i < 16; i++)
 645         sampler_channel_init(&m->channels[i], m);
 646
 647     for (i = 0; i < 16; i++)
 648     {
 649         gchar *key = g_strdup_printf("channel%d", i + 1);
 650         gchar *preset = cbox_config_get_string(cfg_section, key);
 651         if (preset)
 652         {
 653             if (!sampler_select_program(m, i, preset, error))
 654             {
 655                 CBOX_DELETE(&m->module);
 656                 return NULL;
 657             }
 658         }
 659         g_free(key);
 660     }
 661
 662
 663     return &m->module;
 664 }
 665
 666 void sampler_destroyfunc(struct cbox_module *module)
 667 {
 668     struct sampler_module *m = (struct sampler_module *)module;
 669     int i;
 670     m->deleting = TRUE;
 671
 672     for (i = 0; i < m->program_count;)
 673     {
 674         if (m->programs[i])
 675             CBOX_DELETE(m->programs[i]);
 676         else
 677             i++;
 678     }
 679     for (i = 0; i < 16; i++)
 680     {
 681         assert (m->channels[i].voices_running == NULL);
 682     }
 683     cbox_prefetch_stack_destroy(m->pipe_stack);
 684     free(m->programs);
 685 }
 686
 687 #define MAKE_TO_STRING_CONTENT(name, v) \
 688     case v: return name;
 689
 690 #define MAKE_FROM_STRING_CONTENT(n, v) \
 691     if (!strcmp(name, n)) { *value = v; return TRUE; }
 692
 693 #define MAKE_FROM_TO_STRING(enumtype) \
 694     const char *enumtype##_to_string(enum enumtype value) \
 695     { \
 696         switch(value) { \
 697             ENUM_VALUES_##enumtype(MAKE_TO_STRING_CONTENT) \
 698             default: return NULL; \
 699         } \
 700     } \
 701     \
 702     gboolean enumtype##_from_string(const char *name, enum enumtype *value) \
 703     { \
 704         ENUM_VALUES_##enumtype(MAKE_FROM_STRING_CONTENT) \
 705         return FALSE; \
 706     }
 707
 708 ENUM_LIST(MAKE_FROM_TO_STRING)
 709
 710 //////////////////////////////////////////////////////////////////////////
 711 // Note initialisation functions
 712
 713 void sampler_nif_vel2pitch(struct sampler_noteinitfunc *nif, struct sampler_voice *v)
 714 {
 715     v->pitch_shift += nif->param * v->vel * (1.0 / 127.0);
 716 }
 717
 718 void sampler_nif_cc2delay(struct sampler_noteinitfunc *nif, struct sampler_voice *v)
 719 {
 720     v->delay += nif->param * v->channel->cc[nif->variant] * (1.0 / 127.0) * v->channel->module->module.srate;
 721 }
 722
 723 void sampler_nif_addrandom(struct sampler_noteinitfunc *nif, struct sampler_voice *v)
 724 {
 725     float rnd = rand() * 1.0 / RAND_MAX;
 726     switch(nif->variant)
 727     {
 728         case 0:
 729             v->gain_shift += rnd * nif->param;
 730             break;
 731         case 1:
 732             v->cutoff_shift += rnd * nif->param;
 733             break;
 734         case 2:
 735             v->pitch_shift += rnd * nif->param; // this is in cents
 736             break;
 737     }
 738 }
 739
 740 void sampler_nif_vel2env(struct sampler_noteinitfunc *nif, struct sampler_voice *v)
 741 {
 742     int env_type = (nif->variant) >> 4;
 743     struct cbox_envelope *env = NULL;
 744     switch(env_type)
 745     {
 746         case 0:
 747             env = &v->amp_env;
 748             break;
 749         case 1:
 750             env = &v->filter_env;
 751             break;
 752         case 2:
 753             env = &v->pitch_env;
 754             break;
 755         default:
 756             assert(0);
 757     }
 758     if (env->shape != &v->dyn_envs[env_type])
 759     {
 760         memcpy(&v->dyn_envs[env_type], env->shape, sizeof(struct cbox_envelope_shape));
 761         env->shape = &v->dyn_envs[env_type];
 762     }
 763     float param = nif->param * v->vel * (1.0 / 127.0);
 764     if ((nif->variant & 15) == 4)
 765         param *= 0.01;
 766     cbox_envelope_modify_dahdsr(env->shape, nif->variant & 15, param, v->channel->module->module.srate * (1.0 / CBOX_BLOCK_SIZE));
 767 }
 768
 769 //////////////////////////////////////////////////////////////////////////
 770
 771 struct cbox_module_livecontroller_metadata sampler_controllers[] = {
 772 };
 773
 774 struct cbox_module_keyrange_metadata sampler_keyranges[] = {
 775 };
 776
 777 DEFINE_MODULE(sampler, 0, 2)
 778