Moving contact line

Moving contact line

\documentclass[border=10pt]{standalone}
\usepackage{asymptote}
\begin{document}
\begin{asy}[width=\the\linewidth,inline=true]
unitsize(1cm);

path a = (1,2.4)--(4,0.6)..(4.5,1)..(4.1,1.9)..(3.9,2)..cycle;
draw(a);
fill(a,cyan);

path b = (0,3)--(5,0);
draw(b,linewidth(2));

path c = shift(4,0.6)*scale(0.6)*unitcircle;
draw(c,red+dashed);

path d = (5,1.2)--(6,1.8);
draw(d,EndArrow);

path e = shift(8,3)*scale(2)*unitcircle;
draw(e,red+dashed);

path f = (9.4,1.6)--(6.1,3.58);
draw(f,linewidth(2));

path g = (8,2.44)..(8.8,3.2)..(8.6,3.8)..(8.4,4.1);
draw(g,dashed);
dot(g,red);
label("$a_0,a_1$",(8,2.44),SW);
label("$b_0$",(8.8,3.2),W);
label("$c_0$",(8.6,3.8),W);
\end{asy}
\end{document}
end{asy}
end{document}

Source: TeX.SE

Author: Aashutosh (License)