X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=mp-gdd.git;a=blobdiff_plain;f=exemples%2Freperes%2Freperes1.mp;fp=exemples%2Freperes%2Freperes1.mp;h=a882c39a456c8ccf19b9cb340ec5459473d4916b;hp=0000000000000000000000000000000000000000;hb=d2c75ba83d425728a774726455460220936d75c6;hpb=3ba6fc5bd8dcdf6c530129904b5763eddd1412fb

diff --git a/exemples/reperes/reperes1.mp b/exemples/reperes/reperes1.mp
new file mode 100644
index 0000000..a882c39
--- /dev/null
+++ b/exemples/reperes/reperes1.mp
@@ -0,0 +1,59 @@
+input gdd;
+input gdd-rep;
+input gdd-lbl;
+input gdd-tra;
+input svgnames;
+
+lblPreambule := "\usepackage[frenchb]{babel}"       &
+                "\usepackage[garamond]{mathdesign}" &
+                "\usepackage{amsmath}";
+
+labeloffset := 4;
+gddU:=1.3cm;
+
+
+
+beginfig(1);
+
+
+  O = Point(0,0);
+  I = Point(1,0);
+  J = Point(0.3,0.8);
+  M = PointDansRepere(5,3,O,I,J);
+  H = PointDansRepere(5,0,O,I,J);
+  K = PointDansRepere(0,3,O,I,J);
+
+  Repere(8,6,1.5,1.5,1,1);
+  Debut;
+
+    trace Droite(O,I);
+    trace Droite(O,J);
+    trace Pt(K)--Pt(M)--Pt(H) dashed evenly;
+
+    marque.urt  "M";
+
+    drawoptions(withpen pencircle scaled 1pt withcolor DodgerBlue);
+    trace Vecteur(O,K);
+    trace Vecteur(O,H);
+    trace Vecteur(O,M);
+    label.top(TEX("\(x\vec\imath\)"),PtR(Milieu(O,H)));
+    label.rt(TEX("\(y\vec\jmath\)"),PtR(Milieu(O,K)));
+
+    drawoptions(withpen pencircle scaled 1.5pt withcolor Crimson);
+    trace Vecteur(O,I);
+    trace Vecteur(O,J);
+
+    drawoptions();
+    marque.llft "O";
+
+    label.bot(TEX("\(x\)"), PtR(H));
+    label.lft(TEX("\(y\)"), PtR(K));
+    label.bot(TEX("\(\vec\imath\)"), PtR(I));
+    label.lft(TEX("\(\vec\jmath\)"), PtR(J));
+
+  Fin;
+
+
+endfig;
+
+end
\ No newline at end of file