% 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 @(#)letters.mf 1.1 10/1/86 beginchar("A", shortwidth,Xht#,0); "The letter a"; pickup elvishpen; Nutelco(w,shortstem, stemdepth); Nuluva (bowpoint, leadgap, false); Overbar; endchar; beginchar("B", shortwidth, cap#, 0); "the letter b"; pickup elvishpen; Telco(leadgap, longstem, stemdepth); Luva (bowpoint, w, false); underbar; endchar; beginchar ("C",shortwidth, Xht#, 0); "The letter c"; begingroup; save x,y; pickup elvishpen; top y1= h; x1 = .75[leadgap, w]; lft x2= leadgap; y2= .4h; bot y3= 0; x3= .5[leadgap, w]; y4= .2h; rt x4=w; draw z1..z2{down}..z3{right}..z4; endgroup; endchar; beginchar("D", shortwidth,cap#,0); "The letter d"; pickup elvishpen; Nutelco(w,longstem, stemdepth); Nuluva (bowpoint, leadgap, false); Overbar; endchar; beginchar ("E",shortwidth, Xht#, 0); "The letter e"; begingroup; save x,y; pickup elvishpen; top y1= h; x1 = .75[leadgap, w]; lft x2= leadgap; y2= .4h; bot y3= 0; x3= .5[leadgap, w]; y4= .2h; rt x4=w; z0 = .5[z2, z3]; draw z0--z1..z2{down}..z3{right}..z4; endgroup; endchar; beginchar("F", shortwidth,Xht#,dep#); "The letter f"; pickup elvishpen; Telco(leadgap,shortstem, stemdepth); z1 = bowpoint; rt x2 = w; y2 = y1; draw z1--z2; underbar; endchar; beginchar("G", shortwidth,Xht#,dep#); "The letter g"; pickup elvishpen; Luva ((w, h), leadgap, false); path sweep; lft x0 = leadgap; top y0 = h; lft x1 = 0; z0-z1 = whatever*(dir tilt); x2 = .75w; top y2=h; rt x3 = w; y3 = .5h; lft x4 = leadgap; y4 = -.65d; x5 = .5w; y5 = -d; x6 = .85w; z6-z5 = whatever*(dir tilt); sweep = (z2..z3{down}..z4{down}..z5{right}..z6); z7 = sweep intersectionpoint ((-infinity,0)--(infinity,0)); draw sweep; endchar; beginchar("H", shortwidth,cap#, 0); "the letter h"; pickup elvishpen; Telco(leadgap, longstem, stemdepth); Luva (bowpoint, w, true); endchar; def commoncarrier= pickup elvishpen; x0=x1-thick; top y0=h; x1=1/2[leadgap,w]; y1=y0; x2=x1; y2=-d/2; x3=x0; y3=-d; draw z0--z1{down}..z2{down}..z3; enddef; beginchar ("I",3*leadgap#,Xht#,.2dep#); "The letter i"; begingroup; save x,y; commoncarrier; endgroup; endchar; beginchar ("J",3*leadgap#,Xht#,dep#); "The letter j"; begingroup; save x,y; commoncarrier; endgroup; endchar; beginchar ("K", shortwidth,cap#,0); "The letter k"; pickup elvishpen; Telco(leadgap, longstem, stemdepth); lft x1 = leadgap; bot y1 = 0; rt x2 = w; top y2 = Xht; lft x4 = w; bot y4 = 0; draw z1..{right}z2; draw z1{z2 - z1}..{down}z4; endchar; beginchar ("L",3*leadgap#,cap#,.2dep#); "The letter l"; begingroup; save x,y; commoncarrier; endgroup; endchar; beginchar ("M", 1em#, Xht#, 0); "the letter m"; pickup elvishpen; Telco(leadgap, shortstem, stemdepth); Luva (bowpoint, bowsize*em, false); Luva (bowpoint, w, false); underbar; endchar; beginchar ("N", shortwidth, Xht#, 0); "the letter n"; pickup elvishpen; Telco (leadgap, shortstem, stemdepth); Luva (bowpoint, w, true); endchar; beginchar ("O", shortwidth, Xht#, 0); "The letter o"; begingroup; save x,y; pickup elvishpen; lft x0 = leadgap; top y1 = h; rt x2 = w; bot y3 = 0; y0 = .65h; x1 = leadgap+.35w; y2 = .35h; x3 = leadgap+.65w; draw z0..z1..z2..z3..cycle; endgroup; endchar; beginchar("P", shortwidth,Xht#,dep#); "The letter p"; pickup elvishpen; Telco(leadgap,shortstem, stemdepth); Luva (bowpoint, w, false); underbar; endchar; beginchar("Q", shortwidth,Xht#,dep#); "The letter q"; pickup elvishpen; Nutelco(w,shortstem, stemdepth); Nuluva (bowpoint, 0, false); Overbar; endchar; beginchar ("R", shortwidth, Xht#, 0); "the letter r"; pickup elvishpen; Telco (leadgap, shortstem, stemdepth); z5 = bowpoint; top y6=Xht; x6=.5[x5,w]; rt x7=w; y7=.47Xht; draw z5..z6..{down}z7; endchar; beginchar("S", shortwidth,Xht#,0); "The letter s"; hthick := 3thick/4; hthin := 3thin/4; pickup pencircle xscaled hthick yscaled hthin rotated tilt; x1 = x2 = x3 = .5[leadgap,w]; top y1 = h; y2 = .5[y1, y3]; bot y3 = 0; y4 = y3; y5 = y1; lft x4 = leadgap; rt x5 = w; x6 = x4; y6 = y5; x7 = x5; y7 = y4; draw z5..{left}z1..z6..z2..z7..{left}z3..z4; endchar; beginchar("T", 3*leadgap#,cap#,0); "The letter t"; pickup elvishpen; Telco(.5[leadgap,w],longstem, stemdepth); lft x1 = 0; y1 = Xht; x2 = w; y2 = y1; draw z1--z2; endchar; beginchar("U", shortwidth,Xht#,0); "The letter u"; pickup elvishpen; Nutelco(w,shortstem, stemdepth); Nuluva (bowpoint, leadgap, true); endchar; beginchar("V", shortwidth, Xht#, 0); "The letter v"; begingroup; save x,y; pickup elvishpen; top y0 = 0; x0=.5[0, w]; lft x1 = 0; y1=h; y2=h; rt x2=w; y3=y0; x3=x0-.7thick; z4-z1 = whatever*(z0-z2); x1-x4=.2thin; z6-z2 = whatever*(z0-z1); x6=w; draw z3..z0--z2..z6; draw z4..z1--z0; endgroup; endchar; beginchar("W", 1em#,Xht#,0); "The letter w"; pickup elvishpen; Nutelco(w,shortstem, stemdepth); Nuluva (bowpoint,w-bowsize*em+leadgap, true); Nuluva (bowpoint, leadgap, true); endchar; beginchar("X", shortwidth,Xht#,0); "The letter x"; pickup elvishpen; lft x1 = leadgap; rt x2 = w; x3 = x1; x4 = x2; top y1 = h; bot y2 = 0; y3 = y2; y4 = y1; draw z1{right}..{right}z2; draw z3{right}..{right}z4; endchar; def commonr= pickup elvishpen; save x,y,sweep; path sweep; lft x0 = leadgap; top y0 = h; lft x1 = 0; z0-z1 = whatever*(dir tilt); x2 = .75w; top y2=h; rt x3 = w; y3 = .5h; lft x4 = leadgap; y4 = -.65d; x5 = .5w; y5 = -d; x6 = .85w; z6-z5 = whatever*(dir tilt); sweep = (z2..z3{down}..z4{down}..z5{right}..z6); z7 = sweep intersectionpoint ((-infinity,0)--(infinity,0)); draw sweep; draw z1--z0..z7; enddef; beginchar("Y", shortwidth, Xht#, dep#); "The letter y"; begingroup; commonr; endgroup; endchar; beginchar("Z", shortwidth,Xht#,0); "The letter z"; pickup elvishpen; lft x1 = leadgap; rt x2 = w; x3 = x1; x4 = x2; top y1 = h; bot y2 = 0; y3 = y2; y4 = y1; draw z1--z4--z3--z2; endchar;