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.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 [0.052859054 0.063089841 -0.020912282 0.017521108 5.7334261 189.76443] concat
  89     shfill
  90     grestore
  91     grestore
  92     0 0 0 setrgbcolor
  93     [] 0 setdash
  94     0.027282091 setlinewidth
  95     0 setlinejoin
  96     0 setlinecap
  97     newpath
  98     7.6422017 200.76488 moveto
  99     7.6505696 201.02554 7.3905363 201.24867 7.1341335 201.20075 curveto
 100     6.8759501 201.16916 6.6949602 200.87978 6.7801462 200.63381 curveto
 101     6.8480773 200.39155 7.1438307 200.25377 7.3728389 200.35861 curveto
 102     7.5332399 200.42458 7.6444521 200.59122 7.6422017 200.76488 curveto
 103     closepath
 104     stroke
 105     gsave
 106     <<
 107     /ShadingType 3
 108     /ColorSpace /DeviceRGB
 109     /Coords [113.13708 207.87465 0 113.13708 207.87465 16.162441]
 110     /Extend [true true]
 111     /Domain [0 1]
 112     /Function <<
 113     /FunctionType 3
 114     /Functions
 115     [
 116     <<
 117     /FunctionType 2
 118     /Domain [0 1]
 119     /C0 [1 1 1]
 120     /C1 [0.72941178 0.72941178 0.72941178]
 121     /N 1
 122     >>
 123     ]
 124     /Domain [0 1]
 125     /Bounds [ ]
 126     /Encode [ 0 1 ]
 127     >>
 128     >>
 129     newpath
 130     5.2721217 202.83181 moveto
 131     5.2804896 203.09247 5.0204563 203.3156 4.7640539 203.26768 curveto
 132     4.5058701 203.23609 4.3248803 202.94671 4.4100662 202.70074 curveto
 133     4.4779975 202.45848 4.7737511 202.3207 5.0027593 202.42554 curveto
 134     5.1631598 202.49149 5.2743721 202.65813 5.2721217 202.83181 curveto
 135     closepath
 136     clip
 137     gsave [0.052859054 0.063089841 -0.020912282 0.017521108 3.363346 191.83136] concat
 138     shfill
 139     grestore
 140     grestore
 141     0 0 0 setrgbcolor
 142     [] 0 setdash
 143     0.027282091 setlinewidth
 144     0 setlinejoin
 145     0 setlinecap
 146     newpath
 147     5.2721217 202.83181 moveto
 148     5.2804896 203.09247 5.0204563 203.3156 4.7640539 203.26768 curveto
 149     4.5058701 203.23609 4.3248803 202.94671 4.4100662 202.70074 curveto
 150     4.4779975 202.45848 4.7737511 202.3207 5.0027593 202.42554 curveto
 151     5.1631598 202.49149 5.2743721 202.65813 5.2721217 202.83181 curveto
 152     closepath
 153     stroke
 154     grestore
 155     grestore
 156   "
 157 }
 158
 159 \score {
 160   b1^\stick
 161 }
 162