blob: 70d5348a9b1d6f0513e7cc8b983538ec79b77cfe (
about) (
plain)
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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
/*
performance.cc -- implement Performance
source file of the GNU LilyPond music typesetter
(c) 1997--2007 Jan Nieuwenhuizen <janneke@gnu.org>
*/
#include "performance.hh"
#include <ctime>
using namespace std;
#include "audio-column.hh"
#include "audio-staff.hh"
#include "file-name.hh"
#include "international.hh"
#include "lily-version.hh"
#include "main.hh"
#include "midi-chunk.hh"
#include "midi-stream.hh"
#include "score.hh"
#include "string-convert.hh"
#include "warn.hh"
Performance::Performance ()
{
midi_ = 0;
}
Performance::~Performance ()
{
junk_pointers (audio_elements_);
}
void
Performance::output (Midi_stream &midi_stream) const
{
int tracks_ = audio_staffs_.size ();
midi_stream.write (Midi_header (1, tracks_, 384));
if (be_verbose_global)
progress_indication (_ ("Track...") + " ");
int channel = 0;
for (vsize i = 0; i < audio_staffs_.size (); i++)
{
Audio_staff *s = audio_staffs_[i];
if (be_verbose_global)
progress_indication ("[" + to_string (i));
int midi_channel = s->channel_;
if (midi_channel < 0)
{
midi_channel = channel;
channel ++;
/*
MIDI players tend to ignore instrument settings on
channel 10, the percussion channel.
*/
if (channel % 16 == 9)
channel ++;
}
/*
Huh? Why does each staff also have a separate channel? We
should map channels to voices, not staves. --hwn.
*/
if (midi_channel > 15)
{
warning (_ ("MIDI channel wrapped around"));
warning (_ ("remapping modulo 16"));
midi_channel = midi_channel % 16;
}
s->output (midi_stream, midi_channel);
if (be_verbose_global)
progress_indication ("]");
}
}
void
Performance::add_element (Audio_element *p)
{
audio_elements_.push_back (p);
}
void
Performance::write_output (string out) const
{
if (out == "-")
out = "lelie.midi";
/* Maybe a bit crude, but we had this before */
File_name file_name (out);
file_name.ext_ = "midi";
out = file_name.to_string ();
Midi_stream midi_stream (out);
message (_f ("MIDI output to `%s'...", out));
output (midi_stream);
progress_indication ("\n");
}
void
Performance::process ()
{
}
Performance *
unsmob_performance (SCM x)
{
return dynamic_cast<Performance*> (unsmob_music_output (x));
}
|
