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--1999 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
  25 void
  26 Music_sequence::compress (Moment m)
  27 {
  28   for (Cons<Music> *i = music_p_list_p_->head_; i;  i = i->next_)
  29     i->car_->compress (m);
  30 }
  31
  32 Simultaneous_music::Simultaneous_music(Music_list *p)
  33   : Music_sequence (p)
  34 {
  35
  36 }
  37
  38 Sequential_music::Sequential_music(Music_list *p)
  39   : Music_sequence (p)
  40 {
  41 }
  42
  43 Moment
  44 Sequential_music::length_mom () const
  45 {
  46   return cumulative_length ();
  47 }
  48
  49 Musical_pitch
  50 Simultaneous_music::to_relative_octave (Musical_pitch p)
  51 {
  52   return do_relative_octave (p, true);
  53 }
  54
  55
  56 Musical_pitch
  57 Music_sequence::do_relative_octave (Musical_pitch p, bool b)
  58 {
  59   return music_p_list_p_->do_relative_octave (p, b);
  60 }
  61
  62
  63 Musical_pitch
  64 Music_list::do_relative_octave (Musical_pitch last, bool ret_first)
  65 {
  66   Musical_pitch retval;
  67   int count=0;
  68   for (Cons<Music> *i = head_; i ; i = i->next_)
  69     {
  70       last = i->car_->to_relative_octave (last);
  71       if (!count ++ )
  72         retval = last;
  73     }
  74
  75   if (!ret_first)
  76     retval = last;
  77
  78   return retval;
  79 }
  80
  81
  82 Music_list::Music_list (Music_list const &s)
  83   : Cons_list<Music> (s), Input (s)
  84 {
  85   Cons_list<Music>::init ();
  86   clone_killing_cons_list (*this, s.head_);
  87 }
  88
  89
  90 void
  91 Music_list::add_music (Music*m_p)
  92 {
  93   if (!m_p)
  94     return;
  95
  96   append (new Killing_cons<Music> (m_p, 0));
  97 }
  98
  99 Request_chord::Request_chord()
 100   : Simultaneous_music (new Music_list)
 101 {
 102 }
 103
 104
 105 Musical_pitch
 106 Request_chord::to_relative_octave (Musical_pitch last)
 107 {
 108   for (Cons<Music> *i = music_p_list_p_->head_; i ; i = i->next_)
 109     {
 110       if (Melodic_req *m= dynamic_cast <Melodic_req *> (i->car_))
 111         {
 112           Musical_pitch &pit = m->pitch_;
 113           pit.to_relative_octave (last);
 114           return pit;
 115         }
 116     }
 117   return last;
 118 }
 119
 120
 121 Music_list::Music_list ()
 122 {
 123 }
 124
 125 Music_sequence::~Music_sequence ()
 126 {
 127   delete music_p_list_p_;
 128 }