1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
%
% fig2dev -L (m)mp version 0.03 --- Preamble
%
% Make arrowheads mitered by default
% NOTE: subject to change (edited from plain.mp)
def forwarr(text t) expr p =
_apth:=p;_finarrf(t)
enddef;
def backarr(text t) expr p =
_apth:=p;_finarrb(t)
enddef;
def _finarrf(text s) text t =
if (s=0):fill arrowhead _apth t withcolor white
else: fill arrowhead _apth t fi;
linejoin:=0;
draw arrowhead _apth t
enddef;
def _finarrb(text s) text t =
if (s=0):fill arrowhead reverse _apth t withcolor white
else: fill arrowhead reverse _apth t fi;
linejoin:=0;
draw arrowhead reverse _apth t
enddef;
path allbounds;
allbounds = (39.78,725.22)--(278.82,725.22)--(278.82,564.12)--(39.78,564.12)--cycle;
% Some reasonable defaults
ahlength:=7;
ahangle:=30;
labeloffset:=0;
truecorners:=0;
bboxmargin:=0;
% Now draw objects of depth: 50
beginfig(0)
% Begin text object
picture p;
verbatimtex
\font\cmrAA=cmr10 at 10.80pt
\font\tenrm=cmr10 at 10.80pt \font\sevenrm=cmr7 at 7.56pt
\font\fiverm=cmr5 at 5.40pt \font\teni=cmmi10 at 10.80pt
\font\seveni=cmmi7 at 7.56pt \font\fivei=cmmi5 at 5.40pt
\font\tensy=cmsy10 at 10.80pt \font\sevensy=cmsy7 at 7.56pt
\font\fivesy=cmsy5 at 5.40pt \textfont0\tenrm
\scriptfont0\sevenrm \scriptscriptfont0\fiverm
\textfont1\teni \scriptfont1\seveni \scriptscriptfont1\fivei
\textfont2\tensy \scriptfont2\sevensy \scriptscriptfont2\fivesy
etex;
p = btex \cmrAA begin test etex
rotated 0.00;
label.urt(p,(67.50,638.10)) withcolor (0.00,0.00,0.00);
% End text object
setbounds currentpicture to allbounds;
endfig;
% Now draw objects of depth: 48
beginfig(1)
% Begin polyline object
linecap:=0;
linejoin:=0;
pickup pencircle scaled 0.90;
path p;
p = (45.90, 678.60)
--(213.30, 678.60)
--(213.30, 589.50)
--(45.90, 589.50)
--(45.90, 678.60)--cycle;
draw p withcolor (0.00,0.00,0.00);
% End polyline object
setbounds currentpicture to allbounds;
endfig;
% Now draw objects of depth: 46
beginfig(2)
% Begin ellipse object
pickup pencircle scaled 0.90;
path c;
c = fullcircle scaled 49.80 yscaled 1.00
rotated 0.00 shifted (213.30,589.50);
fill c withcolor ((0.00,0.00,1.00) + 0.00white);
draw c withcolor (0.00,0.00,1.00);
% End ellipse object
setbounds currentpicture to allbounds;
endfig;
% Now draw objects of depth: 44
beginfig(3)
% Begin polyline object
linecap:=0;
linejoin:=1;
pickup pencircle scaled 0.90;
path p,pb,sw,nw,ne,se;
pair ll,ul,ur,lr;
p = (278.10,581.40)--(40.50,724.50);
ur = urcorner p; ll = llcorner p;
ul = ulcorner p; lr = lrcorner p;
sw = fullcircle scaled 12.60 shifted (ll+(6.30,6.30));
nw = fullcircle scaled 12.60 shifted (ul+(6.30,-6.30));
ne = fullcircle rotated 180 scaled 12.60 shifted (ur+(-6.30,-6.30));
se = fullcircle rotated 180 scaled 12.60 shifted (lr+(-6.30,6.30));
pb = buildcycle(sw,ll--ul,nw,ul--ur,ne,ur--lr,se,lr--ll);
draw pb withcolor (0.00,0.00,0.00);
% End polyline object
setbounds currentpicture to allbounds;
endfig;
% Now draw objects of depth: 42
beginfig(4)
% Begin text object
picture p;
verbatimtex
\font\cmrAB=cmr10 at 10.80pt
\font\tenrm=cmr10 at 10.80pt \font\sevenrm=cmr7 at 7.56pt
\font\fiverm=cmr5 at 5.40pt \font\teni=cmmi10 at 10.80pt
\font\seveni=cmmi7 at 7.56pt \font\fivei=cmmi5 at 5.40pt
\font\tensy=cmsy10 at 10.80pt \font\sevensy=cmsy7 at 7.56pt
\font\fivesy=cmsy5 at 5.40pt \textfont0\tenrm
\scriptfont0\sevenrm \scriptscriptfont0\fiverm
\textfont1\teni \scriptfont1\seveni \scriptscriptfont1\fivei
\textfont2\tensy \scriptfont2\sevensy \scriptscriptfont2\fivesy
etex;
p = btex \cmrAB end test etex
rotated 90.00;
label.urt(p,(240.30,646.20)) withcolor (0.00,0.00,0.00);
% End text object
setbounds currentpicture to allbounds;
endfig;
end
|
