Édition du fichier 1919.jps

Retour

1 setlinewidth             %% epaisseur du trait
/largeur 30 def            %% definition de constante
/longueur 60 def           %% definition de constante

%% definition d'une macro executable
/rectangle {   
   newpath                    %% nouveau chemin
      0 0 moveto              %% deplacement
      0 largeur rlineto       %% deplacement relatif
      longueur 0 rlineto      %% deplacement relatif
      0 largeur neg rlineto   %% deplacement relatif
   closepath                  %% fermeture du chemin
   stroke                     %% encrage
} def

gsave                         %% sauvegarde de l'etat graphique
   10 10 translate            %% deplacement
   rectangle
grestore                      %% restauration de l'etat graphique

gsave                         %% sauvegarde de l'etat graphique
   2 setlinewidth	      %% epaisseur du trace
   15 15 translate            %% deplacement
   rectangle
grestore                      %% restauration de l'etat graphique

gsave                         %% sauvegarde de l'etat graphique
   50 50 translate            %% deplacement 
   rectangle
grestore                      %% restauration de l'etat graphique

Tapez les 3 lettres : AWE