some improvement here :

%%%%%%%%%%%
#(define (adjust-kern x-lngth)
  (*(* 19.50 (- 1.01 (exp (* -0.035 staff-size)))) x-lngth))

%%%%%%%%%%%

Pierre
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Reply via email to