From 81eddefbd9ab34a85ad738f9d4dffa551e6b34ae Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys <hanwen@xs4all.nl> Date: Mon, 6 Nov 2006 00:39:49 +0100 Subject: [PATCH] remove vestiges of old balloon code. --- scm/define-grob-properties.scm | 10 ---------- scm/music-functions.scm | 17 ----------------- 2 files changed, 27 deletions(-) diff --git a/scm/define-grob-properties.scm b/scm/define-grob-properties.scm index 029d73c58f..cedfe092df 100644 --- 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 86d2f2e0dd..69dd59e68e 100644 --- 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 -- 2.39.5