* scm/music-functions.scm (make-ottava-set):

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

diff --git a/mf/feta-nummer.mf b/mf/feta-nummer.mf
index 898364cd2310fd5d5379b10d5ffa463986e0434e..c7c24fdf29dfaaf9e8898d1a7c9c733ec601e0a2 100644 (file)
--- a/mf/feta-nummer.mf
+++ b/mf/feta-nummer.mf
@@ -7,24 +7,39 @@ input feta-autometric;
 input feta-macros;
 input feta-params;
 
+
+
+
 %blot_diameter# = .4pt#;
 
 fet_beginfont("feta-nummer", design_size);
 mode_setup;
 
 height#:=designsize;
+space# := design_size/2;
 
 font_x_height height#;
+font_normal_space space#;
+font_coding_scheme "feta number";
+
+
+%
+% DOCME!
+%ugh. b and h are reused.
+%
 
 save b,h; 4h+b=1.15; 10h+b=1;
 fatten:=designsize*h+b;
+
 save b,h; 4h+b=1.05; 10h+b=1;
 widen:=designsize*h+b;
+
 tense=0.85;
 thick#:=7/30height#*fatten;
-thin#:=thick#/4*fatten;
-hair#:=blot_diameter#;
-flare#:=9/8thick#/fatten;
+thin#:=thick#/4*fatten  + max(.1 (height# / 10 - 1), 0);
+hair#:= sqrt(.8 * blot_diameter#* thin#) ;
+flare#:=9/8 thick# + .75 (height# / 10 - 1);
+
 save b,h; 4h+b=1/8; 10h+b=1/6;
 kuulleke#:=thick#*designsize*h+b;
 foot_top#:=thick#;