mirror of
https://github.com/kastdeur/lilydrum.git
synced 2024-12-22 09:13:33 +01:00
Fixed postscript definitions for "rthrow" and "lthrow" flourishes
This commit is contained in:
parent
4ddf2e4bec
commit
24caca1626
2 changed files with 20 additions and 5 deletions
|
@ -17,7 +17,7 @@
|
|||
}
|
||||
}
|
||||
|
||||
\include "lilydrum.ly"
|
||||
\include "./lilydrum.ly"
|
||||
|
||||
\score {
|
||||
\new PipeBandDrumStaff {
|
||||
|
@ -45,7 +45,7 @@
|
|||
|
||||
\score {
|
||||
\new PipeBandDrumStaff {
|
||||
\tempo 2/4
|
||||
\time 2/4
|
||||
\drummode {
|
||||
d^\splitTheFeather g^\cartWheel
|
||||
d^\up r4
|
||||
|
|
|
@ -36,6 +36,13 @@ rthrow = ^\markup \center-column {
|
|||
/height .6 def
|
||||
/fwidth width radius add def
|
||||
|
||||
/closedpoint {
|
||||
radius 0 360 arc
|
||||
gsave filled neg
|
||||
setgray fill
|
||||
grestore
|
||||
stroke } def
|
||||
|
||||
/dotstick {
|
||||
0 0 moveto
|
||||
0 0 closedpoint
|
||||
|
@ -59,6 +66,13 @@ lthrow = ^\markup \center-column {
|
|||
/height .6 def
|
||||
/fwidth width radius add def
|
||||
|
||||
/closedpoint {
|
||||
radius 0 360 arc
|
||||
gsave filled neg
|
||||
setgray fill
|
||||
grestore
|
||||
stroke } def
|
||||
|
||||
/dotstick {
|
||||
radius 0 closedpoint
|
||||
radius 0 moveto
|
||||
|
@ -71,7 +85,8 @@ lthrow = ^\markup \center-column {
|
|||
0 height translate
|
||||
0 0 dotstick
|
||||
stroke
|
||||
" }
|
||||
"
|
||||
}
|
||||
bthrow = ^\markup \center-column {
|
||||
\postscript #"
|
||||
/width 2 def
|
||||
|
|
Loading…
Reference in a new issue