release commit

diff --git a/ChangeLog b/ChangeLog
index 07d5c71d92eb2122578b69dc4a41dce26db815e6..ac27236f5cf8c0c1778d037b8cf4e9c818587c0e 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2004-02-02  Han-Wen Nienhuys   <hanwen@xs4all.nl>
 
+       * VERSION: release 2.1.17
+       
        * Documentation/user/refman.itely (Automatic part combining):
        revise documentation of the part-combiner.
 

diff --git a/input/regression/new-markup-scheme.ly b/input/regression/new-markup-scheme.ly
new file mode 100644 (file)
index 0000000..81eb14f
--- /dev/null
+++ b/input/regression/new-markup-scheme.ly
@@ -0,0 +1,64 @@
+
+\header {
+
+    texidoc = "There is a Scheme macro @code{markup} to produce markup
+    texts using a similar syntax as @code{\\markup}."
+
+    }
+\version "2.1.16"
+\score {
+    \notes {
+        \fatText
+        f'1-\markup {
+            foo
+            \raise #0.2 \hbracket \bold bar
+            \override #'(baseline-skip . 4)
+
+            \bracket \column < baz bazr bla >
+            \hspace #2.0
+            \override #'(font-family . music) {
+                \lookup #"noteheads-0"
+                \char #53
+            }
+            \musicglyph #"accidentals--1"
+            \combine "X" "+"   
+            \combine "o" "/"
+            \box \column < { "string 1" } { "string 2" } >
+            "$\\emptyset$"
+            \italic Norsk
+            \super "2"
+            \dynamic sfzp
+            \huge { "A" \smaller "A" \smaller \smaller "A"
+                    \smaller \smaller \smaller "A" }
+            \sub "alike"
+        }      
+        \break
+        f'1-#(markup* 
+              "foo"
+              #:raise 0.2 #:hbracket #:bold "bar"
+              #:override '(baseline-skip . 4) 
+              #:bracket #:column ( "baz" "bazr" "bla" )
+              #:hspace 2.0
+              #:override '(font-family . music) #:line (#:lookup "noteheads-0" 
+                                                        #:char 53)
+              #:musicglyph "accidentals--1"
+              #:combine "X" "+"   
+              #:combine "o" "/"
+              #:box #:column ("string 1" "string 2")
+              "$\\emptyset$"
+              #:italic "Norsk"
+              #:super "2"
+              #:dynamic "sfzp"
+              #:huge #:line ("A" #:smaller "A" #:smaller #:smaller "A" 
+                             #:smaller #:smaller #:smaller "A")
+              #:sub "alike")
+    }
+    \paper { 
+        raggedright = ##t
+        indent = #0
+        \translator {
+            \StaffContext
+            \remove Time_signature_engraver 
+        }
+    }
+}