doc/vuoupasvu.mp

   1 prologues:=2;
   2
   3 verbatimtex
   4 %&latex
   5 \documentclass[12pt]{article}
   6 \usepackage[charter]{mathdesign}
   7 \usepackage{pifont}
   8 \begin{document}
   9 etex
  10
  11 input geometriesyr16
  12 figure(0,0,10u,8u);
  13 u:=8mm;
  14 pair O,C,D,H,A,I,J,K,P;
  15 O=u*(6,5);
  16 path cc,cd,ce;
  17 cc=cercles(O,2.75u);
  18 P=pointarc(cc,75);
  19 cd=cercles(O,5u);
  20 A=pointarc(cd,48);
  21 I=cc intersectionpoint segment(O,A);
  22 ce=perpendiculaire(O,A,I);
  23 J=cd intersectionpoint ce;
  24 K=symetrie(J,O,A);
  25 C=segment(O,J) intersectionpoint cc;
  26 D=segment(O,K) intersectionpoint cc;
  27 H=iso(C,D);
  28 trace droite(O,O+u*(1,0)) dashed evenly;
  29 trace droite(O,O+u*(0,1)) dashed evenly;
  30 trace cc;
  31 trace cd dashed withdots;
  32 drawoptions(withcolor gris);
  33 trace Codelongueur(C,H,H,D,2);
  34 trace segment(C,D) dashed evenly;
  35 trace chemin(J,O,K);
  36 trace demidroite(A,C);
  37 trace demidroite(A,D);
  38 trace codeperp(O,C,A,5);
  39 trace codeperp(O,D,A,5);
  40 drawoptions();
  41 nomme.llft(H);
  42 label.urt(btex Observateur etex,A);
  43 nomme.llft(O);
  44 nomme.urt(P);
  45 drawarrow segment(H,P) withpen pencircle scaled1.5bp;
  46 drawarrow segment(H,A) withpen pencircle scaled1.5bp;
  47 fin;
  48 end
  49