lily/music-list.cc

   1 /*
   2   music-list.cc -- implement Music_sequence, Simultaneous_music, Sequential_music
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include "music-list.hh"
  10 #include "music-wrapper.hh"
  11 #include "musical-pitch.hh"
  12 #include "request.hh"
  13 #include "musical-request.hh"
  14 #include "music-iterator.hh"
  15 #include "main.hh"
  16 #include "killing-cons.tcc"
  17
  18 Moment
  19 Simultaneous_music::length_mom () const
  20 {
  21   return maximum_length ();
  22 }
  23
  24 Simultaneous_music::Simultaneous_music(SCM head)
  25   : Music_sequence (head)
  26 {
  27   set_mus_property ("type", ly_symbol2scm ("simultaneous-music"));
  28 }
  29
  30 Sequential_music::Sequential_music(SCM head)
  31   : Music_sequence (head)
  32 {
  33   set_mus_property ("type", ly_symbol2scm ("sequential-music"));
  34 }
  35
  36
  37 Moment
  38 Sequential_music::length_mom () const
  39 {
  40   return cumulative_length ();
  41 }
  42
  43 Musical_pitch
  44 Simultaneous_music::to_relative_octave (Musical_pitch p)
  45 {
  46   return do_relative_octave (p, true);
  47 }
  48
  49 Request_chord::Request_chord(SCM s)
  50   : Simultaneous_music (s)
  51 {
  52   set_mus_property ("type", ly_symbol2scm ("request-chord"));
  53 }
  54
  55 Musical_pitch
  56 Request_chord::to_relative_octave (Musical_pitch last)
  57 {
  58   for (SCM s = music_list (); gh_pair_p (s);  s = gh_cdr (s))
  59     {
  60       Music * mus = unsmob_music (gh_car (s));
  61       if (Melodic_req *m= dynamic_cast <Melodic_req *> (mus))
  62         {
  63           Musical_pitch &pit = m->pitch_;
  64           pit.to_relative_octave (last);
  65           return pit;
  66         }
  67     }
  68   return last;
  69 }
  70
  71
  72