%% 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