2 // midi-event.cc -- implement Midi_event
4 // copyright 1997 Jan Nieuwenhuizen <jan@digicash.com>
8 Midi_event::Midi_event()
19 Midi_event::output_mudela( Lily_stream& lily_stream_r, bool command_mode_bo )
21 lily_stream_r << mudela_str( command_mode_bo ) << String( " " );
24 Midi_key::Midi_key( int accidentals_i, int minor_i )
26 accidentals_i_ = accidentals_i;
28 if ( accidentals_i >= 0 )
29 key_i_ = ( ( accidentals_i % 7 )[ "cgdaebf" ] - 'a' - 2 ) % 7;
31 key_i_ = ( ( -accidentals_i % 7 )[ "cfbeadg" ] - 'a' - 2 ) % 7;
35 Midi_key::mudela_str( bool command_mode_bo )
37 String str = "\\key\\";
39 str += String( (char)( ( key_i_ + 2 ) % 7 + 'A' ) );
40 else // heu, -2: should be - 1 1/2: A -> fis
41 str += String( (char)( ( key_i_ + 2 - 2 ) % 7 + 'a' ) );
42 str = String( "%" ) + str + ";\n"; // "\key\F" not supported yet...
47 Midi_key::notename_str( int pitch_i )
49 // this may seem very smart,
50 // but it-s only an excuse not to read a notename table
53 // minor scale: la-la ( = + 5 )
54 static int notename_i_a[ 12 ] = { 0, 0, 1, 1, 2, 3, 3, 4, 4, 5, 5, 6 };
55 int notename_i = notename_i_a[ ( minor_i_ * 5 + pitch_i ) % 12 ];
57 static int accidentals_i_a[ 12 ] = { 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0 };
58 int accidental_i = accidentals_i_a[ minor_i_ * 5 + pitch_i % 12 ];
59 if ( accidental_i && ( accidentals_i_ < 0 ) ) {
60 accidental_i = - accidental_i;
61 notename_i = ( notename_i + 1 ) % 7;
64 String notename_str = (char)( ( ( notename_i + 2 ) % 7 ) + 'a' );
65 while ( accidental_i-- > 0 )
68 while ( accidental_i++ < 0 )
69 if ( ( notename_str == "a" ) || ( notename_str == "e" ) )
75 String de_octavate_str = String( '\'', ( Midi_note::c0_pitch_i_c_ + 11 - pitch_i ) / 12 );
76 String octavate_str = String( '\'', ( pitch_i - Midi_note::c0_pitch_i_c_ ) / 12 );
77 return de_octavate_str + notename_str + octavate_str;
82 this switch can be used to write simple plets like
85 \plet 2/3; c4 \plet 1/1;
87 bool const Midi_note::simple_plet_b_s = true;
89 Midi_note::Midi_note( String name_str, Duration dur )
91 // do i want pitch too?
97 Midi_note::mudela_str( bool command_mode_bo )
99 // assert( !command_mode_bo );
103 if ( simple_plet_b_s )
104 return name_str_ + Duration_convert::dur2_str( dur_ );
109 str += String( "\\plet " )
110 + String_convert::i2dec_str( dur_.plet_.iso_i_, 0, 0 )
112 + String_convert::i2dec_str( dur_.plet_.type_i_, 0, 0 )
119 str += Duration_convert::dur2_str( dur );
122 str += String( " \\plet 1/1;" );
130 return Duration_convert::dur2_mom( dur_ );
133 Midi_tempo::Midi_tempo( int useconds_per_4_i )
135 useconds_per_4_i_ = useconds_per_4_i;
136 seconds_per_1_f_ = (Real)useconds_per_4_i_ * 4 / 1e6;
140 Midi_tempo::mudela_str( bool command_mode_bo )
142 // assert( command_mode_bo );
143 if ( !command_mode_bo )
145 String str = "\\tempo 4:";
146 str += String( get_tempo_i( Moment( 1, 4 ) ) );
152 Midi_tempo::useconds_per_4_i()
154 return useconds_per_4_i_;
158 Midi_tempo::get_tempo_i( Moment moment )
160 return Moment( 60 ) / moment / Moment( seconds_per_1_f_ );
163 Midi_text::Midi_text( Midi_text::Type type, String text_str )
166 text_str_ = text_str;
170 Midi_text::mudela_str( bool command_mode_bo )
172 (void)command_mode_bo;
173 if ( !text_str_.length_i()
174 || ( text_str_.length_i() != (int)strlen( text_str_.ch_C() ) ) )
177 return "% " + text_str_ + "\n\t";
180 Midi_time::Midi_time( int num_i, int den_i, int clocks_4_i, int count_32_i )
184 if ( count_32_i != 8 )
185 warning( String( "#32 in quarter: " ) + String( count_32_i ));
188 clocks_1_i_ = clocks_4_i * 4;
194 return Moment( num_i_ ) * Duration_convert::dur2_mom( Duration( 1 << den_i_ ) );
198 Midi_time::clocks_1_i()
216 Midi_time::mudela_str( bool command_mode_bo )
218 String str = "\\meter "
219 + String( num_i_ ) + "/" + String( 1 << den_i_ )