lilypond-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: drinking song symbols


From: Pierre Perol-Schneider
Subject: Re: drinking song symbols
Date: Fri, 20 Sep 2019 11:27:45 +0200

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 <address@hidden> 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, <address@hidden> 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
address@hidden
https://lists.gnu.org/mailman/listinfo/lilypond-user

reply via email to

[Prev in Thread] Current Thread [Next in Thread]