uselabo
-2 20 setyrange

%% quadrillage
%% marks

/h 3 def  %% hauteur plateau du supportboy

%% le supportboy
h 0 0 (Supportboy) bbpict

%% le chauffe ballon
0 h (ChauffeBallon) bbpict
%% dont on recupere les ccordonnees du centre
/cc pictget 0 .2 addv /A defpoint

%% le bicol
/aspectLiquides [{{orange} {rouge} 0}] def
/niveauLiquides [40] def
withbouchon
/Tubes [(RefrigerantBoules)] def
A [-1 1] (Bicol) bbpict
%% pour lequel on recupere les coordonnees du trou
/troug pictget /C defpoint

%% l'ampoule de coulee
/aspectLiquides [{rouge}] def
/niveauLiquides [70] def
C {-45} (AmpouleCoulee) /ConnectIn spict

%% la potence
-4 0 [1 1.5] (Potence) bbpict
-4 0 9.5 h add pince