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 (SCM l)
  32   : Music (l)
  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))->length_mom ();
  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->length_mom ();
  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 Music_sequence::Music_sequence ()
 138   : Music (SCM_EOL)
 139 {
 140
 141 }
 142
 143 Moment
 144 Music_sequence::minimum_start (SCM l)
 145 {
 146   Moment m;
 147
 148   for (SCM s = l; gh_pair_p (s);  s = ly_cdr (s))
 149     {
 150       m = m <? unsmob_music (ly_car (s))->start_mom ();
 151     }
 152   return m;
 153 }
 154
 155 Moment
 156 Music_sequence::first_start (SCM l)
 157 {
 158   Moment m;
 159
 160   for (SCM s = l; gh_pair_p (s);  s = ly_cdr (s))
 161     {
 162       Music * mus = unsmob_music (ly_car (s));
 163       Moment l = mus->length_mom ();
 164       Moment s = mus->start_mom ();
 165       if (l.to_bool () || s.to_bool ())
 166         return s;
 167     }
 168   return m;
 169 }
 170