-4 6 setxrange
-1 11 setyrange
uselabo
quadrillage
marks
20 setxunit

/A {-2 4} def
/B {4 6} def
/C {2 4} def

1 setlinewidth
0 0 (Potence) bbpict

A (Ballon) /col spict
0 A pince
B (TubeEssais) /col spict
0 B pincefine
C (TubeEssais) /col spict
0 C pince