X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=mp-geo.git;a=blobdiff_plain;f=doc%2F.svn%2Ftext-base%2Fvuoupasvu.mp.svn-base;fp=doc%2F.svn%2Ftext-base%2Fvuoupasvu.mp.svn-base;h=277a7b6e5d43531e6f191d795f5955d5b54a627a;hp=0000000000000000000000000000000000000000;hb=7b76c924eeb4e64c51a75c843aedf1899f300e0f;hpb=b48660808c2cd84c509439a41f7dceee6791a252

diff --git a/doc/.svn/text-base/vuoupasvu.mp.svn-base b/doc/.svn/text-base/vuoupasvu.mp.svn-base
new file mode 100644
index 0000000..277a7b6
--- /dev/null
+++ b/doc/.svn/text-base/vuoupasvu.mp.svn-base
@@ -0,0 +1,49 @@
+prologues:=2;
+
+verbatimtex
+%&latex
+\documentclass[12pt]{article}
+\usepackage[charter]{mathdesign}
+\usepackage{pifont}
+\begin{document}
+etex
+
+input geometriesyr16
+figure(0,0,10u,8u);
+u:=8mm;
+pair O,C,D,H,A,I,J,K,P;
+O=u*(6,5);
+path cc,cd,ce;
+cc=cercles(O,2.75u);
+P=pointarc(cc,75);
+cd=cercles(O,5u);
+A=pointarc(cd,48);
+I=cc intersectionpoint segment(O,A);
+ce=perpendiculaire(O,A,I);
+J=cd intersectionpoint ce;
+K=symetrie(J,O,A);
+C=segment(O,J) intersectionpoint cc;
+D=segment(O,K) intersectionpoint cc;
+H=iso(C,D);
+trace droite(O,O+u*(1,0)) dashed evenly;
+trace droite(O,O+u*(0,1)) dashed evenly;
+trace cc;
+trace cd dashed withdots;
+drawoptions(withcolor gris);
+trace Codelongueur(C,H,H,D,2);
+trace segment(C,D) dashed evenly;
+trace chemin(J,O,K);
+trace demidroite(A,C);
+trace demidroite(A,D);
+trace codeperp(O,C,A,5);
+trace codeperp(O,D,A,5);
+drawoptions();
+nomme.llft(H);
+label.urt(btex Observateur etex,A);
+nomme.llft(O);
+nomme.urt(P);
+drawarrow segment(H,P) withpen pencircle scaled1.5bp;
+drawarrow segment(H,A) withpen pencircle scaled1.5bp;
+fin;
+end
+