+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.",
+
+/* creats*/ "",
+/* accepts */ "",
+/* acks */ "note-head-interface",
+/* reads */ "squashedPosition",
+/* write */ "");