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