On Sat, Oct 4, 2008 at 8:43 PM, Patrick McCarty <[EMAIL PROTECTED]> wrote: > Wow, Mark, that is really cool! This should be added to the LSR. > Would you like me to add it?
Sure! But here's a slightly different version that demonstrates the
concept a little better (I think).
Of course, feel free to make any editorial changes, or whatever.
Thanks,
Mark
-----------------------------------------------------------
\version "2.11.61-1"
parallelogram =
#(ly:make-stencil (list 'embedded-ps
"gsave
currentpoint translate
BeginEPSF
%%BeginDocument:
newpath
0 0.25 moveto
1.3125 0.75 lineto
1.3125 -0.25 lineto
0 -0.75 lineto
closepath
fill
%%EndDocument
EndEPSF
grestore")
(cons 0 1.3125)
(cons 0 0))
myNoteHeads = \override NoteHead #'stencil = \parallelogram
normalNoteHeads = \revert NoteHead #'stencil
\relative {
\myNoteHeads g' d' \normalNoteHeads
<f, \tweak #'stencil \parallelogram b e>
}
<<attachment: embedded-ps_stencil.png>>
_______________________________________________ lilypond-user mailing list lilypond-user@gnu.org http://lists.gnu.org/mailman/listinfo/lilypond-user
