-20 20 setxrange
-20 20 setyrange
7 setxunit
%% on charge les definitions de ligne tenant compte de l'epaisseur
usespecialline


-3 3 setxrange
-3 3 setyrange
%% on definit la 'global transform' par z |--> z^3
/gtransform {
2 dict begin
   /z defpoint
   z z mulc z mulc
end
} def

%% on dessine notre grille :

%% des lignes entre -2 et 2 ds le repere jps
[-2 2 1 stepto] 
dup {shrule} apply
{svrule} apply