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