\documentclass[11pt]{article}
\usepackage[latin1]{inputenc}\usepackage{pstcol,pst-grad,multido}
\usepackage{framed}
\definecolor{shadecolor}{cmyk}{0.4,0,0,0}
\input{random.tex} \definecolor{MonGris}{rgb}{0.9,0.9,0.9}
\definecolor{Bluea}{cmyk}{.15,0,0,0}
\definecolor{LemonChiffon}{rgb}{1.,0.98,0.8}
\definecolor{Palegreen}{rgb}{0.88,1,0.88}
\definecolor{PeachPuff}{rgb}{1.0,0.85,0.73}
\definecolor{ForestGreen}{rgb}{0.133,0.545,0.133}
\definecolor{Orange}{rgb}{1,0.65,0}
\pagestyle{empty}
\title{Dessin d'un montage de chauffage à reflux}
\date{}
\begin{document}
\thispagestyle{empty}
\maketitle
Le dessin du montage d'un chauffage à reflux, avec réfrigérant
simple dit de \textsc{Liebig} est commenté étape après étape avec
le dessin correspondant.
\section{Le manchon réfrigérant}
\begin{minipage}{9cm}
Le manchon réfrigérant est un rectangle, dont a arrondi les angles
avec un rayon de 1~cm et le bouchon un polygone dont l'intérieur
est hachuré avec l'option~: \verb+fillstyle=hlines+ et les
paramètres qui vont avec.
\begin{shaded}
\begin{verbatim}
% Le corps du manchon
\psframe[framearc=1,fillstyle=solid,%
fillcolor=Bluea]%
(-.5,3)(0.5,7)
% le bouchon
\psset{fillstyle=hlines,hatchwidth=0.2pt,%
hatchsep=.7pt}
\pspolygon(-0.5,2.6)(0.5,2.6)%
(0.4,1.7)(-0.4,1.7)
\end{verbatim}
\end{shaded}
\end{minipage}
\hfill
\begin{minipage}{4cm}
\begin{center}
\psframebox{\begin{pspicture}(-2,1)(2,7)
\psframe[framearc=1,fillstyle=solid,fillcolor=Bluea](-.5,3)(0.5,7)
{\psset{fillstyle=hlines,hatchwidth=0.2pt,hatchsep=.7pt}
\pspolygon(-0.5,2.6)(0.5,2.6) (0.4,1.7)(-0.4,1.7)}\end{pspicture}}
\end{center}
\end{minipage}
\section{L'entonnoir et les tubes}
\begin{minipage}{9cm}
On perce le manchon aux deux extrémités verticales pour laisser
passer l'entonnoir et le tube vertical, ainsi que que la face
latérale pour laisser passer les tuyaux d'arrivée et de sortie de
l'eau froide. L'effet ``tulipe'' de l'entonnoir est obtenu avec le
paramètre \verb+linearc=0.5+.
\begin{shaded}
\begin{verbatim}
% les trous de passage du tube intérieur
\psframe[fillstyle=solid,%
linestyle=none,%
dimen=inner]%
(-0.1,1)(0.1,7)
% l'entonnoir
\psline[linearc=0.5]
(-.5,8.5)(-.3,8.4)(-.3,8)
(-.3,7.5)(-.3,7.2)(-.1,7)
\psline[linearc=0.5]
(.5,8.5)(.3,8.4)(.3,8)
(.3,7.5)(.3,7.2)(.1,7)
% le tube intérieur
\psline(-0.1,1)(-0.1,7)
\psline(0.1,1)(0.1,7)
% les trous de passage des tubes latéraux
{\psset{fillstyle=solid,linestyle=none,
fillcolor=Bluea}
\psframe(-1.2,3.5)(-0.4,3.6)
\psframe(-1.2,6)(-0.4,6.1)}
% le dessin des tubes latéraux
\psline(-1.2,3.5)(-0.5,3.5)
\psline(-1.2,3.6)(-0.5,3.6)
\psline(-1.2,6)(-0.5,6)
\psline(-1.2,6.1)(-0.5,6.1)
\end{verbatim}
\end{shaded}
\end{minipage}
\hfill
\begin{minipage}{4cm}
\begin{center}
\psframebox{\begin{pspicture}(-2,0)(2,9)
\psframe[framearc=1,fillstyle=solid,fillcolor=Bluea](-.5,3)(0.5,7)
{\psset{fillstyle=hlines,hatchwidth=0.2pt,hatchsep=.7pt}
\pspolygon(-0.5,2.6)(0.5,2.6)(0.4,1.7)(-0.4,1.7)} \psframe[fillstyle=solid,linestyle=none,dimen=inner](-0.1,1)(0.1,7)
\psline[linearc=0.5](-.5,8.5)(-.3,8.4)(-.3,8)(-.3,7.5)(-.3,7.2)(-.1,7)
\psline[linearc=0.5](.5,8.5)(.3,8.4)(.3,8)(.3,7.5)(.3,7.2)(.1,7)
\psline(-0.1,1)(-0.1,7)
\psline(0.1,1)(0.1,7)
{\psset{fillstyle=solid,linestyle=none,fillcolor=Bluea}
\psframe(-1.2,3.5)(-0.4,3.6)
\psframe(-1.2,6)(-0.4,6.1)}
\psline(-1.2,3.5)(-0.5,3.5)
\psline(-1.2,3.6)(-0.5,3.6)
\psline(-1.2,6)(-0.5,6)
\psline(-1.2,6.1)(-0.5,6.1)
\end{pspicture}}
\end{center}
\end{minipage}
\section{Le liquide dans le ballon}
\begin{minipage}{9cm}
Une instruction très puissante et très intéressante~:
\begin{shaded}
\begin{verbatim}
\psclip{chemin de délimitation}
Seule la partie du dessin défini ici
incluse dans le contour de délimitation,
sera représentée.
\endpsclip
\end{verbatim}
\begin{verbatim}
% le liquide dans le ballon
\psclip{\psarc(0,0){1.581}{180}{0}}
\psframe[linecolor=cyan,%
fillstyle=solid,fillcolor=Bluea]
(-2,-2)(2,-0.2)
\endpsclip
\end{verbatim}
\end{shaded}
Avec \LaTeX{} on pourra utiliser aussi :
\begin{verbatim}
\begin{psclip}{chemin de délimitation}
Seule la partie du dessin défini ici
incluse dans le contour de délimitation,
sera représentée.
\end{psclip}
\end{verbatim}
\end{minipage}
\hfill
\begin{minipage}{4cm}
\begin{center}
\psframebox{\begin{pspicture}(-2,-3)(2,9)
\psframe[framearc=1,fillstyle=solid,fillcolor=Bluea](-.5,3)(0.5,7)
{\psset{fillstyle=hlines,hatchwidth=0.2pt,hatchsep=.7pt}
\pspolygon(-0.5,2.6)(0.5,2.6)(0.4,1.7)(-0.4,1.7)} \psframe[fillstyle=solid,linestyle=none,dimen=inner](-0.1,1)(0.1,7)
\psline[linearc=0.5](-.5,8.5)(-.3,8.4)(-.3,8)(-.3,7.5)(-.3,7.2)(-.1,7)
\psline[linearc=0.5](.5,8.5)(.3,8.4)(.3,8)(.3,7.5)(.3,7.2)(.1,7)
\psline(-0.1,1)(-0.1,7)
\psline(0.1,1)(0.1,7)
{\psset{fillstyle=solid,linestyle=none,fillcolor=Bluea}
\psframe(-1.2,3.5)(-0.4,3.6)
\psframe(-1.2,6)(-0.4,6.1)}
\psline(-1.2,3.5)(-0.5,3.5)
\psline(-1.2,3.6)(-0.5,3.6)
\psline(-1.2,6)(-0.5,6)
\psline(-1.2,6.1)(-0.5,6.1)
\psclip{\psarc(0,0){1.581}{180}{0}}
\psframe[linecolor=cyan,fillstyle=solid,fillcolor=Bluea](-2,-2)(2,-0.2)
\endpsclip
\end{pspicture}}
\end{center}
\end{minipage}
\section{Le dessin du ballon}
\begin{minipage}{9cm}
\begin{shaded}
\begin{verbatim}
% le col du ballon
\psline(-0.7,2.5)(-0.5,2.5)(-0.5,1.5)
\psline(0.7,2.5)(0.5,2.5)(0.5,1.5)
% la ballon
\psarc(0,0){1.58}{108.43}{71.56}
% Le chauffe-ballon
\psline(-1.58,0)(-2.5,0)(-2.5,-2.5)
(2.5,-2.5)(2.5,0)(1.58,0)
% arrivée de l'eau
\psset{arrowscale=2}
\psline{->}(-3,3.55)(-1.3,3.55)
% sortie de l'eau
\psline{<-}(-3,6.05)(-1.2,6.05)
\end{verbatim}
\end{shaded}
\end{minipage}
\hfill
\begin{minipage}{5cm}
\begin{center}
\psframebox{\begin{pspicture}(-2.5,-3)(2.5,9)
\psframe[framearc=1,fillstyle=solid,fillcolor=Bluea](-.5,3)(0.5,7)
{\psset{fillstyle=hlines,hatchwidth=0.2pt,hatchsep=.7pt}
\pspolygon(-0.5,2.6)(0.5,2.6)(0.4,1.7)(-0.4,1.7)} \psframe[fillstyle=solid,linestyle=none,dimen=inner](-0.1,1)(0.1,7)
\psline[linearc=0.5](-.5,8.5)(-.3,8.4)(-.3,8)(-.3,7.5)(-.3,7.2)(-.1,7)
\psline[linearc=0.5](.5,8.5)(.3,8.4)(.3,8)(.3,7.5)(.3,7.2)(.1,7)
\psline(-0.1,1)(-0.1,7)
\psline(0.1,1)(0.1,7)
{\psset{fillstyle=solid,linestyle=none,fillcolor=Bluea}
\psframe(-1.2,3.5)(-0.4,3.6)
\psframe(-1.2,6)(-0.4,6.1)}
\psline(-1.2,3.5)(-0.5,3.5)
\psline(-1.2,3.6)(-0.5,3.6)
\psline(-1.2,6)(-0.5,6)
\psline(-1.2,6.1)(-0.5,6.1)
\psclip{\psarc(0,0){1.581}{180}{0}}
\psframe[linecolor=cyan,fillstyle=solid,fillcolor=Bluea](-2,-2)(2,-0.2)
\endpsclip
\psline(-0.7,2.5)(-0.5,2.5)(-0.5,1.5)
\psline(0.7,2.5)(0.5,2.5)(0.5,1.5)
\psarc(0,0){1.58}{108.43}{71.56}
\psline(-1.58,0)(-2.5,0)(-2.5,-2.5)(2.5,-2.5)(2.5,0)(1.58,0)
\psset{arrowscale=2}
\psline{->}(-3,3.55)(-1.3,3.55)
\psline{<-}(-3,6.05)(-1.2,6.05)
\end{pspicture}}
\end{center}
\end{minipage}
\section{L'ébullition du liquide et les bulles de vapeur}
Il s'agit de simuler l'ébullition du liquide avec les bulles de
vapeur qui prennent naissance au sein du liquide et l'agitation
désordonnée à la surface libre. Le hasard sera l'affaire de \verb+random.tex+ de
Donald \textsc{Arseneau}. L'idée d'utiliser ce générateur de
nombres aléatoires avait été aavancée par Denis \textsc{Girou}
lors de l'élaboration de notre première mouture de
\verb+pst-labo+.
\newdimen\BX
\newdimen\BY
\newdimen\RAYONBULLE
\newdimen\RayonOnde
\setrandim{\RayonOnde}{0.1\psunit}{0.2\psunit}
\makeatletter
\newcommand{\BILLES}[1][50]{%
\multido{\IBULLE=1+1}{#1}{\setrandim{\BX}{-1.5\psunit}{1.5\psunit}
\setrandim{\BY}{0\psunit}{2\psunit}
\pst@dimh=\BY
\setrandim{\RAYONBULLE}{0.01\psunit}{0.2\psunit}
\rput(0,0){\pscircle[style=BilleThreeD](\BX,-\BY){\RAYONBULLE}}}}
\newpsstyle{BilleThreeD}{linestyle=none,fillstyle=gradient,gradmidpoint=0,gradend=white}
\def\pstgoutte{\psbezier[linewidth=0.01,fillstyle=solid,fillcolor=Bluea](0,0)(-0.04,-0.083)(-0.083,-0.22)(0,-0.25)(0.083,-0.22)(0.04,-0.083)(0,0)}
\begin{minipage}{9cm}
\begin{shaded}
\begin{verbatim}
\newdimen\BX
\newdimen\BY
\newdimen\RAYONBULLE
% l'ondulation à la surface du liquide
\newdimen\RayonOnde
\setrandim{\RayonOnde}{0.1\psunit}
{0.2\psunit}
\makeatletter
\newcommand{\BILLES}[1][50]{%
\multido{\IBULLE=1+1}{#1}{%
\setrandim{\BX}{-1.5\psunit}
{1.5\psunit}
\setrandim{\BY}{0\psunit}
{2\psunit}
\pst@dimh=\BY
\setrandim{\RAYONBULLE}{0.01\psunit}
{0.2\psunit}
\rput(0,0){%
\pscircle[style=BilleThreeD]%
(\BX,-\BY){\RAYONBULLE}}}}
\end{verbatim}
\end{shaded}
Afin que ces bulles restent à l'intérieur du liquide il faut
effectuer à l'intérieur du premier \textsf{clipping}, un second
\textsf{clipping}, dont le chemin de délimitation sera le liquide
lui-même.
\begin{shaded}
\begin{verbatim}
\psclip{\psarc(0,0){1.581}{175}{5}}
\end{verbatim}
\definecolor{shadecolor}{cmyk}{0,0,1,0}
\begin{shaded}
\begin{verbatim}
\psclip{\pscustom[linecolor=cyan,%
fillstyle=solid,fillcolor=Bluea]{%
\pscurve(-2,-\RayonOnde)
(-1.75,0)(-1.5,-\RayonOnde)
(-1.25,0)(-1,-\RayonOnde)
(-0.75,0)(-0.5,-\RayonOnde)
(-0.25,0)(0,-\RayonOnde)
(0.25,0)(0.5,-\RayonOnde)
(0.75,0)(1,-\RayonOnde)
(1.25,0)(1.5,-\RayonOnde)
(1.75,0)(2,-\RayonOnde)
\psline(2,-\RayonOnde)(2,-2)(-2,-2)
(-2,-\RayonOnde)}}
\BILLES
\endpsclip
\end{verbatim}
\end{shaded}
\begin{verbatim}
\endpsclip
\end{verbatim}
\end{shaded}
\end{minipage}
\hfill
\begin{minipage}{5cm}
\begin{center}
\psframebox{\begin{pspicture}(-2.5,-3)(2.5,9)
\psframe[framearc=1,fillstyle=solid,fillcolor=Bluea](-.5,3)(0.5,7)
{\psset{fillstyle=hlines,hatchwidth=0.2pt,hatchsep=.7pt}
\pspolygon(-0.5,2.6)(0.5,2.6)(0.4,1.7)(-0.4,1.7)} \psframe[fillstyle=solid,linestyle=none,dimen=inner](-0.1,1)(0.1,7)
\psline[linearc=0.5](-.5,8.5)(-.3,8.4)(-.3,8)(-.3,7.5)(-.3,7.2)(-.1,7)
\psline[linearc=0.5](.5,8.5)(.3,8.4)(.3,8)(.3,7.5)(.3,7.2)(.1,7)
\psline(-0.1,1)(-0.1,7)
\psline(0.1,1)(0.1,7)
{\psset{fillstyle=solid,linestyle=none,fillcolor=Bluea}
\psframe(-1.2,3.5)(-0.4,3.6)
\psframe(-1.2,6)(-0.4,6.1)}
\psline(-1.2,3.5)(-0.5,3.5)
\psline(-1.2,3.6)(-0.5,3.6)
\psline(-1.2,6)(-0.5,6)
\psline(-1.2,6.1)(-0.5,6.1)
\psclip{\psarc(0,0){1.581}{175}{5}}
\psclip{\pscustom[linecolor=cyan,fillstyle=solid,fillcolor=Bluea]{ \pscurve(-2,-\RayonOnde)(-1.75,0)(-1.5,-\RayonOnde)(-1.25,0)(-1,-\RayonOnde)
(-0.75,0)(-0.5,-\RayonOnde)(-0.25,0)(0,-\RayonOnde)
(0.25,0)(0.5,-\RayonOnde)(0.75,0)(1,-\RayonOnde)
(1.25,0)(1.5,-\RayonOnde)(1.75,0)(2,-\RayonOnde)
\psline(2,-\RayonOnde)(2,-2)(-2,-2)(-2,-\RayonOnde)}}
\BILLES
\endpsclip
\endpsclip
\rput(0,1){\pstgoutte}
\rput(0,0.5){\pstgoutte}
\psline(-0.7,2.5)(-0.5,2.5)(-0.5,1.5)
\psline(0.7,2.5)(0.5,2.5)(0.5,1.5)
\psarc(0,0){1.58}{108.43}{71.56}
\psline(-1.58,0)(-2.5,0)(-2.5,-2.5)(2.5,-2.5)(2.5,0)(1.58,0)
\psset{arrowscale=2}
\psline{->}(-2.5,3.55)(-1.3,3.55)
\psline{<-}(-2.5,6.05)(-1.2,6.05)
\end{pspicture}}
\end{center}
\end{minipage}
\end{document}