1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
// alegrowr.cpp -- write sequence to an Allegro file (text)
#include "stdlib.h"
#include "stdio.h"
#include "assert.h"
#include "allegro.h"
#include "allegrowr.h"
#include "string.h"
#include "strparse.h"
void parameter_print(FILE *file, Parameter_ptr p)
{
char str[256];
fprintf(file, " -%s:", p->attr_name());
switch (p->attr_type()) {
case 'a':
fprintf(file, "%s", p->a);
break;
case 'i':
fprintf(file, "%d", p->i);
break;
case 'l':
fprintf(file, "%s", p->l ? "true" : "false");
break;
case 'r':
fprintf(file, "%g", p->r);
break;
case 's':
string_escape(str, p->s, "\"");
fprintf(file, "%s", str);
break;
}
}
void allegro_write(Seq_ptr seq, FILE *file)
{
int i;
// first write the tempo map
Beats &beats = seq->map.beats;
for (i = 0; i < beats.len - 1; i++) {
Beat_ptr b = &(beats[i]);
fprintf(file, "TW%g ", seq->map.time_to_beat(b->time) / 4);
double tempo = (beats[i + 1].beat - beats[i].beat) /
(beats[i + 1].time - beats[i].time);
fprintf(file, "-tempor:%g\n", tempo * 60);
}
if (seq->map.last_tempo_flag) { // we have final tempo:
double time = seq->map.time_to_beat(beats[beats.len - 1].time) / 4;
fprintf(file, "TW%g ", time);
fprintf(file, "-tempor:%g\n", seq->map.last_tempo * 60.0);
}
// now write the notes at beat positions
for (i = 0; i < seq->notes.len; i++) {
Allegro_event_ptr e = seq->notes[i];
double start = seq->map.time_to_beat(e->time);
fprintf(file, "TW%g", start / 4);
if (e->chan != -1) {
fprintf(file, " V%d", e->chan);
}
if (e->type == 'n') {
Allegro_note_ptr n = (Allegro_note_ptr) e;
double dur = seq->map.time_to_beat(n->time + n->dur) - start;
fprintf(file, " K%d P%g Q%g L%g", n->key, n->pitch, dur, n->loud);
Parameters_ptr p = n->parameters;
while (p) {
parameter_print(file, &(p->parm));
p = p->next;
}
} else { // an update
Allegro_update_ptr u = (Allegro_update_ptr) e;
if (u->key != -1) {
fprintf(file, " K%d", u->key);
}
parameter_print(file, &(u->parameter));
}
fprintf(file, "\n");
}
}
|
