+Pitch_squash_engraver::Pitch_squash_engraver ()
+{
+}
+
+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.",