On Fri, Oct 3, 2008 at 9:44 PM, Mark Polesky <[EMAIL PROTECTED]> wrote:
> 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'' }
Wow, Mark, that is really cool! This should be added to the LSR.
Would you like me to add it?
-Patrick
_______________________________________________
lilypond-user mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-user
