lily/music-sequence.cc

   1 /*
   2   music-sequence.cc --  implement Music_sequence
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1998--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9 #include "music-list.hh"
  10 #include "warn.hh"
  11 #include "pitch.hh"
  12
  13
  14 SCM
  15 Music_sequence::music_list ()const
  16 {
  17   return get_mus_property ("elements");
  18 }
  19
  20 /*
  21   Ugh this sucks. Linear. do not use.
  22  */
  23 void
  24 Music_sequence::append_music (Music *m)
  25 {
  26   set_mus_property ("elements",
  27                     gh_append2 (music_list (), gh_cons (m->self_scm (), SCM_EOL)));
  28   scm_gc_unprotect_object (m->self_scm ());
  29 }
  30
  31 Music_sequence::Music_sequence ( )
  32   : Music ()
  33 {
  34 }
  35
  36 void
  37 Music_sequence::transpose (Pitch rq)
  38 {
  39   transpose_list (music_list (), rq);
  40 }
  41
  42 void
  43 Music_sequence::transpose_list (SCM l,  Pitch rq)
  44 {
  45   for (SCM s = l; gh_pair_p (s);  s = ly_cdr (s))
  46     unsmob_music (ly_car (s))->transpose (rq);
  47 }
  48
  49 Moment
  50 Music_sequence::cumulative_length (SCM l)
  51 {
  52   Moment cumulative;
  53   Moment last_len;
  54
  55   for (SCM s = l; gh_pair_p (s);  s = ly_cdr (s))
  56     {
  57       Moment l = unsmob_music (ly_car (s))->get_length ();
  58       if (last_len.grace_part_ && l.main_part_)
  59         {
  60           last_len.grace_part_ = Rational (0);
  61         }
  62       cumulative += last_len;
  63       last_len = l;
  64     }
  65
  66   last_len.grace_part_ = Rational (0);
  67   cumulative += last_len;
  68
  69   return  cumulative;
  70 }
  71
  72 Pitch
  73 Music_sequence::to_relative_octave (Pitch p)
  74 {
  75   return do_relative_octave (p, false);
  76 }
  77
  78
  79 Moment
  80 Music_sequence::maximum_length (SCM l)
  81 {
  82   Moment dur = 0;
  83   for (SCM s = l; gh_pair_p (s);  s = ly_cdr (s))
  84     {
  85       Music * m = unsmob_music (ly_car (s));
  86       Moment l = m->get_length ();
  87       dur = dur >? l;
  88     }
  89
  90   return dur;
  91 }
  92
  93
  94 Pitch
  95 Music_sequence::do_relative_octave (Pitch p, bool ret_first)
  96 {
  97   Pitch retval;
  98   int count=0;
  99
 100   Pitch last = p;
 101   for (SCM s = music_list (); gh_pair_p (s);  s = ly_cdr (s))
 102     {
 103       Music *m = unsmob_music (ly_car (s));
 104       if (!m)
 105         {
 106           programming_error ("Music_sequence should only contain music!");
 107         }
 108       else
 109         {
 110           last = m->to_relative_octave (last);
 111           if (!count ++)
 112             retval = last;
 113         }
 114     }
 115
 116   if (!ret_first)
 117     retval = last;
 118
 119   return retval;
 120 }
 121
 122 void
 123 Music_sequence::compress (Moment m)
 124 {
 125   compress_list (music_list (), m);
 126 }
 127
 128 void
 129 Music_sequence::compress_list (SCM l, Moment m)
 130 {
 131   for (SCM s = l; gh_pair_p (s);  s = ly_cdr (s))
 132     unsmob_music (ly_car (s))->compress (m);
 133 }
 134
 135 ADD_MUSIC (Music_sequence);
 136
 137 Moment
 138 Music_sequence::minimum_start (SCM l)
 139 {
 140   Moment m;
 141
 142   for (SCM s = l; gh_pair_p (s);  s = ly_cdr (s))
 143     {
 144       m = m <? unsmob_music (ly_car (s))->start_mom ();
 145     }
 146   return m;
 147 }
 148
 149 Moment
 150 Music_sequence::first_start (SCM l)
 151 {
 152   Moment m;
 153
 154   for (SCM s = l; gh_pair_p (s);  s = ly_cdr (s))
 155     {
 156       Music * mus = unsmob_music (ly_car (s));
 157       Moment l = mus->get_length ();
 158       Moment s = mus->start_mom ();
 159       if (l.to_bool () || s.to_bool ())
 160         return s;
 161     }
 162   return m;
 163 }
 164