-1.1 1.4 setxrange
-1.1 1.4 setyrange
220 setxunit

traceaxes
axesarrow
unites
xticks
yticks
O 1 cercle

/M0 {1 0 rd polcar} def
/M1 {1 pi 6 div rd polcar} def
/M2 {1 pi 4 div rd polcar} def
/M3 {1 pi 3 div rd polcar} def
/M4 {1 pi 2 div rd polcar} def
/M5 {1 pi 2 mul 3 div rd polcar} def
/M6 {1 pi 3 mul 4 div rd polcar} def
/M7 {1 pi 5 mul 6 div rd polcar} def

/M'0 {1 pi rd polcar} def
/M'1 {1 pi neg 6 div rd polcar} def
/M'2 {1 pi neg 4 div rd polcar} def
/M'3 {1 pi neg 3 div rd polcar} def
/M'4 {1 pi neg 2 div rd polcar} def
/M'5 {1 pi neg 2 mul 3 div rd polcar} def
/M'6 {1 pi neg 3 mul 4 div rd polcar} def
/M'7 {1 pi neg 5 mul 6 div rd polcar} def

0.125 0 setorigine
M0 /X0 defpoint
M1 OX orthoproj /X1 defpoint
M2 OX orthoproj /X2 defpoint
M3 OX orthoproj /X3 defpoint
M4 OX orthoproj /X4 defpoint
M5 OX orthoproj /X5 defpoint
M6 OX orthoproj /X6 defpoint
M7 OX orthoproj /X7 defpoint

M0 OY orthoproj /Y0 defpoint
M1 OY orthoproj /Y1 defpoint
M2 OY orthoproj /Y2 defpoint
M3 OY orthoproj /Y3 defpoint


pointilles
[M1 M7] ligne
[M'1 M'7] ligne
[M3 M'3] ligne
[M5 M'5] ligne
[M2 M'2] ligne
[M6 M'6] ligne
[M1 M'1] ligne
[M7 M'7] ligne
[M2 M6] ligne
[M'2 M'6] ligne
[M3 M5] ligne
[M'3 M'5] ligne

mixte
[M2 M'6] ligne
[M'2 M6] ligne
continu

10 setdboxit
/fillstyle {blanc fill} def
#tex# $$\sqrt 3 \over 2$$
(A) Rnode
X1 uctexlabel
(A) Rnode
Y3 cctexlabel
#tex# $$\sqrt 2 \over 2$$
(A) Rnode
X2 uctexlabel
(A) Rnode
Y2 cctexlabel
#tex# $$1\over 2$$
(A) Rnode
X3 uctexlabel
(A) Rnode
Y1 cctexlabel
#tex# $$-{1\over 2}$$
(A) Rnode
X5 uctexlabel
(A) Rnode
M'1 OY orthoproj cctexlabel
#tex# $$-{\sqrt 2\over 2}$$
(A) Rnode
X6 uctexlabel
(A) Rnode
M'2 OY orthoproj cctexlabel
#tex# $$-{\sqrt 3\over 2}$$
(A) Rnode
X7 uctexlabel
(A) Rnode
M'3 OY orthoproj cctexlabel

[M0 M1 M2 M3 M4 M5 M6 M7] points
[M'0 M'1 M'2 M'3 M'4 M'5 M'6 M'7] points


0.125 0 setorigine
20 setfontsize
3 setvadjust
setTimes
   (cos) xmax 0 dltext
   (sin) 0 ymax drtext
setSymbol
(0) M0 urtext
(p/6) M1 rtext
(p/4) M2 rtext
(p/3) M3 rtext
(p/2) M4 urtext
(2p/3) M5 ltext
(3p/4) M6 ltext
(5p/6) M7 ltext
(p) M'0 ultext

fontsize neg 3 add setvadjust
(-p/6 ) M'1 urtext
(-p/4 ) M'2 urtext
(-p/3 ) M'3 urtext
(-p/2) M'4 urtext
(-2p/3) M'5 ultext
(-3p/4) M'6 ultext
(-5p/6) M'7 ultext