summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/planescava.mp
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;