Documentation/snippets/percussion-beaters.ly

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