]> git.donarmstrong.com Git - lilypond.git/blob - lily/pitch-squash-engraver.cc
*** empty log message ***
[lilypond.git] / lily / pitch-squash-engraver.cc
1 /*   
2   pitch-squash-grav.cc --  implement Pitch_squash_engraver
3   
4   source file of the GNU LilyPond music typesetter
5   
6   (c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7   
8  */
9 #include "staff-symbol-referencer.hh"
10 #include "note-head.hh"
11 #include "rhythmic-head.hh"
12 #include "engraver.hh"
13
14 class Pitch_squash_engraver : public Engraver {
15 public:
16   TRANSLATOR_DECLARATIONS (Pitch_squash_engraver);
17   virtual void acknowledge_grob (Grob_info);
18 };
19
20
21 void
22 Pitch_squash_engraver::acknowledge_grob (Grob_info i)
23 {
24   SCM newpos = get_property ("squashedPosition");
25   if (scm_is_number (newpos)
26       && Note_head::has_interface (i.grob_))
27     {
28       i.grob_->set_property ("staff-position", newpos);
29     }
30 }
31
32
33
34 Pitch_squash_engraver::Pitch_squash_engraver ()
35 {
36 }
37
38 ENTER_DESCRIPTION (Pitch_squash_engraver,
39 /* descr */       
40                   "Set the vertical position of noteheads to "
41                   "@code{squashedPosition}, if that "
42                   "property is set. "
43                   "This can be used to make  a single line staff "
44                   "demonstrating the rhythm of a melody.",
45
46 /* creats*/       "",
47 /* accepts */     "",
48 /* acks  */      "note-head-interface",
49 /* reads */       "squashedPosition",
50 /* write */       "");