From e4ee438e2fbdc81c64f4e6cbc817d193fecc1cf3 Mon Sep 17 00:00:00 2001
From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Mon, 14 Sep 2009 20:19:16 +0200
Subject: [PATCH] Small flageolet

---
 orchestrallily.ily | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/orchestrallily.ily b/orchestrallily.ily
index ceeb8be..505b05e 100644
--- a/orchestrallily.ily
+++ b/orchestrallily.ily
@@ -1548,3 +1548,14 @@ bracketify = #(define-music-function (parser loc arg) (ly:music?)
   "Draw a hat above the given string @var{arg}."
   (interpret-markup layout props (markup #:combine #:raise 1.5 "^" arg)))
 
+
+
+smallFlageolet =
+#(let ((m (make-music 'ArticulationEvent
+                      'articulation-type "flageolet")))
+   (ly:music-set-property! m 'tweaks
+     (acons 'font-size -2
+       (ly:music-property m 'tweaks)))
+  m)
+  
+  
\ No newline at end of file
-- 
2.11.4.GIT