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
|
% sharpraytrace.mp
% L. Nobre G.
% IYP (2005)
%input featpost3Dplus2D;
f := (5,1.5,4.5);
Spread := 60;
PrintStep := 5;
numeric phi;
phi = 0.5*(1+sqrt(5));
V1 := ( 1, phi,0);
V2 := (-1, phi,0);
V3 := (-1,-phi,0);
V4 := ( 1,-phi,0);
V5 := (0, 1, phi);
V6 := (0,-1, phi);
V7 := (0,-1,-phi);
V8 := (0, 1,-phi);
V9 := ( phi,0, 1);
V10:= ( phi,0,-1);
V11:= (-phi,0,-1);
V12:= (-phi,0, 1);
makeface1(1,2,3,4);
makeface2(5,6,7,8);
makeface3(9,10,11,12);
beginfig(1);
pickup pencircle scaled 2pt;
% numeric asize;
% asize = 0.5*(phi+1);
% cartaxes(asize,asize,asize);
sharpraytrace;
endfig;
Spread := 120;
f:=3*(1,0.5,0.75);
PrintStep := 0.15;
numeric a, b, c, d, e;
a = 0.1;
b = 0.3;
c = 1.1;
d = 2.9;
e = 0.5;
V1 := ( a , b , c);
V2 := ( a-1, b , 0);
V3 := ( a-1-e, b-d,0);
V4 := (-b , a , c);
V5 := (-b , a-1, 0);
V6 := (-b+d,a-1-e, 0);
V7 := (-a , -b , c);
V8 := (-a+1,-b , 0);
V9 := (-a+1+e,-b+d,0);
V10:= ( b , -a , c);
V11:= ( b ,-a+1, 0);
V12:= (b-d,-a+1+e, 0);
makeface1(1,2,3);
makeface2(4,5,6);
makeface3(7,8,9);
makeface4(10,11,12);
beginfig(2);
pickup pencircle scaled 2pt;
sharpraytrace;
endfig;
Spread := 120;
f:=(3,5,-0.6);
PrintStep := 5;
numeric a, b, c, d;
a = 0.2;
b = 0.3;
c = 1.3;
d = 1.4;
V1 := ( b, 2.5*a, b);
V2 := ( b,-2.5*a, b);
V3 := (-c,-2.5*a,-3*b);
V4 := (-c, 2.5*a,-3*b);
V5 := (-b, 4*a, b);
V6 := (-b,-4*a, b);
V7 := ( c,-4*a,-3*b);
V8 := ( c, 4*a,-3*b);
V9 := ( d, 2*a,-b);
V10:= ( d,-2*a,-b);
V11:= (-d,-2*a,-b);
V12:= (-d, 2*a,-b);
makeface1(1,2,3,4);
makeface2(5,6,7,8);
makeface3(9,10,11,12);
beginfig(3);
pickup pencircle scaled 2pt;
sharpraytrace;
endfig;
end;
|
