static int
cmd_load(char *file_name)
{
char *decoded;
if (file_name == NULL) {
if (last_file_name == NULL) {
g_critical("Please specify file name.");
return (-1);
}
file_name = strdup(last_file_name);
} else {
file_name = strdup(file_name);
}
selected_track = NULL;
selected_event = NULL;
if (smf != NULL) {
smf_delete(smf);
smf = NULL;
}
if (last_file_name != NULL)
free(last_file_name);
last_file_name = strdup(file_name);
smf = smf_load(file_name);
if (smf == NULL) {
g_critical("Couldn't load '%s'.", file_name);
smf = smf_new();
if (smf == NULL) {
g_critical("Cannot initialize smf_t.");
return (-1);
}
return (-2);
}
g_message("File '%s' loaded.", file_name);
decoded = smf_decode(smf);
g_message("%s.", decoded);
free(decoded);
cmd_track("1");
free(file_name);
return (0);
}
/**
* Creates new SMF and fills it with data loaded from the given buffer.
* \return SMF or NULL, if loading failed.
*/
smf_t *
smf_load_from_memory(const void *buffer, const size_t buffer_length)
{
int i;
int ret;
smf_t *smf = smf_new();
smf->file_buffer = (void *)buffer;
smf->file_buffer_length = buffer_length;
smf->next_chunk_offset = 0;
if (parse_mthd_chunk(smf))
return (NULL);
for (i = 1; i <= smf->expected_number_of_tracks; i++) {
smf_track_t *track = smf_track_new();
if (track == NULL)
return (NULL);
smf_add_track(smf, track);
ret = parse_mtrk_chunk(track);
track->file_buffer = NULL;
track->file_buffer_length = 0;
track->next_event_offset = -1;
if (ret) {
g_warning("SMF warning: Error parsing track, continuing with data loaded so far.");
break;
}
}
if (smf->expected_number_of_tracks != smf->number_of_tracks) {
g_warning("SMF warning: MThd header declared %d tracks, but only %d found; continuing anyway.",
smf->expected_number_of_tracks, smf->number_of_tracks);
smf->expected_number_of_tracks = smf->number_of_tracks;
}
smf->file_buffer = NULL;
smf->file_buffer_length = 0;
smf->next_chunk_offset = 0;
return (smf);
}
CAMLprim value ocaml_smf_new(value unit)
{
CAMLparam1(unit);
CAMLlocal1(ans);
Smf_t *t;
t = malloc(sizeof(Smf_t));
t->t = smf_new();
if(t->t == NULL)
{
free(t);
/* Error */
t = NULL;
smf_err(0);
}
ans = caml_alloc_custom(&smf_ops, sizeof(Smf_t*), 1, 0);
Smf_t_val(ans) = t;
CAMLreturn(ans);
}
int
main(int argc, char *argv[])
{
int ch;
while ((ch = getopt(argc, argv, "V")) != -1) {
switch (ch) {
case 'V':
cmd_version(NULL);
exit(EX_OK);
case '?':
default:
usage();
}
}
if (argc > 2)
usage();
g_log_set_default_handler(log_handler, NULL);
smf = smf_new();
if (smf == NULL) {
g_critical("Cannot initialize smf_t.");
return (-1);
}
if (argc == 2)
cmd_load(argv[1]);
else
cmd_trackadd(NULL);
#ifdef HAVE_LIBREADLINE
rl_readline_name = "smfsh";
rl_attempted_completion_function = smfsh_completion;
#endif
for (;;)
read_and_execute_command();
return (0);
}
G_MODULE_EXPORT void
on_doIt_clicked( GtkButton *button,
gpointer data )
{
printf("button clicked\n");
smf_t* smf = smf_new();
smf_track_t* track = smf_track_new();
smf_add_track(smf, track);
smf_event_t* event;
gboolean prevFrame[NUMBER_OF_KEYS] = { FALSE };
// Start video from beginning
currentFrame = startFrame;
//upper 9 notes have lyrics
//2920 start
while (currentFrame <= stopFrame)
{
int i = 0;
if ( currentFrame == stopFrame )
{
for (i = 0; i < NUMBER_OF_KEYS; i++ )
{
noteOn[i] = FALSE;
}
}
else
{
redrawFrame();
}
// Why NUMBER_OF_KEYS - 10? Well, the lyrics in my example are printed across
// the upper 10 notes and were being detected as notes themselves, causing odd
// trilling when they scrolled past. This was a quick hack to make that stop.
for ( i = 0; i < NUMBER_OF_KEYS - 10; i++ )
{
char note = 0xd + i;
char eventBytes[3] = { 0 };
eventBytes[1] = note; // which note to play
eventBytes[2] = 0x7f; // full velocity (may toy with later)
if (prevFrame[i] && (!noteOn[i]))
{
// Time to generate a note-off
eventBytes[0] = 0x80;
printf("note-off: %x, at frame %f\n", i + 0xd, currentFrame);
}
if ((!prevFrame[i]) && noteOn[i])
{
// Time to generate a note-on
eventBytes[0] = 0x90;
printf("note-on: %x, at frame %f\n", i + 0xd, currentFrame);
}
prevFrame[i] = noteOn[i];
if ( eventBytes[0] )
{
event = smf_event_new_from_pointer(eventBytes, 3);
smf_track_add_event_seconds(track, event, currentFrame / 30.0);
}
}
currentFrame++;
gtk_main_iteration_do( FALSE );
}
smf_save(smf, "output.mid");
}
int
main (int argc, char * argv [])
{
int ch, i;
char * file_name, * autoconnect_port_name = NULL;
g_thread_init(NULL);
#ifdef WITH_LASH
lash_args_t * lash_args = lash_extract_args(&argc, &argv);
#endif
g_log_set_default_handler(log_handler, NULL);
while ((ch = getopt(argc, argv, "a:V")) != -1)
{
switch (ch)
{
case 'a':
autoconnect_port_name = strdup(optarg);
break;
case 'V':
show_version();
break;
case '?':
default:
usage();
}
}
argc -= optind;
argv += optind;
if (argc == 0)
usage();
file_name = argv[0];
smf = smf_new();
if (smf == NULL)
exit(-1);
for (i = 0; i < 16; ++i)
{
tracks[i] = smf_track_new();
if (tracks[i] == NULL)
exit(-1);
smf_add_track(smf, tracks[i]);
}
#ifdef WITH_LASH
init_lash(lash_args);
#endif
init_jack();
if (autoconnect_port_name)
{
if (connect_to_output_port(autoconnect_port_name))
{
g_critical("Couldn't connect to '%s', exiting.", autoconnect_port_name);
exit(EX_UNAVAILABLE);
}
}
g_timeout_add(100, writer_timeout, (gpointer)argv[0]);
signal(SIGINT, ctrl_c_handler);
g_message
(
"Recording will start at the first received note; "
"press ^C to write the file and exit."
);
g_main_loop_run(g_main_loop_new(NULL, TRUE));
/* Not reached. */
return 0;
}
static int
ui_save_state(ui_t *ui, char *filename)
{
int i;
smf_t *smf;
smf_track_t *track;
jack_nframes_t frame;
double seconds;
list_t *pattern, *lp;
note_t *note;
/* TODO: check if file exists */
if (!filename) {
filename = ui_get_filename(ui, ".", "Save to: ");
}
ui->filename = filename;
smf = smf_new();
if (!smf) {
return 0;
}
for (i = 0; i < 8; i++) {
track = smf_track_new();
if (!track) {
smf_delete(smf);
return 0;
}
smf_add_track(smf, track);
pattern = ui->patterns[i];
if (!pattern) {
continue;
}
for (lp = pattern; lp; lp = list_next(lp)) {
note = (note_t *)list_data(lp);
frame = 88200 / ui->steps * note->step;
seconds = ui_nframes_to_seconds(ui, frame);
note_event_save(note, track, 0x90, seconds);
/* TODO: decide if and how noteoffs should be saved */
/* frame = 88200 / ui->steps */
/* * ((note->step + note->len) % ui->steps); */
/* seconds = ui_nframes_to_seconds(ui, frame); */
/* note_event_save(note, track, NOTEOFF, seconds); */
}
if (smf_track_add_eot_seconds(track, 2)) {
return 0;
}
}
if (smf_save(smf, ui->filename)) {
return 0;
}
return 1;
}
