X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Documentation%2Fsnippets%2Fusing-postscript-to-generate-special-note-head-shapes.ly;fp=Documentation%2Fsnippets%2Fusing-postscript-to-generate-special-note-head-shapes.ly;h=b732903167dac41358ad21e98853a408ae0b31bf;hb=32a34dcef0c0041c6d62677487a380b5c8b85712;hp=a16dcd6d79b4151155002c837c16629cc7d45855;hpb=f41973ff763d5972a85995b6d40c864281ec6714;p=lilypond.git 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 a16dcd6d79..b732903167 100644 --- a/Documentation/snippets/using-postscript-to-generate-special-note-head-shapes.ly +++ b/Documentation/snippets/using-postscript-to-generate-special-note-head-shapes.ly @@ -4,20 +4,10 @@ %% and then run scripts/auxiliar/makelsr.py %% %% This file is in the public domain. -\version "2.14.0" +\version "2.16.0" \header { - lsrtags = "editorial-annotations, tweaks-and-overrides" - -%% Translation of GIT committish: 5a898cf43a2a78be6c3a58e4359dccd82196fbe7 - texidocfr = " -Lorsqu'il est impossible d'obtenir facilement une allure particulière -pour les têtes de note en recourant à la technique du @code{\\markup}, un -code Postscript peut vous tirer d'embarras. Voici comment générer des -têtes ressemblant à des parallélogrammes. - -" - doctitlefr = "Utilisation de Postscript pour générer des têtes de note à l'allure particulière" + lsrtags = "editorial-annotations, really-cool, scheme-language, tweaks-and-overrides" texidoc = " When a note head with a special shape cannot easily be generated with @@ -28,6 +18,7 @@ This example shows how a parallelogram-shaped note head is generated. doctitle = "Using PostScript to generate special note head shapes" } % begin verbatim + parallelogram = #(ly:make-stencil (list 'embedded-ps "gsave @@ -41,7 +32,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 +43,3 @@ normalNoteHeads = \revert NoteHead #'stencil \normalNoteHeads 4 d } - -