2 // duration.cc -- implement Duration, Plet, Duration_convert, Duration_iterator
4 // copyright 1997 Jan Nieuwenhuizen <jan@digicash.com>
11 #include "source-file.hh"
14 #include "duration.hh"
15 #include "debug.hh" //ugh
18 int Duration::division_1_i_s = 384 * 4;
20 Duration::Duration( int type_i, int dots_i = 0, Plet* plet_l )
29 Duration::Duration( Duration const& dur_c_r )
44 Duration::operator =( Duration const& dur_c_r )
46 if ( &dur_c_r == this )
49 type_i_ = dur_c_r.type_i_;
50 dots_i_ = dur_c_r.dots_i_;
51 ticks_i_ = dur_c_r.ticks_i_;
52 set_plet( dur_c_r.plet_p_ );
58 Duration::set_plet( Plet* plet_l )
63 plet_p_ = new Plet( *plet_l );
67 Duration::set_ticks( int ticks_i )
75 Plet::Plet( int iso_i, int type_i )
81 Plet::Plet( Plet const& plet_c_r )
83 iso_i_ = plet_c_r.iso_i_;
84 type_i_ = plet_c_r.type_i_;
87 // statics Duration_convert
88 bool Duration_convert::be_blonde_b_s = false;
89 bool Duration_convert::no_double_dots_b_s = false;
90 bool Duration_convert::no_triplets_b_s = false;
91 int Duration_convert::no_smaller_than_i_s = 0;
94 Duration_convert::dur2_str( Duration dur )
97 return String( "[" ) + String( dur.ticks_i_ ) + "]";
99 String str( dur.type_i_ );
100 str += String( '.', dur.dots_i_ );
102 str += String( "*" ) + String( dur.plet_p_->iso_i_ )
103 + String( "/" ) + String( dur.plet_p_->type_i_ );
109 Duration_convert::dur2_i( Duration dur, int division_1_i )
111 return dur2_mom( dur ) * Moment( division_1_i );
116 Duration_convert::dur2ticks_i( Duration dur )
120 return dur2_mom( dur ) * Moment( Duration::division_1_i_s );
124 Duration_convert::dur2_mom( Duration dur )
127 return Moment( dur.ticks_i_, Duration::division_1_i_s );
133 Moment mom = Moment( 1 , dur.type_i_ );
136 while ( dur.dots_i_-- ) {
141 return mom * plet_factor_mom( dur );
146 Duration_convert::i2_mom( int time_i, int division_1_i )
151 if ( division_1_i > 0 )
152 return Moment( time_i, division_1_i );
154 return Moment( -division_1_i, time_i );
160 Duration_convert::mom2_dur( Moment mom )
163 but filling an array using Duration_iterator
164 might speed things up, a little
166 Duration_iterator iter_dur;
169 Duration lower_dur = iter_dur++;
170 Duration upper_dur( 0 );
172 upper_dur = iter_dur();
173 Moment lower_mom = dur2_mom( lower_dur );
174 Moment upper_mom = dur2_mom( upper_dur );
175 if ( mom == lower_mom )
177 if ( mom == upper_mom ) // don-t miss last (sic)
179 if ( ( mom >= lower_mom ) && ( mom <= upper_mom ) ) {
180 warning( String( "duration not exact: " ) + String( (Real)mom ) , 0 );
181 if ( abs( mom - lower_mom ) < abs( mom - upper_mom ) )
186 lower_dur = upper_dur;
188 return Duration( 0 );
193 Duration_convert::plet_factor_mom( Duration dur )
197 return Moment( dur.plet_p_->iso_i_, dur.plet_p_->type_i_ );
201 Duration_convert::sync_f( Duration dur, Moment mom )
203 return mom / dur2_mom( dur );
207 Duration_convert::ticks2_dur( int ticks_i )
210 but filling an array using Duration_iterator
211 might speed things up, a little
213 Moment mom( ticks_i, Duration::division_1_i_s );
214 Duration_iterator iter_dur;
217 Duration dur = iter_dur++;
218 if ( mom == dur2_mom( dur ) )
222 dur.set_ticks( ticks_i );
227 Duration_convert::ticks2standardised_dur( int ticks_i )
230 but filling an array using Duration_iterator
231 might speed things up, a little
233 Moment mom( ticks_i, Duration::division_1_i_s );
234 Duration_iterator iter_dur;
237 Duration lower_dur = iter_dur++;
238 // Duration upper_dur( 0 );
239 Duration upper_dur( 1, 1 );
241 upper_dur = iter_dur();
242 Moment lower_mom = dur2_mom( lower_dur );
243 Moment upper_mom = dur2_mom( upper_dur );
244 if ( mom < lower_mom )
246 if ( mom == lower_mom )
248 if ( mom == upper_mom ) // don-t miss last (sic)
250 if ( ( mom >= lower_mom ) && ( mom <= upper_mom ) ) {
251 warning( String( "duration not exact: " ) + String( (Real)mom ) , 0 );
252 if ( abs( mom - lower_mom ) < abs( mom - upper_mom ) )
257 lower_dur = upper_dur;
262 Duration_iterator::Duration_iterator()
264 cursor_dur_.type_i_ = 128;
265 if ( Duration_convert::no_smaller_than_i_s )
266 cursor_dur_.type_i_ = Duration_convert::no_smaller_than_i_s;
267 cursor_dur_.set_plet( 0 );
271 Duration_iterator::operator ++(int)
273 return forward_dur();
277 Duration_iterator::operator ()()
282 Duration_iterator::operator bool()
288 Duration_iterator::dur()
294 Duration_iterator::forward_dur()
296 // should do smart table? guessing:
309 Duration dur = cursor_dur_;
311 if ( !cursor_dur_.dots_i_ && !cursor_dur_.plet_p_ ) {
312 cursor_dur_.type_i_ *= 2;
313 cursor_dur_.dots_i_ = 2;
315 else if ( cursor_dur_.dots_i_ == 2 ) {
316 assert( !cursor_dur_.plet_p_ );
317 cursor_dur_.dots_i_ = 0;
318 cursor_dur_.type_i_ /= 4;
319 cursor_dur_.set_plet( &Plet( 2, 3 ) );
321 else if ( cursor_dur_.plet_p_
322 && ( cursor_dur_.plet_p_->iso_i_ == 2 )
323 && ( cursor_dur_.plet_p_->type_i_ == 3 ) ) {
324 assert( !cursor_dur_.dots_i_ );
325 cursor_dur_.set_plet( 0 );
326 cursor_dur_.type_i_ *= 2;
327 cursor_dur_.dots_i_ = 1;
329 else if ( cursor_dur_.dots_i_ == 1 ) {
330 assert( !cursor_dur_.plet_p_ );
331 cursor_dur_.dots_i_ = 0;
332 cursor_dur_.type_i_ /= 2;
335 if ( Duration_convert::no_triplets_b_s && cursor_dur_.plet_p_ && ok() )
337 if ( Duration_convert::no_double_dots_b_s && ( cursor_dur_.dots_i_ == 2 ) && ok() )
339 if ( Duration_convert::no_smaller_than_i_s && ( cursor_dur_.type_i_ > Duration_convert::no_smaller_than_i_s ) && ok() )
341 if ( Duration_convert::no_smaller_than_i_s && cursor_dur_.dots_i_ && ( cursor_dur_.type_i_ >= Duration_convert::no_smaller_than_i_s ) && ok() )
343 if ( Duration_convert::no_smaller_than_i_s && ( cursor_dur_.dots_i_ == 2 ) && ( cursor_dur_.type_i_ >= Duration_convert::no_smaller_than_i_s / 2 ) && ok() )
350 Duration_iterator::ok()
352 return ( cursor_dur_.type_i_
353 && !( ( cursor_dur_.type_i_ == 1 ) && ( cursor_dur_.dots_i_ > 2 ) ) );