summaryrefslogtreecommitdiff
path: root/graphics/mathspic/dos/mpicm08a.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/mpicm08a.pic
Initial commit
Diffstat (limited to 'graphics/mathspic/dos/mpicm08a.pic')
-rw-r--r--graphics/mathspic/dos/mpicm08a.pic44
1 files changed, 44 insertions, 0 deletions
diff --git a/graphics/mathspic/dos/mpicm08a.pic b/graphics/mathspic/dos/mpicm08a.pic
new file mode 100644
index 0000000000..885fb80839
--- /dev/null
+++ b/graphics/mathspic/dos/mpicm08a.pic
@@ -0,0 +1,44 @@
+%* -------------------------------------------
+%* mathsPIC 2.1
+%* Copyright (c) RWD Nickalls 1999-2000
+%* Email: dicknickalls@compuserve.com
+%* Date (m/d/y) : 11-05-2000 21:02:19
+%* Command Line: /b/s MPICM08A.M
+%* Input Filename: MPICM08A.M
+%* Output Filename: MPICM08A.MT
+%* -------------------------------------------
+%% 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)}
+\setcoordinatesystem units < 1mm, 1mm>
+\setplotarea x from 10 to 40, y from 0 to 45
+%% point(N){15,20} ( 15 , 20 )
+%% point(S){N,shift(20,0)} ( 35 , 20 )
+%% text(\framebox{$N$}){N,shift(0,-2.5)}
+\put {\framebox{$N$}} at 15 17.5
+%% text(\framebox{$S$}){S,shift(0,-2.5)}
+\put {\framebox{$S$}} at 35 17.5
+%% point(Z){midpoint(NS)} ( 25 , 20 )
+%% drawAngleArrow{angle(NZS),radius(NZ),clockwise,internal}
+\circulararc -180 degrees from 15 20 center at 25 20
+\arrow <1.5mm> [0.5, 1] from 34.95 20.99875 to 35 20
+%% point(N1){N,shift(2,1)} ( 17 , 21 )
+%% point(S1){S,shift(-2,1)} ( 33 , 21 )
+%% point(Z1){Z,shift(0,-3)} ( 25 , 17 )
+%% drawAngleArrow{angle(N1Z1S1),radius(N1Z1),clockwise,internal}
+\circulararc -126.8699 degrees from 17 21 center at 25 17
+\arrow <1.5mm> [0.5, 1] from 32.50349 21.86803 to 33 21
+%% point(N2){N1,shift(2,-0.5)} ( 19 , 20.5 )
+%% point(S2){S1,shift(-2,-0.5)} ( 31 , 20.5 )
+%% point(Z2){Z,shift(0,-10)} ( 25 , 10 )
+%% drawAngleArrow{angle(N2Z2S2),radius(N2Z2),clockwise,internal}
+\circulararc -59.48976 degrees from 19 20.5 center at 25 10
+\arrow <1.5mm> [0.5, 1] from 30.11199 20.95982 to 31 20.5
+\endpicture
+%\ }}
+%\end{document}