]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/regression/balloon.ly
* input/: Convert ly files that still had \property. Fixes make
[lilypond.git] / input / regression / balloon.ly
index cf06c5ab86717b4d7cb77e0b772f8a18fcf81ab2..591dd1a00bc618b4f5ec0ddb1a148b38e23e5ead 100644 (file)
@@ -3,21 +3,28 @@
     texidoc = "With balloon texts, objects in the output can be marked,
 with lines and explanatory text added."
     }
-\version "2.1.11"
+\version "2.1.22"
 
 \score  {
  \notes {
      
    \relative c'  {
 
-       \once\property Voice.Stem \set #'molecule-callback = #Balloon_interface::brew_molecule
-       \once\property Voice.Stem \set #'original-callback = #Stem::brew_molecule
-       \once\property Voice.Stem \set #'balloon-text = #"I'm a stem"
-       \once\property Voice.Stem \set #'balloon-text-offset = #'(3 . 4)
-       \once\property Voice.Stem \set #'balloon-text-props
-         = #'((font-family .  roman))
+       %% by hand:
+       \once\override Stem  #'print-function = #Balloon_interface::print
+       \once\override Stem  #'balloon-original-callback = #Stem::print
+       \once\override Stem  #'balloon-text = #"I'm a stem"
+       \once\override Stem  #'balloon-text-offset = #'(3 . 4)
+       \once\override Stem  #'balloon-text-props
+      = #'((font-family .  roman))
 
-       
+
+       %% use predefd function. 
+       \context Voice \applyoutput #(add-balloon-text
+                                    'NoteHead "heads, or tails?"
+                                    '(0 . -3))
+
+      
        c8
        }
   }