input/regression/balloon.ly

   1
   2 \header {
   3   texidoc = "With balloon texts, objects in the output can be marked,
   4 with lines and explanatory text added."
   5 }
   6 \version "2.6.0"
   7
   8 \layout{ raggedright = ##t }
   9
  10 {
  11
  12   \relative c'  {
  13
  14     %% by hand:
  15     \once\override Stem  #'print-function = #Balloon_interface::print
  16     \once\override Stem  #'balloon-original-callback = #Stem::print
  17     \once\override Stem  #'balloon-text = #"I'm a stem"
  18     \once\override Stem  #'balloon-text-offset = #'(3 . 4)
  19     \once\override Stem  #'balloon-text-props
  20     = #'((font-family .  roman))
  21
  22
  23     %% use predefd function.
  24     \context Voice \applyoutput #(add-balloon-text
  25                                   'NoteHead "heads, or tails?"
  26                                   '(0 . -3))
  27
  28
  29     c8
  30   }
  31 }