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