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