Merge branch 'master' of git://git.savannah.gnu.org/lilypond.git

[lilypond.git] / Documentation / snippets / using-postscript-to-generate-special-note-head-shapes.ly

diff --git a/Documentation/snippets/using-postscript-to-generate-special-note-head-shapes.ly b/Documentation/snippets/using-postscript-to-generate-special-note-head-shapes.ly
index a16dcd6d79b4151155002c837c16629cc7d45855..ff14f5a769473e26dada717866edcad6a6c78e2b 100644 (file)
--- a/Documentation/snippets/using-postscript-to-generate-special-note-head-shapes.ly
+++ b/Documentation/snippets/using-postscript-to-generate-special-note-head-shapes.ly
@@ -41,7 +41,7 @@ parallelogram =
       fill
       grestore" )
     (cons 0 1.3125)
-    (cons 0 0))
+    (cons -.75 .75))
 
 myNoteHeads = \override NoteHead #'stencil = \parallelogram
 normalNoteHeads = \revert NoteHead #'stencil
@@ -52,5 +52,3 @@ normalNoteHeads = \revert NoteHead #'stencil
   \normalNoteHeads
   <f, \tweak #'stencil \parallelogram b e>4 d
 }
-
-