X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fballoon.ly;h=65264d48332cf1f00dc85fa391886f7b83552065;hb=77320a48ed671c658f04256d087880c1701eb746;hp=6cf4acc561e767e4f4bde2a7121dec24bbf4b3f8;hpb=05fabaaf86fd44f9bd903f282bb98d343a991e40;p=lilypond.git

diff --git a/input/regression/balloon.ly b/input/regression/balloon.ly
index 6cf4acc561..65264d4833 100644
--- a/input/regression/balloon.ly
+++ b/input/regression/balloon.ly
@@ -1,32 +1,33 @@
 
 \header {
-    texidoc = "With balloon texts, objects in the output can be marked,
+  
+  texidoc = "With balloon texts, objects in the output can be marked,
 with lines and explanatory text added."
-    }
-\version "2.1.21"
-
-\score  {
- \notes {
-     
-   \relative c'  {
-
-       %% by hand:
-       \once\property Voice.Stem \set #'print-function = #Balloon_interface::brew_molecule
-       \once\property Voice.Stem \set #'balloon-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))
+  
+}
+\version "2.17.6"
 
+\layout{ ragged-right = ##t }
 
-       %% use predefd function. 
-       \context Voice \applyoutput #(add-balloon-text
-				     'NoteHead "heads, or tails?"
-				     '(0 . -3))
+\score{
+  \new Voice \with {\consists "Balloon_engraver" }
+  {
+    \relative c'  {
+      \balloonGrobText #'Stem #'(3 . 4) \markup { "I'm a Stem" }
+      <c-\balloonText #'(-2 . -2) \markup { \simple #"hoi" }  >8
+      \balloonLengthOn
+      \balloonGrobText #'Rest #'(-1 . -2) \markup{ "Rest" }
+      r
+      \balloonLengthOff
+      \balloonGrobText #'Script #'(-1 . -1) \markup{ "Accent" }
+      c4->
+    }
+  }
 
-      
-       c8
-       }
+  \layout {
+    \context {
+      \Score
+      \override PaperColumn.keep-inside-line = ##f
+    }
   }
- \paper{ raggedright = ##t }
 }