%* -------------------------------------------
%* Input Filename:  pot.m
%%--------------------------------------------
\documentclass[11pt]{article}
\usepackage{pictexwd}
\begin{document}
%%--------------------------------------------
pictex{\beginpicture}
%% paper{units(in)xrange(0,2),yrange(0,3)}  
\setcoordinatesystem units < 1in, 1in>
\setplotarea x from  0 to  2, y from  0 to  3
point(A){0,0}  ( 0 , 0 )  
point(B){1,0}  ( 1 , 0 )  
point(C){1,1}  ( 1 , 1 )  
point(D){C,polar(1,45deg)}  
point(E){C,polar(2,45deg)}  
point(F){C,polar(1,135deg)}  
point(G){C,polar(2,135deg)}  
point(H){G,polar(1,0deg)}  
point(I){E,polar(-1,0deg)}
point(I2){E,polar(-1,-60deg)}
point(H2){G,polar(1,60deg)}
point(A1){C,polar(1,225deg)}
point(A2){c,polar(1,-45deg)}
point(J){2,0}  ( 2 , 0 )
point(C1){0,1}
point(C2){2,1}
drawLine(AJ)  
drawpoint(ABCDEFGHIJI2H2C1C2A1A2)
DrawCurve(FC1A1)
DrawCurve(A1BA2)
DrawCurve(A2C2D)
DrawCurve(DII2)
DrawCurve(FHH2)
DrawThickLine(H2I2)
variable(v){0.15}
text($A$){A, shift(-v,0)}
text($B$){B, shift(0,v)}
text($C$){C, shift(v,0)}
text($C1$){C1, shift(-v,0)}
text($C2$){C2, shift(v,0)}
text($A1$){A1, shift(-v,0)}
text($A2$){A2, shift(v,0)}
text($F$){F, shift(-v,0)}
text($D$){D, shift(v,0)}
text($H$){H, shift(-v,0)}
text($I$){I, shift(v,0)}
text($H2$){H2, shift(-v,0)}
text($I2$){I2, shift(v,0)}
text($G$){G, shift(v,0)}
text($E$){E, shift(v,0)}
text($J$){J, shift(v,0)}

pictex{\endpicture}

\begin{verbatim}{Refer to out.TeX in c:\tmp directory}
\end{verbatim}
\end{document}
