summaryrefslogtreecommitdiff
path: root/graphics/mathspic/dos/mpicm08a.m
blob: 5812fdf89d09bb385044edb1307cef05341fdfbc (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
%% mPICm08a.m (figure 8a)
\documentclass[a4paper]{article}
\usepackage{pictexwd}
\begin{document}
%\framebox{\vbox{
%%-------------------
\beginpicture
paper{units(mm),xrange(10,40),yrange(0,45)}%, axes(LB), ticks(10,10)}
point(N){15,20}
point(S){N,shift(20,0)}
text(\framebox{$N$}){N,shift(0,-2.5)}
text(\framebox{$S$}){S,shift(0,-2.5)}
point(Z){midpoint(NS)}
drawAngleArrow{angle(NZS),radius(NZ),clockwise,internal}
point(N1){N,shift(2,1)}
point(S1){S,shift(-2,1)}
point(Z1){Z,shift(0,-3)}
drawAngleArrow{angle(N1Z1S1),radius(N1Z1),clockwise,internal}
point(N2){N1,shift(2,-0.5)}
point(S2){S1,shift(-2,-0.5)}
point(Z2){Z,shift(0,-10)}
drawAngleArrow{angle(N2Z2S2),radius(N2Z2),clockwise,internal}
\endpicture
%\  }}
\end{document}