% $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;