diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-09 23:38:21 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-09 23:38:21 +0000 |
commit | 215012a8d684889983ec2c0629e1c704e6853d9c (patch) | |
tree | ebf1271bd71869069824935ae8a5678745bf8bce /Master/texmf-dist/fonts/source/public/wnri/sktmisc.mf | |
parent | 1af3d19d6dbcbf309667d9cb4aa3cdda914914a9 (diff) |
trunk/Master/texmf-dist/fonts/source
git-svn-id: svn://tug.org/texlive/trunk@101 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/wnri/sktmisc.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/wnri/sktmisc.mf | 72 |
1 files changed, 72 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/wnri/sktmisc.mf b/Master/texmf-dist/fonts/source/public/wnri/sktmisc.mf new file mode 100644 index 00000000000..2e195a25de9 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/wnri/sktmisc.mf @@ -0,0 +1,72 @@ +% +% Washington Romanized Indic miscellaneous characters +% +% File : sktmisc.mf +% Author : Thomas Ridgeway <ridgeway@u.washington.edu> +% Date : May 19 1992 +% +% Copyright 1992 Humanities and Arts Computing Center, University of +% Washington. Licensed to the public according to the terms of the +% Free Software Foundation General Public License. +% +% WNRI is based on Computer Modern Italic and encoded according to +% the Classical Sanskrit/Classical Sanskrit eXtended character set. +% See wnindic.map for more details. +% +% Contains programs to produce the characters "es-zet" and "rootsign". +% + +% cmchar "German letter es-zet (sharp s)"; +newchar(eszett,4.5u#+max(4.5u#,.5stem#+flare#+curve#),asc_height#,0); +italcorr asc_height#*slant-u#; +adjust_fit(serif_fit#,0); +pickup tiny.nib; pos1(stem',0); pos2(stem',0); +lft x1l=lft x2l=hround(2.5u-.5stem'); bot y1=0; y2=y4=.5[x_height,y3]; +penpos3(vair-fine,90); fine.top y3r=h+oo; +filldraw stroke z1e--z2e; % stem +numeric stem_edge,curve'; stem_edge=rt x1r; curve'=hround .5[stem',curve]; +pickup fine.nib; pos4(curve',0); pos5(vair,-90); +pos2'(stem',180); z2'=z2; x3=.5[x2,x4]; rt x4r=hround(w-u); +top y5l=x_height; lft x5=min(lft x4l,hround(stem_edge+u)); +filldraw stroke pulled_super_arc.e(2',3)(.5superpull) + & pulled_super_arc.e(3,4)(.5superpull) + & pulled_super_arc.e(4,5)(.5superpull); % upper bowl +pos5'(vair,90); z5'=z5; pos6(curve',0); pos7(vair,-90); +rt x6r=hround(w-.5u)+3eps; y6=.4x_height; bot y7r=-oo; +if serifs: pos8(hair,-180) else: pos8(vair,-110) fi; +lft x8r=min(hround(stem_edge+.5u+1),lft x8r+x6r-2eps-x8l); +x7=max(x8l+eps,.4[lft x8r,x6]); +filldraw stroke pulled_super_arc.e(5',6)(.5superpull) + & pulled_super_arc.e(6,7)(.5superpull); % lower bowl +if serifs: pos9(5/7[vair,flare],-180); + y9-(x9-lft x9r)=vround .07x_height; bulb(7,8,9); % bulb + penpos0(stem'-tiny,0); x0=x1; tiny.top y0=x_height; + serif(0,1,a,0,-jut); % bar + dish_serif(1,2,b,1/3,jut,c,0,epsilon); % serif +else: bot y8r=vround .01h; x8l:=good.x x8l; y8l:=good.y(y8l+.5); + filldraw stroke term.e(7,8,left,1,4); fi % terminal +penlabels(0,1,2,3,4,5,6,7,8,9); endchar; + +% cmchar "Root sign"; +newchar(rootsign,8.5u#,body_height#,paren_depth#-rule_thickness#); + adjust_fit(0,-letter_fit#); pickup rule.nib; + w':=7u; + x1=good.x 1/9w'; x2=good.x .65w'; bot y1=-.5d; bot y2=asc_height; + draw z1--z2; % diagonal + pickup crisp.nib; pos3(if monospace: else: .7 fi max(curve,rule_thickness),0); + x3l=1.5[x2,x1]; y3=.5[y1,y2]; + pos4(rule_thickness,0); x4=x1; bot y4=-.5d; + pos5(vair,-45); x5l=good.x(x3l-u); z5l=whatever[z3r,z2]; + z6=z5r+whatever*(z2-z3r)=whatever[z3l,z4l]; + z7=whatever[z1,z2]=z3r+whatever*(z4l-z3l); + filldraw z5r--z6--z4l--z4--z7--z3r--z5l--cycle; % left diagonal and serif +x8=x2+2u; y8=y2; +pickup rule.nib; +draw z2--z8; +picture V; transform t; t=identity shifted(2.5u,0); +V=currentpicture transformed t; currentpicture:=V; +% penlabels(1,2,3,4,5,6,7,8); +endchar; + +% end of file sktmisc.mf + |