mf/feta-nummer.mf

   1 % feta-nummer.mf
   2 % part of LilyPond's pretty-but-neat music font
   3
   4 test:=0;
   5
   6 input feta-autometric;
   7 input feta-macros;
   8 input feta-params;
   9
  10
  11
  12
  13 %blot_diameter# = .4pt#;
  14
  15 fet_beginfont("feta-nummer", design_size);
  16 mode_setup;
  17
  18 height#:=designsize;
  19 space# := design_size/2;
  20
  21 font_x_height height#;
  22 font_normal_space space#;
  23 font_coding_scheme "feta number";
  24
  25
  26 %
  27 % DOCME!
  28 %ugh. b and h are reused.
  29 %
  30
  31 save b,h; 4h+b=1.15; 10h+b=1;
  32 fatten:=designsize*h+b;
  33
  34 save b,h; 4h+b=1.05; 10h+b=1;
  35 widen:=designsize*h+b;
  36
  37 tense=0.85;
  38 thick#:=7/30height#*fatten;
  39 thin#:=thick#/4*fatten  + max(.1 (height# / 10 - 1), 0);
  40 hair#:= sqrt(.8 * blot_diameter#* thin#) ;
  41 flare#:=9/8 thick# + .75 (height# / 10 - 1);
  42
  43 save b,h; 4h+b=1/8; 10h+b=1/6;
  44 kuulleke#:=thick#*designsize*h+b;
  45 foot_top#:=thick#;
  46 foot_width#:=9/4thick#;
  47
  48 input feta-nummer-code;
  49
  50 fet_endfont("feta-nummer");
  51
  52
  53 end.