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--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include "warn.hh"
  10 #include "scm-option.hh"
  11 #include "pitch.hh"
  12 #include "input.hh"
  13 #include "music-sequence.hh"
  14
  15 void
  16 transpose_music_list (SCM lst, Pitch rq)
  17 {
  18   for (SCM s = lst; scm_is_pair (s); s = scm_cdr (s))
  19     unsmob_music (scm_car (s))->transpose (rq);
  20 }
  21
  22 Moment
  23 Music_sequence::cumulative_length (SCM l)
  24 {
  25   Moment cumulative;
  26   Moment last_len;
  27
  28   for (SCM s = l; scm_is_pair (s); s = scm_cdr (s))
  29     {
  30       Moment l = unsmob_music (scm_car (s))->get_length ();
  31       if (last_len.grace_part_ && l.main_part_)
  32         {
  33           last_len.grace_part_ = Rational (0);
  34         }
  35       cumulative += last_len;
  36       last_len = l;
  37     }
  38
  39   last_len.grace_part_ = Rational (0);
  40   cumulative += last_len;
  41
  42   return cumulative;
  43 }
  44
  45 Moment
  46 Music_sequence::maximum_length (SCM l)
  47 {
  48   Moment dur = 0;
  49   for (SCM s = l; scm_is_pair (s); s = scm_cdr (s))
  50     {
  51       Music *m = unsmob_music (scm_car (s));
  52       Moment l = m->get_length ();
  53       dur = dur >? l;
  54     }
  55
  56   return dur;
  57 }
  58
  59 MAKE_SCHEME_CALLBACK (Music_sequence, maximum_length_callback, 1);
  60 SCM
  61 Music_sequence::maximum_length_callback (SCM m)
  62 {
  63   Music *me = unsmob_music (m);
  64   return maximum_length (me->get_property ("elements")).smobbed_copy ();
  65 }
  66
  67 MAKE_SCHEME_CALLBACK (Music_sequence, cumulative_length_callback, 1);
  68 SCM
  69 Music_sequence::cumulative_length_callback (SCM m)
  70 {
  71   Music *me = unsmob_music (m);
  72   return cumulative_length (me->get_property ("elements")).smobbed_copy ();
  73 }
  74
  75 MAKE_SCHEME_CALLBACK (Music_sequence, minimum_start_callback, 1);
  76 SCM
  77 Music_sequence::minimum_start_callback (SCM m)
  78 {
  79   Music *me = unsmob_music (m);
  80   return minimum_start (me->get_property ("elements")).smobbed_copy ();
  81 }
  82
  83 MAKE_SCHEME_CALLBACK (Music_sequence, first_start_callback, 1);
  84 SCM
  85 Music_sequence::first_start_callback (SCM m)
  86 {
  87   Music *me = unsmob_music (m);
  88   return first_start (me->get_property ("elements")).smobbed_copy ();
  89 }
  90
  91 Pitch
  92 music_list_to_relative (SCM l, Pitch p, bool ret_first)
  93 {
  94   Pitch first = p;
  95   int count = 0;
  96
  97   Pitch last = p;
  98   for (SCM s = l; scm_is_pair (s); s = scm_cdr (s))
  99     {
 100       if (Music *m = unsmob_music (scm_car (s)))
 101         {
 102           last = m->to_relative_octave (last);
 103           if (!count++)
 104             first = last;
 105         }
 106     }
 107
 108   return (ret_first) ? first : last;
 109 }
 110
 111 void
 112 compress_music_list (SCM l, Moment m)
 113 {
 114   for (SCM s = l; scm_is_pair (s); s = scm_cdr (s))
 115     unsmob_music (scm_car (s))->compress (m);
 116 }
 117
 118 Moment
 119 Music_sequence::minimum_start (SCM l)
 120 {
 121   Moment m;
 122
 123   for (SCM s = l; scm_is_pair (s); s = scm_cdr (s))
 124     {
 125       m = m <? unsmob_music (scm_car (s))->start_mom ();
 126     }
 127   return m;
 128 }
 129
 130 Moment
 131 Music_sequence::first_start (SCM l)
 132 {
 133   Moment m;
 134
 135   for (SCM s = l; scm_is_pair (s); s = scm_cdr (s))
 136     {
 137       Music *mus = unsmob_music (scm_car (s));
 138       Moment l = mus->get_length ();
 139       Moment s = mus->start_mom ();
 140       if (l.to_bool () || s.to_bool ())
 141         return s;
 142     }
 143   return m;
 144 }
 145
 146 MAKE_SCHEME_CALLBACK (Music_sequence, simultaneous_relative_callback, 2);
 147 SCM
 148 Music_sequence::simultaneous_relative_callback (SCM music, SCM pitch)
 149 {
 150   Music *me = unsmob_music (music);
 151   Pitch p = *unsmob_pitch (pitch);
 152
 153   SCM elts = me->get_property ("elements");
 154   SCM copied = SCM_EOL;
 155   if (lily_1_8_relative)
 156     copied = ly_music_deep_copy (elts);
 157
 158   Pitch retval = music_list_to_relative (elts, p, false);
 159
 160   if (lily_1_8_relative)
 161     {
 162
 163       Pitch retval_1_8 = music_list_to_relative (copied, p, true);
 164       if (retval_1_8 != retval)
 165         lily_1_8_compatibility_used = true;
 166
 167       retval = retval_1_8;
 168     }
 169
 170   return retval.smobbed_copy ();
 171 }
 172
 173 MAKE_SCHEME_CALLBACK (Music_sequence, event_chord_relative_callback, 2);
 174 SCM
 175 Music_sequence::event_chord_relative_callback (SCM music, SCM pitch)
 176 {
 177   Music *me = unsmob_music (music);
 178   Pitch p = *unsmob_pitch (pitch);
 179   return music_list_to_relative (me->get_property ("elements"),
 180                                  p, true).smobbed_copy ();
 181 }
 182