X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fpitch-squash-engraver.cc;h=0ccf797d46a679f129b55a4dfb96130a990e4a64;hb=977326d20eaa9f7c5641b9f7af6bf607becb2ff7;hp=197b589fa4a665cddb284170c1750a12d14315c3;hpb=a760b67b894425dee7f351b741b9c44eea95f43a;p=lilypond.git diff --git a/lily/pitch-squash-engraver.cc b/lily/pitch-squash-engraver.cc index 197b589fa4..0ccf797d46 100644 --- a/lily/pitch-squash-engraver.cc +++ b/lily/pitch-squash-engraver.cc @@ -1,50 +1,47 @@ -/* - pitch-squash-grav.cc -- implement Pitch_squash_engraver - +/* + pitch-squash-engraver.cc -- implement Pitch_squash_engraver + source file of the GNU LilyPond music typesetter - - (c) 1997--2004 Han-Wen Nienhuys - - */ + + (c) 1997--2005 Han-Wen Nienhuys +*/ #include "staff-symbol-referencer.hh" #include "note-head.hh" #include "rhythmic-head.hh" #include "engraver.hh" -class Pitch_squash_engraver : public Engraver { +class Pitch_squash_engraver : public Engraver +{ public: - TRANSLATOR_DECLARATIONS(Pitch_squash_engraver); + TRANSLATOR_DECLARATIONS (Pitch_squash_engraver); virtual void acknowledge_grob (Grob_info); }; - void Pitch_squash_engraver::acknowledge_grob (Grob_info i) { SCM newpos = get_property ("squashedPosition"); - if (gh_number_p (newpos) + if (scm_is_number (newpos) && Note_head::has_interface (i.grob_)) { - i.grob_->set_grob_property ("staff-position", newpos); + i.grob_->set_property ("staff-position", newpos); } } - - -Pitch_squash_engraver::Pitch_squash_engraver() +Pitch_squash_engraver::Pitch_squash_engraver () { } -ENTER_DESCRIPTION(Pitch_squash_engraver, -/* descr */ - "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", -/* write */ ""); +ADD_TRANSLATOR (Pitch_squash_engraver, + /* descr */ + "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", + /* write */ "");