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