+input gdd;
+input gdd-rep;
+input gdd-lbl;
+input gdd-tra;
+input gdd-fct;
+input gdd-plt;
+input gdd-arc;
+input svgnames;
+
+lblPreambule := "\usepackage[frenchb]{babel}" &
+ "\usepackage[charter]{mathdesign}";
+
+color darkred,darkblue;
+darkred=(.6,0,0);
+darkblue=(0,0,.6);
+
+labeloffset := 6;
+gddTaillePoint := 3;
+gddCouleurPoint := (1,1,1);
+
+
+% la cycloide
+vardef f(expr t)=
+ t-sin(t)
+enddef;
+vardef g(expr t)=
+ cos(t)-1
+enddef;
+
+
+beginfig(1);
+ Repere(6,4,1,3,1,1);
+ Axes;
+ Debut;
+ Axes;
+ Graduations; Unites(2);
+
+ A = Point(0,0);
+ B = Point(f(3),g(3));
+ C = Point(2.4,-1);
+ M = Point(f(2.4),g(2.4));
+ N = Point(2.4,0);
+ C1 = Cercle(C,1);
+ trace Arc(C,.3,Pi/2,Pi/2+2.4);
+ trace Droite((2.4,0),C) dashed evenly;
+ trace Courbe(f,g,0,3,500) withcolor darkred withpen pencircle scaled 1pt;
+ trace Courbe(f,g,3,4.5,100) dashed evenly;
+ trace Courbe(f,g,-2,0,100) dashed evenly;
+ trace C1;
+ trace Segment(C,M);
+ trace Arc(C,1,Pi/2,Pi/2+2.4) withcolor darkblue withpen pencircle scaled .7pt;
+ trace Segment(A,N) withcolor darkblue withpen pencircle scaled .7pt;
+
+ marque.rt "C";
+ marque.llft "M";
+ pointe(N);
+ label.urt(TEX("$N$"),PtR(N));
+ label.ulft(TEX("$\theta$"),PtR(C)+.2*gddU*(cos(Pi/2+1.2),sin(Pi/2+1.2)));
+ gddCouleurPoint := Yellow;
+ marque.urt "A";
+ marque.llft "B";
+ Fin;
+endfig;
+end
\ No newline at end of file