2008/11/29 Neil Puttock <[EMAIL PROTECTED]>:

> parallelogram =
> #(lambda (grob)
>  ; get duration log of NoteHead object
>  (let* ((dur (ly:grob-property grob 'duration-log)))
>    (case dur
>      ; if dur = minim, return parallelogram stencil

Of course, this should say `if dur = crotchet/quarter note, since it
the log of the duration. :)


_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user

Reply via email to