summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/nosimples.mp
blob: 84fb96093f7dd0d2b9c8d46252b8e31810ba04e3 (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
% nosimples.mp
% L. Nobre G.
% 2012

prologues := 1;

beginfig(1);
  numeric u, ray, side, i, pensize, ang, fac, mar;
  u = 2mm;
  ray = 2.9u;
  size = 10u;
  pensize = 0.45u;
  fac = 2.5;
  mar = 1.0;
  pickup pencircle scaled pensize;
  for i=1 upto 5:
    ang := i*72+18;
    z[i] = size*dir(ang);
  endfor;
  z6  = z1+ray*(dir(-36)+dir(54));
  z61 = z1+ray*(dir(-36)+dir(-18));
  z11 = z1+ray*(dir(216)+dir(126));
  z7  = z2+ray*(dir(216)+dir(126));
  z8  = z3+ray*(dir(216)+dir(198));
  z12 = z2+ray*(dir(216)+dir(198));
  z21 = z1+ray*(dir(216)+dir(198));
  z24 = z4+ray*(dir(216)+dir(198));
  z13 = z3+2*ray*down;
  z9  = z4+2*ray*down;
  z15 = z5+ray*(dir(-36)+dir(54));
  z10 = z5+ray*(dir(-36)+dir(-18));
  z14 = z4+ray*(dir(-36)+dir(-18));
  z63 = z3+ray*(dir(-36)+dir(-18));
  z16 = fac[z1,z2];
  z17 = (fac-mar)[z5,z3];
  z18 = (fac-mar)[z2,z4];
  z19 = fac[z1,z5];
  z35 = (z10--z14) intersectionpoint (z5--z19);
  z34 = (z13---z9..z14---z10) intersectionpoint (z4--z18);
  z33 = (z9---z13..z8---z12) intersectionpoint (z3--z17);
  z32 = (z2--z16) intersectionpoint (z8--z12);
  z31 = (z1--z2) intersectionpoint (z21--z24);
  z50 = (z21--z24) intersectionpoint (z3--z5);
  z55 = (z3--z5) intersectionpoint (z2--z4);
  z70 = (z61--z63) intersectionpoint (z2--z4);
  z75 = (z61--z63) intersectionpoint (z21--z24);
  draw z9---z13..z8---z12..z7;
  draw z55--z18--z19--z5;
  draw (z1{dir(144)}..z11..z21---z24..z9..{dir(54)}z14) cutafter (z2--z18);
  draw z35---z10..z15..z5---z50;
  draw z33..z17--z16--z32;
  draw z31---z1..z6--z15;
  draw z7--z11;
%  draw z1..z6..z61---z63..z13..z8;
  draw z70--z75;
%  dotlabels.top(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,55);
%  dotlabels.lft(21,24,31,32,33,34,35,50);
%  dotlabels.bot(61,63,70,75);
endfig;

end.