Présentation de trigo_01.jps

-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