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