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 Music_iterator*
  56 Simultaneous_music::to_rhythm (Music_iterator* r)
  57 {
  58   return do_rhythm (r);
  59 }
  60
  61 Musical_pitch
  62 Music_sequence::do_relative_octave (Musical_pitch p, bool b)
  63 {
  64   return music_p_list_p_->do_relative_octave (p, b);
  65 }
  66
  67 Music_iterator*
  68 Music_sequence::do_rhythm (Music_iterator* r)
  69 {
  70   return music_p_list_p_->do_rhythm (r);
  71 }
  72
  73 Musical_pitch
  74 Music_list::do_relative_octave (Musical_pitch last, bool ret_first)
  75 {
  76   Musical_pitch retval;
  77   int count=0;
  78   for (Cons<Music> *i = head_; i ; i = i->next_)
  79     {
  80       last = i->car_->to_relative_octave (last);
  81       if (!count ++ )
  82         retval = last;
  83     }
  84
  85   if (!ret_first)
  86     retval = last;
  87
  88   return retval;
  89 }
  90
  91 Music_iterator*
  92 Music_list::do_rhythm (Music_iterator* r)
  93 {
  94   for (Cons<Music> *i = head_; i ; i = i->next_)
  95     {
  96       r = i->car_->to_rhythm (r);
  97     }
  98   return r;
  99 }
 100
 101 Music_list::Music_list (Music_list const &s)
 102   : Cons_list<Music> (s)
 103 {
 104   Cons_list<Music>::init ();
 105   clone_killing_cons_list (*this, s.head_);
 106 }
 107
 108
 109 void
 110 Music_list::add_music (Music*m_p)
 111 {
 112   if (!m_p)
 113     return;
 114
 115   append (new Killing_cons<Music> (m_p, 0));
 116 }
 117
 118 Request_chord::Request_chord()
 119   : Simultaneous_music (new Music_list)
 120 {
 121 }
 122
 123
 124 Musical_pitch
 125 Request_chord::to_relative_octave (Musical_pitch last)
 126 {
 127   for (Cons<Music> *i = music_p_list_p_->head_; i ; i = i->next_)
 128     {
 129       if (Melodic_req *m= dynamic_cast <Melodic_req *> (i->car_))
 130         {
 131           Musical_pitch &pit = m->pitch_;
 132           pit.to_relative_octave (last);
 133           return pit;
 134         }
 135     }
 136   return last;
 137 }
 138
 139 Music_iterator*
 140 Request_chord::to_rhythm (Music_iterator* it)
 141 {
 142   for (Cons<Music>* i = music_p_list_p_->head_; i ; i = i->next_)
 143     {
 144       if (Rhythmic_req* r= dynamic_cast <Rhythmic_req*> (i->car_))
 145         {
 146           for (Music*m = it->next_music_l (); m; m = it->next_music_l ())
 147             {
 148 #if 0
 149               // is it sane to assume we don't want rests on lyrics/in rhythm?
 150               if (dynamic_cast <Rest_req*> (r)
 151                   || dynamic_cast <Multi_measure_rest_req*> (r)
 152                   || dynamic_cast <Skip_req*> (r))
 153                   {
 154                     continue;
 155                   }
 156 #endif
 157               if (Rhythmic_req* d= dynamic_cast <Rhythmic_req*> (m))
 158                 {
 159                   r->duration_ = d->duration_;
 160                   return it;
 161                 }
 162             }
 163         }
 164     }
 165   return it;
 166 }
 167
 168 Music_list::Music_list ()
 169 {
 170 }
 171
 172 Music_sequence::~Music_sequence ()
 173 {
 174   delete music_p_list_p_;
 175 }