summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/profaux.mp
blob: d9f8b5fbf91a0181976b4257a617db090929d691 (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
64
65
66
67
68
69
70
% profaux.mp
% L. Nobre G.
% 2005

beginfig(1);
  numeric u, penbig, pensma, aangle, barhei, cirray, ularg, umarg, xhei, xcen;
  numeric atray;
  u = 1cm;
  cirray = 5u;
  atray  = 6.7u;
  aangle = 33;
  penbig = 1.85u;
  pensma = 0.75u;
  barhei = -1u;
  ularg = penbig-pensma;
  umarg = 0.5*pensma;
  color cux, coa;
  cux = 0.78red;
  coa = 0.78green;
  pen bigpen, smapen;
  bigpen = pencircle scaled penbig;
  smapen = pencircle scaled pensma;
  path theu;
  z11 = (-0.5*ularg,0.5*ularg+umarg);
  z12 = ( 0.5*ularg,0.5*ularg+umarg);
  theu = (z11--(halfcircle scaled ularg rotated 180)--z12);
  draw theu;
  xhei = ularg+umarg;
  xcen = 0.5*umarg;
  z13 = (ularg+1.5*pensma)*right + xcen*up;
  z14 = z13 + 0.5*(ularg,xhei);
  z15 = z13 - 0.5*(ularg,xhei);
  z16 = z13 + 0.5*(-ularg,xhei);
  z17 = z13 - 0.5*(-ularg,xhei);
  draw (z14--z15);
  draw (z16--z17);
  picture tmpic;
  tmpic = currentpicture;
  currentpicture := nullpicture;
  path horba, theci, lsid, rsid;
  theci = fullcircle scaled (2*cirray);
  z2 = atray*up;
  z1 = z2 - 2*atray*dir(90-0.5*aangle);
  z3 = z2 + 2*atray*dir(0.5*aangle-90);
  z5 = barhei*up;
  z4 = z5 + cirray*left;
  z6 = z5 + cirray*right;
  z18= (z2--z1) intersectionpoint theci;
  z19= (z2--z3) intersectionpoint theci;
  lsid = z18--z1;
  rsid = z19--z3;
  z7 = (z4--z5) intersectionpoint lsid;
  z8 = (z5--z6) intersectionpoint rsid;
  horba = z7--z8;
  z9 = (z7--z1) intersectionpoint theci;
  z10= (z8--z3) intersectionpoint theci;
  drawoptions( withpen bigpen withcolor coa );
  draw theci;
  draw z18--z9;
  draw z19--z10;
  draw horba;
  draw tmpic shifted (z10+umarg*(right+down)) withpen smapen withcolor cux;
%  drawoptions( withcolor blue );
%  dotlabels.top(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19);
endfig;
end.