stafflines = 5;
-% [reuter] URG! This is not always true. One of the effects of
-% keeping this a constant is that, for notation with less stafflines,
-% stafflinethickness gets too small.
-staff_space#:=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 staff_space# ;
+% 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
-% FIXME: generally, the "blackness" of most chars depends on this.
-% these dimensions should be independent.
-stafflinethickness#:=0.1 staff_space#;
+% 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(staff_space, 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
% FIXME: According to [Wanske], only outside corners should be round
% I don't think we do this anywhere -- jcn
numeric blot_diameter;
-blot_diameter# = .45pt#;
+blot_diameter# = .35 pt#;
if (blot_diameter# * hppp) < 1:
blot_diameter# := 1/hppp;
fi
blot_diameter# := 1/vppp;
fi
define_pixels(blot_diameter);
+
+
+
+