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 { \score {
\new PipeBandDrumStaff { \new PipeBandDrumStaff {
@ -45,7 +45,7 @@
\score { \score {
\new PipeBandDrumStaff { \new PipeBandDrumStaff {
\tempo 2/4 \time 2/4
\drummode { \drummode {
d^\splitTheFeather g^\cartWheel d^\splitTheFeather g^\cartWheel
d^\up r4 d^\up r4

21
lilydrum/flourishing.ily
View File

@ -36,6 +36,13 @@ rthrow = ^\markup \center-column {
/height .6 def /height .6 def
/fwidth width radius add def /fwidth width radius add def
/closedpoint {
radius 0 360 arc
gsave filled neg
setgray fill
grestore
stroke } def
/dotstick { /dotstick {
0 0 moveto 0 0 moveto
0 0 closedpoint 0 0 closedpoint
@ -50,7 +57,7 @@ rthrow = ^\markup \center-column {
0 0 dotstick 0 0 dotstick
stroke stroke
" "
} }
lthrow = ^\markup \center-column { lthrow = ^\markup \center-column {
\postscript #" \postscript #"
/width 2 def /width 2 def
@ -58,7 +65,14 @@ lthrow = ^\markup \center-column {
/filled 1 def /filled 1 def
/height .6 def /height .6 def
/fwidth width radius add def /fwidth width radius add def
/closedpoint {
radius 0 360 arc
gsave filled neg
setgray fill
grestore
stroke } def
/dotstick { /dotstick {
radius 0 closedpoint radius 0 closedpoint
radius 0 moveto radius 0 moveto
@ -71,7 +85,8 @@ lthrow = ^\markup \center-column {
0 height translate 0 height translate
0 0 dotstick 0 0 dotstick
stroke stroke
" } "
}
bthrow = ^\markup \center-column { bthrow = ^\markup \center-column {
\postscript #" \postscript #"
/width 2 def /width 2 def