remove vestiges of old balloon code.

diff --git a/scm/define-grob-properties.scm b/scm/define-grob-properties.scm
index 029d73c58f7fdaa0a4c2a0cc47d4bbfee2ec7868..cedfe092dfcc27b91584c3820cf05108b1b2f3de 100644 (file)
--- a/scm/define-grob-properties.scm
+++ b/scm/define-grob-properties.scm
@@ -48,16 +48,6 @@ where a horizontal beam fits that is larger than this number, make a kneed beam.
      (axes ,list? "list of axis numbers.
 In the case of alignment grobs, this should contain only one number.")
 
-     (balloon-text ,markup? "Text to add to help balloon")
-     (balloon-text-props ,list? "Font properties
-for balloon text.")
-     (balloon-text-offset ,number-pair?
-                         "Where to put text relative to balloon.")
-     (balloon-padding ,ly:dimension? "Text to add to help balloon")
-     (original-stencil ,ly:stencil? "The
-original stencil drawer to draw the balloon around.")
-
-
      (bar-size ,ly:dimension? "size of a bar line.")
      (barre-type ,symbol? "Type of barre indication used in a fret diagram.
 Choices include @code{curved} and @code{straight}.")

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index 86d2f2e0ddd5a509acc3e900ed40ac46e511225d..69dd59e68ea7fdaae20708ffe7efec98fc4e945d 100644 (file)
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -839,23 +839,6 @@ if appropriate.
   (music-map apply-duration lyric-music))
 
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-
-(define-public ((add-balloon-text object-name text off) grob orig-context cur-context)
-  "Usage: see input/regression/balloon.ly "
-  (let* ((meta (ly:grob-property grob 'meta))
-        (cb (ly:grob-property-data grob 'stencil))
-        (nm (if (pair? meta) (cdr (assoc 'name meta)) "nonexistant")))
-    (if (and (equal? nm object-name)
-            (procedure? cb))
-       (begin
-         (ly:grob-set-property! grob 'stencil  ly:balloon-interface::print)
-         (set! (ly:grob-property grob 'original-stencil) cb)
-         (set! (ly:grob-property grob 'balloon-text) text)
-         (set! (ly:grob-property grob 'balloon-text-offset) off)
-         (set! (ly:grob-property grob 'balloon-text-props) '((font-family . roman)))))))
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; accidentals