Présentation de 539.jps

/syracuse/bbgraf/tmp/539.jpg
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