diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/engwar/telcap.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/engwar/telcap.mf | 52 |
1 files changed, 0 insertions, 52 deletions
diff --git a/Master/texmf-dist/fonts/source/public/engwar/telcap.mf b/Master/texmf-dist/fonts/source/public/engwar/telcap.mf deleted file mode 100644 index 6bd729fb899..00000000000 --- a/Master/texmf-dist/fonts/source/public/engwar/telcap.mf +++ /dev/null @@ -1,52 +0,0 @@ -% 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; - |