]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/test/boxed-molecule.ly
* scm/music-functions.scm (voicify-music): add \context Staff for
[lilypond.git] / input / test / boxed-molecule.ly
index fc41f9840b4ad66b1c2bedc95dd998ce32ff9692..9f63ab607d8fdef8a458f766fdfe67d7aed58f76 100644 (file)
@@ -1,19 +1,15 @@
-\version "1.7.16"
-\header {
-
-texidoc = "overriding the molecule callback can also be used to draw a
- box around arbitrary grobs.
 
- TODO:  circled molecules.
-  
- "
-}
+\version "2.1.7"
+\header {
+texidoc = "@cindex Boxed Molecule
+You can override the molecule callback to draw a box around
+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"
 
@@ -21,11 +17,12 @@ texidoc = "overriding the molecule callback can also be used to draw a
    #(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}
+}
+