lily/ambitus-engraver.cc

   1 /*
   2   This file is part of LilyPond, the GNU music typesetter.
   3
   4   Copyright (C) 2002--2015 Juergen Reuter <reuter@ipd.uka.de>
   5
   6   Han-Wen Nienhuys <hanwen@xs4all.nl
   7
   8   LilyPond is free software: you can redistribute it and/or modify
   9   it under the terms of the GNU General Public License as published by
  10   the Free Software Foundation, either version 3 of the License, or
  11   (at your option) any later version.
  12
  13   LilyPond is distributed in the hope that it will be useful,
  14   but WITHOUT ANY WARRANTY; without even the implied warranty of
  15   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16   GNU General Public License for more details.
  17
  18   You should have received a copy of the GNU General Public License
  19   along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
  20 */
  21
  22 #include "engraver.hh"
  23
  24 #include "accidental-placement.hh"
  25 #include "axis-group-interface.hh"
  26 #include "item.hh"
  27 #include "note-head.hh"
  28 #include "pitch-interval.hh"
  29 #include "pointer-group-interface.hh"
  30 #include "protected-scm.hh"
  31 #include "side-position-interface.hh"
  32 #include "separation-item.hh"
  33 #include "staff-symbol-referencer.hh"
  34 #include "stream-event.hh"
  35
  36 #include "translator.icc"
  37
  38 class Ambitus_engraver : public Engraver
  39 {
  40 public:
  41   TRANSLATOR_DECLARATIONS (Ambitus_engraver);
  42 protected:
  43   void acknowledge_note_head (Grob_info);
  44
  45   void process_music ();
  46   void stop_translation_timestep ();
  47   virtual void finalize ();
  48   virtual void derived_mark () const;
  49
  50 private:
  51   void create_ambitus ();
  52   Item *ambitus_;
  53   Item *group_;
  54   Drul_array<Item *> heads_;
  55   Drul_array<Item *> accidentals_;
  56   Drul_array<Stream_event *> causes_;
  57   Pitch_interval pitch_interval_;
  58   bool is_typeset_;
  59   int start_c0_;
  60   SCM start_key_sig_;
  61 };
  62
  63 void
  64 Ambitus_engraver::derived_mark () const
  65 {
  66   scm_gc_mark (start_key_sig_);
  67 }
  68
  69 void
  70 Ambitus_engraver::create_ambitus ()
  71 {
  72   ambitus_ = make_item ("AmbitusLine", SCM_EOL);
  73   group_ = make_item ("Ambitus", SCM_EOL);
  74   for (DOWN_and_UP (d))
  75     {
  76       heads_[d] = make_item ("AmbitusNoteHead", SCM_EOL);
  77       accidentals_[d] = make_item ("AmbitusAccidental", SCM_EOL);
  78       accidentals_[d]->set_parent (heads_[d], Y_AXIS);
  79       heads_[d]->set_object ("accidental-grob",
  80                              accidentals_[d]->self_scm ());
  81       Axis_group_interface::add_element (group_, heads_[d]);
  82       Axis_group_interface::add_element (group_, accidentals_[d]);
  83     }
  84
  85   ambitus_->set_parent (heads_[DOWN], X_AXIS);
  86   Axis_group_interface::add_element (group_, ambitus_);
  87
  88   is_typeset_ = false;
  89 }
  90
  91 Ambitus_engraver::Ambitus_engraver (Context *c)
  92   : Engraver (c)
  93 {
  94   ambitus_ = 0;
  95   heads_.set (0, 0);
  96   accidentals_.set (0, 0);
  97   group_ = 0;
  98   is_typeset_ = false;
  99   start_key_sig_ = SCM_EOL;
 100 }
 101
 102 void
 103 Ambitus_engraver::process_music ()
 104 {
 105   /*
 106    * Ensure that ambitus is created in the very first timestep
 107    */
 108   if (!ambitus_)
 109     create_ambitus ();
 110 }
 111
 112 void
 113 Ambitus_engraver::stop_translation_timestep ()
 114 {
 115   if (ambitus_ && !is_typeset_)
 116     {
 117       /*
 118        * Evaluate middleCPosition not until now, since otherwise we
 119        * may then oversee a clef that is defined in a staff context if
 120        * we are in a voice context; middleCPosition would then be
 121        * assumed to be 0.
 122
 123        * Don't use middleCPosition as this may be thwarted by a cue
 124        * starting here.  middleCOffset is not affected by cue clefs.
 125        */
 126       int clef_pos = robust_scm2int (get_property ("middleCClefPosition"), 0);
 127       int offset = robust_scm2int (get_property ("middleCOffset"), 0);
 128
 129       start_c0_ = clef_pos + offset;
 130       start_key_sig_ = get_property ("keyAlterations");
 131
 132       is_typeset_ = true;
 133     }
 134 }
 135
 136 void
 137 Ambitus_engraver::acknowledge_note_head (Grob_info info)
 138 {
 139   Stream_event *nr = info.event_cause ();
 140   if (nr && nr->in_event_class ("note-event")
 141       && !to_boolean (info.grob ()->get_property ("ignore-ambitus")))
 142     {
 143       SCM p = nr->get_property ("pitch");
 144       /*
 145         If the engraver is added to a percussion context,
 146         filter out unpitched note heads.
 147       */
 148       if (!unsmob<Pitch> (p))
 149         return;
 150       Pitch pitch = *unsmob<Pitch> (p);
 151       Drul_array<bool> expands = pitch_interval_.add_point (pitch);
 152       if (expands[UP])
 153         causes_[UP] = nr;
 154       if (expands[DOWN])
 155         causes_[DOWN] = nr;
 156     }
 157 }
 158
 159 void
 160 Ambitus_engraver::finalize ()
 161 {
 162   if (ambitus_ && !pitch_interval_.is_empty ())
 163     {
 164       Grob *accidental_placement
 165         = make_item ("AccidentalPlacement", accidentals_[DOWN]->self_scm ());
 166
 167       for (DOWN_and_UP (d))
 168         {
 169           Pitch p = pitch_interval_[d];
 170           heads_[d]->set_property ("cause", causes_[d]->self_scm ());
 171           heads_[d]->set_property ("staff-position",
 172                                    scm_from_int (start_c0_ + p.steps ()));
 173
 174           SCM handle = scm_assoc (scm_cons (scm_from_int (p.get_octave ()),
 175                                             scm_from_int (p.get_notename ())),
 176                                   start_key_sig_);
 177
 178           if (scm_is_false (handle))
 179             handle = scm_assoc (scm_from_int (p.get_notename ()),
 180                                 start_key_sig_);
 181
 182           Rational sig_alter = (scm_is_true (handle))
 183                                ? robust_scm2rational (scm_cdr (handle), Rational (0))
 184                                : Rational (0);
 185
 186           const Pitch other = pitch_interval_[-d];
 187
 188           if (sig_alter == p.get_alteration ()
 189               && !((p.steps () == other.steps ())
 190                    && (p.get_alteration () != other.get_alteration ())))
 191             {
 192               accidentals_[d]->suicide ();
 193               heads_[d]->set_object ("accidental-grob", SCM_EOL);
 194             }
 195           else
 196             accidentals_[d]->
 197             set_property ("alteration",
 198                           ly_rational2scm (p.get_alteration ()));
 199           Separation_item::add_conditional_item (heads_[d],
 200                                                  accidental_placement);
 201           Accidental_placement::add_accidental (accidental_placement,
 202                                                 accidentals_[d], false, 0);
 203           Pointer_group_interface::add_grob (ambitus_,
 204                                              ly_symbol2scm ("note-heads"),
 205                                              heads_[d]);
 206         }
 207
 208       Axis_group_interface::add_element (group_, accidental_placement);
 209     }
 210   else
 211     {
 212       for (DOWN_and_UP (d))
 213         {
 214           accidentals_[d]->suicide ();
 215           heads_[d]->suicide ();
 216         }
 217
 218       ambitus_->suicide ();
 219     }
 220 }
 221
 222 void
 223 Ambitus_engraver::boot ()
 224 {
 225   ADD_ACKNOWLEDGER (Ambitus_engraver, note_head);
 226 }
 227
 228 ADD_TRANSLATOR (Ambitus_engraver,
 229                 /* doc */
 230                 "Create an ambitus.",
 231
 232                 /* create */
 233                 "AccidentalPlacement "
 234                 "Ambitus "
 235                 "AmbitusAccidental "
 236                 "AmbitusLine "
 237                 "AmbitusNoteHead ",
 238
 239                 /* read */
 240                 "keyAlterations "
 241                 "middleCClefPosition "
 242                 "middleCOffset ",
 243
 244                 /* write */
 245                 ""
 246                );