% 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 @(#)telcor.mf 1.1 10/1/86 def Telco (expr posn, stemtop, stembottom) = begingroup; save x,y,stem; path stem; y0 = stemtop*h; lft x0 = posn; y1 = h; z1-z0=whatever*dir(seriftilt); x3 = x0; y3 = -stembottom*d; y4 = -d; z3-z4=whatever*dir(180-seriftilt); stem = z1..tension 3.0..z0{down}..z3{down}..z4; draw stem; bowpoint := stem intersectionpoint ((-infinity,Bowstart)--(infinity, Bowstart)); barpoint := stem intersectionpoint ((-infinity,0)--(infinity, 0)); penlabels(0,1,2,3,4); endgroup; enddef; def Nutelco (expr posn, stemtop, stembottom) = begingroup; save x,y,stem; path stem; y0 = stemtop*h; rt x0 = posn; y1 = h; z1-z0=whatever*dir(seriftilt); x3 = x0; y3 = -stembottom*d; y4 = -d; z3-z4=whatever*dir(seriftilt); stem = z1..tension 3.0..z0{down}..z3--z4; draw stem; bowpoint := stem intersectionpoint ((-infinity, Xht-Bowstart)--(infinity, Xht-Bowstart)); if y0 > Xht : barpoint := stem intersectionpoint ((-infinity, Xht)--(infinity, Xht)); else : barpoint := z0; fi ; penlabels(0,1,3,4); endgroup; enddef;