From: Jean-Michel Sarlat <jm.sarlat@gmail.com>
Date: Sun, 4 Sep 2011 14:31:31 +0000 (+0200)
Subject: Premiers exemples
X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=mp-gdd.git;a=commitdiff_plain;h=d2c75ba83d425728a774726455460220936d75c6

Premiers exemples
---

diff --git a/exemples/index.xml b/exemples/index.xml
new file mode 100644
index 0000000..61bd1e4
--- /dev/null
+++ b/exemples/index.xml
@@ -0,0 +1,3 @@
+<simple>
+  <titre>mp-gdd &ndash; Exemples</titre>
+</simple>
\ No newline at end of file
diff --git a/exemples/reperes/index.xml b/exemples/reperes/index.xml
new file mode 100644
index 0000000..5b46ee5
--- /dev/null
+++ b/exemples/reperes/index.xml
@@ -0,0 +1,3 @@
+<simple>
+  <titre>mp-gdd &ndash; Repères</titre>
+</simple>
\ No newline at end of file
diff --git a/exemples/reperes/reperes1-1.pdf b/exemples/reperes/reperes1-1.pdf
new file mode 100644
index 0000000..8774578
Binary files /dev/null and b/exemples/reperes/reperes1-1.pdf differ
diff --git a/exemples/reperes/reperes1-1.png b/exemples/reperes/reperes1-1.png
new file mode 100644
index 0000000..9af2523
Binary files /dev/null and b/exemples/reperes/reperes1-1.png differ
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
diff --git a/exemples/reperes/reperes2-1.pdf b/exemples/reperes/reperes2-1.pdf
new file mode 100644
index 0000000..54db90c
Binary files /dev/null and b/exemples/reperes/reperes2-1.pdf differ
diff --git a/exemples/reperes/reperes2-1.png b/exemples/reperes/reperes2-1.png
new file mode 100644
index 0000000..ed04628
Binary files /dev/null and b/exemples/reperes/reperes2-1.png differ
diff --git a/exemples/reperes/reperes2.mp b/exemples/reperes/reperes2.mp
new file mode 100644
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
diff --git a/web.xml b/web.xml
new file mode 100644
index 0000000..0eff2ba
--- /dev/null
+++ b/web.xml
@@ -0,0 +1,4 @@
+<web>
+  <variable nom="WidthIcone">200</variable>
+  <splash/>
+</web>
\ No newline at end of file