-1.4 1.4 setxrange -1.4 1.4 setyrange /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 traceaxes axesarrow unites xticks yticks [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 O 1 cercle pointilles [M1 M7] ligne [M'1 M'7] ligne [M3 M'3] ligne [M5 M'5] ligne mixte [M2 M'6] ligne [M'2 M6] ligne 10 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 3 setvadjust 7 setfontsize setCourier (1) 0 1 dltext (0,5) 0 .5 dltext (1) 1 0 dltext (0,5) .5 0 dltext (-1) 0 -1 ultext (-0,5) 0 -.5 ultext (-1) -1 0 drtext (-0,5) -.5 0 drtext