prologues := 2;
% input metaobj.mp;
input hatching.mp;
extra_endfig := "currentpicture := currentpicture shifted -llcorner currentpicture;";
verbatimtex
%&latex
\documentclass{article}
\begin{document}
etex
beginfig(1);
  numeric u;
  u := 1cm;
%   drawarrow origin -- 10u * up;
%   drawarrow origin -- 10u * right;
  pickup pencircle scaled 2;
  path pp;
  pp := (-5u, 0) -- (-u, 0) -- (-u, -.5u) -- (0, -.5u);
%  draw pp xscaled -1;
%  draw pp;
  pp := pp .. reverse(pp xscaled -1);
  draw pp;
  path qq;
  qq := origin - 5u * dir (0) -- origin - .2u * dir (0) --
  origin - .2u * dir (0) - .5u * dir (90);
  qq := qq shifted (3u * dir (90));
  draw qq xscaled -1;
  draw qq;
  for i=1 upto 3:
    pair p;
    xpart p = xpart origin;
    ypart p = ypart point 2 of qq;
    draw p + .5u * dir(-45 * i) --  p + u * dir(-45 * i)
    dashed evenly withpen pencircle scaled 1;
  endfor;
  for i=1 upto 4:
    pair p;
    p := (i/5)[point 0 of qq, point 0 of pp];
    drawarrow p - .5u * dir (0) -- p + .5u * dir (0) withpen pencircle scaled .2;
    p := (i/5)[point 0 of (qq xscaled -1), point length(pp) of pp];
    drawarrow p - .5u * dir (0) -- p + .5u * dir (0) withpen pencircle scaled .2;
  endfor;
  label(btex \vbox{\hbox{\tt water}\hbox{\tt spray}} etex,
    (point 2 of qq) shifted (-.5u * dir (0)));
  label(btex \vbox{\hbox{\tt unsaturated}\hbox{\tt vapor}} etex, (-3u, 1.5u));
  label(btex \vbox{\hbox{\tt saturated}\hbox{\tt vapor}} etex, (7u, 1.5u));
  path wl;
  wl := (-10u, -.25u) -- (10u, -.25u);
  path wp;
  pickup pencircle scaled .2;
  wp := (wl intersectionpoint pp) -- (wl intersectionpoint reverse(pp));
  draw wp;
  draw wp shifted (.05u * down) dashed evenly;
  draw wp shifted (.15u * down) dashed evenly;
  currentpicture := currentpicture scaled 1.5;
endfig;
end;