summaryrefslogtreecommitdiff
path: root/graphics/mathspic/dos/mpicm03.m
blob: 846d2506b24074f17392a5030fe61671611efd80 (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
%% mpicm03.m (Figure 3)
\documentclass[a4paper]{article}
\usepackage{pictexwd}
\begin{document}
%%-----------
\beginpicture
paper{units(cm),xrange(0,6),yrange(0,3),axes(LBT*R*),ticks(1,1)}
point(P){4,2}[$\odot$]
point(B){2,0.5}
point(S){1,2}
drawPoints(PBS)
\setdashes
\inboundscheckon        %% restrict circles to drawing area
drawcircle(P,1)
drawcircle(P,2)
\setsolid
point*(P){P}[,1]        %% set line-free radius  of P to 1cm
drawArrow(BP)           %% draw arrow from B (below)
point*(P){P}[,2]        %% change line-free radius of P to 2cm
drawArrow(SP)           %% draw arrow from S (side)
text($S$){S, shift(-0.4,0)}
text($B$){B, shift(-0.4,0)}
text(\textsc{p}){P, shift(0.3,0)}
\newcommand{\textbox}{\fbox{text\hspace{17mm}box}}%
text(\textbox){P}
\endpicture
%%--------
\end{document}