2016-03-05 19:48 GMT+01:00 Karol Majewski <[email protected]>:
> Hi. The following code gives error. What am I doing wrong?
>
> BEGIN==========================================================
>
> \version "2.19.37"
>
> PS =
> #(ly:make-stencil
> (list 'embedded-ps
> "gsave
> currentpoint translate
> newpath
> 0.125 setlinewidth
> 0.0625 -0.5 moveto
> 0.0625 0.5 lineto
> 1.2375 0.5 lineto
> 1.2375 -0.5 lineto
> closepath
> gsave
> fill
> grestore
> stroke
> grestore"
> )
> (cons 0 1.3125)
> (cons -0.5 0.5))
>
> cluster =
> #(lambda
> (grob)
> (let*
> ((sz
> (ly:grob-property grob 'font-size 0.0))
> (mult
> (magstep sz)))
> (set!
> (ly:grob-property grob 'stencil)
> (ly:stencil-scale PS mult mult))))
>
> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
>
> \tweak stencil \cluster g'8
>
>
> END==========================================================
>
Your \cluster does not return a stencil but unspecified.
Try:
cluster =
#(lambda (grob)
(let* ((sz (ly:grob-property grob 'font-size 0.0))
(mult (magstep sz)))
(ly:stencil-scale PS mult mult)))
HTH,
Harm
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
