summaryrefslogtreecommitdiff
path: root/graphics/mathspic/dos/mpicm04.m
blob: f9454611fbcb2e3b7109126c1c8a7ca9cfaeadc1 (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
%% mPICm04.m  (figure 4)
%% mathsPIC   triangle
\documentclass[a4paper]{article}
\usepackage{pictexwd}
\begin{document}
%%-------------------
\beginpicture
\setdashes
paper{units(mm),xrange(0,70),yrange(0,50),axes(LRTB),ticks(10,10)}
\setsolid
point(A){10,10}[$\odot$,1.2]     %% anchor point
point(B){A, polar(40, 50 deg)}[$\odot$,1.2]
point(C){A, polar(50, 10 deg)}[$\odot$,1.2]
point(D){perpendicular(B,AC)}
drawPoints(ABCD)
drawLine(ABCA)
\setdashes
drawLine(BD)
\setsolid
drawRightangle(BDC,2.5)
text($B$){B, shift(-1,4)}
text($A$){A, shift(-4,-2)}
text($C$){C, shift(4,-1)}
text($D$){D, shift(1,-4)}
showLength(BD)
showLength(AC)
showArea(ABC)
\endpicture
%%------------------
\end{document}