release: 1.5.9

[lilypond.git] / input / test / boxed-molecule.ly

diff --git a/input/test/boxed-molecule.ly b/input/test/boxed-molecule.ly
index e4b660d41d09a4326417ba9c21cf1dc2aa63b802..0aeb856200cf62b85576bb72aacdff9c7510d3ce 100644 (file)
--- a/input/test/boxed-molecule.ly
+++ b/input/test/boxed-molecule.ly
@@ -5,9 +5,12 @@ texidoc = "overriding the molecule callback can also be used to draw a
  box around arbitrary grobs.
 
  TODO: check whether the corners are really correct.
- 
+
+ TODO:  circled molecules.
+  
  "
 }
+
 #(define (box-molecule xext yext)
   (ly-make-molecule
       (list 'filledbox (- (car xext)) (cdr xext)
@@ -45,7 +48,7 @@ texidoc = "overriding the molecule callback can also be used to draw a
  )
 
 
- \score { \notes  {
+ \score { \notes \relative c''  {
 
  \property Voice.TextScript \override #'molecule-callback =
    #(make-molecule-boxer Text_item::brew_molecule)
@@ -55,5 +58,11 @@ texidoc = "overriding the molecule callback can also be used to draw a
 \property Voice.Stem \override #'molecule-callback =
    #(make-molecule-boxer Stem::brew_molecule)
 
-      c''8
+\property Score.RehearsalMark \override #'molecule-callback =
+   #(make-molecule-boxer Text_item::brew_molecule)
+
+      c8
+\property Voice.Stem \revert #'molecule-callback
+
+      c4. c4 \mark "F" c1 
    }}