blob: b9674a2466e1307fc3b26b8de7e39864cc9925db (
plain)
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
|
% planescava.mp
% L. Nobre G.
% Y2K
% Test one figure at a time. The last and biggest planification is here.
input featpost3Dplus2D;
% verbatimtex \documentclass{article} \usepackage{beton} \usepackage{concmath} \usepackage{ccfonts} \begin{document} etex
% truefyepsmode;
beginfig(1); % plnescava
makearestarefathree;
pair px[]y[], startpos;
numeric aresta, i, j;
aresta = arestaref;
startpos = origin;
for i=0 upto 5:
for j=0 upto 6:
px[i]y[j] := startpos+aresta*(i*right+j*dir(60));
endfor;
endfor;
pickup grossa;
draw px5y2--px5y1--px4y1--px5y0--px3y0--px2y1--px2y2--px1y2--px0y3
--px0y6--px1y6--px2y5--px2y6--px4y6--px5y5;
pickup fina;
draw px0y6--px1y4--px3y3--px4y4--px3y6;
draw px0y3--px1y4--px3y3--px4y1--px3y0;
draw px2y2--px1y3;
draw px2y2--px2y3;
draw px2y2--px3y2;
draw px2y2--px3y1;
draw px2y5--px1y5;
draw px2y5--px2y4;
draw px2y5--px3y4;
draw px2y5--px3y5;
draw px5y2--px4y2;
draw px5y2--px4y3;
draw px5y2--px5y3;
draw px5y5--px4y5;
draw px4y4--((px5y3+px5y4)/2);
pickup usual;
draw px4y0--px4y6;
draw px3y0--px3y6;
draw px1y2--px1y6;
draw px2y1--px4y1--px0y5;
draw px0y3--px5y3--px2y6;
draw px0y4--px5y4--px3y6;
draw px0y6--px5y1;
draw currentpicture rotatedaround((px5y3+px5y4)/2,180);
desvec((px5y3+px5y4)/2);
terminar( 0.9, 60 );
endfig;
% verbatimtex \end{document} etex
end;
|