Fichier chauffage_05.jps — Modifié le 22 Septembre 2007 à 14 h 53
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