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
|
% closingbox.mp
% L. Nobre G.
% 2006
input featpost3Dplus2D;
beginfig(1);
f := 1.5*(5,-6,2);
Spread := 80;
numeric ang;
color auxa, auxb, auxc, auxd;
ang = 48;
V1 := (-1,1,0);
V3 := (-1,-1,0);
V2 := (-3,1,0);
V2 := V1 + rotvecaroundanother( ang, V2-V1, V1-V3 );
V4 := (-3,-1,0);
V4 := V3 + rotvecaroundanother( ang, V4-V3, V1-V3 );
V6 := (-1,-3,0);
V6 := V3 + rotvecaroundanother( ang, V6-V3, V4-V3 );
V7 := V4 + V3 - V1;
V7 := V4 + rotvecaroundanother( ang, V7-V4, V4-V3 );
auxa = N( V4-V3 );
V5 := V4 + auxa;
V5 := V4 + rotvecaroundanother( ang, auxa, V4-V7 );
auxb = N( V7-V6 );
V8 := V7 + auxb;
V8 := V7 + rotvecaroundanother( ang, auxb, V4-V7 );
V11:= (1,-1,0);
V13:= (1,1,0);
V12 := (3,-1,0);
V12 := V11 + rotvecaroundanother( ang, V12-V11, V11-V13 );
V14 := (3,1,0);
V14 := V13 + rotvecaroundanother( ang, V14-V13, V11-V13 );
V16 := (1,3,0);
V16 := V13 + rotvecaroundanother( ang, V16-V13, V14-V13 );
V17 := V14 + V13 - V11;
V17 := V14 + rotvecaroundanother( ang, V17-V14, V14-V13 );
auxc = N( V14-V13 );
V15 := V14 + auxc;
V15 := V14 + rotvecaroundanother( ang, auxc, V14-V17 );
auxd = N( V17-V16 );
V18 := V17 + auxd;
V18 := V17 + rotvecaroundanother( ang, auxd, V14-V17 );
makeface1(1,3,11,13);
makeface2(1,2,4,3);
makeface3(3,4,7,6);
makeface4(4,5,8,7);
makeface5(11,12,14,13);
makeface6(13,14,17,16);
makeface7(14,15,18,17);
draw_invisible( false, false, TableC3, black );
endfig;
end.
|