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
|