-1.75 1.75 setxrange
-1.5 1.5 setyrange
.5 .5 setquadrillagestep
quadrillage
.7 setlinewidth
tracerepere
gsave
   pointilles
   O 1 1 droite
   -1 1 scale
   O 1 1 droite
grestore

1.2 setlinewidth
O 1 cercle

%% le cercle trigo
1.2 setlinewidth
O 1 cercle

%% le cercle representant l'intervalle de resolution
/r 1.1 def                      %% rayon
/a1 .05 def                     %% angle extremite inf
/a2 2 pi mul a1 sub def         %% angle extremite sup
%% trace
.8 setlinewidth
a1 rd a2 rd O r Cercle

/z1 {r a1 Polcar} def           %% le point extreme inf
/z2 {r a2 Polcar} def           %% le point extreme sup

%% la resolution
.5 xmark
%% pts du cercle trigo
/M'1 {1 pi 3 div Polcar} def
/M'2 {1 pi -3 div Polcar} def
%% pts du cercle "intervalle"
M'1 M'2 O r interdroitecercle /M2 defpoint /M1 defpoint

[z1 z2 M1 M2 M'1 M'2] points

gsave
   pointilles
   [M1 M2] ligne
grestore

setTimes
   (cos) xmax 0 (-10 0) dltext

setSymbol
   (0) z1 urtext
   (2p) z2 drtext
   (p/3) M2 urtext
   (5p/3) M1 drtext

1.2 setlinewidth
/fillstyle {blanc fill} def
-.9 -1.5 .9 -1.2 frame*

2 setlinewidth
O 1.5 142.5 170.5 (-) arcarrow
/arrowscale {2 2} def
.2 setlinewidth
O 1.5 142.5 172.5 (<-) arcarrow
2 setlinewidth
O 1.5 142.5 170.5 (-) arcarrow

setTimesBold
   (Résolution sur ) .35 -1.35 cltext
setSymbol
   ([0 ; 2p]) show

18 setfontsize
setSymbolBold
   (+) 1.6 157.5 deg Polcar cctext