Documentation/snippets/percussion-beaters.ly

   1 %% DO NOT EDIT this file manually; it is automatically
   2 %% generated from LSR http://lsr.dsi.unimi.it
   3 %% Make any changes in LSR itself, or in Documentation/snippets/new/ ,
   4 %% and then run scripts/auxiliar/makelsr.py
   5 %%
   6 %% This file is in the public domain.
   7 \version "2.14.2"
   8
   9 \header {
  10   lsrtags = "percussion"
  11
  12 %% Translation of GIT committish: 28097cf54698db364afeb75658e4c8e0e0ccd716
  13   texidocfr = "
  14 La représentation graphique des instruments à percussion n'est pas prise
  15 en charge nativement.  De tels symboles peuvent cependant être inclus,
  16 soit à l'aide de fichiers EPS indépendants, soit à l'aide d'un
  17 @emph{markup} contenant le code PostScript correspondant comme dans cet
  18 exemple.
  19
  20 "
  21   doctitlefr = "Baguettes pour percussion"
  22
  23   texidoc = "
  24 Graphic symbols for percussion instruments are not natively supported;
  25 however it is possible to include such symbols, either as an external
  26 EPS file or as embedded PostScript code inside a markup, as
  27 demonstrated in this example.
  28
  29 "
  30   doctitle = "Percussion beaters"
  31 } % begin verbatim
  32
  33
  34 stick = \markup {
  35   \with-dimensions #'(0 . 5) #'(0 . 5)
  36   \postscript #"
  37     0 6 translate
  38     0.8 -0.8 scale
  39     0 0 0 setrgbcolor
  40     [] 0 setdash
  41     1 setlinewidth
  42     0 setlinejoin
  43     0 setlinecap
  44     gsave [1 0 0 1 0 0] concat
  45     gsave [1 0 0 1 -3.5406095 -199.29342] concat
  46     gsave
  47     0 0 0 setrgbcolor
  48     newpath
  49     7.1434065 200.94354 moveto
  50     7.2109628 200.90454 7.2785188 200.86554 7.3460747 200.82654 curveto
  51     8.2056347 202.31535 9.0651946 203.80414 9.9247546 205.29295 curveto
  52     9.8571989 205.33195 9.7896429 205.37095 9.7220864 205.40996 curveto
  53     8.8625264 203.92115 8.0029664 202.43233 7.1434065 200.94354 curveto
  54     closepath
  55     eofill
  56     grestore
  57     gsave
  58     0 0 0 setrgbcolor
  59     newpath
  60     4.9646672 203.10444 moveto
  61     5.0036707 203.03688 5.0426744 202.96933 5.0816777 202.90176 curveto
  62     6.5704792 203.76133 8.0592809 204.6209 9.5480824 205.48045 curveto
  63     9.5090791 205.54801 9.4700754 205.61556 9.4310717 205.68311 curveto
  64     7.94227 204.82356 6.4534687 203.96399 4.9646672 203.10444 curveto
  65     closepath
  66     eofill
  67     grestore
  68     gsave
  69     <<
  70     /ShadingType 3
  71     /ColorSpace /DeviceRGB
  72     /Coords [113.13708 207.87465 0 113.13708 207.87465 16.162441]
  73     /Extend [true true]
  74     /Domain [0 1]
  75     /Function <<
  76     /FunctionType 3
  77     /Functions
  78     [
  79     <<
  80     /FunctionType 2
  81     /Domain [0 1]
  82     /C0 [1 1 1]
  83     /C1 [0.72941178 0.72941178 0.72941178]
  84     /N 1
  85     >>
  86     ]
  87     /Domain [0 1]
  88     /Bounds [ ]
  89     /Encode [ 0 1 ]
  90     >>
  91     >>
  92     newpath
  93     7.6422017 200.76488 moveto
  94     7.6505696 201.02554 7.3905363 201.24867 7.1341335 201.20075 curveto
  95     6.8759501 201.16916 6.6949602 200.87978 6.7801462 200.63381 curveto
  96     6.8480773 200.39155 7.1438307 200.25377 7.3728389 200.35861 curveto
  97     7.5332399 200.42458 7.6444521 200.59122 7.6422017 200.76488 curveto
  98     closepath
  99     clip
 100     gsave [0.052859054 0.063089841 -0.020912282 0.017521108 5.7334261 189.76443] concat
 101     shfill
 102     grestore
 103     grestore
 104     0 0 0 setrgbcolor
 105     [] 0 setdash
 106     0.027282091 setlinewidth
 107     0 setlinejoin
 108     0 setlinecap
 109     newpath
 110     7.6422017 200.76488 moveto
 111     7.6505696 201.02554 7.3905363 201.24867 7.1341335 201.20075 curveto
 112     6.8759501 201.16916 6.6949602 200.87978 6.7801462 200.63381 curveto
 113     6.8480773 200.39155 7.1438307 200.25377 7.3728389 200.35861 curveto
 114     7.5332399 200.42458 7.6444521 200.59122 7.6422017 200.76488 curveto
 115     closepath
 116     stroke
 117     gsave
 118     <<
 119     /ShadingType 3
 120     /ColorSpace /DeviceRGB
 121     /Coords [113.13708 207.87465 0 113.13708 207.87465 16.162441]
 122     /Extend [true true]
 123     /Domain [0 1]
 124     /Function <<
 125     /FunctionType 3
 126     /Functions
 127     [
 128     <<
 129     /FunctionType 2
 130     /Domain [0 1]
 131     /C0 [1 1 1]
 132     /C1 [0.72941178 0.72941178 0.72941178]
 133     /N 1
 134     >>
 135     ]
 136     /Domain [0 1]
 137     /Bounds [ ]
 138     /Encode [ 0 1 ]
 139     >>
 140     >>
 141     newpath
 142     5.2721217 202.83181 moveto
 143     5.2804896 203.09247 5.0204563 203.3156 4.7640539 203.26768 curveto
 144     4.5058701 203.23609 4.3248803 202.94671 4.4100662 202.70074 curveto
 145     4.4779975 202.45848 4.7737511 202.3207 5.0027593 202.42554 curveto
 146     5.1631598 202.49149 5.2743721 202.65813 5.2721217 202.83181 curveto
 147     closepath
 148     clip
 149     gsave [0.052859054 0.063089841 -0.020912282 0.017521108 3.363346 191.83136] concat
 150     shfill
 151     grestore
 152     grestore
 153     0 0 0 setrgbcolor
 154     [] 0 setdash
 155     0.027282091 setlinewidth
 156     0 setlinejoin
 157     0 setlinecap
 158     newpath
 159     5.2721217 202.83181 moveto
 160     5.2804896 203.09247 5.0204563 203.3156 4.7640539 203.26768 curveto
 161     4.5058701 203.23609 4.3248803 202.94671 4.4100662 202.70074 curveto
 162     4.4779975 202.45848 4.7737511 202.3207 5.0027593 202.42554 curveto
 163     5.1631598 202.49149 5.2743721 202.65813 5.2721217 202.83181 curveto
 164     closepath
 165     stroke
 166     grestore
 167     grestore
 168   "
 169 }
 170
 171 \score {
 172   b1^\stick
 173 }
 174