2 duration-convert.cc -- implement Duration_convert
4 source file of the LilyPond music typesetter
6 (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
9 #include "duration-convert.hh"
12 // statics Duration_convert
13 bool const Duration_convert::midi_as_plet_b_s = true;
14 bool Duration_convert::no_quantify_b_s = false;
15 bool Duration_convert::no_double_dots_b_s = false;
16 bool Duration_convert::no_triplets_b_s = false;
17 int Duration_convert::no_smaller_than_i_s = 0;
18 Array<Duration> Duration_convert::dur_array_s;
21 Duration_convert::dur2_str( Duration dur )
24 return String( "[" ) + String( dur.ticks_i_ ) + "]";
26 String str( dur.type_i_ );
27 str += String( '.', dur.dots_i_ );
29 str += String( "*" ) + String( dur.plet_.iso_i_ )
30 + String( "/" ) + String( dur.plet_.type_i_ );
36 Duration_convert::dur2_i( Duration dur, int division_1_i )
38 return dur2_mom( dur ) * Moment( division_1_i );
43 Duration_convert::dur2ticks_i( Duration dur )
47 return dur2_mom( dur ) * Moment( Duration::division_1_i_s );
51 Duration_convert::dur2_mom( Duration dur )
54 return Moment( dur.ticks_i_, Duration::division_1_i_s );
60 Moment mom = Moment( 1 , dur.type_i_ );
63 while ( dur.dots_i_-- ) {
68 return mom * plet_factor_mom( dur );
73 Duration_convert::i2_mom( int time_i, int division_1_i )
78 if ( division_1_i > 0 )
79 return Moment( time_i, division_1_i );
81 return Moment( -division_1_i, time_i );
86 Duration_convert::mom2_dur( Moment mom )
95 Duration dur = mom2standardised_dur( mom );
96 // if ( !dur.mom() || ( dur.mom() == mom ) )
97 if ( !dur.length() || ( dur.length() == mom ) )
99 assert( midi_as_plet_b_s );
101 // dur.set_plet( type_mom, Duration::division_1_i_s / 4 );
103 // Moment as_plet_mom = mom / dur.mom();
104 Moment as_plet_mom = mom / dur.length();
105 as_plet_mom *= dur.plet_.mom();
106 long num = as_plet_mom.numerator().as_long();
107 long den = as_plet_mom.denominator().as_long();
108 dur.set_plet( num, den );
113 Duration_convert::mom2standardised_dur( Moment mom )
115 // if ( !dur_array_s.length_i() )
116 if ( !dur_array_s.size() )
118 // assert( dur_array_s.length_i() );
119 assert( dur_array_s.size() );
120 // for ( int i = 0; i < dur_array_s.length_i() - 1; i++ ) {
121 for ( int i = 0; i < dur_array_s.size() - 1; i++ ) {
122 Moment lower_mom = dur2_mom( dur_array_s[ i ] );
123 if ( mom <= lower_mom ) {
124 // all arbitrary, but 3/4 will get rid of the noise...
126 if ( i || ( mom / lower_mom > Moment( 3, 4 ) ) )
127 return dur_array_s[ i ];
129 return Duration( 0 );
131 Moment upper_mom = dur2_mom( dur_array_s[ i + 1 ] );
132 #if 0 // % deviation of upper/lower from mom, perhaps it's better to use
133 if ( ( mom < upper_mom )
134 && ( ( mom - lower_mom ) / mom
135 < ( upper_mom - mom ) / mom ) )
136 #else // % deviation of mom from lower/upper?
137 if ( ( mom < upper_mom )
138 && ( ( mom - lower_mom ) / lower_mom
139 < ( upper_mom - mom ) / upper_mom ) )
141 return dur_array_s[ i ];
143 // return dur_array_s[ dur_array_s.length_i() ];
144 return dur_array_s[ dur_array_s.size() - 1 ];
148 Duration_convert::set_array()
152 Duration_iterator iter_dur;
155 dur_array_s.push( iter_dur++ );
160 Duration_convert::plet_factor_mom( Duration dur )
162 return dur.plet_.mom();
166 Duration_convert::sync_f( Duration dur, Moment mom )
168 return mom / dur2_mom( dur );
172 Duration_convert::ticks2_dur( int ticks_i )
174 // Duration dur( 4, 0 );
175 // dur.set_plet( ticks_i, Duration::division_1_i_s / 4 );
177 Moment mom( ticks_i, Duration::division_1_i_s );
178 if ( midi_as_plet_b_s )
179 return mom2_dur( mom );
181 Duration dur = mom2standardised_dur( mom );
183 // if ( dur.mom() == mom )
184 if ( dur.length() == mom )
191 dur.set_ticks( ticks_i );
194 return mom2_dur( mom );
199 Duration_convert::ticks2standardised_dur( int ticks_i )
201 Moment mom( ticks_i, Duration::division_1_i_s );
202 Duration dur = mom2standardised_dur( mom );
206 Duration_iterator::Duration_iterator()
208 cursor_dur_.type_i_ = 128;
209 if ( Duration_convert::no_smaller_than_i_s )
210 cursor_dur_.type_i_ = Duration_convert::no_smaller_than_i_s;
211 // cursor_dur_.set_plet( 1, 1 );
215 Duration_iterator::operator ++(int)
217 return forward_dur();
221 Duration_iterator::operator ()()
226 Duration_iterator::operator bool()
232 Duration_iterator::dur()
238 Duration_iterator::forward_dur()
240 /* should do smart table? guessing:
254 Duration dur = cursor_dur_;
256 if ( !cursor_dur_.dots_i_ && !cursor_dur_.plet_b() ) {
257 cursor_dur_.type_i_ *= 2;
258 cursor_dur_.dots_i_ = 2;
260 else if ( cursor_dur_.dots_i_ == 2 ) {
261 assert( !cursor_dur_.plet_b() );
262 cursor_dur_.dots_i_ = 0;
263 cursor_dur_.type_i_ /= 4;
264 cursor_dur_.set_plet( 2, 3 );
266 else if ( cursor_dur_.plet_b()
267 && ( cursor_dur_.plet_.iso_i_ == 2 )
268 && ( cursor_dur_.plet_.type_i_ == 3 ) ) {
269 assert( !cursor_dur_.dots_i_ );
270 cursor_dur_.set_plet( 1, 1 );
271 cursor_dur_.type_i_ *= 2;
272 cursor_dur_.dots_i_ = 1;
274 else if ( cursor_dur_.dots_i_ == 1 ) {
275 assert( !cursor_dur_.plet_b() );
276 cursor_dur_.dots_i_ = 0;
277 cursor_dur_.type_i_ /= 2;
280 if ( Duration_convert::no_triplets_b_s
281 && cursor_dur_.plet_b() && ok() )
283 if ( Duration_convert::no_double_dots_b_s
284 && ( cursor_dur_.dots_i_ == 2 ) && ok() )
286 if ( Duration_convert::no_smaller_than_i_s
287 && ( cursor_dur_.type_i_ > Duration_convert::no_smaller_than_i_s ) && ok() )
289 if ( Duration_convert::no_smaller_than_i_s
290 && cursor_dur_.dots_i_
291 && ( cursor_dur_.type_i_ >= Duration_convert::no_smaller_than_i_s )
294 if ( Duration_convert::no_smaller_than_i_s
295 && ( cursor_dur_.dots_i_ == 2 )
296 && ( cursor_dur_.type_i_ >= Duration_convert::no_smaller_than_i_s / 2 )
304 Duration_iterator::ok()
306 return ( cursor_dur_.type_i_
307 && !( ( cursor_dur_.type_i_ == 1 ) && ( cursor_dur_.dots_i_ > 2 ) ) );