%* -------------------------------------------
%* mathsPIC 2.1
%* Copyright (c) RWD Nickalls 1999-2000
%* Email: dicknickalls@compuserve.com
%* Date (m/d/y) : 11-05-2000  20:59:41
%* Command Line: /b/s  MPICM06.M
%* Input Filename:  MPICM06.M
%* Output Filename: MPICM06.MT
%* -------------------------------------------
%% 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)}
\setcoordinatesystem units < 1mm, 1mm>
\setplotarea x from  0 to  100, y from  0 to  70
\axis left /
\axis right /
\axis top /
\axis bottom /
%% first do all the small arrows (from top down)
%% point(J11){5,30}  ( 5 , 30 )  
%% 	point(J12){20,30}  ( 20 , 30 )  
%% point(J9){5,25}  ( 5 , 25 )  
%% 	point(J10){20,25}  ( 20 , 25 )  
%% point(J7){5,20}  ( 5 , 20 )  
%% 	point(J8){20,20}  ( 20 , 20 )  
%% point(J5){5,15}  ( 5 , 15 )  
%% 	point(J6){20,15}  ( 20 , 15 )  
%% point(J3){5,10}  ( 5 , 10 )  
%% 	point(J4){20,10}  ( 20 , 10 )  
%% point(J1){5,5}  ( 5 , 5 )  
%% 	point(J2){20,5}  ( 20 , 5 )  
%%
%% arrowshape(6,30,60)  
%% drawArrows(J11J12)  
\arrow < 6mm>  [ .2679492, 1.154701] from   5  30 to  20  30
%% arrowshape(4,30,60)  
%% drawArrows(J9J10)  
\arrow < 4mm>  [ .2679492, 1.154701] from   5  25 to  20  25
%% arrowshape(2,30,60)  
%% drawArrows(J7J8)  
\arrow < 2mm>  [ .2679492, 1.154701] from   5  20 to  20  20
%% arrowshape(6,30,40)  
%% drawArrows(J5J6)  
\arrow < 6mm>  [ .2679492, .7279404] from   5  15 to  20  15
%% arrowshape(4,30,40)  
%% drawArrows(J3J4)  
\arrow < 4mm>  [ .2679492, .7279404] from   5  10 to  20  10
%% arrowshape(2,30,40)  
%% drawArrows(J1J2)  
\arrow < 2mm>  [ .2679492, .7279404] from   5  5 to  20  5
%%
%% text(\texttt{Arrowshape(2,30,40)}){J2,shift(5,0)}[l]  
\put {\texttt{Arrowshape(2,30,40)}} [l]  at  25  5
%% text(\texttt{Arrowshape(4,30,40)}){J4,shift(5,0)}[l]  
\put {\texttt{Arrowshape(4,30,40)}} [l]  at  25  10
%% text(\texttt{Arrowshape(6,30,40)}){J6,shift(5,0)}[l]  
\put {\texttt{Arrowshape(6,30,40)}} [l]  at  25  15
%% text(\texttt{Arrowshape(2,30,60)}){J8,shift(5,0)}[l]  
\put {\texttt{Arrowshape(2,30,60)}} [l]  at  25  20
%% text(\texttt{Arrowshape(4,30,60)}){J10,shift(5,0)}[l]  
\put {\texttt{Arrowshape(4,30,60)}} [l]  at  25  25
%% text(\texttt{Arrowshape(6,30,60)}){J12,shift(5,0)}[l]  
\put {\texttt{Arrowshape(6,30,60)}} [l]  at  25  30
%%
%% now draw big arrow
%% point(D){30,40}  ( 30 , 40 )  
%% point(A){D,shift(62,0)}  ( 92 , 40 )  
%% arrowshape(20,50,75)  
%% drawArrow(DA)  
\arrow < 20mm>  [ .4663076, 1.534654] from   30  40 to  92  40
%% point(B1){82,44.75}  ( 82 , 44.75 )  
%% point(B2){82,35.25}  ( 82 , 35.25 )  
%% point(C1){72,55}  ( 72 , 55 )  
%% point(C2){72,25}  ( 72 , 25 )  
%% drawpoints(DAB1B2C1C2)  
\put {$\bullet$} at  30  40  %% D
\put {$\bullet$} at  92  40  %% A
\put {$\bullet$} at  82  44.75  %% B1
\put {$\bullet$} at  82  35.25  %% B2
\put {$\bullet$} at  72  55  %% C1
\put {$\bullet$} at  72  25  %% C2
%% text($A$){A,shift(4,0)}  
\put {$A$} at  96  40
%% text($B_1$){B1,shift(3,3)}  
\put {$B_1$} at  85  47.75
%% text($B_2$){B2,shift(3,-3)}  
\put {$B_2$} at  85  32.25
%% text($C_1$){C1,shift(-4,3)}  
\put {$C_1$} at  68  58
%% text($C_2$){C2,shift(0,-4)}  
\put {$C_2$} at  72  21
%% text($D$){D,shift(-4,0)}  
\put {$D$} at  26  40
%%
%% point(T1){10,63}  ( 10 , 63 )  
%% point(T2){10,57}  ( 10 , 57 )  
%% point(T3){10,51}  ( 10 , 51 )  
%% text(\texttt{Arrowshape($L$,$B$,$C$)}){T1}[l]  
\put {\texttt{Arrowshape($L$,$B$,$C$)}} [l]  at  10  63
%% text($B$ = \mbox{angle $B_1AB_2$ degrees}){T2}[l]  
\put {$B$ = \mbox{angle $B_1AB_2$ degrees}} [l]  at  10  57
%% text($C$ = \mbox{angle $C_1AC_2$ degrees}){T3}[l]  
\put {$C$ = \mbox{angle $C_1AC_2$ degrees}} [l]  at  10  51
%%
\betweenarrows  {$L$} from 74 55  to  92 55
\endpicture
%%-------------------
%\end{document}