%% decoupage automatique de la fenetre de dessin
autocrop
%% on charge les definitions de ligne tenant compte de l'epaisseur
usespecialline

%% on definit la 'global transform' par l'inversion
/gtransform {
2 dict begin
   /z defpoint
   z nullc
      {z}
      {1 0 z divc}
   ifelse
end
} def

%% on dessine notre grille :

%% des lignes horizontales d'ordonnees -.25, -.5, etc.. ds le repere jps
[-.25 -.5 -1 1 .25 .5] {shrule} apply

%% et rebelote apres rotation a 90°
90 rotate
[-.25 -.5 -1 1 .25 .5] {shrule} apply