Fichier 303.jps — Modifié le 2 Décembre 2007 à 14 h 41

303.pdf
Source
%% auteur : Abidi

200 setxunit
-1 1 setxrange
-1 1 setyrange

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

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