release: 1.5.40

[lilypond.git] / mf / feta-bolletjes.mf

diff --git a/mf/feta-bolletjes.mf b/mf/feta-bolletjes.mf
index d59e748b5f617de8db80216c3a5c1ed06f1fc1a8..b44922c89baba490429e97dc897760c4beac9a99 100644 (file)
--- a/mf/feta-bolletjes.mf
+++ b/mf/feta-bolletjes.mf
@@ -330,17 +330,29 @@ fet_endchar;
 endgroup;
 
 %%% Editable values:
-slope := 1.7; % slope of slash. From scm/grob-description.scm. How to auto-copy?
+
+slash_slope := 1.7; % slope of slash. From scm/grob-description.scm. How to auto-copy?
 slt# := 2/3*0.48staff_space#; % thickness of lines. quarter notes get 1.5slt width.
 slh# := 2staff_space#; % height of char.
 
 %%% Calculated values:
 sxa# := 0; % how much the char exceeds the boundingbox horizontally:
-slxt# := sqrt(slt#*slt#+(slt#/slope)*(slt#/slope)); % Width of hor. pen - with thanks to Pythagoras
-slw# := slh#/slope; % width of sloping part of slash:
+
+ % Width of hor. pen - with thanks to Pythagoras
+slxt# := sqrt(slt#*slt#+(slt#/slash_slope)*(slt#/slash_slope));
+slw# := slh#/slash_slope; % width of sloping part of slash:
 
 define_pixels(slt,slh,sxa,slxt,slw);
 
+
+%
+%
+% UUGGGH! FIXME -- get rid of those sharp corners. 
+%
+%
+%
+
+
 def draw_slash(expr hwid_hash) =
        wid# := slw#+2slxt#+hwid_hash;
        set_char_box(0,wid#-2sxa#,slh#/2,slh#/2);