markup: scale the shift of super/sub-scripts by font-size

[lilypond.git] / input / regression / tie-chord.ly

diff --git a/input/regression/tie-chord.ly b/input/regression/tie-chord.ly
index 1b48651a9ffa4f368b22e25213436bc727f49854..af3ec740a9c0f26e4216f6fd72f1c9d11b78ab5a 100644 (file)
--- a/input/regression/tie-chord.ly
+++ b/input/regression/tie-chord.ly
@@ -1,19 +1,17 @@
 \header {
 
-
   texidoc = "In chords, ties keep closer to the note head vertically,
-but never collide with heads or stems. Seconds are formatted up/down;
+but never collide with heads or stems.  Seconds are formatted up/@/down;
 the rest of the ties are positioned according to their vertical
 position.
 
-The code does not handle all cases. Sometimes ties will printed on top
-of or very close to each other. This happens in the last chords of
-each system.  "
-  
+The code does not handle all cases.  Sometimes ties will printed on top
+of or very close to each other.  This happens in the last chords of
+each system."
 
 }
 
-\version "2.7.36"
+\version "2.16.0"
 
 \paper {
   indent = #0.0
@@ -57,8 +55,8 @@ translate x y z to x~x y~y z~z
 
       (list ch1 ch2)))
 
-  (make-music 'SequentialMusic 'elements (apply append
-                                               (map chord->tied-chord (ly:music-property  chords 'elements)))))
+  (make-music 'SequentialMusic 'elements (append-map
+                                         chord->tied-chord (ly:music-property  chords 'elements))))
 
 baseChords =
 \applyMusic #(lambda (mus)
@@ -71,7 +69,7 @@ baseChords =
   <a b e f>
   <a c d f>
   <a c e f>
-  <f a e f>
+  <f a e' f>
   <c e f a> 
   <c e g a>
   <f b e a>