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
   9
  10
  11 %%%
  12 % TODO: make sure font size  for text and
  13 % font size for music both jibe with the number font.
  14 %%%
  15
  16 %blot_diameter# = .4pt#;
  17
  18 fet_beginfont("feta-nummer", design_size, "fetaNumber");
  19 mode_setup;
  20
  21 height#:=designsize;
  22 space# := design_size/2;
  23
  24 font_x_height height#;
  25 font_normal_space space#;
  26
  27
  28 %
  29 % DOCME!
  30 %ugh. b and h are reused.
  31 %
  32
  33 save b,h; 4h+b=1.15; 10h+b=1;
  34 fatten:=designsize*h+b;
  35
  36 save b,h; 4h+b=1.05; 10h+b=1;
  37 widen:=designsize*h+b;
  38
  39 tense=0.85;
  40 thick#:=7/30height#*fatten;
  41 thin#:=thick#/4*fatten  + max(.1 (height# / 10 - 1), 0);
  42
  43 %% sqrt(.8 * blot_diameter#* thin#) ;
  44 hair#:= thin# * .8 ;
  45
  46
  47 flare#:=9/8 thick# + .75 (height# / 10 - 1);
  48
  49 save b,h; 4h+b=1/8; 10h+b=1/6;
  50 kuulleke#:=thick#*designsize*h+b;
  51 foot_top#:=thick#;
  52 foot_width#:=9/4thick#;
  53
  54 input feta-nummer-code;
  55
  56 fet_endfont("feta-nummer");
  57
  58
  59 end.