% Copyright 1986 Michael Urban % Everyone is granted permission to copy, modify and redistribute % this file, provided that a currently-dated copy of this % copyright notice is included in the copy. % License is granted to produce fonts based on the information % in this file, provided that such fonts are redistributed % without charge to any third party. % SCCS ID @(#)numbers.mf 1.1 10/1/86 beginchar("0", shortwidth,cap#,0); "The number 0"; pickup elvishpen; x1 = x3 = .5[leadgap,w]; y2 = y4 = .5[h,0]; top y1 = h; bot y3 = 0; lft x4 = leadgap; rt x2 = w; draw z1..z2..z3..z4..cycle; endchar; beginchar("1", shortwidth,cap#,0); "The number 1"; pickup elvishpen; x1 = x2 = .5[leadgap,w]; top y1 = h; bot y2 = 0; draw z1..z2; endchar; beginchar("2", shortwidth,cap#,0); "The number 2"; pickup elvishpen; lft x1 = leadgap; y1 = .5[0,h]; x2 = .5[leadgap,w]; top y2 = h; bot y3 = 0; lft x3 = leadgap; y4 = y3; rt x4 = w; draw z1{up}..z2{right}..{down}z3--z4; endchar; beginchar("3", shortwidth,cap#,0); "The number 3"; hthick := 3thick/4; hthin := 3thin/4; pickup pencircle xscaled hthick yscaled hthin rotated tilt; x1 = x2 = x3 = leadgap; top y1 = h; bot y3 = 0; y2 = xht; rt x4 = w; x5 = x4; y4 = .5[y1,y2]; y5 = .5[y2,y3]; draw z1{right}..z4..{left}z2; draw z2{right}..z5..{left}z3; endchar; beginchar("4", shortwidth,cap#,0); "The number 4"; pickup elvishpen; rt x1 = w; x2 = x1 = x4; bot y1 = 0; top y2 = h; lft x3 = leadgap; y3 = y4 = xht; draw z1--z2--z3--z4; endchar; beginchar("5", shortwidth,cap#,0); "The number 5"; hthick := 3thick/4; hthin := 3thin/4; pickup pencircle xscaled hthick yscaled hthin rotated tilt; rt x1 = w; top y1 = h; lft x2 = leadgap; y2 = y1; x3 = x2; y3 = xht; x4 = x1; y4 = .5[y3,y5]; x5 = x3; bot y5 = 0; draw z1--z2--z3..z4..z5; endchar; beginchar("6", shortwidth,cap#,0); "The number 6"; hthick := 3thick/4; hthin := 3thin/4; pickup pencircle xscaled hthick yscaled hthin rotated tilt; x1 = x3 = x5 = .5[leadgap, w]; lft x2 = lft x6 = leadgap; rt x7 = rt x4 = w; top y1 = h; y2 = y7 = .5[y1,y3]; y3 = xht; y6 = y4 = .5[y5,y3]; bot y5 = 0; draw z7..z1..z2---z6..z5..z4..z3..{down}z6; endchar; beginchar("7", shortwidth,cap#,0); "The number 7"; pickup elvishpen; lft x1 = leadgap; top y1 = h; rt x2 = w; y2 = y1; x3 = x1; bot y3 = 0; draw z1--z2..{down}z3; endchar; beginchar("8", shortwidth,cap#,0); "The number 8"; hthick := 3thick/4; hthin := 3thin/4; pickup pencircle xscaled hthick yscaled hthin rotated tilt; x1 = x3 = x5 = .5[leadgap, w]; lft x2 = lft x6 = leadgap; rt x7 = rt x4 = w; top y1 = h; y2 = y7 = .5[y1,y3]; y3 = xht; y6 = y4 = .5[y5,y3]; bot y5 = 0; draw z1..z2..z3..z4..z5..z6..z3..z7..cycle; endchar; beginchar("9", shortwidth,cap#,0); "The number 9"; hthick := 3thick/4; hthin := 3thin/4; pickup pencircle xscaled hthick yscaled hthin rotated tilt; x1 = x3 = x5 = .5[leadgap, w]; lft x2 = lft x6 = leadgap; rt x7 = rt x4 = w; top y1 = h; y2 = y7 = .5[y1,y3]; y3 = xht; y6 = y4 = .5[y5,y3]; bot y5 = 0; lft x8 = leadgap; bot y8 = 0; draw z8{up}..{up}z7..z1..z2..z3..{up}z7; endchar;