kastdeur
/
lilydrum
mirror of https://github.com/kastdeur/lilydrum.git
1
0
Fork 0
Code Issues Releases Activity

Fixed postscript definitions for "rthrow" and "lthrow" flourishes

This commit is contained in:
Eric Teunis de Boone 2016-11-25 15:40:07 +01:00
parent 4ddf2e4bec
commit 24caca1626
2 changed files with 20 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
cheatsheet.ly
View File

@ -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

21
lilydrum/flourishing.ily
View File

@ -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
@ -50,7 +57,7 @@ rthrow = ^\markup \center-column {
0 0 dotstick
stroke
"
}
}
lthrow = ^\markup \center-column {
\postscript #"
/width 2 def
@ -58,7 +65,14 @@ lthrow = ^\markup \center-column {
/filled 1 def
/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