-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 :
orange
1 dict begin
/ep@isseur .0125 def
[-1.5 -.5 .5 1.5]
dup {shrule} apply
{svrule} apply
end

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