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
  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
  57
  58 Musical_pitch
  59 Music_list::do_relative_octave (Musical_pitch last, bool ret_first)
  60 {
  61   Musical_pitch retval;
  62   int count=0;
  63   for (Cons<Music> *i = head_; i ; i = i->next_)
  64     {
  65       last = i->car_->to_relative_octave (last);
  66       if (!count ++ )
  67         retval = last;
  68     }
  69
  70   if (!ret_first)
  71     retval = last;
  72
  73   return retval;
  74 }
  75
  76
  77 Music_list::Music_list (Music_list const &s)
  78   : Cons_list<Music> (s), Input (s)
  79 {
  80   Cons_list<Music>::init ();
  81   clone_killing_cons_list (*this, s.head_);
  82 }
  83
  84
  85 void
  86 Music_list::add_music (Music*m_p)
  87 {
  88   if (!m_p)
  89     return;
  90
  91   append (new Killing_cons<Music> (m_p, 0));
  92 }
  93
  94 Request_chord::Request_chord()
  95   : Simultaneous_music (new Music_list)
  96 {
  97 }
  98
  99
 100 Musical_pitch
 101 Request_chord::to_relative_octave (Musical_pitch last)
 102 {
 103   for (Cons<Music> *i = music_p_list_p_->head_; i ; i = i->next_)
 104     {
 105       if (Melodic_req *m= dynamic_cast <Melodic_req *> (i->car_))
 106         {
 107           Musical_pitch &pit = m->pitch_;
 108           pit.to_relative_octave (last);
 109           return pit;
 110         }
 111     }
 112   return last;
 113 }
 114
 115
 116 Music_list::Music_list ()
 117 {
 118 }
 119
 120 Music_sequence::~Music_sequence ()
 121 {
 122   delete music_p_list_p_;
 123 }