-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 dessine notre grille :

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