chauffage_05.jps

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