mirror of
https://github.com/cookiengineer/audacity
synced 2026-01-26 15:03:47 +01:00
Move library tree where it belongs
This commit is contained in:
ra
282
lib-src/libnyquist/nyquist/cmt/seqwrite.c
Normal file
282
lib-src/libnyquist/nyquist/cmt/seqwrite.c
Normal file
@@ -0,0 +1,282 @@
|
||||
/* seqwrite -- write a seq in Adagio format to a file */
|
||||
/***************************************************************************
|
||||
* Change Log
|
||||
* Date | Change
|
||||
*-----------+--------------------------------------------------------------
|
||||
* 11-Mar-94 | Created Change Log
|
||||
* 11-Mar-94 | PLu : Added private to function defs.
|
||||
* 28-Apr-03 | DM : changed for portability, true->TRUE, false->FALSE
|
||||
****************************************************************************/
|
||||
|
||||
#include "switches.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#include "cext.h"
|
||||
#include "midifns.h"
|
||||
#include "timebase.h"
|
||||
#include "seq.h"
|
||||
#include "seqwrite.h"
|
||||
#include "userio.h"
|
||||
#include "record.h"
|
||||
|
||||
private boolean next_event_time();
|
||||
private void write_event();
|
||||
private void write_velocity(FILE *f, int velocity);
|
||||
private void write_voice();
|
||||
private void write_rest(FILE *f, event_type ev, boolean abs_flag);
|
||||
private void write_time();
|
||||
|
||||
private boolean clock_started;
|
||||
private long clock_half_tick;
|
||||
private int new_tempo;
|
||||
/* non-zero indicates a pending tempo change... */
|
||||
private time_type tempo_change_at;
|
||||
|
||||
private int macro_count;
|
||||
private int call_count;
|
||||
private int deframp_count;
|
||||
private int seti_count;
|
||||
|
||||
private int last_velocity;
|
||||
private int last_voice = seq_dflt_voice;
|
||||
|
||||
|
||||
/* next_event_time -- get the time of the next event */
|
||||
/*
|
||||
* NOTE: clock events are ignored (unless this is the first clock event)
|
||||
*/
|
||||
private boolean next_event_time(event, next_time)
|
||||
event_type event;
|
||||
time_type *next_time;
|
||||
{
|
||||
while (event) {
|
||||
if (vc_ctrl(event->nvoice) == ESC_CTRL &&
|
||||
event->value == CLOCK_VALUE &&
|
||||
clock_started) {
|
||||
/* this is a clock event, ignore it: */
|
||||
event = event->next;
|
||||
} else {
|
||||
*next_time = event->ntime;
|
||||
return TRUE;
|
||||
}
|
||||
}
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
|
||||
/* seq_write -- write a seq to a file */
|
||||
/*
|
||||
* NOTE: if abs_flag, then write using absolute times ('T'), otherwise use
|
||||
* relative timing ('N'). Also, only selected channels are written.
|
||||
*/
|
||||
void seq_write(seq_type seq, FILE *f, boolean abs_flag)
|
||||
{
|
||||
event_type ev = seq_events(seq);
|
||||
|
||||
last_velocity = seq_dflt_loud;
|
||||
last_voice = seq_dflt_voice;
|
||||
|
||||
fprintf(f, "!MSEC\n");
|
||||
clock_started = FALSE;
|
||||
tempo_change_at = 0;
|
||||
|
||||
macro_count = 0;
|
||||
call_count = 0;
|
||||
deframp_count = 0;
|
||||
seti_count = 0;
|
||||
|
||||
while (ev) {
|
||||
write_event(seq, ev, f, abs_flag);
|
||||
ev = ev->next;
|
||||
}
|
||||
if (macro_count) gprintf(TRANS, "%d macros ignored.\n", macro_count);
|
||||
if (call_count) gprintf(TRANS, "%d calls ignored.\n", call_count);
|
||||
if (deframp_count) gprintf(TRANS, "%d deframps ignored.\n", deframp_count);
|
||||
if (seti_count) gprintf(TRANS, "%d setis ignored.\n", seti_count);
|
||||
}
|
||||
|
||||
|
||||
private char ctrl_letter[] = "?KMOXYZ";
|
||||
|
||||
/* write_event -- write a single event to a file */
|
||||
/**/
|
||||
private void write_event(seq, event, f, abs_flag)
|
||||
seq_type seq;
|
||||
event_type event;
|
||||
FILE *f;
|
||||
boolean abs_flag;
|
||||
{
|
||||
int voice = vc_voice(event->nvoice);
|
||||
|
||||
/* process all current (and earlier) events */
|
||||
if (is_note(event)) { /*** a note or rest ***/
|
||||
/* if this note is not a rest, write it */
|
||||
if (event->value != NO_PITCH &&
|
||||
(seq_channel_mask(seq) &
|
||||
(1 << (voice - 1)))) {
|
||||
write_pitch(f, event->value);
|
||||
fprintf(f, " U%ld ", event->u.note.ndur >> 8);
|
||||
write_velocity(f, (int) (event->u.note.ndur & 0xFF));
|
||||
write_voice(f, voice);
|
||||
write_time(f, event, abs_flag);
|
||||
}
|
||||
} else { /*** a control command ***/
|
||||
switch (vc_ctrl(event->nvoice)) {
|
||||
case PSWITCH_CTRL:
|
||||
case MODWHEEL_CTRL:
|
||||
case TOUCH_CTRL:
|
||||
case VOLUME_CTRL:
|
||||
case BEND_CTRL:
|
||||
fprintf(f, "%c%d ", ctrl_letter[vc_ctrl(event->nvoice)],
|
||||
event->value);
|
||||
write_voice(f, voice);
|
||||
write_time(f, event, abs_flag);
|
||||
break;
|
||||
case PROGRAM_CTRL:
|
||||
fprintf(f, "Z%d ", event->value + 1);
|
||||
write_voice(f, voice);
|
||||
write_time(f, event, abs_flag);
|
||||
break;
|
||||
case ESC_CTRL:
|
||||
switch (event->value) {
|
||||
case CALL_VALUE:
|
||||
call_count++;
|
||||
write_rest(f, event, abs_flag);
|
||||
/* !call's are not written because there isn't enough
|
||||
* information. A future version of seq should store
|
||||
* the hash table entry instead of the address of the
|
||||
* routine (then we could get string name of the call)
|
||||
* and the number of arguments.
|
||||
*/
|
||||
break;
|
||||
case CLOCK_VALUE:
|
||||
/* design for !clock: for absolute (absflag) files, put the
|
||||
clocks (if any) at the end where they can be edited out
|
||||
easily. For relative files, keep the clocks in-line.
|
||||
On each clock, write a !tempo command inferred by the
|
||||
clock and followed by the !clock. Because the clock
|
||||
event comes before the actual tempo change, the chnage
|
||||
must be delayed by a half tick except for the first one.
|
||||
*/
|
||||
if (abs_flag) break;
|
||||
new_tempo = (2500L << 16) / event->u.clock.ticksize;
|
||||
if (clock_started) {
|
||||
tempo_change_at = event->ntime + clock_half_tick;
|
||||
} else {
|
||||
fprintf(f, "!tempo %d\n", new_tempo);
|
||||
fprintf(f, "!clock\n");
|
||||
clock_started = TRUE;
|
||||
}
|
||||
clock_half_tick = (event->u.clock.ticksize) >> 17;
|
||||
break;
|
||||
case MACCTRL_VALUE:
|
||||
fprintf(f, "~%d(%d) ", event->u.macctrl.ctrl_number,
|
||||
event->u.macctrl.value);
|
||||
write_voice(f, voice);
|
||||
write_time(f, event, abs_flag);
|
||||
break;
|
||||
case MACRO_VALUE:
|
||||
macro_count++;
|
||||
write_rest(f, event, abs_flag);
|
||||
/* macros are not written because there isn't enough
|
||||
* information. A future version of seq should store
|
||||
* the number of arguments in the event, or better yet,
|
||||
* in the definition. Send complaints to RBD!
|
||||
*/
|
||||
break;
|
||||
case CTRLRAMP_VALUE:
|
||||
fprintf(f, "!ramp ~%d(%d) ~%d(%d) U%d U%d ",
|
||||
event->u.ramp.ctrl, event->u.ramp.u.ctrl.from_value,
|
||||
event->u.ramp.ctrl, event->u.ramp.u.ctrl.to_value,
|
||||
(int)event->u.ramp.step,
|
||||
(int)event->u.ramp.dur);
|
||||
write_voice(f, voice);
|
||||
write_time(f, event, abs_flag);
|
||||
break;
|
||||
case DEFRAMP_VALUE:
|
||||
deframp_count++;
|
||||
write_rest(f, event, abs_flag);
|
||||
/* See MACRO_VALUE above for why this isn't implemented. */
|
||||
break;
|
||||
case SETI_VALUE:
|
||||
seti_count++;
|
||||
write_rest(f, event, abs_flag);
|
||||
/* !seti and !setv are not implemented -- a future version
|
||||
* of seq should save more information so we can reconstruct
|
||||
* the Adagio source command.
|
||||
*/
|
||||
break;
|
||||
default:
|
||||
gprintf(TRANS, "unexpected ESC_CTRL value\n");
|
||||
break;
|
||||
}
|
||||
break;
|
||||
default:
|
||||
gprintf(TRANS, "unexpected seq data\n");
|
||||
break;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
/* write_rest -- write a rest (in place of an event) */
|
||||
/**/
|
||||
private void write_rest(FILE *f, event_type ev, boolean abs_flag)
|
||||
{
|
||||
fprintf(f, "R ");
|
||||
write_time(f, ev, abs_flag);
|
||||
}
|
||||
|
||||
|
||||
/* write_time -- write the final field on the line with N or T command */
|
||||
/**/
|
||||
private void write_time(f, event, abs_flag)
|
||||
FILE *f;
|
||||
event_type event;
|
||||
boolean abs_flag;
|
||||
{
|
||||
time_type next_time;
|
||||
|
||||
if (abs_flag) {
|
||||
fprintf(f, "T%ld\n", event->ntime);
|
||||
return;
|
||||
}
|
||||
|
||||
if (next_event_time(event->next, &next_time)) {
|
||||
if (tempo_change_at && (next_time >= tempo_change_at)) {
|
||||
fprintf(f, "N%ld\n!TEMPO %d\n!CLOCK\nR U%ld\n",
|
||||
tempo_change_at - event->ntime,
|
||||
new_tempo, next_time - tempo_change_at);
|
||||
tempo_change_at = 0;
|
||||
} else {
|
||||
fprintf(f, "N%ld\n", next_time - event->ntime);
|
||||
}
|
||||
} else {
|
||||
fprintf(f, "\n");
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
/* write_velocity -- write the velocity field */
|
||||
/**/
|
||||
private void write_velocity(FILE *f, int velocity)
|
||||
{
|
||||
if (last_velocity != velocity) {
|
||||
last_velocity = velocity;
|
||||
fprintf(f, "L%d ", velocity);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
/* write_voice -- write the voice field */
|
||||
/**/
|
||||
private void write_voice(f, voice)
|
||||
FILE *f;
|
||||
int voice;
|
||||
{
|
||||
if (last_voice != voice) {
|
||||
last_voice = voice;
|
||||
fprintf(f, "V%d ", voice);
|
||||
}
|
||||
}
|
||||
Reference in New Issue
Block a user