Présentation de bouchon_tubes.jps

/syracuse/var/syracuse/bbgraf/icons/labo/bouchon_tubes.png
uselabo 20 setxunit quadrillage -6 19 setxrange -1 9 setyrange 1 setlinewidth /aspectLiquides [{cyan}] def /niveauLiquides [60] def withbouchon %%%%%%%%%%%%%%%% simple %%%%%%%%%%%%%%%% -5 0 (TubeEssais) bbpict /Tubes [(TubeDroit)] def -3 0 (TubeEssais) bbpict /Tubes [(EntonnoirRobinet) (TubeRecourbeCourt)] def O (Ballon) bbpict %%%%%%%%%%%%%%%% avec 'scaling' %%%%%%%%%%%%%%%% /Tubes [{[-1 1] (TubeRecourbeCourt)}] def 11 0 (Flacon) bbpict /Tubes [{[1 .5] (TubeDroit)}] def 14 0 (Erlen) bbpict %%%%%%%%%%%%%%%% avec 'scaling' et deplacement %%%%%%%%%%%%%%%% %% Remarque : deplacement de (0, -.5) dans le repere jps /Tubes [{(0 -.5 jtoppoint) [1 .5] (TubeDroit)}] def 17 0 (Erlen) bbpict