mi2mu/midi-event.cc

   1 //
   2 // midi-event.cc -- implement Midi_event
   3 //
   4 // copyright 1997 Jan Nieuwenhuizen <jan@digicash.com>
   5
   6 #include "mi2mu.hh"
   7
   8 Midi_event::Midi_event()
   9 {
  10 }
  11
  12 Moment
  13 Midi_event::mom()
  14 {
  15         return Moment( 0 );
  16 }
  17
  18 void
  19 Midi_event::output_mudela( Lily_stream& lily_stream_r, bool command_mode_bo )
  20 {
  21         lily_stream_r << mudela_str( command_mode_bo ) << String( " " );
  22 }
  23
  24 Midi_key::Midi_key( int accidentals_i, int minor_i )
  25 {
  26         accidentals_i_ = accidentals_i;
  27         minor_i_ = minor_i;
  28         if ( accidentals_i >= 0 )
  29                 key_i_ = ( ( accidentals_i % 7 )[ "cgdaebf" ] - 'a' - 2 ) % 7;
  30         else
  31                 key_i_ = ( ( -accidentals_i % 7 )[ "cfbeadg" ] - 'a' - 2 ) % 7;
  32 }
  33
  34 String
  35 Midi_key::mudela_str( bool command_mode_bo )
  36 {
  37         String str = "key\\";
  38         if ( !minor_i_ )
  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         if ( !command_mode_bo )
  43             str =  String( '\\' ) + str;
  44         str = String( "%" ) + str + "\n"; // "\key\F" not supported yet...
  45         return str;
  46 }
  47
  48 String
  49 Midi_key::notename_str( int pitch_i )
  50 {
  51         // this may seem very smart,
  52         // but it-s only an excuse not to read a notename table
  53
  54         // major scale: do-do
  55         // minor scale: la-la ( = + 5 )
  56         static int notename_i_a[ 12 ] = { 0, 0, 1, 1, 2, 3, 3, 4, 4, 5, 5, 6 };
  57         int notename_i = notename_i_a[ ( minor_i_ * 5 + pitch_i ) % 12 ];
  58
  59         static int accidentals_i_a[ 12 ] = { 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0 };
  60         int accidental_i = accidentals_i_a[ minor_i_ * 5 + pitch_i % 12 ];
  61         if ( accidental_i && ( accidentals_i_ < 0 ) ) {
  62                 accidental_i = - accidental_i;
  63                 notename_i = ( notename_i + 1 ) % 7;
  64         }
  65
  66         String notename_str = (char)( ( ( notename_i + 2 ) % 7 ) + 'a' );
  67         while ( accidental_i-- > 0 )
  68                 notename_str += "is";
  69         accidental_i++;
  70         while ( accidental_i++ < 0 )
  71                 if ( ( notename_str == "a" ) || ( notename_str == "e" ) )
  72                         notename_str += "s";
  73                 else
  74                         notename_str += "es";
  75         accidental_i--;
  76         String octave_str;
  77
  78         octave_str += String( '\'', ( pitch_i - Midi_note::c0_pitch_i_c_ ) / 12 );
  79         octave_str += String( '`', ( Midi_note::c0_pitch_i_c_ + 11 - pitch_i ) / 12 );
  80         return octave_str + notename_str;
  81 }
  82
  83 Midi_note::Midi_note( String name_str, Duration dur )
  84 {
  85         // do i want pitch too?
  86         dur_ = dur;
  87         name_str_ = name_str;
  88 }
  89
  90 String
  91 Midi_note::mudela_str( bool command_mode_bo )
  92 {
  93 //      assert( !command_mode_bo );
  94 // undefined ref to simple_plet_bo_ ??
  95 //      if ( simple_plet_bo_ )
  96 //              return name_str_ + Duration_convert::dur2_str( dur_ );
  97
  98         //ugh
  99         String str;
 100         if ( dur_.plet_b() )
 101                 str += String( "\\plet{ " )
 102                         + String_convert::i2dec_str( dur_.plet_.iso_i_, 0, 0 )
 103                         + "/"
 104                         + String_convert::i2dec_str( dur_.plet_.type_i_, 0, 0 )
 105                         + " } ";
 106
 107         str += name_str_;
 108
 109         Duration dur = dur_;
 110         dur.set_plet( 1,1 );
 111         str += Duration_convert::dur2_str( dur );
 112
 113         if ( dur_.plet_b() )
 114                 str += String( " \\plet{ 1/1 }" );
 115
 116         return str;
 117 }
 118
 119 Moment
 120 Midi_note::mom()
 121 {
 122         return Duration_convert::dur2_mom( dur_ );
 123 }
 124
 125 Midi_tempo::Midi_tempo( int useconds_per_4_i )
 126 {
 127         useconds_per_4_i_ = useconds_per_4_i;
 128         seconds_per_1_f_ = (Real)useconds_per_4_i_ * 4 / 1e6;
 129 }
 130
 131 String
 132 Midi_tempo::mudela_str( bool command_mode_bo )
 133 {
 134 //      assert( command_mode_bo );
 135         if ( !command_mode_bo )
 136                 return "";
 137         String str = "tempo 4:";
 138         str += String( get_tempo_i( Moment( 1, 4 ) ) );
 139         return str;
 140 }
 141
 142 int
 143 Midi_tempo::useconds_per_4_i()
 144 {
 145         return useconds_per_4_i_;
 146 }
 147
 148 int
 149 Midi_tempo::get_tempo_i( Moment moment )
 150 {
 151         return Moment( 60 ) / moment / Moment( seconds_per_1_f_ );
 152 }
 153
 154 Midi_text::Midi_text( Midi_text::Type type, String text_str )
 155 {
 156         type_ = type;
 157         text_str_ = text_str;
 158 }
 159
 160 String
 161 Midi_text::mudela_str( bool command_mode_bo )
 162 {
 163         (void)command_mode_bo;
 164         if ( !text_str_.length_i()
 165                 || ( text_str_.length_i() != (int)strlen( text_str_.ch_C() ) ) )
 166                 return "";
 167
 168         return "% " + text_str_ + "\n\t";
 169 }
 170
 171 Midi_time::Midi_time( int num_i, int den_i, int clocks_4_i, int count_32_i )
 172         : sync_dur_( 8 )
 173 {
 174         sync_f_ = 1.0;
 175         if ( count_32_i != 8 )
 176                 warning( String( "#32 in quarter: " ) + String( count_32_i ), 0 );
 177         num_i_ = num_i;
 178         den_i_ = den_i;
 179         clocks_1_i_ = clocks_4_i * 4;
 180 }
 181
 182 Moment
 183 Midi_time::bar_mom()
 184 {
 185         return Moment( num_i_ ) * Duration_convert::dur2_mom( Duration( 1 << den_i_ ) );
 186 }
 187
 188 int
 189 Midi_time::clocks_1_i()
 190 {
 191         return clocks_1_i_;
 192 }
 193
 194 int
 195 Midi_time::den_i()
 196 {
 197         return den_i_;
 198 }
 199
 200 int
 201 Midi_time::num_i()
 202 {
 203         return num_i_;
 204 }
 205
 206 String
 207 Midi_time::mudela_str( bool command_mode_bo )
 208 {
 209         String str = "meter { "
 210                 + String( num_i_ ) + "*" + String( 1 << den_i_ )
 211                 + " }";
 212         if ( !command_mode_bo )
 213             str =  String( '\\' ) + str;
 214         return str;
 215 }
 216