2012/10/31 Paul Morris <p...@paulwmorris.com>:
[...]
>
> upTriangle =
> #(ly:make-stencil
>     (list 'embedded-ps
>     "gsave
>       currentpoint translate
>       newpath
[...]

Hi Paul,

postscript is scaled with global-staff-size only.

To work around you could use:

TwinNoteNoteHeads =
#(lambda (grob)
  (let* ((sz (ly:grob-property grob 'font-size 0.0))
         (mult (magstep sz)))
      (set! (ly:grob-property grob 'stencil) (ly:stencil-scale
(stencil-notehead grob) mult mult))
      (set! (ly:grob-property grob 'stem-attachment) (stem-adjuster grob))))

Complete file attached.

HTH,
  Harm

Attachment: custom-note-heads-paul.ly
Description: Binary data

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

Reply via email to