lily/drum-note-engraver.cc

   1 /*
   2   This file is part of LilyPond, the GNU music typesetter.
   3
   4   Copyright (C) 1997--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>
   5
   6   LilyPond is free software: you can redistribute it and/or modify
   7   it under the terms of the GNU General Public License as published by
   8   the Free Software Foundation, either version 3 of the License, or
   9   (at your option) any later version.
  10
  11   LilyPond is distributed in the hope that it will be useful,
  12   but WITHOUT ANY WARRANTY; without even the implied warranty of
  13   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14   GNU General Public License for more details.
  15
  16   You should have received a copy of the GNU General Public License
  17   along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
  18 */
  19
  20 #include <cctype>
  21 using namespace std;
  22
  23 #include "item.hh"
  24 #include "duration.hh"
  25 #include "engraver.hh"
  26 #include "note-column.hh"
  27 #include "rhythmic-head.hh"
  28 #include "side-position-interface.hh"
  29 #include "script-interface.hh"
  30 #include "stem.hh"
  31 #include "stream-event.hh"
  32 #include "warn.hh"
  33
  34 #include "translator.icc"
  35
  36 class Drum_notes_engraver : public Engraver
  37 {
  38   vector<Item *> scripts_;
  39   vector<Stream_event *> events_;
  40
  41 public:
  42   TRANSLATOR_DECLARATIONS (Drum_notes_engraver);
  43
  44 protected:
  45   void process_music ();
  46   void acknowledge_stem (Grob_info);
  47   void acknowledge_note_column (Grob_info);
  48   void listen_note (Stream_event *);
  49   void stop_translation_timestep ();
  50 };
  51
  52 Drum_notes_engraver::Drum_notes_engraver ()
  53 {
  54 }
  55
  56 void
  57 Drum_notes_engraver::listen_note (Stream_event *ev)
  58 {
  59   events_.push_back (ev);
  60 }
  61
  62 void
  63 Drum_notes_engraver::process_music ()
  64 {
  65   SCM tab = 0;
  66   for (vsize i = 0; i < events_.size (); i++)
  67     {
  68       if (!tab)
  69         tab = get_property ("drumStyleTable");
  70
  71       Stream_event *ev = events_[i];
  72       Item *note = make_item ("NoteHead", ev->self_scm ());
  73
  74       SCM drum_type = ev->get_property ("drum-type");
  75
  76       SCM defn = SCM_EOL;
  77
  78       if (to_boolean (scm_hash_table_p (tab)))
  79         defn = scm_hashq_ref (tab, drum_type, SCM_EOL);
  80
  81       if (scm_is_pair (defn))
  82         {
  83           SCM pos = scm_caddr (defn);
  84           SCM style = scm_car (defn);
  85           SCM script = scm_cadr (defn);
  86
  87           if (scm_is_integer (pos))
  88             note->set_property ("staff-position", pos);
  89           if (scm_is_symbol (style))
  90             note->set_property ("style", style);
  91
  92           if (scm_is_string (script))
  93             {
  94               Item *p = make_item ("Script", ev->self_scm ());
  95               make_script_from_event (p, context (), script,
  96                                       0);
  97
  98               p->set_parent (note, Y_AXIS);
  99               Side_position_interface::add_support (p, note);
 100               scripts_.push_back (p);
 101             }
 102         }
 103     }
 104 }
 105
 106 void
 107 Drum_notes_engraver::acknowledge_stem (Grob_info inf)
 108 {
 109   for (vsize i = 0; i < scripts_.size (); i++)
 110     {
 111       Grob *e = scripts_[i];
 112
 113       if (to_dir (e->get_property ("side-relative-direction")))
 114         e->set_object ("direction-source", inf.grob ()->self_scm ());
 115
 116       Side_position_interface::add_support (e, inf.grob ());
 117     }
 118 }
 119
 120 void
 121 Drum_notes_engraver::acknowledge_note_column (Grob_info inf)
 122 {
 123   for (vsize i = 0; i < scripts_.size (); i++)
 124     {
 125       Grob *e = scripts_[i];
 126
 127       if (!e->get_parent (X_AXIS)
 128           && Side_position_interface::get_axis (e) == Y_AXIS)
 129         e->set_parent (inf.grob (), X_AXIS);
 130
 131       Side_position_interface::add_support (e, inf.grob ());
 132     }
 133 }
 134
 135 void
 136 Drum_notes_engraver::stop_translation_timestep ()
 137 {
 138   scripts_.clear ();
 139   events_.clear ();
 140 }
 141
 142
 143 void
 144 Drum_notes_engraver::boot ()
 145 {
 146   ADD_LISTENER (Drum_notes_engraver, note);
 147   ADD_ACKNOWLEDGER (Drum_notes_engraver, stem);
 148   ADD_ACKNOWLEDGER (Drum_notes_engraver, note_column);
 149 }
 150
 151 ADD_TRANSLATOR (Drum_notes_engraver,
 152                 /* doc */
 153                 "Generate drum note heads.",
 154
 155                 /* create */
 156                 "NoteHead "
 157                 "Script ",
 158
 159                 /* read */
 160                 "drumStyleTable ",
 161
 162                 /* write */
 163                 ""
 164                );