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 {
   9
  10   \relative c'  {
  11
  12     %% by hand:
  13     \once\override Stem  #'print-function = #Balloon_interface::print
  14     \once\override Stem  #'balloon-original-callback = #Stem::print
  15     \once\override Stem  #'balloon-text = #"I'm a stem"
  16     \once\override Stem  #'balloon-text-offset = #'(3 . 4)
  17     \once\override Stem  #'balloon-text-props
  18     = #'((font-family .  roman))
  19
  20
  21     %% use predefd function.
  22     \context Voice \applyoutput #(add-balloon-text
  23                                   'NoteHead "heads, or tails?"
  24                                   '(0 . -3))
  25
  26
  27     c8
  28   }
  29 }
  30 \layout{ raggedright = ##t }