summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/tangency2D.mp
blob: 08edd763554f0453e6062d3f60ca3b767737dc9c (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
% intersection2D.mp
% L. Nobre G. 
% 2004

input featpost3Dplus2D;

verbatimtex \documentclass{article}\begin{document}{\sffamily etex

beginfig(1);
  numeric u, r, d;
  pair Aa, Ab, Ba, Bb, Ca, Cb, Da, Db, Ea, Eb, Or, Kn;
  pen dotpen, penpen;
  color knowncolour, notknowncol;
  picture kn, un, rl;
  u = 4mm;
  Aa = (5u,4u);
  Ab = (3u,2u);
  Ba = (13u,5u);
  Bb = 0.5[Aa,Ab];
  r = abs( Aa - Ab );
  d = abs( Aa - Ba ) +-+ r;
  Ea = radialcross( Aa, r, Ba, d, true );
  Eb = radialcross( Aa, r, Ba, d, false );
  Ca = 1.4[Ba,Ea];
  Cb = 1.15[Ea,Ba];
  Da = 1.5[Ba,Eb];
  Db = 1.1[Eb,Ba];
  Kn = (0,1u);
  Or = (10u,1u);
  dotpen = pencircle scaled 0.5u;
  penpen = pencircle scaled 0.2u;
  knowncolour = blue;
  notknowncol = red;
  kn = btex given etex;
  un = btex unknown etex;
  rl = btex $R$ etex; 
  draw fullcircle scaled 2r shifted Aa;
  draw Ca--Cb;
  draw Da--Db dashed evenly;
  drawarrow Aa--Ab;
  drawoptions( withpen dotpen withcolor knowncolour );
  draw Aa;
  draw Ba;
  draw Kn+Or;
  drawoptions( withcolor knowncolour );
  label.ulft( rl, Bb );
  drawoptions( withpen dotpen withcolor notknowncol );
  draw Ea;
  draw Eb;
  draw Or;
  drawoptions();
  label.rt( kn, Kn+Or );
  label.rt( un, Or );
endfig;

verbatimtex }\end{document} etex

end;