summaryrefslogtreecommitdiff
path: root/graphics/mathspic/dos/mpicm01.m
blob: 5cc6990e103a6a9ed2d3493b38928a4910183dd8 (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
%% mPICm01.m (figure 1)
%% mathsPIC  (smallTriangle with incircle)
%%-------------------
\documentclass[a4paper]{article}
\usepackage{pictexwd}
\begin{document}
%%---------------------
pictex{\beginpicture}
paper{units(cm) xrange(0,5), yrange(0,2.5)}
point(A){0,0}
point(B){A, polar(5, 10 deg)}
point(C){A, polar(3, 50 deg)}
drawpoint(ABC)
drawTriangle(ABC)
drawIncircle(ABC)
variable(d){0.5}
text($A$){A, shift(-d,0)}
text($B$){B, shift(d,0)}
text($C$){C, shift(-d,0)}
pictex{\endpicture}
%%-----------------
\end{document}