summaryrefslogtreecommitdiff
path: root/graphics/mathspic/dos/mpicm05.pic
blob: f703fc38b9ab69342694b87e81aa4098c5ce2378 (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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
%* -------------------------------------------
%* mathsPIC 2.1
%* Copyright (c) RWD Nickalls 1999-2000
%* Email: dicknickalls@compuserve.com
%* Date (m/d/y) : 11-05-2000  20:58:13
%* Command Line: /b/s  MPICM05.M
%* Input Filename:  MPICM05.M
%* Output Filename: MPICM05.MT
%* -------------------------------------------
%% mPICm05.m (figure 5)
%% mathsPIC  rectangular box
%\documentclass[a4paper]{article}
%\usepackage{pictexwd}
%\begin{document}
%%----------------------
\beginpicture
%% paper{units(mm),xrange(0,50),yrange(0,62)}  
\setcoordinatesystem units < 1mm, 1mm>
\setplotarea x from  0 to  50, y from  0 to  62
%% variable(s){20}  ( 20 )  % Sides front & back
%% variable(L){34}  ( 34 )  % Length
%% variable(a2){56.6}  ( 56.6 )  % Angle degrees
\def\fancydashes{\setdashpattern <6pt, 2pt, 1pt, 2pt>}
%% point(A){5,7}  ( 5 , 7 )  
%% point(B){A,polar(s,90)}  ( 5 , 27 )  
%% point(C){B,polar(s,0)}  ( 25 , 27 )  
%% point(D){A,polar(s,0)}  ( 25 , 7 )  
%% point(H){A,polar(L,a2deg)}  ( 23.71635 , 35.38483 )  
%% point(G){B,polar(L,a2deg)}  ( 23.71635 , 55.38483 )  
%% point(F){C,polar(L,a2deg)}  ( 43.71635 , 55.38483 )  
%% point(E){D,polar(L,a2deg)}  ( 43.71635 , 35.38483 )  
%% drawpoints(ABCDEFGH)  
\put {$\bullet$} at  5  7  %% A
\put {$\bullet$} at  5  27  %% B
\put {$\bullet$} at  25  27  %% C
\put {$\bullet$} at  25  7  %% D
\put {$\bullet$} at  43.71635  35.38483  %% E
\put {$\bullet$} at  43.71635  55.38483  %% F
\put {$\bullet$} at  23.71635  55.38483  %% G
\put {$\bullet$} at  23.71635  35.38483  %% H
\linethickness=2pt   \setsolid
%% drawlines(ABCDA)  
\putrule from   5  7 to  5  27  %% AB
\putrule from   5  27 to  25  27  %% BC
\putrule from   25  27 to  25  7  %% CD
\putrule from   25  7 to  5  7  %% DA
\setdashes
%% drawlines(HGFEH)  
\putrule from   23.71635  35.38483 to  23.71635  55.38483  %% HG
\putrule from   23.71635  55.38483 to  43.71635  55.38483  %% GF
\putrule from   43.71635  55.38483 to  43.71635  35.38483  %% FE
\putrule from   43.71635  35.38483 to  23.71635  35.38483  %% EH
\linethickness=0.4pt  \fancydashes
%% drawlines(AH,BG,CF,DE)  
\plot   5  7     23.71635  35.38483 /  %% AH
\plot   5  27     23.71635  55.38483 /  %% BG
\plot   25  27     43.71635  55.38483 /  %% CF
\plot   25  7     43.71635  35.38483 /  %% DE
%% text($A$){A,shift(-2,-4)}  
\put {$A$} at  3  3
%% text($B$){B,shift(-4,1)}  
\put {$B$} at  1  28
%% text($C$){C,shift(4,0)}  
\put {$C$} at  29  27
%% text($D$){D,shift(1,-4)}  
\put {$D$} at  26  3
%% text($E$){E,shift(4,0)}  
\put {$E$} at  47.71635  35.38483
%% text($F$){F,shift(2,4)}  
\put {$F$} at  45.71635  59.38483
%% text($G$){G,shift(-1,4)}  
\put {$G$} at  22.71635  59.38483
%% text($H$){H,shift(-4,1)}  
\put {$H$} at  19.71635  36.38483
\endpicture
%%-------------------
%\end{document}