summaryrefslogtreecommitdiff
path: root/graphics/mathspic/dos/mpicm06.m
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/mpicm06.m
Initial commit
Diffstat (limited to 'graphics/mathspic/dos/mpicm06.m')
-rw-r--r--graphics/mathspic/dos/mpicm06.m72
1 files changed, 72 insertions, 0 deletions
diff --git a/graphics/mathspic/dos/mpicm06.m b/graphics/mathspic/dos/mpicm06.m
new file mode 100644
index 0000000000..9aea827384
--- /dev/null
+++ b/graphics/mathspic/dos/mpicm06.m
@@ -0,0 +1,72 @@
+%% mPICm06.m (figure 6)
+%% mathsPIC boxed setArrowShape diagram
+\documentclass[a4paper]{article}
+\usepackage{pictexwd}
+\begin{document}
+%%-------------------
+\beginpicture
+paper{units(mm), xrange(0,100), yrange(0,70), axes(LBTR)}%, ticks(10,10)}
+%% first do all the small arrows (from top down)
+point(J11){5,30}
+ point(J12){20,30}
+point(J9){5,25}
+ point(J10){20,25}
+point(J7){5,20}
+ point(J8){20,20}
+point(J5){5,15}
+ point(J6){20,15}
+point(J3){5,10}
+ point(J4){20,10}
+point(J1){5,5}
+ point(J2){20,5}
+%%
+arrowshape(6,30,60)
+ drawArrows(J11J12)
+arrowshape(4,30,60)
+ drawArrows(J9J10)
+arrowshape(2,30,60)
+ drawArrows(J7J8)
+arrowshape(6,30,40)
+ drawArrows(J5J6)
+arrowshape(4,30,40)
+ drawArrows(J3J4)
+arrowshape(2,30,40)
+ drawArrows(J1J2)
+%%
+text(\texttt{Arrowshape(2,30,40)}){J2,shift(5,0)}[l]
+text(\texttt{Arrowshape(4,30,40)}){J4,shift(5,0)}[l]
+text(\texttt{Arrowshape(6,30,40)}){J6,shift(5,0)}[l]
+text(\texttt{Arrowshape(2,30,60)}){J8,shift(5,0)}[l]
+text(\texttt{Arrowshape(4,30,60)}){J10,shift(5,0)}[l]
+text(\texttt{Arrowshape(6,30,60)}){J12,shift(5,0)}[l]
+%%
+%% now draw big arrow
+point(D){30,40}
+point(A){D,shift(62,0)}
+arrowshape(20,50,75)
+drawArrow(DA)
+point(B1){82,44.75}
+point(B2){82,35.25}
+point(C1){72,55}
+point(C2){72,25}
+drawpoints(DAB1B2C1C2)
+text($A$){A, shift(4,0)}
+text($B_1$){B1, shift(3,3)}
+text($B_2$){B2, shift(3,-3)}
+text($C_1$){C1, shift(-4,3)}
+text($C_2$){C2, shift(0,-4)}
+text($D$){D, shift(-4,0)}
+%%
+point(T1){10,63}
+point(T2){10,57}
+point(T3){10,51}
+text(\texttt{Arrowshape($L$,$B$,$C$)}){T1}[l]
+text($B$ = \mbox{angle $B_1AB_2$ degrees}){T2}[l]
+text($C$ = \mbox{angle $C_1AC_2$ degrees}){T3}[l]
+%%
+\betweenarrows {$L$} from 74 55 to 92 55
+\endpicture
+%%-------------------
+\end{document}
+
+