summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/planpln5.mp
blob: c88ae9fd8654afbdddf94a8805f9bd9cb2a0a829 (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
% 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;