* scripts/convert-ly.py (FatalConversionError.figures_replace):

[lilypond.git] / input / regression / molecule-hacking.ly

diff --git a/input/regression/molecule-hacking.ly b/input/regression/molecule-hacking.ly
index c27032118a34480e60445dffa41dbc4999884078..6643ff44a5d161dac29ae52acf5ec4aa1d86bc24 100644 (file)
--- a/input/regression/molecule-hacking.ly
+++ b/input/regression/molecule-hacking.ly
@@ -1,4 +1,5 @@
-\version "1.3.146"
+
+\version "1.9.4"
 
 \header { texidoc=" You can write molecule callbacks in Scheme, thus
 providing custom glyphs for notation elements.  A simple example is
@@ -9,7 +10,7 @@ Beam. The note head is also rather naive, since the extent of the
 parens are also not seen by accidentals.
 "
        
-        }
+}
 
 #(define (parenthesize-callback callback)
    "Construct a function that will do CALLBACK and add parentheses.
@@ -28,23 +29,25 @@ GROB.  The dimensions of the molecule is not affected.
 "
      
      (let* (
-           (fn (ly-get-default-font grob))
-           (pclose (ly-find-glyph-by-name fn "accidentals-rightparen"))
-           (popen (ly-find-glyph-by-name fn "accidentals-leftparen"))
+           (fn (ly:get-default-font grob))
+           (pclose (ly:find-glyph-by-name fn "accidentals-rightparen"))
+           (popen (ly:find-glyph-by-name fn "accidentals-leftparen"))
            (subject (callback grob))
 
            ; remember old size
-           (subject-dims (ly-get-molecule-extent subject 0))
-           )
+           (subject-dim-x (ly:molecule-get-extent subject 0))
+           (subject-dim-y (ly:molecule-get-extent subject 1))
+       )
 
         ; add parens
         (set! subject
-            (ly-combine-molecule-at-edge 
-             (ly-combine-molecule-at-edge subject 0 1 pclose 0.2)
+            (ly:molecule-combine-at-edge 
+             (ly:molecule-combine-at-edge subject 0 1 pclose 0.2)
              0 -1 popen  0.2))
 
        ; revert old size.
-       (ly-set-molecule-extent! subject 0 subject-dims)
+       (ly:molecule-set-extent! subject 0 subject-dim-x)
+       (ly:molecule-set-extent! subject 1 subject-dim-y)
        subject
     )
      )
@@ -69,6 +72,7 @@ GROB.  The dimensions of the molecule is not affected.
                    
                    }
 
-       \paper { linewidth = -1. }
+       \paper { raggedright = ##t}
        }
 
+