* mf/feta-params.mf (stafflines): introduce linethickness as

[lilypond.git] / scm / paper.scm

diff --git a/scm/paper.scm b/scm/paper.scm
index 80a0724bfb1cf4fdc76f61390bf8e9b11b8c283b..bb802bb17bf24799ccc32073d116ef404de38966 100644 (file)
--- a/scm/paper.scm
+++ b/scm/paper.scm
@@ -1,4 +1,4 @@
-; paper.scm - manipulate the paper block.
+                                       ; paper.scm - manipulate the paper block.
 ;
 ; (C) 2004 Han-Wen Nienhuys
 
@@ -18,7 +18,10 @@
     (module-define! m 'staffheight sz)
     (module-define! m 'staff-space ss)
     (module-define! m 'staffspace ss)
-    (module-define! m 'linethickness (* 0.5 pt))
+
+
+    ;; !! synchronize with feta-params.mf
+    (module-define! m 'linethickness (+ (* 0.3 pt) (* 0.04 ss)))
     (module-define! m 'outputscale ss)
     (module-define! m 'ledgerlinethickness (+ (* 0.5 pt) (/ ss 10)))
     (module-define! m 'blotdiameter (* 0.35 pt))