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
|
% planplnfive.mp
% L. Nobre G.
% 2011
input featpost3Dplus2D;
% Only planifications
% truefyepsmode; prologues:=1;
% filenametemplate "%j%3c.ps";
beginfig(1);
numeric u, aux;
u = defaultaresta;
aux = u*0.5*sqrt(2);
z0 = (-aux,0);
z1 = (aux,0);
z8 = radialcross( z0, u, z1, u, true);
z6 = radialcross( z0, u, z8, u, true);
z2 = radialcross( z0, u, z6, u, false);
z4 = radialcross( z2, u, z6, u, true);
z9 = radialcross( z1, u, z8, u, true);
z3 = radialcross( z1, u, z9, u*sqrt(2), false);
z7 = radialcross( z3, u, z9, u, true);
z5 = radialcross( z3, u, z7, u, false);
z10 = radialcross( z6, u, z8, u, true);
z11 = radialcross( z9, u, z7, u, true);
z12 = radialcross( z9, u, z10, u, true);
z13 = radialcross( z7, u, z11, u, true);
z14 = radialcross( z10, u, z12, u, true);
z15 = radialcross( z11, u, z12, u, true);
z16 = radialcross( z14, u, z15, u, true);
% labels.top(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
pickup grossa;
draw z2--z4--z6--z10--z14--z16--z15--z11--z13--z7--z5--z3;
pickup usual;
draw z0--z2--z6--z0--z8--z1--z3--z7--z9--z1;
draw z6--z8--z10--z12--z14;
draw z8--z9--z11--z7;
draw z11--z12;
draw z9--z12--z15;
picture tile;
tile = currentpicture;
draw tile rotated 180;
terminar( 1.5, 45 );
endfig;
end;
|