X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Flily.scm;h=6876a9cb6563701963920ccfe40e268c9616de0a;hb=0af6d4cb04fa3e4aa69a7aecb76034e4cb1ec49b;hp=be6872c6779dd92b43660812b78496e492f19117;hpb=ef0696c47e7b5e3f7f2b018bca3d9eaef62439b0;p=lilypond.git

diff --git a/scm/lily.scm b/scm/lily.scm
index be6872c677..6876a9cb65 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -767,3 +767,80 @@
   (eval-string (ly-gulp-file "chord-names.scm"))
   (eval-string (ly-gulp-file "element-descriptions.scm"))
  )
+
+
+;;
+;; (name . (glyph clef-position octavation))
+;; -- the name clefOctavation is misleading the value 7 is 1 octave not 7 Octaves.
+;;
+(define supported-clefs '(
+	  ("treble" . ("clefs-G" -2 0))
+	  ("violin" . ("clefs-G" -2 0))
+	  ("G" . ("clefs-G" -2 0))
+	  ("G2" . ("clefs-G" -2 0))
+	  ("french" . ("clefs-G" -4  0))
+	  ("soprano" . ("clefs-C" -4  0))
+	  ("mezzosoprano" . ("clefs-C" -2  0))
+	  ("alto" . ("clefs-C" 0  0))
+	  ("tenor" . ("clefs-C" 2  0))
+	  ("baritone" . ("clefs-C" 4  0))
+	  ("varbaritone"  . ("clefs-F" 0 0))
+	  ("bass" . ("clefs-F" 2  0))
+	  ("F" . ( "clefs-F" 2 0))
+	  ("subbass" . ("clefs-F" 4 0))
+
+	  ;; should move mensural stuff to separate file? 
+	  ("vaticana_do1" . ("clefs-vaticana_do" -1 0))
+	  ("vaticana_do2" . ("clefs-vaticana_do" 1 0))
+	  ("vaticana_do3" . ("clefs-vaticana_do" 3 0))
+	  ("vaticana_fa1" . ("clefs-vaticana_fa" -1 0))
+	  ("vaticana_fa2" . ("clefs-vaticana_fa" 1 0))
+	  ("medicaea_do1" . ("clefs-medicaea_do" -1 0))
+	  ("medicaea_do2" . ("clefs-medicaea_do" 1 0))
+	  ("medicaea_do3" . ("clefs-medicaea_do" 3 0))
+	  ("medicaea_fa1" . ("clefs-medicaea_fa" -1 0))
+	  ("medicaea_fa2" . ("clefs-medicaea_fa" 1 0))
+	  ("hufnagel_do1" . ("clefs-hufnagel_do" -1 0))
+	  ("hufnagel_do2" . ("clefs-hufnagel_do" 1 0))
+	  ("hufnagel_do3" . ("clefs-hufnagel_do" 3 0))
+	  ("hufnagel_fa1" . ("clefs-hufnagel_fa" -1 0))
+	  ("hufnagel_fa2" . ("clefs-hufnagel_fa" 1 0))
+	  ("hufnagel" . ("clefs-hufnagel_do_fa" 4 0))
+	  ("mensural1_c1" . ("clefs-mensural1_c" -4 0))
+	  ("mensural1_c2" . ("clefs-mensural1_c" -2 0))
+	  ("mensural1_c3" . ("clefs-mensural1_c" 0 0))
+	  ("mensural1_c4" . ("clefs-mensural1_c" 2 0))
+	  ("mensural2_c1" . ("clefs-mensural2_c" -4 0))
+	  ("mensural2_c2" . ("clefs-mensural2_c" -2 0))
+	  ("mensural2_c3" . ("clefs-mensural2_c" 0 0))
+	  ("mensural2_c4" . ("clefs-mensural2_c" 2 0))
+	  ("mensural2_c5" . ("clefs-mensural2_c" 4 0))
+	  ("mensural3_c1" . ("clefs-mensural3_c" -2 0))
+	  ("mensural3_c2" . ("clefs-mensural3_c" 0 0))
+	  ("mensural3_c3" . ("clefs-mensural3_c" 2 0))
+	  ("mensural3_c4" . ("clefs-mensural3_c" 4 0))
+	  ("mensural_f" . ("clefs-mensural_f" 2 0))
+	)
+)
+
+(define (clef-name-to-properties cl)
+  (let ((e (assoc cl supported-clefs))
+	)
+    (if (pair? e)
+	`(((symbol . clefGlyph)
+	   (type . property-set)
+	   (value . ,(cadr e))
+	   )
+	  ((symbol . clefPosition)
+	   (type . property-set)
+	   (value . ,(caddr e))
+	   )
+	  ((symbol . clefOctavation)
+	   (type . property-set)
+	   (value . ,(caddr (cdr e)))
+	  )
+	  )
+	(begin
+	  (ly-warn (string-append "Unknown clef type `" cl "'\nSee scm/lily.scm for supported clefs"))
+	  '())
+    )))