lily/command-request.cc

   1 /*
   2   command-request.cc -- implement non-musical reqs
   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 "command-request.hh"
  10 #include "debug.hh"
  11 #include "musical-request.hh"
  12
  13
  14 bool
  15 Bar_req::do_equal_b (Request const *r) const
  16 {
  17   Bar_req  const* b = dynamic_cast <Bar_req const *> (r);
  18   return b && type_str_ == b->type_str_;
  19 }
  20
  21 void
  22 Bar_req::do_print () const
  23 {
  24 #ifndef NPRINT
  25   DEBUG_OUT << type_str_;
  26 #endif
  27 }
  28
  29 Bar_req::Bar_req (String s)
  30 {
  31   type_str_ = s;
  32 }
  33
  34 bool
  35 Barcheck_req::do_equal_b (Request const *r) const
  36 {
  37   Barcheck_req  const*b = dynamic_cast<Barcheck_req const*> (r);
  38   return b;
  39 }
  40
  41 void
  42 Clef_change_req::do_print () const
  43 {
  44 #ifndef NPRINT
  45   DEBUG_OUT << clef_str_ ;
  46 #endif
  47 }
  48
  49 Clef_change_req::Clef_change_req (String s)
  50 {
  51   clef_str_ = s;
  52 }
  53
  54
  55 void
  56 Time_signature_change_req::do_print () const
  57 {
  58 #ifndef NPRINT
  59   DEBUG_OUT << beats_i_ << "/" << one_beat_i_;
  60 #endif
  61 }
  62
  63 bool
  64 Time_signature_change_req::do_equal_b (Request const *r) const
  65 {
  66   Time_signature_change_req  const* m
  67     = dynamic_cast <Time_signature_change_req  const*> (r);
  68
  69   return m && m->beats_i_ == beats_i_
  70     && one_beat_i_ == m->one_beat_i_;
  71 }
  72
  73 Time_signature_change_req::Time_signature_change_req ()
  74 {
  75   beats_i_ = 0;
  76   one_beat_i_ =0;
  77 }
  78
  79
  80 Tempo_req::Tempo_req ()
  81 {
  82   metronome_i_ = 60;
  83   dur_. durlog_i_ = 2;
  84 }
  85
  86 void
  87 Tempo_req::do_print () const
  88 {
  89   DEBUG_OUT << dur_.str () << " = " << metronome_i_;
  90 }
  91
  92
  93 bool
  94 Tempo_req::do_equal_b (Request const *r) const
  95 {
  96   Tempo_req const *t = dynamic_cast <Tempo_req const*> (r);
  97
  98   return t&& t->dur_.length_mom ()== dur_.length_mom () && metronome_i_ == t->metronome_i_;
  99 }
 100
 101
 102
 103
 104 bool
 105 Key_change_req::do_equal_b (Request const * req) const
 106 {
 107   Key_change_req const * k = dynamic_cast<Key_change_req const*> (req);
 108   return k && scm_equal_p (get_mus_property ("pitch-alist"), k->get_mus_property ("pitch-alist"));
 109 }
 110
 111
 112 void
 113 Key_change_req::transpose (Musical_pitch p)
 114 {
 115   SCM newlist = SCM_EOL;
 116   SCM pa = get_mus_property ("pitch-alist");
 117   for (SCM s = pa; gh_pair_p (s); s = gh_cdr (s))
 118     {
 119       SCM k = gh_caar (s);
 120
 121       if (gh_pair_p (k))
 122         {
 123           Musical_pitch orig (gh_list (gh_car (k), gh_cdr (k), gh_cdr (s), SCM_UNDEFINED));
 124
 125           orig.transpose (p);
 126
 127           SCM key = gh_cons (gh_int2scm (orig.octave_i_),
 128                              gh_int2scm (orig.notename_i_));
 129
 130           newlist = gh_cons (gh_cons (key, gh_int2scm (orig.accidental_i_)),
 131                              newlist);
 132         }
 133       else if (gh_number_p (k))
 134         {
 135           Musical_pitch orig (gh_list (gh_int2scm (0), k, gh_cdar (s), SCM_UNDEFINED));
 136           orig.transpose (p);
 137
 138           SCM key =gh_int2scm (orig.notename_i_);
 139           newlist = gh_cons (gh_cons (key, gh_int2scm (orig.accidental_i_)),
 140                              newlist);
 141         }
 142     }
 143
 144   set_mus_property ("pitch-alist", newlist);
 145 }
 146
 147 Break_req::Break_req ()
 148 {
 149 }
 150
 151
 152 bool
 153 Mark_req::do_equal_b (Request const * r) const
 154 {
 155   Mark_req const * other = dynamic_cast<Mark_req const*> (r);
 156   return other && scm_equal_p (other->get_mus_property ("mark-label"),
 157                                get_mus_property ("mark-label"));
 158 }