- (module-define! m 'staffspace ss)
-
- ;; !! synchronize with feta-params.mf
- (module-define! m 'linethickness lt)
- (module-define! m 'ledgerlinethickness (+ (* 0.5 pt) (/ ss 10)))
- (module-define! m 'blotdiameter (* 0.35 pt))
- (module-define! m 'interscoreline (* 4 mm))
-
- (module-define! m 'dimension-variables
- '(pt mm cm in staffheight staff-space
- betweensystemspace betweensystempadding
- linewidth indent hsize vsize
- staffspace linethickness ledgerlinethickness
- blotdiameter interscoreline leftmargin rightmargin))
+
+ (module-define! m 'line-thickness (calc-line-thickness ss pt))
+
+ ;; sync with feta
+ (module-define! m 'ledgerline-thickness (+ (* 0.5 pt) (/ ss 10)))
+
+ ;; sync with feta
+ (module-define! m 'blot-diameter (* 0.4 pt))