summaryrefslogtreecommitdiff
path: root/obsolete/fonts/wasy/lasychr.mf
diff options
context:
space:
mode:
Diffstat (limited to 'obsolete/fonts/wasy/lasychr.mf')
-rw-r--r--obsolete/fonts/wasy/lasychr.mf228
1 files changed, 0 insertions, 228 deletions
diff --git a/obsolete/fonts/wasy/lasychr.mf b/obsolete/fonts/wasy/lasychr.mf
deleted file mode 100644
index f68c97ee76..0000000000
--- a/obsolete/fonts/wasy/lasychr.mf
+++ /dev/null
@@ -1,228 +0,0 @@
-cmchar "Square subset sign";
-compute_spread(5/4x_height#,3/2x_height#); % the spread of `$=$'
-beginchar(hex"3C",14u#,v_center(spread#+rule_thickness#));
-adjust_fit(0,0); pickup rule.nib;
-lft x2=hround(1.5u+oo); x1=x4=hround(w-1.5u)+eps; x3=x2;
-y1-y4=spread; y2=y1; y3=y4; y1=math_axis+.5spread;
-draw z1--z2--z3--z4; % bars and stem
-labels(1,2,3,4); endchar;
-
-% This character is an alteration of the square subset or equal to sign
-% Changes:
-% 1) changed position of y1 to be .5 of the spread above the math_axis
-% 2) got rid of lower bar (points z8/z9,etc) and the extra spread#' amount
-% which was used in calculations for the lower bar
-% 3) name and code number and height changed, otherwise essentially the same
-
-cmchar "Square superset sign";
-compute_spread(5/4x_height#,3/2x_height#); % the spread of `$=$'
-beginchar(hex"3D",14u#,v_center(spread#+rule_thickness#));
-adjust_fit(0,0); pickup rule.nib;
-x1=x4=hround 1.5u-eps; rt x2=hround(w-1.5u-oo); x3=x2;
-y1-y4=spread; y2=y1; y3=y4; y1=math_axis+.5spread;
-draw z1--z2--z3--z4; % bars and stem
-labels(1,2,3,4); endchar;
-
-% This character is an alteration of the square superset or equal to sign
-% Changes:
-% 1) changed position of y1 to be .5 of the spread above the math_axis
-% 2) got rid of lower bar (points z8/z9,etc) and the extra spread#' amount
-% which was used in calculations for the lower bar
-% 3) name and code number and height changed, otherwise essentially the same
-
-cmchar "Diamond";
-%beginchar(oct"063",2(.85asc_height#-math_axis#)+2u#,v_center(7u#));
-beginchar(hex"33",2(.85asc_height#-math_axis#)+2u#,
- v_center(2(.85asc_height#-math_axis#)));
-italcorr math_axis#*slant;
-adjust_fit(0,0); pickup rule.nib;
-numeric a; a=.85asc_height-math_axis;
-x4=x8=good.x .5w; w:=r:=2x4; rt x2=w-lft x6=good.x(x4+a);
-y2=y6=.5[y4,y8]=.5cap_height; top y8=good.y(y2+a);
-draw z2--z4--z6--z8--cycle;
-labels(2,4,6,8); endchar;
-
-% This character is an alteration of the diamond operator
-% The four tips are equidistant from the center point (.5w,math_axis),
-% this distance being half of the cap height
-% and related to that in the square character
-% slightly less though, since it looks too big if the actually have same
-% length
-% Changes:
-% 1) To the amount a, which gives the distance of the tips from the center
-% 2) The width is related to the asc_height, so it changes with it
-% 3) name and code number and width changed, otherwise essentially the same
-% The numbers stay the same, for any referencing
-
-cmchar "Bowtie operator";
-beginchar(hex"31",13u#,v_center(7u#));
-italcorr math_axis#*slant;
-adjust_fit(0,0); pickup rule.nib;
-numeric a; a=round(1.1*math_axis);
-x1=x4=good.x 1.5u; x2=x3=w-x1;
-y1=y2=good.y(.5(cap_height-2a)); y3=y4=y1+2a;
-draw z1--z3--z2--z4--cycle;
-labels(1,2,3,4); endchar;
-
-% Arbitrary width given
-% Length of the bars at the edges are 2.2*math_axis length
-% and it's vertically aligned on the high, i.e., .5 cap height as opposed
-% to being aligned on the math axis
-
-
-
-
-cmchar "Leads to character extension";
-compute_spread(.45x_height#,.55x_height#);
-beginchar(hex"3A",12u#,v_center(spread#+rule_thickness#));
-adjust_fit(0,0); pickup rule.nib;
-numeric a; a=round(.45math_axis);
-y11=y13=y15=math_axis; y12-a=y14+a=good.y math_axis;
-x11=0; x15=w; x13=.5[x11,x15]; x12=.5[x11,x13]; x14=.5[x13,x15];
-path p; p=z12{right}...z13...z14{right};
-draw z11{dir(-angle direction 1 of p)}...z12{right}...z13...
- z14{right}...z15{dir(-angle direction 1 of p)};
-penlabels(11,12,13,14,15); endchar;
-
-% This character is an extension to fit with the Leads to character with
-% arrowhead
-% This character goes from edge to edge and a series of these can be linked
-% as desired.
-% It has 2/3 the width of that character, and if this relation is kept, the
-% the curves should all match
-
-
-
-cmchar "Leads to character with arrowhead";
-compute_spread(.45x_height#,.55x_height#);
-beginchar(hex"3B",18u#,v_center(spread#+rule_thickness#));
-adjust_fit(0,0); pickup crisp.nib;
-pos3(bar,0); pos4(bar,0);
-y0=math_axis; rt x0=hround(w-u);
-y3-y0=y0-y4=.24asc_height+eps; x3=x4=x0-3u-eps;
-pos5(bar,angle(z4-z0)); z5l=z0; pos6(bar,angle(z3-z0)); z6l=z0;
-z9=.381966[.5[z3,z4],z0];
-numeric t[]; path p[];
-(t1,t2)=(z4l{z9-z4}..z6r) intersectiontimes (z3l{z9-z3}..z5r);
-z10=(z4l{z9-z4}..z6r) intersectionpoint (z3l{z9-z3}..z5r);
-filldraw z0..{z4-z9}z4r--subpath (0,t1) of (z4l{z9-z4}..z6r)
- --z10--subpath (t2,0) of (z3l{z9-z3}..z5r)--z3r{z9-z3}..z0 & cycle;
- % arrowhead
-pickup rule.nib;
-numeric a; a=round(.45math_axis);
-y11=y13=y15=y16=y0; y12-a=y14+a=good.y math_axis;
-%x11=0; x15=2/3w; z17=lft z10;
-%x13=.5[x11,x15]; x12=.5[x11,x13]; x14=.5[x13,x15]; x16=.3[x15,x0];
-x11=0; x15=0.7w; z17=lft z10;
-x13=.5[x11,x15]; x12=.5[x11,x13]; x14=.5[x13,x15]; x16=.5[x15,x0];
-path p; p=z12{right}...z13...z14{right};
-draw z11{dir(-angle direction 1 of p)}...
- z12{right}...z13...z14{right}...z16{right}...z17;
-penlabels(0,3,4,5,6,9,10,11,12,13,14,15,16); endchar;
-
-% This character uses the rightward arrow arrowhead
-% The width is the same as that of the regular arrow
-% An extension character can be added for longer squiggles
-
-
-cmchar "LASY \lhd triangle";
-compute_spread(5/4x_height#,3/2x_height#);
-beginchar(44,14u#,v_center(spread#+rule_thickness#));
-italcorr h#*slant-u#;
-adjust_fit(0,0); pickup rule.nib;
-lft x2=hround 1.5u-eps; x1=x3=w-x2;
-y1-y3=spread; y2=.5[y1,y3]=math_axis;
-draw z1--z2--z3--cycle; % triangle
-labels(1,2,3); endchar;
-
-% taken directly from CMR "less than" character
-% the path was closed to make a triangle
-
-cmchar "black LASY \lhd triangle";
-compute_spread(5/4x_height#,3/2x_height#);
-beginchar(16,14u#,v_center(spread#+rule_thickness#));
-italcorr h#*slant-u#;
-adjust_fit(0,0); pickup crisp.nib;
-lft x2=hround 1.5u-eps; x1=x3=w-x2;
-y1-y3=spread; y2=.5[y1,y3]=math_axis;
-filldraw z1--z2--z3--cycle; % triangle
-labels(1,2,3); endchar;
-
-
-cmchar "LASY \unlhd triangle";
-compute_spread(.45x_height#,.55x_height#);
-spread#':=spread#; spread':=spread; % the spread of `$=$'
-compute_spread(5/4x_height#,3/2x_height#);
-beginchar(45,14u#,v_center(spread#'+spread#+rule_thickness#));
-italcorr h#*slant-u#;
-adjust_fit(0,0); pickup rule.nib;
-lft x2=hround 1.5u-eps; x1=x3=w-x2;
-y1-y3=spread; y2=.5[y1,y3]; top y1=h;
-draw z1--z2--z3--cycle; % triangle
-x8=x1; x9=x2; y8=y9; y3-y9=spread'; draw z8--z9; % bar
-labels(1,2,3,8,9); endchar;
-
-% taken directly from CMR "less than or equal to sign"
-% the "less than" path was closed to make a triangle
-
-
-
-cmchar "LASY \rhd triangle";
-compute_spread(5/4x_height#,3/2x_height#);
-beginchar(46,14u#,v_center(spread#+rule_thickness#));
-italcorr math_axis#*slant-u#;
-adjust_fit(0,0); pickup rule.nib;
-rt x2=hround(w-1.5u)+eps; x1=x3=w-x2;
-y1-y3=spread; y2=.5[y1,y3]=math_axis;
-draw z1--z2--z3--cycle; % triangle
-labels(1,2,3); endchar;
-
-% taken directly from CMR "greater than" character
-% the path was closed to make a triangle
-
-cmchar "black LASY \rhd triangle";
-compute_spread(5/4x_height#,3/2x_height#);
-beginchar(17,14u#,v_center(spread#+rule_thickness#));
-italcorr math_axis#*slant-u#;
-adjust_fit(0,0); pickup crisp.nib;
-rt x2=hround(w-1.5u)+eps; x1=x3=w-x2;
-y1-y3=spread; y2=.5[y1,y3]=math_axis;
-filldraw z1--z2--z3--cycle; % triangle
-labels(1,2,3); endchar;
-
-cmchar "LASY \unrhd triangle";
-compute_spread(.45x_height#,.55x_height#);
-spread#':=spread#; spread':=spread; % the spread of `$=$'
-compute_spread(5/4x_height#,3/2x_height#);
-beginchar(47,14u#,v_center(spread#'+spread#+rule_thickness#));
-italcorr h#*slant-u#;
-adjust_fit(0,0); pickup rule.nib;
-lft x1=hround 1.5u-eps; x2=w-x1; x3=x1;
-y1-y3=spread; y2=.5[y1,y3]; top y1=h;
-draw z1--z2--z3--cycle; % triangle
-x8=x1; x9=x2; y8=y9; y3-y9=spread'; draw z8--z9; % bar
-labels(1,2,3,8,9); endchar;
-
-% taken directly from CMR "greater than or equal to sign"
-% the "greater than" path was closed to make a triangle
-
-cmchar "upwards pointing black triangle";
-compute_spread(5/4x_height#,3/2x_height#);
-beginchar(hex"4B",spread#+rule_thickness#,v_center(11u#));
-italcorr 0;
-adjust_fit(0,0); pickup crisp.nib;
-top y2= h+eps; y1=y3; y2-y1 = vround (h+d);
-x1-x3=spread; x2=.5[x1,x3]=good.x .5w;
-filldraw z1--z2--z3--cycle; % triangle
-labels(1,2,3); endchar;
-
-cmchar "downwards pointing black triangle";
-compute_spread(5/4x_height#,3/2x_height#);
-beginchar(hex"4C",spread#+rule_thickness#,v_center(11u#));
-italcorr 0;
-adjust_fit(0,0); pickup crisp.nib;
-bot y2= (-d)-eps; y1=y3; y1-y2 = vround (h+d);
-x1-x3=spread; x2=.5[x1,x3]=good.x .5w;
-filldraw z1--z2--z3--cycle; % triangle
-labels(1,2,3); endchar;
-