1 setlinewidth %% epaisseur du trait
/largeur 30 def %% definition de constante
/longueur 60 def %% definition de constante
newpath %% nouveau chemin
10 10 moveto %% deplacement
0 largeur rlineto %% deplacement relatif
longueur 0 rlineto %% deplacement relatif
0 largeur neg rlineto %% deplacement relatif
closepath %% fermeture du chemin
stroke %% encrage
|