10 lblPreambule := "\usepackage[frenchb]{babel}" &
11 "\usepackage[garamond]{mathdesign}" &
12 "\usepackage{amsmath}";
17 def avecCrayon(expr t,c) = withpen pencircle scaled t withcolor c enddef;
21 Repere(10,10,5,4,3,3);
26 ColorieAvecTransparence(Cercle(origine,1),LightSlateGrey,0.5);
27 trace Cercle(origine,1) avecCrayon(1.5,LightSlateGrey);
29 trace Cercle(4/3(cosd(130),sind(130)),1/3);
31 drawoptions(withcolor LightSlateGrey);
32 trace Cercle((0,4/3),1/3);
34 centre = Point(4/3cosd(130),4/3sind(130));
35 mobile = Point(4/3cosd(130)+1/3cosd(70),4/3sind(130)+1/3sind(70));
37 trace (0,0)--Pt(centre)--Pt(mobile) dashed evenly;
39 trace Arc(centre,1/3,-5Pi/18,7Pi/18) avecCrayon(1,DodgerBlue);
40 trace Arc(origine,1,Pi/2,13Pi/18) avecCrayon(1,DodgerBlue);
41 fleche Arc(centre,1/6,-5Pi/18,7Pi/18);
42 fleche Arc(origine,1/3,Pi/2,13Pi/18);
47 pointe Point(cosd(130),sind(130));
49 gddCouleurPoint := Crimson;
54 drawoptions(withcolor black);
56 label.lrt(TEX("\(O\)"),PtR(origine));
57 label.ulft(TEX("\(\Omega(\theta)\)"),PtR(centre));
58 label.urt(TEX("\(M(\theta)\)"),PtR(mobile));
59 label.top(TEX("\(\theta\)"),(1/3cos(11Pi/18),1/3sin(11Pi/18)) gddEnPlace);
60 label.rt(TEX("\(3\theta\)"),PtR(Addition(centre,(1/6,0))));
61 label.bot(TEX("\(N(\theta)\)"),(cos(13Pi/18),sin(13Pi/18)) gddEnPlace);