Sampled Instrument Player with static and monolithic design. All instruments are built-in.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 

461 lines
16 KiB

/*
Calf Box, an open source musical instrument.
Copyright (C) 2010-2011 Krzysztof Foltman
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#include "blob.h"
#include "config.h"
#include "config-api.h"
#include "pattern.h"
#include "pattern-maker.h"
#include "song.h"
#include <glib.h>
extern void cbox_song_remove_pattern(struct cbox_song *song, struct cbox_midi_pattern *pattern);
CBOX_CLASS_DEFINITION_ROOT(cbox_midi_pattern)
struct cbox_midi_pattern *cbox_midi_pattern_new_metronome(struct cbox_song *song, int ts, uint64_t ppqn_factor)
{
struct cbox_midi_pattern_maker *m = cbox_midi_pattern_maker_new(ppqn_factor);
int length = (int)ppqn_factor;
int channel = cbox_config_get_int("metronome", "channel", 10);
int accnote = cbox_config_get_note("metronome", "note_accent", 37);
int note = cbox_config_get_note("metronome", "note", 37);
for (int i = 0; i < ts; i++)
{
int accent = !i && ts != 1;
cbox_midi_pattern_maker_add(m, length * i, 0x90 + channel - 1, accent ? accnote : note, accent ? 127 : 100);
cbox_midi_pattern_maker_add(m, length * i + 1, 0x80 + channel - 1, accent ? accnote : note, 0);
}
struct cbox_midi_pattern *p = cbox_midi_pattern_maker_create_pattern(m, song, g_strdup_printf("click-%d", ts));
p->loop_end = length * ts;
cbox_midi_pattern_maker_destroy(m);
return p;
}
void cbox_midi_pattern_destroyfunc(struct cbox_objhdr *objhdr)
{
struct cbox_midi_pattern *pattern = CBOX_H2O(objhdr);
if (pattern->owner)
cbox_song_remove_pattern(pattern->owner, pattern);
g_free(pattern->name);
if (pattern->events != NULL)
free(pattern->events);
free(pattern);
}
#if USE_LIBSMF
static int cbox_midi_pattern_load_smf_into(struct cbox_midi_pattern_maker *m, const char *smf)
{
int length = 0;
if (!cbox_midi_pattern_maker_load_smf(m, smf, &length, NULL))
{
g_error("Cannot load SMF file %s", smf);
return -1;
}
return length;
}
#endif
static int cbox_midi_pattern_load_melodic_into(struct cbox_midi_pattern_maker *m, const char *name, int start_pos, int transpose, int transpose_to_note, uint64_t ppqn_factor)
{
gchar *cfg_section = g_strdup_printf("pattern:%s", name);
if (!cbox_config_has_section(cfg_section))
{
g_error("Melodic pattern '%s' not found", name);
g_free(cfg_section);
return -1;
}
gchar *smf = cbox_config_get_string(cfg_section, "smf");
#if USE_LIBSMF
if (smf)
return cbox_midi_pattern_load_smf_into(m, smf);
#else
if (smf)
g_warning("libsmf disabled at build time, MIDI import functionality not available.");
#endif
int length = ppqn_factor * cbox_config_get_int(cfg_section, "beats", 4);
int gchannel = cbox_config_get_int(cfg_section, "channel", 1);
int gswing = cbox_config_get_int(cfg_section, "swing", 0);
int gres = cbox_config_get_int(cfg_section, "resolution", 4);
int orignote = cbox_config_get_note(cfg_section, "base_note", 24);
if (transpose_to_note != -1)
transpose += transpose_to_note - orignote;
for (int t = 1; ; t++)
{
gchar *tname = g_strdup_printf("track%d", t);
char *trkname = cbox_config_get_string(cfg_section, tname);
g_free(tname);
if (trkname)
{
tname = g_strdup_printf("%s_vel", trkname);
int vel = cbox_config_get_note(cfg_section, tname, 100);
g_free(tname);
tname = g_strdup_printf("%s_res", trkname);
int res = cbox_config_get_note(cfg_section, tname, gres);
g_free(tname);
tname = g_strdup_printf("%s_channel", trkname);
int channel = cbox_config_get_note(cfg_section, tname, gchannel);
g_free(tname);
tname = g_strdup_printf("%s_swing", trkname);
int swing = cbox_config_get_int(cfg_section, tname, gswing);
g_free(tname);
tname = g_strdup_printf("%s_notes", trkname);
const char *notes = cbox_config_get_string(cfg_section, tname);
g_free(tname);
if (!notes)
{
g_error("Invalid track %s", trkname);
}
const char *s = notes;
int t = 0;
while(1)
{
if (!*s)
break;
gchar *note;
const char *comma = strchr(s, ',');
if (comma)
{
note = g_strndup(s, comma - s);
s = comma + 1;
}
else
{
note = g_strdup(s);
s += strlen(s);
}
if (*note)
{
int pitch = note_from_string(note);
int pos = t * ppqn_factor / res + start_pos;
if (t & 1)
pos += ppqn_factor * swing / (res * 24);
int pos2 = (t + 1) * ppqn_factor / res + start_pos;
if (t & 1)
pos2 += ppqn_factor * swing / (res * 24);
pitch += transpose;
cbox_midi_pattern_maker_add(m, pos, 0x90 + channel - 1, pitch, vel);
cbox_midi_pattern_maker_add(m, pos2 - 1, 0x80 + channel - 1, pitch, 0);
}
t++;
}
}
else
break;
}
g_free(cfg_section);
return length;
}
static int cbox_midi_pattern_load_drum_into(struct cbox_midi_pattern_maker *m, const char *name, int start_pos, uint64_t ppqn_factor)
{
gchar *cfg_section = g_strdup_printf("drumpattern:%s", name);
if (!cbox_config_has_section(cfg_section))
{
g_error("Drum pattern '%s' not found", name);
g_free(cfg_section);
return -1;
}
gchar *smf = cbox_config_get_string(cfg_section, "smf");
#if USE_LIBSMF
if (smf)
return cbox_midi_pattern_load_smf_into(m, smf);
#else
if (smf)
g_warning("libsmf disabled at build time, MIDI import functionality not available.");
#endif
int length = ppqn_factor * cbox_config_get_int(cfg_section, "beats", 4);
int channel = cbox_config_get_int(cfg_section, "channel", 10);
int gswing = cbox_config_get_int(cfg_section, "swing", 0);
int gres = cbox_config_get_int(cfg_section, "resolution", 4);
for (int t = 1; ; t++)
{
gchar *tname = g_strdup_printf("track%d", t);
char *trkname = cbox_config_get_string(cfg_section, tname);
g_free(tname);
if (trkname)
{
tname = g_strdup_printf("%s_note", trkname);
int note = cbox_config_get_note(cfg_section, tname, -1);
g_free(tname);
tname = g_strdup_printf("%s_res", trkname);
int res = cbox_config_get_note(cfg_section, tname, gres);
g_free(tname);
tname = g_strdup_printf("%s_swing", trkname);
int swing = cbox_config_get_int(cfg_section, tname, gswing);
g_free(tname);
tname = g_strdup_printf("%s_trigger", trkname);
const char *trigger = cbox_config_get_string(cfg_section, tname);
g_free(tname);
if (!trigger || note == -1)
{
g_error("Invalid track %s", trkname);
}
int t = 0;
for (int i = 0; trigger[i]; i++)
{
int pos = t * ppqn_factor / res + start_pos;
if (t & 1)
pos += ppqn_factor * swing / (res * 24);
if (trigger[i] >= '1' && trigger[i] <= '9')
{
int amt = (trigger[i] - '0') * 127 / 9;
cbox_midi_pattern_maker_add(m, pos, 0x90 + channel - 1, note, amt);
cbox_midi_pattern_maker_add(m, pos + 1, 0x80 + channel - 1, note, 0);
t++;
}
if (trigger[i] == 'F') // flam
{
int dflam = ppqn_factor / 4;
int rnd = rand() & 7;
dflam += rnd / 2;
cbox_midi_pattern_maker_add(m, pos - dflam, 0x90 + channel - 1, note, 90+rnd);
cbox_midi_pattern_maker_add(m, pos - dflam + 1, 0x80 + channel - 1, note, 0);
cbox_midi_pattern_maker_add(m, pos , 0x90 + channel - 1, note, 120 + rnd);
cbox_midi_pattern_maker_add(m, pos + 1, 0x80 + channel - 1, note, 0);
t++;
}
if (trigger[i] == 'D') // drag
{
pos = (t + 1) * ppqn_factor / res + start_pos;
//if (!(t & 1))
// pos += ppqn_factor * swing / (res * 24);
float dflam = ppqn_factor/8.0;
int rnd = rand() & 7;
cbox_midi_pattern_maker_add(m, pos - dflam*2, 0x90 + channel - 1, note, 70+rnd);
cbox_midi_pattern_maker_add(m, pos - dflam*2 + 1, 0x80 + channel - 1, note, 0);
cbox_midi_pattern_maker_add(m, pos - dflam, 0x90 + channel - 1, note, 60+rnd);
cbox_midi_pattern_maker_add(m, pos - dflam + 1, 0x80 + channel - 1, note, 0);
t++;
}
else if (trigger[i] == '.')
t++;
}
}
else
break;
}
g_free(cfg_section);
return length;
}
struct cbox_midi_pattern *cbox_midi_pattern_load(struct cbox_song *song, const char *name, int is_drum, uint64_t ppqn_factor)
{
struct cbox_midi_pattern_maker *m = cbox_midi_pattern_maker_new(ppqn_factor);
int length = 0;
if (is_drum)
length = cbox_midi_pattern_load_drum_into(m, name, 0, ppqn_factor);
else
length = cbox_midi_pattern_load_melodic_into(m, name, 0, 0, -1, ppqn_factor);
struct cbox_midi_pattern *p = cbox_midi_pattern_maker_create_pattern(m, song, g_strdup(name));
p->loop_end = length;
cbox_midi_pattern_maker_destroy(m);
return p;
}
struct cbox_midi_pattern *cbox_midi_pattern_load_track(struct cbox_song *song, const char *name, int is_drum, uint64_t ppqn_factor)
{
int length = 0;
struct cbox_midi_pattern_maker *m = cbox_midi_pattern_maker_new(ppqn_factor);
gchar *cfg_section = g_strdup_printf(is_drum ? "drumtrack:%s" : "track:%s", name);
if (!cbox_config_has_section(cfg_section))
{
g_error("Drum track '%s' not found", name);
g_free(cfg_section);
return NULL;
}
for (int p = 1; ; p++)
{
gchar *pname = g_strdup_printf("pos%d", p);
char *patname = cbox_config_get_string(cfg_section, pname);
g_free(pname);
if (patname)
{
int tplen = 0;
char *comma = strchr(patname, ',');
while(*patname)
{
char *v = comma ? g_strndup(patname, comma - patname) : g_strdup(patname);
patname = comma ? comma + 1 : patname + strlen(patname);
int xpval = 0, xpnote = -1;
if (!is_drum)
{
char *xp = strchr(v, '+');
if (xp)
{
*xp = '\0';
xpval = atoi(xp + 1);
}
else
{
xp = strchr(v, '=');
if (xp)
{
*xp = '\0';
xpnote = note_from_string(xp + 1);
}
}
}
int plen = 0;
int is_drum_pat = is_drum;
int nofs = 0;
if (*v == '@')
{
nofs = 1;
is_drum_pat = !is_drum_pat;
}
if (is_drum_pat)
plen = cbox_midi_pattern_load_drum_into(m, v + nofs, length, ppqn_factor);
else
plen = cbox_midi_pattern_load_melodic_into(m, v + nofs, length, xpval, xpnote, ppqn_factor);
g_free(v);
if (plen < 0)
{
cbox_midi_pattern_maker_destroy(m);
return NULL;
}
if (plen > tplen)
tplen = plen;
if (*patname)
comma = strchr(patname, ',');
}
length += tplen;
}
else
break;
}
g_free(cfg_section);
struct cbox_midi_pattern *p = cbox_midi_pattern_maker_create_pattern(m, song, g_strdup(name));
p->loop_end = length;
cbox_midi_pattern_maker_destroy(m);
return p;
}
struct cbox_midi_pattern *cbox_midi_pattern_new_from_blob(struct cbox_song *song, const struct cbox_blob *blob, int length, uint64_t ppqn_factor)
{
struct cbox_midi_pattern_maker *m = cbox_midi_pattern_maker_new(ppqn_factor);
struct cbox_blob_serialized_event event;
for (size_t i = 0; i < blob->size; i += sizeof(event))
{
// not sure about alignment guarantees of Python buffers
memcpy(&event, ((uint8_t *)blob->data) + i, sizeof(event));
cbox_midi_pattern_maker_add(m, event.time, event.cmd, event.byte1, event.byte2);
}
struct cbox_midi_pattern *p = cbox_midi_pattern_maker_create_pattern(m, song, g_strdup("unnamed-blob"));
p->loop_end = length;
cbox_midi_pattern_maker_destroy(m);
return p;
}
struct cbox_blob *cbox_midi_pattern_to_blob(struct cbox_midi_pattern *pat, int *length)
{
if (length)
*length = pat->loop_end;
struct cbox_blob_serialized_event event;
int size = 0;
for (uint32_t i = 0; i < pat->event_count; i++)
{
// currently sysex events and the like are not supported
if (pat->events[i].size < 4)
size += sizeof(event);
}
struct cbox_blob *blob = cbox_blob_new(size);
size = 0;
uint8_t *data = blob->data;
for (uint32_t i = 0; i < pat->event_count; i++)
{
// currently sysex events and the like are not supported
const struct cbox_midi_event *src = &pat->events[i];
if (src->size < 4)
{
event.time = src->time;
event.len = src->size;
memcpy(&event.cmd, &src->data_inline[0], event.len);
memcpy(data + size, &event, sizeof(event));
size += sizeof(event);
}
}
return blob;
}
gboolean cbox_midi_pattern_process_cmd(struct cbox_command_target *ct, struct cbox_command_target *fb, struct cbox_osc_command *cmd, GError **error)
{
struct cbox_midi_pattern *p = ct->user_data;
if (!strcmp(cmd->command, "/status") && !strcmp(cmd->arg_types, ""))
{
if (!cbox_check_fb_channel(fb, cmd->command, error))
return FALSE;
return cbox_execute_on(fb, NULL, "/event_count", "i", error, (int)p->event_count) &&
cbox_execute_on(fb, NULL, "/loop_end", "i", error, (int)p->loop_end) &&
cbox_execute_on(fb, NULL, "/name", "s", error, p->name) &&
CBOX_OBJECT_DEFAULT_STATUS(p, fb, error)
;
}
else if (!strcmp(cmd->command, "/name") && !strcmp(cmd->arg_types, "s"))
{
char *old_name = p->name;
p->name = g_strdup(CBOX_ARG_S(cmd, 0));
g_free(old_name);
return TRUE;
}
return cbox_object_default_process_cmd(ct, fb, cmd, error);
}