%% mPICm05.m (figure 5)
%% mathsPIC rectangular box
\documentclass[a4paper]{article}
\usepackage{pictexwd}
\begin{document}
%%----------------------
\beginpicture
paper{units(mm), xrange(0,50), yrange(0,62)}
variable(s){20} % Sides front & back
variable(L){34} % Length
variable(a2){56.6} % Angle degrees
\def\fancydashes{\setdashpattern <6pt, 2pt, 1pt, 2pt>}
point(A){5,7}
point(B){A, polar(s,90)}
point(C){B, polar(s,0)}
point(D){A, polar(s,0 )}
point(H){A, polar(L,a2 deg)}
point(G){B, polar(L,a2 deg)}
point(F){C, polar(L,a2 deg)}
point(E){D, polar(L,a2 deg)}
drawpoints(ABCDEFGH)
\linethickness=2pt \setsolid
drawlines(ABCDA)
\setdashes
drawlines(HGFEH)
\linethickness=0.4pt \fancydashes
drawlines(AH, BG, CF, DE)
text($A$){A, shift(-2,-4)}
text($B$){B, shift(-4,1)}
text($C$){C, shift(4,0)}
text($D$){D, shift(1,-4)}
text($E$){E, shift(4,0)}
text($F$){F, shift(2,4)}
text($G$){G, shift(-1,4)}
text($H$){H, shift(-4,1)}
\endpicture
%%-------------------
\end{document}