From 24caca1626b7bb920f9a05a705443b2ab082697e Mon Sep 17 00:00:00 2001
From: Eric Teunis de Boone <ericteunis@gmail.com>
Date: Fri, 25 Nov 2016 15:40:07 +0100
Subject: [PATCH] Fixed postscript definitions for "rthrow" and "lthrow"
 flourishes

---
 cheatsheet.ly            |  4 ++--
 lilydrum/flourishing.ily | 21 ++++++++++++++++++---
 2 files changed, 20 insertions(+), 5 deletions(-)

diff --git a/cheatsheet.ly b/cheatsheet.ly
index 16c534c..dcc2e1f 100644
--- a/cheatsheet.ly
+++ b/cheatsheet.ly
@@ -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 
diff --git a/lilydrum/flourishing.ily b/lilydrum/flourishing.ily
index 2a9f981..0df0917 100644
--- a/lilydrum/flourishing.ily
+++ b/lilydrum/flourishing.ily
@@ -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