X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fpitch-squash-engraver.cc;h=8fd4d4e26d213f2eb6d4d6e9cadc4ddcf1432bcf;hb=2ccc67220825a871f318c1de91bec5aa6d89d09d;hp=066c743d7ce2e3fb4a7cb21f9c6b1dbccf1e7b4e;hpb=a7f82e4dc22fc6219a9fe0f6874f8c91e3f31f24;p=lilypond.git diff --git a/lily/pitch-squash-engraver.cc b/lily/pitch-squash-engraver.cc index 066c743d7c..8fd4d4e26d 100644 --- a/lily/pitch-squash-engraver.cc +++ b/lily/pitch-squash-engraver.cc @@ -3,29 +3,29 @@ source file of the GNU LilyPond music typesetter - (c) 1997--2005 Han-Wen Nienhuys + (c) 1997--2007 Han-Wen Nienhuys */ + +#include "engraver.hh" + #include "staff-symbol-referencer.hh" #include "note-head.hh" #include "rhythmic-head.hh" -#include "engraver.hh" +#include "grob.hh" class Pitch_squash_engraver : public Engraver { public: TRANSLATOR_DECLARATIONS (Pitch_squash_engraver); - virtual void acknowledge_grob (Grob_info); + DECLARE_ACKNOWLEDGER (note_head); }; void -Pitch_squash_engraver::acknowledge_grob (Grob_info i) +Pitch_squash_engraver::acknowledge_note_head (Grob_info i) { SCM newpos = get_property ("squashedPosition"); - if (scm_is_number (newpos) - && Note_head::has_interface (i.grob ())) - { - i.grob ()->set_property ("staff-position", newpos); - } + if (scm_is_number (newpos)) + i.grob ()->set_property ("staff-position", newpos); } Pitch_squash_engraver::Pitch_squash_engraver () @@ -33,17 +33,15 @@ Pitch_squash_engraver::Pitch_squash_engraver () } #include "translator.icc" - +ADD_ACKNOWLEDGER (Pitch_squash_engraver, note_head); ADD_TRANSLATOR (Pitch_squash_engraver, - /* descr */ + /* doc */ "Set the vertical position of noteheads to " "@code{squashedPosition}, if that " "property is set. " "This can be used to make a single line staff " "demonstrating the rhythm of a melody.", - /* creats*/ "", - /* accepts */ "", - /* acks */ "note-head-interface", - /* reads */ "squashedPosition", + /* create */ "", + /* read */ "squashedPosition", /* write */ "");