%% auteur : Abidi

200 setxunit
-1 1 setxrange
-1 1 setyrange

/X {settvar 50 t div 20 t mul cos mul} def
/Y {settvar 50 t div 20 t mul sin mul} def

1 1 1000 {
/i exch def 
i X i Y point
} for