summaryrefslogtreecommitdiff
path: root/graphics/mathspic/dos/mpicm05.m
blob: ae3c9278cb5bb6d2cb53d447061021b5fd1fe7fb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
%% 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}