summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/cruztuga.mp
blob: 2cf8513d4ede55258b04fd8f1b2dab345f6d4474 (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
% cruztuga.mp
% L. Nobre G.
% 2007

prologues := 1;

beginfig(1);
  numeric u, da, db;
  u = 1cm;
  da = 1-1/sqrt(2);
  db = 3/sqrt(2)-2;
  z1 = u*(1.5,0.5);
  z2 = u*(1.5,2.5-da);
  z3 = u*(3.5+da,4.5);
  z4 = u*(-3.5-da,4.5);
  z5 = u*(db-1.5,3.5);
  z6 = u*(1.5-db,3.5);
  z7 = u*(0.5,2.5+db);
  z8 = 0.5u*(1,1);
  z10= 6u*(1,1);
  z11= 6u*(-1,1);
  z12= 6u*(-1,-1);
  z13= 6u*(1,-1);
  path octave;
  picture tmppic;
  octave = z1--z2--z3--z4--z5--z6--z7--z8--cycle;
  fill octave withcolor red;
  draw currentpicture xscaled -1;
  draw currentpicture rotated 90;
  draw currentpicture rotated 180;
  tmppic = currentpicture;
  currentpicture := nullpicture;
  fill z10--z11--z12--z13--cycle;
  draw tmppic;
endfig;

end.