summaryrefslogtreecommitdiff
path: root/graphics/mathspic/dos/mpicm03.pic
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /graphics/mathspic/dos/mpicm03.pic
Initial commit
Diffstat (limited to 'graphics/mathspic/dos/mpicm03.pic')
-rw-r--r--graphics/mathspic/dos/mpicm03.pic54
1 files changed, 54 insertions, 0 deletions
diff --git a/graphics/mathspic/dos/mpicm03.pic b/graphics/mathspic/dos/mpicm03.pic
new file mode 100644
index 0000000000..bd7a056a8e
--- /dev/null
+++ b/graphics/mathspic/dos/mpicm03.pic
@@ -0,0 +1,54 @@
+%* -------------------------------------------
+%* mathsPIC 2.1
+%* Copyright (c) RWD Nickalls 1999-2000
+%* Email: dicknickalls@compuserve.com
+%* Date (m/d/y) : 11-05-2000 20:55:19
+%* Command Line: /b/s MPICM03.M
+%* Input Filename: MPICM03.M
+%* Output Filename: MPICM03.MT
+%* -------------------------------------------
+%% 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)}
+\setcoordinatesystem units < 1cm, 1cm>
+\setplotarea x from 0 to 6, y from 0 to 3
+\axis left ticks numbered from 0 to 3 by 1 /
+\axis right /
+\axis top /
+\axis bottom ticks numbered from 0 to 6 by 1 /
+%% point(P){4,2}[$\odot$] ( 4 , 2 )
+%% point(B){2,0.5} ( 2 , .5 )
+%% point(S){1,2} ( 1 , 2 )
+%% drawPoints(PBS)
+\put {$\odot$} at 4 2 %% P
+\put {$\bullet$} at 2 .5 %% B
+\put {$\bullet$} at 1 2 %% S
+\setdashes
+\inboundscheckon %% restrict circles to drawing area
+%% drawcircle(P,1)
+\circulararc 360 degrees from 5 2 center at 4 2
+%% drawcircle(P,2)
+\circulararc 360 degrees from 6 2 center at 4 2
+\setsolid
+%% point*(P){P}[,1] ( 4 , 2 ) %% set line-free radius of P to 1cm
+%% drawArrow(BP) %% draw arrow from B (below)
+\arrow < 2mm> [ .2679492, .7279404] from 2 .5 to 3.2 1.4
+%% point*(P){P}[,2] ( 4 , 2 ) %% change line-free radius of P to 2cm
+%% drawArrow(SP) %% draw arrow from S (side)
+\arrow < 2mm> [ .2679492, .7279404] from 1 2 to 2 2
+%% text($S$){S,shift(-0.4,0)}
+\put {$S$} at .6 2
+%% text($B$){B,shift(-0.4,0)}
+\put {$B$} at 1.6 .5
+%% text(\textsc{p}){P,shift(0.3,0)}
+\put {\textsc{p}} at 4.3 2
+\newcommand{\textbox}{\fbox{text\hspace{17mm}box}}%
+%% text(\textbox){P}
+\put {\textbox} at 4 2
+\endpicture
+%%--------
+%\end{document}