]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/test/boxed-molecule.ly
* lily/my-lily-lexer.cc (start_main_input): define input-file-name
[lilypond.git] / input / test / boxed-molecule.ly
index 283cd653c7b8232c061b5dcbf09f97bc04b30658..fd873045d8d8d0404fa661511d4b55add6c58c96 100644 (file)
@@ -1,18 +1,15 @@
-\version "1.7.18"
-% FIXME: check that this file actually works.
+#(ly:set-option 'old-relative)
+\version "1.9.1"
 \header {
 texidoc = "@cindex Boxed Molecule
 You can override the molecule callback to draw a box around
-arbitrary grobs.
-
-TODO:  circled molecules.
-" }
+arbitrary grobs. " }
 
 
  \score { \notes \relative c''  {
 
  \property Voice.TextScript \override #'molecule-callback =
-   #(make-molecule-boxer 0.1 0.3 0.2 Text_item::brew_molecule)
+   #(make-molecule-boxer 0.1 0.3 0.2 brew-new-markup-molecule)
 
    c'4^"foo"
 
@@ -20,11 +17,12 @@ TODO:  circled molecules.
    #(make-molecule-boxer 0.05 0.25 0.25 Stem::brew_molecule)
 
 \property Score.RehearsalMark \override #'molecule-callback =
-   #(make-molecule-boxer 0.15 0.3 0.3 Text_item::brew_molecule)
-
+   #(make-molecule-boxer 0.15 0.3 0.3 brew-new-markup-molecule)
       c8
 \property Voice.Stem \revert #'molecule-callback
 
       c4. c4 \mark "F" c1 
-   }}
-%% new-chords-done %%
+   }
+\paper{raggedright = ##t}
+}
+