10 lblPreambule := "\usepackage[frenchb]{babel}" &
11 "\usepackage[charter]{mathdesign}";
13 color darkred,darkblue;
19 gddCouleurPoint := (1,1,1);
36 Graduations; Unites(2);
41 M = Point(f(2.4),g(2.4));
44 trace Arc(C,.3,Pi/2,Pi/2+2.4);
45 trace Droite((2.4,0),C) dashed evenly;
46 trace Courbe(f,g,0,3,500) withcolor darkred withpen pencircle scaled 1pt;
47 trace Courbe(f,g,3,4.5,100) dashed evenly;
48 trace Courbe(f,g,-2,0,100) dashed evenly;
51 trace Arc(C,1,Pi/2,Pi/2+2.4) withcolor darkblue withpen pencircle scaled .7pt;
52 trace Segment(A,N) withcolor darkblue withpen pencircle scaled .7pt;
57 label.urt(TEX("$N$"),PtR(N));
58 label.ulft(TEX("$\theta$"),PtR(C)+.2*gddU*(cos(Pi/2+1.2),sin(Pi/2+1.2)));
59 gddCouleurPoint := Yellow;