[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: MinGW Runtime Assertion error
From: |
Thomas Morley |
Subject: |
Re: MinGW Runtime Assertion error |
Date: |
Sat, 5 Mar 2016 20:00:13 +0100 |
2016-03-05 19:48 GMT+01:00 Karol Majewski <address@hidden>:
> 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