Ha! I figured it out...
- Mark
---------------------------------------
\version "2.11.61-1"
squareNoteHeads = {
\override Voice.NoteHead #'stencil =
#(ly:make-stencil
(list 'embedded-ps
"gsave
currentpoint translate
BeginEPSF
%%BeginDocument:
newpath
-0.5 -0.5 moveto
-0.5 0.5 lineto
0.5 0.5 lineto
0.5 -0.5 lineto
closepath
fill
stroke
%%EndDocument
EndEPSF
grestore")
(cons -0.5 0.5)
(cons -0.5 0.5))
}
{ \squareNoteHeads c'' }
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user
