stafflines = 5;
-interline#:=staffsize#/(stafflines-1);
+%
+% The design size of a staff should really be the
+% staff_space, but we use staffsize for historical reasons.
+%
+staff_space# = staffsize#/(stafflines-1);
-% URG!
-% font_x_height ( interline# );
+% measuring on pocket scores turns out: stafflinethickness is
+% largely independent on staff size, and generally about 0.5 pt.
%
-% [D.K.Roush & J.S.Gourlay] say this should be 0.072
-% We know better
-% generally, the "blackness" of most chars depends on this.
-%
-stafflinethickness#:=0.1 interline#;
+% by request of WL, we tune down the blackness a little
+% for increased contrast with beams.
-stemthickness# := stafflinethickness#;
-ledgerlinethickness# := 2 stafflinethickness#;
+%% !! synchronize with paper.scm
+stafflinethickness# = 0.3 pt# + 0.04 staff_space#;
-define_pixels(interline, stemthickness);
-define_pixels(stafflinethickness,ledgerlinethickness);
+%
+% The following tunes the general blackness of the glyphs.
+%
+linethickness# = stafflinethickness#; %% 0.5 pt#;
%
-% Hand-engraved music often has balls extending above and below
-% the lines. If you like that, modify overdone heads (unit:
-% stafflinethickness)
+% bigger puff_up_factor, relatively thicker stafflines.
+% 20 pt = puff_up_factor 0.
+% 10 pt = puff_up_factor 1
%
+puff_up_factor = (linethickness# - 0.1 staff_space#) / (0.1 staff_space#);
+
+
+
+stemthickness# := 1.3 stafflinethickness#;
+ledgerlinethickness# := 2 stafflinethickness#;
+
+define_pixels(staff_space, stemthickness);
+define_pixels(stafflinethickness, ledgerlinethickness, linethickness);
-numeric overdone_heads;
-overdone_heads = 0.0;
%
% Because of the engraving/stamping process, no traditional
%
% this is not a meta variable: it is related to absolute sizes.
%
-% According to [Wanske], only outside corners should be round
-%
+% FIXME: According to [Wanske], only outside corners should be round
+% I don't think we do this anywhere -- jcn
numeric blot_diameter;
-blot_diameter# = .4pt#;
+blot_diameter# = .35 pt#;
+if (blot_diameter# * hppp) < 1:
+ blot_diameter# := 1/hppp;
+fi
+if (blot_diameter# * vppp) < 1:
+ blot_diameter# := 1/vppp;
+fi
define_pixels(blot_diameter);
+
+
+
+