%*****************************************************************************
% Copyright (c) 1989 by N. N. Billawala
%*****************************************************************************
% punctt.mf punctuation: for typewriter text set
% 8 characters
iff OK "-": "Minus sign";
beginchar(oct"055",.5width#+b_mono#,cap#,0);
pickup mathpen;
lft z1=(0,math_axis)//;
rt z2=lft z1+(w,0);
draw z1--z2;
adjust(v_a*fitbasis.uc#+m_a*b_mfit#,v_a*fitbasis.uc#+m_a*b_mfit#);
show_character; endchar;
% use different mathpen for softness
% character position, but not shape slants with obliqueness
% must make sure that the plus/minus have the same widths
iff OK "<": "Less than";
beginchar(oct"074",.4width#+b_mono#,cap#,0);
min_limit(join_radius)(.5mathlines);
lft z2r=lft z4r=(0,math_axis)//;
top z1r=(lft x2r+min(w,math_axis+.5h),math_axis+.4h);
bot z3r=(lft x2r+min(w,math_axis+.5h),math_axis-.4h);
multpos(1,2)(mathlines,angle(z1r-z2r)+90);
multpos(3,4)(mathlines,angle(z4r-z3r)+90);
z40=(z1l--z2l)intersectionpoint(z3l--z4l);
p1=(z40 soften(z3l,z3r,z2r,z1r,z1l) z40)--cycle;
showpoints(1,2,3,4,40);
adjust(v_F*fitbasis.uc#+m_a*b_mfit#,v_H*fitbasis.uc#+m_a*b_mfit#);
show_character; endchar;
iff OK ">": "Greater than";
beginchar(oct"076",.4width#+b_mono#,cap#,0);
min_limit(join_radius)(.5mathlines);
rt z2r=rt z4r=(min(w,math_axis+.5h),math_axis)//;
top z1r=(0,math_axis+.4h);
bot z3r=(0,math_axis-.4h);
multpos(1,2)(mathlines,angle(z1r-z2r)-90);
multpos(3,4)(mathlines,angle(z4r-z3r)-90);
z40=(z1l--z2l)intersectionpoint(z3l--z4l);
p1=(z40 soften(z3l,z3r,z2r,z1r,z1l) z40)--cycle;
showpoints(1,2,3,4,40);
adjust(v_H*fitbasis.uc#+m_a*b_mfit#,v_F*fitbasis.uc#+m_a*b_mfit#);
show_character; endchar;
% character position, but not shape slants with obliqueness
% maximum width=1.5 |math_axis|
iff OK "\": "Left leaning slash"; % need to add shift if w>.45h
beginchar(oct"134",.45width#+b_mono#,maxheight#,maxdepth#);
pickup mathpen rotated angle((0,h)//-(min(w,.5(h+d)),-d)//);
top lft z1=(0,h)//;
bot rt z2=(min(w,.5(h+d)),-d)//;
x1:=min(x1,x2-2);
draw z1--z2;
adjust(v_H*fitbasis.uc#+m_a*b_mfit#,v_H*fitbasis.uc#+m_a*b_mfit#);
show_character; endchar;
% use different mathpen for softness
% limits character to vertical line minus 2 pixels
iff OK "_": "Underscore";
beginchar(oct"137",.5width#+mono#,cap#,0);
pickup mathpen;
top lft z1=(0,0);
top rt z2=(w,0);
draw z1--z2;
adjust (0,0); show_character; endchar;
% use different mathpen for softness
% no slant of shape with obliqueness
% placement just below the baseline; meant for computer programs where the
% underscore often has the same token value as a letter
iff OK "{": "Left curly brace";
beginchar(oct"173",.4width#+b_mono#,maxheight#,maxdepth#);
save_num(width_limit)=min(w,.4(h+d));
z40=(width_limit,.5(h-d));
z41=(width_limit,h)rotatedaround(z40//,-oblique);
z42=(width_limit,-d)rotatedaround(z40//,-oblique);
pos0(max(1,.5thin_stem.uc),90-oblique);
pos1(max(1,.75thin_stem.uc),90-oblique);
multpos(2,4)(max(1,.75stem.uc),180-oblique);
pos3(max(1,.5stem.uc),180-oblique);
pos5(max(1,.75thin_stem.uc),-90-oblique);
pos6(max(1,.5thin_stem.uc),-90-oblique);
multpos(20,21)(2,90-oblique);
lft z2r=.25[z41,z42]+.7(.95width_limit,0)rotated(180-oblique);
lft z3r=.5[z41,z42] + (.95width_limit,0)rotated(180-oblique); z20=z3r;
rt z21 =.5[z41,z42] + ( width_limit,0)rotated(180-oblique);
lft z4r=.75[z41,z42]+.7(.95width_limit,0)rotated(180-oblique);
top z1r=(x41-.2width_limit,h);
bot z5r=(x42-.2width_limit,-d);
z0r=whatever[z41,z42]; bot y0l=bot y1l;
z6r=whatever[z41,z42]; top y6l=top y5l;
ref1=z3l{dir -oblique} i_t z4l{downward} i_t z5l{right}...z6l;
ref2=z6r...z5r{left} o_t z4r{upward} o_t z20l{-dir -oblique}--z21l--
z21r--z20r{dir -oblique} o_t z2r{upward} o_t z1r{right}...z0r;
ref3=z0l...z1l{left} i_t z2l{downward} i_t z3l+(0,epsilon){-dir -oblique};
if softpath:
p1=ref1 softjoin(z6l--z6r)softjoin ref2 softjoin(z0r--z0l)softjoin ref3
--cycle;
else:p1=ref1--ref2--ref3--cycle; fi
showpoints(0,1,2,3,4,5,6,20,21,40,41,42);
adjust(v_H*fitbasis.uc#+m_a*b_mfit#,v_H*fitbasis.uc#+m_a*b_mfit#);
show_character; endchar;
iff OK "}": "Right curly brace";
beginchar(oct"175",.4width#+b_mono#,maxheight#,maxdepth#);
save_num(width_limit)=min(.95w,.4(h+d));
z40=(0,.5(h-d));
z41=(0,h)rotatedaround(z40//,-oblique);
z42=(0,-d)rotatedaround(z40//,-oblique);;
pos0(max(1,.5thin_stem.uc),90-oblique);
pos1(max(1,.75thin_stem.uc),90-oblique);
multpos(2,4)(max(1,.75stem.uc),-oblique);
pos3(max(1,.5stem.uc),-oblique);
pos5(max(1,.75thin_stem.uc),-90-oblique);
pos6(max(1,.5thin_stem.uc),-90-oblique);
multpos(20,21)(2,90-oblique);
rt z2r=.25[z41,z42]+ .7(width_limit,0)rotated(-oblique);
rt z3r=.5[z41,z42] + (width_limit,0)rotated(-oblique); z20=z3r;
rt z21=.5[z41,z42] +(min(w,.4(h+d)),0)rotated(-oblique);
rt z4r=.75[z41,z42]+ .7(width_limit,0)rotated(-oblique);
top z1r=(x41+.2width_limit,h);
bot z5r=(x42+.2width_limit,-d);
z0r=whatever[z41,z42]; bot y0l=bot y1l;
z6r=whatever[z41,z42]; top y6l=top y5l;
ref1=z3l{-dir -oblique} i_t z4l{downward} i_t z5l{left}...z6l;
ref2=z6r...z5r{right} o_t z4r{upward} o_t z20l{dir -oblique}--z21l--
z21r--z20r{-dir -oblique} o_t z2r{upward} o_t z1r{left}...z0r;
ref3=z0l...z1l{right} i_t z2l{downward} i_t z3l+(0,epsilon){dir -oblique};
if softpath:
p1=ref1 softjoin(z6l--z6r)softjoin ref2 softjoin(z0r--z0l)softjoin ref3
--cycle;
else:p1=ref1--ref2--ref3--cycle; fi
showpoints(0,1,2,3,4,5,6,20,40,41,42);
adjust(v_H*fitbasis.uc#+m_a*b_mfit#, v_H*fitbasis.uc#+m_a*b_mfit#);
show_character; endchar;
iff OK "|": "Vertical bar"; % need to add shift if w>.45h
beginchar(oct"174",I_w*width#+a_mono#,maxheight#,maxdepth#);
pickup mathpen;
z0=(.5w,.5[-d,h])//;
top z1=(x0,h);
bot z2=(x0,-d);
draw z1--z2;
adjust(v_A*fitbasis.uc#+m_a*a_mfit#,v_A*fitbasis.uc#+m_a*a_mfit#);
show_character; endchar;
% use different mathpen for softness
% always vertical; no slant but shifts position with obliqueness
|
