2009/4/27 Marc Hohl <m...@hohlart.de>: > No, I didn't get this mail. I played around with your suggestions and the > improvements given by Neil and have now: > > #(define-markup-command (customTabClef layout props tuning) (pair?) > (define (square x) (* x x)) > (let* ((num-strings (min (max (length tuning) 4) 7)) > (font-size (- (* num-strings 1.5) 7)) > (base-skip (square (+ (* num-strings 0.2) 0.4)))) > (interpret-markup layout props > (markup #:vcenter #:bold > ;;#:override #'(font-family . sans) > #:fontsize font-size > #:override #'(cons 'baseline-skip base-skip) > #:center-column ("T" "A" "B"))))) > > The raise-value calculation has gone, because I use #:vcenter, but I had to > comment > out the font-family line, because I got an error saying "unbound variable: > font-family" > if it is in the source. What's going wrong here?
Too many hashes: #:override '(font-family . sans) or #:override (cons 'font-family 'sans) #:override (cons 'baseline-skip base-skip) or #:override `(baseline-skip . ,base-skip) > With the definition above, I inserted #(set-global-staff-size <num>) > and tried values from 10 to 100, and it worked as expected. > So the quadratic equation seems to be the right way. That works because changing the global staff size doesn't alter the default staff-space. See what happens when you add the following override: \override TabStaff.StaffSymbol #'staff-space = #1.2 Regards, Neil _______________________________________________ lilypond-user mailing list lilypond-user@gnu.org http://lists.gnu.org/mailman/listinfo/lilypond-user