diff options
Diffstat (limited to 'dviware/quicspool/wbfonts/titalms.mf')
-rw-r--r-- | dviware/quicspool/wbfonts/titalms.mf | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/dviware/quicspool/wbfonts/titalms.mf b/dviware/quicspool/wbfonts/titalms.mf new file mode 100644 index 0000000000..40b30afa9f --- /dev/null +++ b/dviware/quicspool/wbfonts/titalms.mf @@ -0,0 +1,40 @@ +% $Header: titalms.mf,v 1.1 88/01/15 13:12:49 simpson Rel $ +% $Log: titalms.mf,v $ +%Revision 1.1 88/01/15 13:12:49 simpson +%initial release +% +%Revision 0.1 87/12/11 19:01:33 simpson +%beta test +% +% This file contains miscellaneous symbols of math italic fonts. + +cmchar "Partial differential sign"; +beginchar(oct"171",10u#,asc_height#,0); +italcorr .7asc_height#*slant+.5curve#-1.5u#; +adjust_fit(0,0); +numeric top_thickness,bot_thickness,side_thickness,pull; +top_thickness=max(fine.breadth,vround(slab-2vair_corr)); +bot_thickness=max(fine.breadth,vround(slab-vair_corr)); +side_thickness=max(fine.breadth,hround 1/3[curve,cap_curve]); +pull=min(.25,1.5superpull); +pickup fine.nib; pos2(top_thickness,90); +pos3(side_thickness,0); pos4(bot_thickness,-90); +pos5(side_thickness,-180); pos6(vair,-270); +lft x5r=w-rt x3r=hround max(.75u,1.5u-.5side_thickness); +x4=x6+.1u=x2+u=.5w; +top y2r=h+o; y3=.5[y2,y4]; bot y4r=-o; +y5=.5[y4,y6]; top y6=vround 5/8h+o; +path p; p=pulled_super_arc.l(3,4)(pull); +numeric t; t=xpart(p intersectiontimes((x3r,y5)--(x4,y5))); +pos7(thin_join,0); z7l=point t of p; +(x,y6r)=whatever[z7l,z6l]; x6r:=max(x,.5[x5r,x6]); +filldraw stroke pulled_super_arc.e(2,3)(pull) + & {{interim superness:=more_super; pulled_super_arc.e(3,4)(pull)}} + & {{less_tense; pulled_super_arc.e(4,5)(pull) & pulled_super_arc.e(5,6)(pull)}} + & z6e{right}...{direction t of p}z7e; % arc and bowl +pos1(hair,180); pos0(flare,180); +lft x0r=min(lft x2-eps,hround 1.2u); +y0=vround min(.85h-.5flare,.8h+.5flare)+o; +{{less_tense; bulb(2,1,0)}}; % arc and bulb +math_fit(-.3x_height#*slant+.5curve#-u#,ic#-u#); +penlabels(0,1,2,3,4,5,6,7); endchar; |