]> git.donarmstrong.com Git - lilypond.git/blob - lily/performance.cc
Docs: Fix fixed IR compilation (copy @q and @qq from macros.itely)
[lilypond.git] / lily / performance.cc
1 /*
2   performance.cc -- implement Performance
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 1997--2007 Jan Nieuwenhuizen <janneke@gnu.org>
7 */
8
9 #include "performance.hh"
10
11 #include <ctime>
12 using namespace std;
13
14 #include "audio-column.hh"
15 #include "audio-staff.hh"
16 #include "file-name.hh"
17 #include "international.hh"
18 #include "lily-version.hh"
19 #include "main.hh"
20 #include "midi-chunk.hh"
21 #include "midi-stream.hh"
22 #include "score.hh"
23 #include "string-convert.hh"
24 #include "warn.hh"
25
26 Performance::Performance ()
27 {
28   midi_ = 0;
29 }
30
31 Performance::~Performance ()
32 {
33   junk_pointers (audio_elements_);
34 }
35
36 void
37 Performance::output (Midi_stream &midi_stream) const
38 {
39   int tracks_ = audio_staffs_.size ();
40
41   midi_stream.write (Midi_header (1, tracks_, 384));
42   if (be_verbose_global)
43     progress_indication (_ ("Track...") + " ");
44   
45   int channel = 0;
46   for (vsize i = 0; i < audio_staffs_.size (); i++)
47     {
48       Audio_staff *s = audio_staffs_[i];
49       if (be_verbose_global)
50         progress_indication ("[" + to_string (i));
51
52       int midi_channel =  s->channel_;
53
54       if (midi_channel < 0)
55         {
56           midi_channel = channel;
57           channel ++;
58           /*
59             MIDI players tend to ignore instrument settings on
60             channel 10, the percussion channel.
61           */
62           if (channel % 16 == 9)
63             channel ++;
64         }
65
66       /*
67         Huh? Why does each staff also have a separate channel? We
68         should map channels to voices, not staves. --hwn.
69       */
70       if (midi_channel > 15)
71         {
72           warning (_ ("MIDI channel wrapped around"));
73           warning (_ ("remapping modulo 16"));
74
75           midi_channel = midi_channel % 16; 
76         }
77
78       s->output (midi_stream, midi_channel);
79       if (be_verbose_global)
80         progress_indication ("]");
81     }
82 }
83 void
84 Performance::add_element (Audio_element *p)
85 {
86   audio_elements_.push_back (p);
87 }
88
89 void
90 Performance::write_output (string out) const
91 {
92   if (out == "-")
93     out = "lelie.midi";
94
95   /* Maybe a bit crude, but we had this before */
96   File_name file_name (out);
97   file_name.ext_ = "midi";
98   out = file_name.to_string ();
99
100   Midi_stream midi_stream (out);
101   message (_f ("MIDI output to `%s'...", out));
102
103   output (midi_stream);
104   progress_indication ("\n");
105 }
106
107
108 void
109 Performance::process ()
110 {
111 }
112
113 Performance *
114 unsmob_performance (SCM x)
115 {
116   return dynamic_cast<Performance*> (unsmob_music_output (x));
117 }