summaryrefslogtreecommitdiff
path: root/dviware/quicspool/wwfonts/titalms.mf
diff options
context:
space:
mode:
Diffstat (limited to 'dviware/quicspool/wwfonts/titalms.mf')
-rw-r--r--dviware/quicspool/wwfonts/titalms.mf40
1 files changed, 40 insertions, 0 deletions
diff --git a/dviware/quicspool/wwfonts/titalms.mf b/dviware/quicspool/wwfonts/titalms.mf
new file mode 100644
index 0000000000..c783512b95
--- /dev/null
+++ b/dviware/quicspool/wwfonts/titalms.mf
@@ -0,0 +1,40 @@
+% $Header: titalms.mf,v 1.1 88/01/15 13:14:59 simpson Rel $
+% $Log: titalms.mf,v $
+%Revision 1.1 88/01/15 13:14:59 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;