Ok, well, how about:
\version "2.19.83"
#(define-markup-command (wineGlass layout props)()
(interpret-markup layout props
(markup
(#:stencil
(make-path-stencil
'(M 0.141 0
C 0.094 0.004 0.168 0.066 0.309 0.066
C 0.445 0.066 0.461 0.07 0.551 0.129
L 0.645 0.195
C 0.645 0.465 0.645 0.738 0.641 1.012
C 0.219 1.207 -0.008 1.441 0 1.777
C 0.008 2.109 0.105 2.25 0.227 2.512
L 1.129 2.512
C 1.273 2.246 1.328 2.137 1.363 1.781
C 1.395 1.422 0.965 1.141 0.715 1.012
C 0.715 0.738 0.715 0.465 0.715 0.195
L 0.801 0.137
C 0.879 0.082 0.902 0.074 1.047 0.066
C 1.176 0.059 1.254 0 1.199 0
C 0.824 0 0.633 0 0.141 0 Z
M 0.742 0.094
C 0.695 0.125 0.66 0.125 0.617 0.094
C 0.586 0.066 0.59 0.066 0.68 0.066
C 0.77 0.066 0.773 0.07 0.742 0.094 Z
M 1.293 1.719
L 0.063 1.719
C 0.09 1.48 0.211 1.281 0.676 1.074
C 1.074 1.277 1.246 1.48 1.293 1.719 Z
M 0.656 1.156
C 0.652 1.195 1.02 1.395 1.086 1.57
C 1.133 1.652 1.184 1.672 1.184 1.613
C 1.184 1.523 0.965 1.305 0.77 1.191
C 0.68 1.141 0.66 1.121 0.656 1.156 Z
M 1.086 2.438
L 0.273 2.438
C 0.16 2.238 0.07 1.969 0.07 1.793
L 1.289 1.793
C 1.273 2.023 1.203 2.227 1.086 2.438 Z)
0.015 1.4 1.4 #t)))))
{ c' ^\markup\wineGlass }
Cheers,
Pierre
Le ven. 20 sept. 2019 à 09:59, <[email protected]> a écrit :
> Pierre Perol-Schneider:
> > Hum, weird. Maybe you could change the dimension, e.g.:
> >
> > #(define-markup-command (wineGlass layout props)()
> > (interpret-markup layout props
> > (markup
> > (#:with-dimensions (cons 0.2 1.1) (cons 0.3 2.7) ;; <= Set dimensions
> > (#:stencil
> > (make-path-stencil
> > '(M .2 5 C -.5 3.8 0 2.2 1 2.2 L .95 0.2
> > L 0 0 L 2.2 0 L 1.2 .2 L 1.2 2.2 C 2.2
> > 2.2 2.7 3.8 2 5 Z M -.1 3.6 L 2.3 3.6)
> > .1 .6 .6 #f))))))
>
> Nope, still 3pages.
>
> What is more strange is that when measuring the distance from top
> system line to top of glass sybol, I get the same value for both the
> whineGlass and my postscript version (when using gv's x-y position).
>
> Regards,
> /Karl Hammar
>
>
>
> _______________________________________________
> lilypond-user mailing list
> [email protected]
> https://lists.gnu.org/mailman/listinfo/lilypond-user
>
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
