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 2688680580f5d32c7bcb9baddc8f84cc05dbf9cf..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.12.0"
+\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)