diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/tengwar/numerals.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/tengwar/numerals.mf | 197 |
1 files changed, 0 insertions, 197 deletions
diff --git a/Master/texmf-dist/fonts/source/public/tengwar/numerals.mf b/Master/texmf-dist/fonts/source/public/tengwar/numerals.mf deleted file mode 100644 index fbd4992b2ee..00000000000 --- a/Master/texmf-dist/fonts/source/public/tengwar/numerals.mf +++ /dev/null @@ -1,197 +0,0 @@ -% Copyright 1988 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 @(#)numerals.mf 1.1 10/1/86 - -def firstbow(expr start,finish,looped) = - begingroup; - save x,y,t; - x0 = start; top y0=xht; - x1 = x0; bot y1=0; - x2=finish; bot y2=0; - if looped: - t=1.0; - else: - t=1.0; - fi; - draw z0{down}..z1..tension t..z2; - bowpoint:=z1; - penlabels (0,1,2); - endgroup; -enddef; - -def secondstem(expr start, finishpoint) = - begingroup; - save x,y, stem; - path stem; - z0=(start, h); - z1 = z0 + serifthick*left; - z2 = z0 + serifthick*right; - z3= (start, 0); - x4 = 1/2[x3, (xpart finishpoint)]; y4 = -d; - draw z1--z0;%--z2; - stem = ( z0..z3{down}..z4..tension 1.2..finishpoint); - draw stem; - top y5 = xht; - barpoint := stem intersectionpoint - ((-infinity,y5)--(infinity, y5)); - penlabels (0,1,2,3,4); - - endgroup; -enddef; - - -def thirdstem(expr start)= - begingroup; - save x,y,stem; - path stem; - z0=(start, h); - z1 = z0 + serifthick*left; - z2 = z0 + serifthick*right; - z3= (start, 0); - x4 = .5[0,start]; y4 = -d; - x5=0; y5 = 1/2 (-d); - draw z1--z0;%--z2; - stem = ( z0..z3{down}..z4..z5); - draw stem; - bowpoint := stem intersectionpoint - ((-infinity,bowstart)--(infinity, bowstart)); - barpoint := stem intersectionpoint - ((-infinity,0)--(infinity, 0)); - penlabels (0,1,2,3,4,5); - endgroup; -enddef; - - -beginchar ("0", shortwidth, xht#, 1/2dep#); "The numeral 0"; - begingroup; - save x,y; - pickup elvishpen; - lft x1=leadgap; y1=.5h; - x2 = 1/2[x1,w]; top y2=h; - rt x3=w; y3=0; - x4=leadgap; y4=-d; - draw z1..z2{right}..z3{down}..z4; - endgroup; -endchar; - -beginchar ("1", shortwidth, xht#, 0); "The numeral 1"; - begingroup; - save x, y; - pickup elvishpen; - - firstbow(leadgap, w-thick, true); - top y10=h; - barpoint:=(w,y10); - overbar; - endgroup; -endchar; - -beginchar ("2", .75em#, xht#, 0); "The numeral 2"; - begingroup; - save x, y; - pickup elvishpen; - - firstbow (1/2[leadgap,w], w-thick, true); - firstbow (leadgap, xpart bowpoint, false); - top y10=h; - barpoint:=(w,y10); - overbar; - endgroup; -endchar; - -beginchar ("3", 1em#, xht#, 0); "The numeral 3"; - begingroup; - save x, y; - pickup elvishpen; - - firstbow (2/3[leadgap,w], w-thick, true); - firstbow (1/3[leadgap,w], xpart bowpoint, false); - firstbow (leadgap, xpart bowpoint, false); - top y10=h; - barpoint:=(w,y10); - overbar; - endgroup; -endchar; - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -beginchar ("4", shortwidth, 3/4[xht#,cap#], 3/4xht#); "The numeral 4"; - begingroup; - save x, y; - pickup elvishpen; - - rt x0 = w; y0 = -d/3; - secondstem (leadgap, z0); - endgroup; -endchar; - -beginchar ("5", .75em#, 3/4[xht#, cap#], 3/4xht#); "The numeral 5"; - begingroup; - save x, y; - pickup elvishpen; - - firstbow (1/2[leadgap,w], w-thick, true); - secondstem (leadgap, bowpoint); - top y10=xht; - draw barpoint--(w,y10); - endgroup; -endchar; - -beginchar ("6", 1em#, 3/4[xht#, cap#], 3/4xht#); "The numeral 6"; - begingroup; - save x, y; - pickup elvishpen; - - firstbow (2/3[leadgap,w], w-thick, true); - firstbow (1/3[leadgap,w], xpart bowpoint, false); - secondstem (leadgap, bowpoint); - top y10=xht; - draw barpoint--(w,y10); - endgroup; -endchar; -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -thirdwidth := 2.5*leadgap; - -beginchar ("7", 3*leadgap#, 3/4[xht#, cap#], 3/4xht#); "The numeral 7"; - begingroup; - save x, y; - pickup elvishpen; - - thirdstem (thirdwidth); - endgroup; -endchar; - - -beginchar ("8", .75em#, 3/4[xht#, cap#], 3/4xht#); "The numeral 8"; - begingroup; - save x, y; - pickup elvishpen; - - thirdstem (thirdwidth); - luva (bowpoint, w, false); - underbar; - endgroup; -endchar; - - -beginchar ("9", 1em#, 3/4[xht#, cap#], 3/4xht#); "The numeral 9"; - begingroup; - save x, y; - pickup elvishpen; - - thirdstem (thirdwidth); - luva (bowpoint, 1/2[thirdwidth,w], false); - luva (bowpoint, w, false); - underbar; - endgroup; -endchar; - - - |