From 5b8a3a0d20542b136b10e2c7a77c38cf8aa78836 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Wed, 27 Mar 2002 00:33:50 +0000
Subject: [PATCH] lilypond-1.3.112

---
 CHANGES      | 25 ++++++++++++++++++++-
 scm/lily.scm | 62 +++++++++++++++++++++++++++++++++-------------------
 2 files changed, 63 insertions(+), 24 deletions(-)

diff --git a/CHANGES b/CHANGES
index 38c0a8cc6e..86235a9b6f 100644
--- a/CHANGES
+++ b/CHANGES
@@ -1,6 +1,29 @@
-1.3.110.hwn1
+1.3.111.jcn3
 ============
 
+* Allow two consecutive glissandi.
+
+* Note_head_line_engraver now also listenes to \property
+"followThread": Automagically connect note-heads when thread switches
+staff.
+
+* Fixed american-chords example (except for o/, that waits for kerning fix).
+
+* Added simple glissando line.
+
+* Bugfix: broken [crescendo] text spanner.
+
+* Bugfix: chord tremolos
+
+* Bugfix: staff group brace
+
+* Bugfix: volta repeats
+
+* Resurrected clef _8 and ^8 syntax.  (This should be deprecated?)
+
+1.3.111
+=======
+
 * Fixed non-empty-text feature.
 
 * Bugfix for Grob::has_extent_callback_b ()
diff --git a/scm/lily.scm b/scm/lily.scm
index 3079ac70a0..5036a2af4c 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -785,8 +785,8 @@
 	  ("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))
+	  ("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))
@@ -828,21 +828,36 @@
 )
 
 (define (clef-name-to-properties cl)
-  (let ((e (assoc cl supported-clefs))
+  (let ((e '())
+	(oct 0)
+	(l (string-length cl))
 	)
+
+    ;; ugh. cleanme
+    (if (equal? "8" (substring cl (- l 1) l))
+	(begin
+	(if (equal? "^" (substring cl (- l 2) (- l 1)))
+	    (set! oct 7)
+	    (set! oct -7))
+	
+	(set! cl (substring cl 0 (- l 2)))))
+
+
+    (set! e  (assoc cl supported-clefs))
     (if (pair? e)
 	`(((symbol . clefGlyph)
-	   (type . ,Property_iterator::constructor)
+	   (iterator-ctor . ,Property_iterator::constructor)
 	   (value . ,(cadr e))
 	   )
 	  ((symbol . clefPosition)
-	   (type . ,Property_iterator::constructor)
+	   (iterator-ctor . ,Property_iterator::constructor)
 	   (value . ,(caddr e))
 	   )
-	  ((symbol . clefOctavation)
-	   (type . ,Property_iterator::constructor)
-	   (value . ,(caddr (cdr e)))
-	  )
+	  ,(if (not (equal? oct 0))
+	       `((symbol . clefOctavation)
+		 (iterator-ctor . ,Property_iterator::constructor)
+		 (value . ,oct)
+	       ))
 	  )
 	(begin
 	  (ly-warn (string-append "Unknown clef type `" cl "'\nSee scm/lily.scm for supported clefs"))
@@ -864,7 +879,7 @@
 		      (length . ,Repeated_music::folded_music_length)
 		      ))
 	  ("tremolo" . ((iterator-ctor . ,Chord_tremolo_iterator::constructor)
-			(length . ,Repeated_music::volta_music_length)
+			(length . ,Repeated_music::unfolded_music_length)
 			))
 	  ))
 	  
@@ -882,16 +897,17 @@
   ))
 
 
-(begin
-  (eval-string (ly-gulp-file "backend-property.scm"))
-  (eval-string (ly-gulp-file "translator-properties.scm"))  
-  (eval-string (ly-gulp-file "interface.scm"))
-  (eval-string (ly-gulp-file "beam.scm"))
-  (eval-string (ly-gulp-file "slur.scm"))
-  (eval-string (ly-gulp-file "font.scm"))
-  (eval-string (ly-gulp-file "auto-beam.scm"))  
-  (eval-string (ly-gulp-file "generic-property.scm"))
-  (eval-string (ly-gulp-file "basic-properties.scm"))
-  (eval-string (ly-gulp-file "chord-name.scm"))
-  (eval-string (ly-gulp-file "element-descriptions.scm"))
- )
+(map (lambda (x)   (eval-string (ly-gulp-file x)))
+     
+   '("backend-property.scm"
+ "translator-properties.scm"
+ "interface.scm"
+ "beam.scm"
+ "slur.scm"
+ "font.scm"
+ "auto-beam.scm"
+ "generic-property.scm"
+ "basic-properties.scm"
+ "chord-name.scm"
+ "element-descriptions.scm"
+ ))
-- 
2.39.5