A little simplified:
\version "2.19.83"
#(define-markup-command (wineGlass layout props)()
(interpret-markup layout props
(markup
(#:stencil
(make-path-stencil
'(M 0.14 0.00
C 0.09 0.00 0.17 0.07 0.31 0.07
C 0.42 0.07 0.46 0.07 0.55 0.13
L 0.65 0.20
C 0.65 0.47 0.65 0.74 0.64 1.01
C 0.22 1.20 0.00 1.44 0.00 1.78
C 0.01 2.11 0.11 2.25 0.23 2.51
L 1.13 2.51
C 1.27 2.25 1.33 2.14 1.36 1.78
C 1.40 1.42 0.97 1.14 0.72 1.01
C 0.72 0.74 0.72 0.47 0.72 0.20
L 0.80 0.14
C 0.88 0.08 0.90 0.07 1.05 0.07
C 1.18 0.06 1.25 0.00 1.20 0.00
C 0.82 0.00 0.63 0.00 0.14 0.00 Z
M 0.74 0.09
C 0.70 0.13 0.66 0.13 0.62 0.09
C 0.59 0.07 0.59 0.07 0.68 0.07
C 0.77 0.07 0.77 0.07 0.74 0.09 Z
M 1.29 1.72
L 0.06 1.72
C 0.09 1.48 0.21 1.28 0.68 1.07
C 1.07 1.28 1.25 1.48 1.29 1.72 Z
M 0.67 1.16
C 0.65 1.20 1.02 1.40 1.09 1.57
C 1.13 1.65 1.18 1.67 1.18 1.61
C 1.18 1.52 0.97 1.31 0.77 1.19
C 0.68 1.14 0.66 1.12 0.66 1.16 Z
M 1.09 2.44
L 0.27 2.44
C 0.16 2.24 0.07 1.97 0.07 1.79
L 1.29 1.79
C 1.27 2.02 1.20 2.23 1.09 2.44 Z)
0 1.4 1.4 #t)))))
{ c' ^\markup\wineGlass }
Le ven. 20 sept. 2019 à 11:13, Pierre Perol-Schneider <
pierre.schneider.pa...@gmail.com> a écrit :
> 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, <k...@aspodata.se> 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
>> lilypond-user@gnu.org
>> https://lists.gnu.org/mailman/listinfo/lilypond-user
>>
>
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
