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
  24
  25 %
  26 % DOCME!
  27 %ugh. b and h are reused.
  28 %
  29
  30 save b,h; 4h+b=1.15; 10h+b=1;
  31 fatten:=designsize*h+b;
  32
  33 save b,h; 4h+b=1.05; 10h+b=1;
  34 widen:=designsize*h+b;
  35
  36 tense=0.85;
  37 thick#:=7/30height#*fatten;
  38 thin#:=thick#/4*fatten  + max(.1 (height# / 10 - 1), 0);
  39 hair#:= sqrt(.8 * blot_diameter#* thin#) ;
  40 flare#:=9/8 thick# + .75 (height# / 10 - 1);
  41
  42 save b,h; 4h+b=1/8; 10h+b=1/6;
  43 kuulleke#:=thick#*designsize*h+b;
  44 foot_top#:=thick#;
  45 foot_width#:=9/4thick#;
  46
  47 input feta-nummer-code;
  48
  49 fet_endfont("feta-nummer");
  50
  51
  52 end.