Premiers exemples

[mp-gdd.git] / exemples / reperes / reperes2.mp

diff --git a/exemples/reperes/reperes2.mp b/exemples/reperes/reperes2.mp
new file mode 100644 (file)
index 0000000..a82cc25
--- /dev/null
+++ b/exemples/reperes/reperes2.mp
@@ -0,0 +1,87 @@
+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);
+  O' = Point(3,2);
+  I' = Point(3.7,1.8);
+  J' = Point(2.8,3);
+
+  pair Mt;
+  Mt = CoordonneesRepere(M,O',I',J');
+  H' = PointDansRepere(xpart Mt,0,O',I',J');
+  K' = PointDansRepere(0,ypart Mt,O',I',J');
+
+  Repere(8,6,1.5,1.5,1,1);
+  Debut;
+
+    % GrilleRepere;
+
+    trace Droite(O,I);
+    trace Droite(O,J);
+    trace Droite(O',I');
+    trace Droite(O',J');
+
+    trace Pt(K)--Pt(M)--Pt(H) dashed evenly;
+    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);
+
+    drawoptions(withpen pencircle scaled 1pt withcolor LimeGreen);
+    trace Vecteur(O',M);
+    trace Vecteur(O',H');
+    trace Vecteur(O',K');
+
+    drawoptions(withpen pencircle scaled 1.5pt withcolor Crimson);
+    trace Vecteur(O,I);
+    trace Vecteur(O,J);
+    trace Vecteur(O',I');
+    trace Vecteur(O',J');
+
+    drawoptions(withpen pencircle scaled 1pt withcolor LightCoral);
+    trace Vecteur(O,O');
+
+    drawoptions();
+    marque.llft "O";
+    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));
+
+    label.bot(TEX("\(x'\)"), PtR(H'));
+    label.urt(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