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
|
% rigorousfearpath.mp
% L. Nobre G.
% 2003
%input featpost3Dplus2D;
beginfig(1);
numeric sfr, radfac, ind;
color xv, yv, zv, Ve[];
path p[];
f := 2*(5,2,3);
Spread := 50;
csr := 0.47;
clr := 0.57;
xv := (csr,0,0);
yv := (0,csr,0);
zv := (0,0,csr);
Ve1 := (-1,-1,-1);
Ve2 := (-1,1,-1);
Ve3 := (1,-1,-1);
Ve4 := (1,1,-1);
Ve5 := (-1,-1,1);
Ve6 := (-1,1,1);
Ve7 := (1,-1,1);
Ve8 := (1,1,1);
Ve9 := (0,0,0);
for ind=1 upto 8:
p[ind] := rigorousfearpath( Ve[ind], csr );
endfor;
p9 := rigorousfearpath( Ve9, clr );
unfill p1;
draw p1;
draw rp(Ve1+yv)--rp(Ve2-yv);
draw rp(Ve1+xv)--rp(Ve3-xv);
unfill p2;
draw p2;
unfill p3;
draw p3;
draw rp(Ve4-yv)--rp(Ve3+yv);
draw rp(Ve4-xv)--rp(Ve2+xv);
unfill p4;
draw p4;
draw rp(Ve1+zv)--rp(Ve5-zv);
draw rp(Ve2+zv)--rp(Ve6-zv);
unfill p9;
draw p9;
draw rp(Ve3+zv)--rp(Ve7-zv);
draw rp(Ve4+zv)--rp(Ve8-zv);
unfill p5;
draw p5;
draw rp(Ve5+yv)--rp(Ve6-yv);
draw rp(Ve5+xv)--rp(Ve7-xv);
unfill p6;
draw p6;
unfill p7;
draw p7;
draw rp(Ve8-yv)--rp(Ve7+yv);
draw rp(Ve8-xv)--rp(Ve6+xv);
unfill p8;
draw p8;
endfig;
verbatimtex \end{document} etex
end;
|