uselabo 20 setxunit -3 12 setxrange -3 11 setyrange 1 setlinewidth withbouchon /Tubes [(TubeDroit)] def /niveauLiquides [70] def /aspectLiquides [{cyan}] def O (Cristallisoir) bcpict %% ordre decroissant ci-dessous : une astuce pour effacer le cyan du %% cristallisoir /niveauLiquides [30 80 30] def /aspectLiquides [{jaune} {blanc} {blanc}] def O (TubeEssais) ucpict O () (ChauffeBallon) dcpict .5 setlinewidth /A {.1 7} def /A' {5 7} def [A A'] (<-) ligne /dotscale {.7 dup} def /B {0 1} def /B' {5 5} def [B B'] (*-) ligne /C {1 1} def /C' {5 1} def [C C'] (*-) ligne /D {2 -1} def /D' {5 -1} def [D D'] (<-) ligne setTimes (réfrigérant à air) A' crtext (styrène + initiateur) B' crtext (bain marie) C' crtext (plaque chauffante) D' crtext boxit /fillstyle {jaune fill} def /dx_boxit 3 def /dy_boxit 3 def (Polymérisation du styrène) xmin 10 xmax 10 milieu [1.5 dup] cctext /chauffe { [1.17 2.5 0 2.5 0 0 5.5 0 5.5 2.5 4.33 2.5] ligne } def