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 1dc8cb0fd3ccd194c5ff316ca7c45c3ce68b16c9..0aeb856200cf62b85576bb72aacdff9c7510d3ce 100644 (file)
--- a/input/test/boxed-molecule.ly
+++ b/input/test/boxed-molecule.ly
@@ -1,12 +1,16 @@
+\version "1.3.146"
 \header {
 
 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)
@@ -44,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)
@@ -54,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 
    }}