2 duration-convert.cc -- implement Duration_convert
4 source file of the LilyPond music typesetter
6 (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
7 Jan Nieuwenhuizen <jan@digicash.com>
10 #include "duration-convert.hh"
13 // statics Duration_convert
14 bool const Duration_convert::midi_as_plet_b_s = true;
15 bool Duration_convert::no_quantify_b_s = false;
16 bool Duration_convert::no_double_dots_b_s = false;
17 bool Duration_convert::no_triplets_b_s = false;
18 int Duration_convert::no_smaller_than_i_s = 0;
19 Array<Duration> Duration_convert::dur_array_s;
22 Duration_convert::dur2_str( Duration dur )
25 return String( "[" ) + String( dur.ticks_i_ ) + "]";
28 if (dur.durlog_i_ <= 0)
31 str= String( type2_i(dur.durlog_i_) );
32 str += String( '.', dur.dots_i_ );
34 str += String( "*" ) + String( dur.plet_.iso_i_ )
35 + String( "/" ) + String( dur.plet_.type_i_ );
41 Duration_convert::dur2_i( Duration dur, int division_1_i )
43 return dur2_mom( dur ) * Moment( division_1_i );
48 Duration_convert::dur2ticks_i( Duration dur )
52 return dur2_mom( dur ) * Moment( Duration::division_1_i_s );
57 Duration_convert::i2_type(int i)
68 Duration_convert::type2_i(int type)
77 Duration_convert::dur2_mom( Duration dur )
80 return Moment( dur.ticks_i_, Duration::division_1_i_s );
83 if ( dur.durlog_i_<-10 )
87 mom = Moment( type2_i( -dur.durlog_i_ ), 1 );
89 mom = Moment( 1 , type2_i( dur.durlog_i_ ) );
92 while ( dur.dots_i_-- )
98 return mom * plet_factor_mom( dur );
103 Duration_convert::i2_mom( int time_i, int division_1_i )
108 if ( division_1_i > 0 )
109 return Moment( time_i, division_1_i );
111 return Moment( -division_1_i, time_i );
116 Duration_convert::mom2_dur( Moment mom )
126 Duration dur = mom2standardised_dur( mom );
127 // if ( !dur.mom() || ( dur.mom() == mom ) )
128 if ( !dur.length() || ( dur.length() == mom ) )
130 assert( midi_as_plet_b_s );
132 // dur.set_plet( type_mom, Duration::division_1_i_s / 4 );
134 // Moment as_plet_mom = mom / dur.mom();
135 Moment as_plet_mom = mom / dur.length();
136 as_plet_mom *= dur.plet_.mom();
137 long num = as_plet_mom.numerator().as_long();
138 long den = as_plet_mom.denominator().as_long();
139 dur.set_plet( num, den );
144 Duration_convert::mom2standardised_dur( Moment mom )
146 // if ( !dur_array_s.length_i() )
147 if ( !dur_array_s.size() )
149 assert( dur_array_s.size() );
150 for ( int i = 0; i < dur_array_s.size() - 1; i++ )
152 Moment lower_mom = dur2_mom( dur_array_s[ i ] );
153 if ( mom <= lower_mom )
155 // all arbitrary, but 3/4 will get rid of the noise...
157 if ( i || ( mom / lower_mom > Moment( 3, 4 ) ) )
158 return dur_array_s[ i ];
166 Moment upper_mom = dur2_mom( dur_array_s[ i + 1 ] );
167 if ( ( mom < upper_mom )
168 && ( ( mom - lower_mom ) / lower_mom
169 < ( upper_mom - mom ) / upper_mom ) )
170 return dur_array_s[ i ];
172 return dur_array_s[ dur_array_s.size() - 1 ];
176 Duration_convert::set_array()
180 Duration_iterator iter_dur;
183 dur_array_s.push( iter_dur++ );
188 Duration_convert::plet_factor_mom( Duration dur )
190 return dur.plet_.mom();
194 Duration_convert::sync_f( Duration dur, Moment mom )
196 return mom / dur2_mom( dur );
200 Duration_convert::ticks2_dur( int ticks_i )
202 // Duration dur( 4, 0 );
203 // dur.set_plet( ticks_i, Duration::division_1_i_s / 4 );
205 Moment mom( ticks_i, Duration::division_1_i_s );
206 if ( midi_as_plet_b_s )
207 return mom2_dur( mom );
209 Duration dur = mom2standardised_dur( mom );
211 // if ( dur.mom() == mom )
212 if ( dur.length() == mom )
217 dur.durlog_i_ = -100;
219 dur.set_ticks( ticks_i );
222 return mom2_dur( mom );
227 Duration_convert::ticks2standardised_dur( int ticks_i )
229 Moment mom( ticks_i, Duration::division_1_i_s );
230 Duration dur = mom2standardised_dur( mom );
234 Duration_iterator::Duration_iterator()
236 cursor_dur_.durlog_i_ = 7;
237 if ( Duration_convert::no_smaller_than_i_s )
238 cursor_dur_.durlog_i_ = Duration_convert::no_smaller_than_i_s;
239 // cursor_dur_.set_plet( 1, 1 );
243 Duration_iterator::operator ++(int)
245 return forward_dur();
249 Duration_iterator::operator ()()
254 Duration_iterator::operator bool()
260 Duration_iterator::dur()
266 Duration_iterator::forward_dur()
268 /* should do smart table? guessing:
282 Duration dur = cursor_dur_;
284 if ( !cursor_dur_.dots_i_ && !cursor_dur_.plet_b() )
286 cursor_dur_.durlog_i_ += 1;
287 cursor_dur_.dots_i_ = 2;
289 else if ( cursor_dur_.dots_i_ == 2 )
291 assert( !cursor_dur_.plet_b() );
292 cursor_dur_.dots_i_ = 0;
293 cursor_dur_.durlog_i_ -=2;
294 cursor_dur_.set_plet( 2, 3 );
296 else if ( cursor_dur_.plet_b()
297 && ( cursor_dur_.plet_.iso_i_ == 2 )
298 && ( cursor_dur_.plet_.type_i_ == 3 ) )
300 assert( !cursor_dur_.dots_i_ );
301 cursor_dur_.set_plet( 1, 1 );
302 cursor_dur_.durlog_i_ += 1;
303 cursor_dur_.dots_i_ = 1;
305 else if ( cursor_dur_.dots_i_ == 1 )
307 assert( !cursor_dur_.plet_b() );
308 cursor_dur_.dots_i_ = 0;
309 cursor_dur_.durlog_i_ -= 1;
312 if ( Duration_convert::no_triplets_b_s
313 && cursor_dur_.plet_b() && ok() )
315 if ( Duration_convert::no_double_dots_b_s
316 && ( cursor_dur_.dots_i_ == 2 ) && ok() )
318 if ( Duration_convert::no_smaller_than_i_s
319 && ( cursor_dur_.durlog_i_ > Duration_convert::no_smaller_than_i_s ) && ok() )
321 if ( Duration_convert::no_smaller_than_i_s
322 && cursor_dur_.dots_i_
323 && ( cursor_dur_.durlog_i_ >= Duration_convert::no_smaller_than_i_s )
326 if ( Duration_convert::no_smaller_than_i_s
327 && ( cursor_dur_.dots_i_ == 2 )
328 && ( cursor_dur_.durlog_i_ >= Duration_convert::no_smaller_than_i_s / 2 )
336 Duration_iterator::ok()
338 return ( cursor_dur_.durlog_i_
339 && !( ( cursor_dur_.durlog_i_ == 0 ) && ( cursor_dur_.dots_i_ > 2 ) ) );