-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

/dotscale {1.5 dup} def

/z0 {1 0 Polcar} def
/z1 {1 pi 2 div Polcar} def
/z2 {1 pi 4 div Polcar} def
/z3 {1 pi 3 div Polcar} def
/z4 {1 pi 4 div 3 mul Polcar} def
/z5 {1 pi 4 div 9 mul Polcar} def
/z6 {1 pi 3 div 2 mul Polcar} def
/z7 {1 pi 2 div -5 mul Polcar} def

[z0 z1 z2 z3 z4 z5 z6 z7] points

setSymbol
   (0) z0 urtext
   (p/2) z1 urtext
   ( p/4, 9p/4) z2 brtext
   (p/3) z3 urtext
   (-5p/4, 3p/4) z4 (-4 0) bltext
   (2p/3) z6 ultext
   (-5p/2) z7 drtext

[z6 z3] dashpoints
-.5 xmark
.5 xmark