1;;;AdjustBassFigureHeight
2(let ((tag "AdjustBassFigureHeight") (offset #f))
3	(if (not (equal? AdjustBassFigureHeight::params "edit"))
4		(set! offset AdjustBassFigureHeight::params))
5	(if (not offset)
6		(begin
7			(set! offset (d-DirectiveGet-note-display tag))
8			(if (not offset)
9				(set! offset 7.0))
10			(set! offset (d-GetUserInput (_ "Figured Bass Height") (_ "Give height adjustment (unit = staff space): ") offset))))
11	(if (and (string? offset) (string->number offset))
12		(begin
13			(d-DirectivePut-note-prefix tag (string-append "\\once \\override Staff.BassFigureAlignmentPositioning #'Y-offset = #'" offset " "))
14			(d-DirectivePut-note-override tag DENEMO_ALT_OVERRIDE)
15			(d-DirectivePut-note-display tag offset)
16			(d-DirectivePut-note-ty tag -10))
17		(d-DirectiveDelete-note tag))
18	(d-RefreshDisplay)
19	(d-SetSaved #f))
20