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         str = String( "% \"" ) + str
  43             + String('"') + "; % not supported yet\n";
  44         return str;
  45 }
  46
  47 String
  48 Midi_key::notename_str( int pitch_i )
  49 {
  50         // this may seem very smart,
  51         // but it-s only an excuse not to read a notename table
  52
  53         // major scale: do-do
  54         // minor scale: la-la ( = + 5 )
  55         static int notename_i_a[ 12 ] = { 0, 0, 1, 1, 2, 3, 3, 4, 4, 5, 5, 6 };
  56         int notename_i = notename_i_a[ ( minor_i_ * 5 + pitch_i ) % 12 ];
  57
  58         static int accidentals_i_a[ 12 ] = { 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0 };
  59         int accidental_i = accidentals_i_a[ minor_i_ * 5 + pitch_i % 12 ];
  60         if ( accidental_i && ( accidentals_i_ < 0 ) ) {
  61                 accidental_i = - accidental_i;
  62                 notename_i = ( notename_i + 1 ) % 7;
  63         }
  64
  65         String notename_str = (char)( ( ( notename_i + 2 ) % 7 ) + 'a' );
  66         while ( accidental_i-- > 0 )
  67                 notename_str += "is";
  68         accidental_i++;
  69         while ( accidental_i++ < 0 )
  70                 if ( ( notename_str == "a" ) || ( notename_str == "e" ) )
  71                         notename_str += "s";
  72                 else
  73                         notename_str += "es";
  74         accidental_i--;
  75
  76         String de_octavate_str = String( '\'', ( Midi_note::c0_pitch_i_c_ + 11 - pitch_i ) / 12 );
  77         String octavate_str = String( '\'', ( pitch_i - Midi_note::c0_pitch_i_c_ ) / 12 );
  78         return de_octavate_str + notename_str + octavate_str;
  79 }
  80
  81 // statics Midi_note
  82 /*
  83  this switch can be used to write simple plets like
  84      c4*2/3
  85  as
  86      \plet 2/3; c4 \plet 1/1;
  87  */
  88 bool const Midi_note::simple_plet_b_s = true;
  89
  90 Midi_note::Midi_note( String name_str, Duration dur )
  91 {
  92         // do i want pitch too?
  93         dur_ = dur;
  94         name_str_ = name_str;
  95 }
  96
  97 String
  98 Midi_note::mudela_str( bool command_mode_bo )
  99 {
 100 //      assert( !command_mode_bo );
 101         if ( !dur_.type_i_ )
 102                 return "";
 103
 104         if ( simple_plet_b_s )
 105                 return name_str_ + Duration_convert::dur2_str( dur_ );
 106
 107         //ugh
 108         String str;
 109         if ( dur_.plet_b() )
 110                 str += String( "\\plet " )
 111                         + String_convert::i2dec_str( dur_.plet_.iso_i_, 0, 0 )
 112                         + "/"
 113                         + String_convert::i2dec_str( dur_.plet_.type_i_, 0, 0 )
 114                         + "; ";
 115
 116         str += name_str_;
 117
 118         Duration dur = dur_;
 119         dur.set_plet( 1,1 );
 120         str += Duration_convert::dur2_str( dur );
 121
 122         if ( dur_.plet_b() )
 123                 str += String( " \\plet 1/1;" );
 124
 125         return str;
 126 }
 127
 128 Moment
 129 Midi_note::mom()
 130 {
 131         return Duration_convert::dur2_mom( dur_ );
 132 }
 133
 134 Midi_tempo::Midi_tempo( int useconds_per_4_i )
 135 {
 136         useconds_per_4_i_ = useconds_per_4_i;
 137         seconds_per_1_f_ = (Real)useconds_per_4_i_ * 4 / 1e6;
 138 }
 139
 140 String
 141 Midi_tempo::mudela_str( bool command_mode_bo )
 142 {
 143 //      assert( command_mode_bo );
 144         if ( !command_mode_bo )
 145                 return "";
 146         String str = "\\tempo 4:";
 147         str += String( get_tempo_i( Moment( 1, 4 ) ) );
 148         str += ";";
 149         return str;
 150 }
 151
 152 int
 153 Midi_tempo::useconds_per_4_i()
 154 {
 155         return useconds_per_4_i_;
 156 }
 157
 158 int
 159 Midi_tempo::get_tempo_i( Moment moment )
 160 {
 161         return Moment( 60 ) / moment / Moment( seconds_per_1_f_ );
 162 }
 163
 164 Midi_text::Midi_text( Midi_text::Type type, String text_str )
 165 {
 166         type_ = type;
 167         text_str_ = text_str;
 168 }
 169
 170 String
 171 Midi_text::mudela_str( bool command_mode_bo )
 172 {
 173         (void)command_mode_bo;
 174         if ( !text_str_.length_i()
 175                 || ( text_str_.length_i() != (int)strlen( text_str_.ch_C() ) ) )
 176                 return "";
 177
 178         return "% " + text_str_ + "\n";
 179 }
 180
 181 Midi_time::Midi_time( int num_i, int den_i, int clocks_4_i, int count_32_i )
 182 {
 183         sync_dur_.type_i_ = 8;
 184
 185         sync_f_ = 1.0;
 186         if ( count_32_i != 8 )
 187                 warning( String( "#32 in quarter: " ) + String( count_32_i ));
 188         num_i_ = num_i;
 189         den_i_ = den_i;
 190         clocks_1_i_ = clocks_4_i * 4;
 191 }
 192
 193 Moment
 194 Midi_time::bar_mom()
 195 {
 196     Duration d;
 197     d.type_i_ =  1 << den_i_ ;
 198         return Moment( num_i_ ) * Duration_convert::dur2_mom( d );
 199 }
 200
 201 int
 202 Midi_time::clocks_1_i()
 203 {
 204         return clocks_1_i_;
 205 }
 206
 207 int
 208 Midi_time::den_i()
 209 {
 210         return den_i_;
 211 }
 212
 213 int
 214 Midi_time::num_i()
 215 {
 216         return num_i_;
 217 }
 218
 219 String
 220 Midi_time::mudela_str( bool command_mode_bo )
 221 {
 222         String str = "\\meter "
 223                 + String( num_i_ ) + "/" + String( 1 << den_i_ )
 224                 + ";";
 225         return str;
 226 }
 227