%Copyright (C)  2014  Setsuo Takato, KETpic developer team
%* 
%* This program is free software: you can redistribute it and/or modify
%* it under the terms of the GNU General Public License as published by
%* the Free Software Foundation; either version 3 of the License, or
%* (at your option) any later version.
%* 
%* This program is distributed in the hope that it will be useful,
%* but WITHOUT ANY WARRANTY; without even the implied warranty of
%* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
%* GNU General Public License for more details.
%* 
%* You should have received a copy of the GNU General Public License
%* along with this program.  If not, see <http://www.gnu.org/licenses/>
%   2018.09.20
%       setmargintrue added
%   2016.12.08
%      NEarrow,..., NERarrow,...  added
%          argument(option)=size
%   2016.04.07
%       ketcindy, selarrow, serarrow, nelarrow, nerarrow  
%   2010.09.17 %
%
\newcounter{ketpicctra}%
\newcounter{ketpicctrb}%
\newcounter{ketpicctrc}%
\newcounter{ketpicctrd}%
\newcounter{ketpicctre}%
\newcounter{ketpicctrf}%
\newcounter{ketpicctrg}%
\newcounter{ketpicctrh}%
\newcounter{ketpicctri}%
\newcounter{ketpicctrj}%
\def\ketpic{%
{K\kern-.20em\lower.5ex\hbox{E}\kern-.125em{Tpic}}%
%
}%
\def\ketcindy{{K\kern-.20em%
\lower.5ex\hbox{E}\kern-.125em{TCindy}}}%
\def\KeTpic{\ketpic}%
\def\KeTCindy{\ketcindy}%
\newlength{\Width}%
\newlength{\Height}%
\newlength{\Depth}%
\newcommand{\Ltab}[2]{%
\settowidth{\Width}{#2}%
\setlength{\Width}{-\Width}%
\addtolength{\Width}{#1}%
#2\hspace{\Width}\mbox{}%
%
}%
\newcommand{\Rtab}[2]{%
\settowidth{\Width}{#2}%
\setlength{\Width}{-\Width}%
\addtolength{\Width}{#1}%
\hspace*{\Width}#2\mbox{}%
%
}%
\newcommand{\Ctab}[2]{%
\settowidth{\Width}{#2}%
\setlength{\Width}{-\Width}%
\addtolength{\Width}{#1}%
\setlength{\Width}{0.5\Width}%
\hspace*{\Width}#2\hspace{\Width}\mbox{}%
%
}%
\newcommand{\vbackward}[1]{%
\settoheight{\Height}{#1}%
\vspace*{-\Height}%
%
}%
\newcommand{\vforward}[1]{%
\settoheight{\Height}{#1}%
\vspace*{\Height}%
%
}%
\newcommand{\usepack}{%
\usepackage{amsmath,amssymb}%
\usepackage{graphicx}%
\usepackage{color}%
%
}%
\newcommand{\setmargin}[4]{%
\setlength{\oddsidemargin}{-25.4mm}%
\addtolength{\oddsidemargin}{#1 mm}%
\setlength{\textwidth}{\paperwidth}%
\addtolength{\textwidth}{-#1 mm}%
\addtolength{\textwidth}{-#2 mm}%
\setlength{\headheight}{0mm}%
\setlength{\headsep}{0mm}%
\setlength{\topmargin}{-25.4mm}%
\addtolength{\topmargin}{#3 mm}%
\setlength{\textheight}{\paperheight}%
\addtolength{\textheight}{-#3 mm}%
\addtolength{\textheight}{-#4 mm}%
%
}%
\newcommand{\setmargintrue}[4]{
\setlength{\oddsidemargin}{-25.4truemm}%
\addtolength{\oddsidemargin}{#1 truemm}%
\setlength{\textwidth}{\paperwidth}%
\addtolength{\textwidth}{-#1 truemm}%
\addtolength{\textwidth}{-#2 truemm}%
\setlength{\topmargin}{-25.4truemm}% 1in=25.4mm
\addtolength{\topmargin}{#3 truemm}%
\addtolength{\topmargin}{-\headheight}%
\addtolength{\topmargin}{-\headsep}%
\addtolength{\topmargin}{-\topskip}%
\setlength{\textheight}{\paperheight}%
\addtolength{\textheight}{-#3 truemm}%
\addtolength{\textheight}{-#4 truemm}%
\addtolength{\textheight}{\topskip}%
%
}%
\newcommand{\ketcalcwidth}[2][0]{%
\settowidth{\Depth}{#2}%
\setlength{\Width}{0\unitlength}%
\setcounter{ketpicctra}{0}%
\setcounter{ketpicctra}{1}%
\addtocounter{ketpicctra}{-1}%
%
{%
\loop%
\addtocounter{ketpicctra}{1}%
\addtolength{\Width}{\unitlength}%
%
{%
\ifdim %
\Width>\Depth  %
\addtocounter{ketpicctra}{6000}%
%
\fi%
}%
%
\ifnum\theketpicctra<5000%
\repeat%
}%
\addtocounter{ketpicctra}{-6000}%
%
{%
\ifnum %
#1>0 %
\theketpicctra%
%
\fi%
}%
%
}%
\newcommand{\ketcalcheight}[2][0]{%
\settoheight{\Depth}{#2}%
\setlength{\Height}{0\unitlength}%
\setcounter{ketpicctra}{0}%
\setcounter{ketpicctra}{1}%
\addtocounter{ketpicctra}{-1}%
%
{%
\loop%
\addtocounter{ketpicctra}{1}%
\addtolength{\Height}{\unitlength}%
%
{%
\ifdim %
\Height>\Depth  %
\addtocounter{ketpicctra}{6000}%
%
\fi%
}%
%
\ifnum\theketpicctra<5000%
\repeat%
}%
\addtocounter{ketpicctra}{-6000}%
%
{%
\ifnum %
#1>0 %
\theketpicctra%
%
\fi%
}%
%
}%
\newcommand{\ketcalcdepth}[2][0]{%
\settodepth{\Width}{#2}%
\setlength{\Depth}{0\unitlength}%
\setcounter{ketpicctra}{0}%
\setcounter{ketpicctra}{1}%
\addtocounter{ketpicctra}{-1}%
%
{%
\loop%
\addtocounter{ketpicctra}{1}%
\addtolength{\Depth}{\unitlength}%
%
{%
\ifdim %
\Depth>\Width  %
\addtocounter{ketpicctra}{5000}%
%
\fi%
}%
%
\ifnum\theketpicctra<5000%
\repeat%
}%
\addtocounter{ketpicctra}{-5000}%
%
{%
\ifnum %
#1>0 %
\theketpicctra%
%
\fi%
}%
%
}%
\newcommand{\ketcalcwh}[1]{%
{\unitlength=0.1mm%
\ketcalcwidth{#1}%
\setcounter{ketpicctrb}{\value{ketpicctra}}%
\divide\value{ketpicctrb} by 10%
\addtocounter{ketpicctrb}{0}%
\{\theketpicctrb.%
\multiply\value{ketpicctrb} by 10%
\addtocounter{ketpicctrb}{0}%
\addtocounter{ketpicctra}{-\value{ketpicctrb}}%
\theketpicctra\}\{%
\ketcalcheight{#1}%
\setcounter{ketpicctrb}{\value{ketpicctra}}%
\ketcalcdepth{#1}%
\addtocounter{ketpicctra}{\value{ketpicctrb}}%
\setcounter{ketpicctrb}{\value{ketpicctra}}%
\divide\value{ketpicctrb} by 10%
\addtocounter{ketpicctrb}{0}%
\theketpicctrb.%
\multiply\value{ketpicctrb} by 10%
\addtocounter{ketpicctrb}{0}%
\addtocounter{ketpicctra}{-\value{ketpicctrb}}%
\theketpicctra\}%
%
}%
%
}%
\newcommand{\dangerbendmark}[1][1]{%
\def\tmpcontents{%
{\unitlength=0.911mm%
\begin{picture}%
(   3.85104,   4.34364)(   3.18983,   4.86836)%
\linethickness{0.008in}%
%
\polygon*(6.38428,5.56800)(5.81904,5.70600)(5.36381,5.80921)(5.00440,5.88297)(4.72661,5.93266)%
(4.51623,5.96364)(4.35907,5.98127)(4.24093,5.99092)(4.14761,5.99794)(4.06496,6.00771)%
(3.98898,6.02518)(3.93831,6.05448)(3.93468,6.09958)(3.99978,6.16449)(4.15166,6.25226)%
(4.38123,6.35904)(4.66723,6.47789)(4.98836,6.60185)(5.32339,6.72405)(5.65390,6.84014)%
(5.96513,6.94907)(6.24257,7.05003)(6.47172,7.14220)(6.64276,7.22661)(6.76463,7.31164)%
(6.85098,7.40753)(6.91544,7.52450)(6.97077,7.67186)(7.01627,7.84507)(7.04088,8.02894)%
(7.03329,8.20802)(6.98222,8.36687)(6.88214,8.49624)(6.74033,8.60073)(6.56582,8.68676)%
(6.36764,8.76079)(6.15404,8.82871)(5.92745,8.89231)(5.68774,8.95154)(5.43473,9.00634)%
(5.16827,9.05667)(4.88820,9.10245)(4.59435,9.14364)(4.28655,9.18018)(3.96466,9.21200)%
(3.94280,9.03709)(3.92093,8.86218)(3.89907,8.68727)(3.87720,8.51236)(4.48711,8.36772)%
(4.97210,8.26299)(5.34677,8.19129)(5.62571,8.14578)(5.82354,8.11957)(5.95483,8.10581)%
(6.03419,8.09764)(6.07621,8.08818)(6.09549,8.07060)(6.10389,8.04155)(6.10727,8.00555)%
(6.11068,7.96817)(6.11914,7.93497)(6.13500,7.91026)(6.14070,7.88899)(6.10976,7.86195)%
(6.01565,7.81987)(5.83248,7.75368)(5.55828,7.66096)(5.22221,7.54790)(4.85551,7.42131)%
(4.48940,7.28796)(4.15131,7.15361)(3.85341,7.01988)(3.60406,6.88734)(3.41163,6.75659)%
(3.28362,6.62808)(3.21473,6.50035)(3.18983,6.37048)(3.19352,6.23551)(3.21044,6.09250)%
(3.23419,5.94135)(3.27834,5.78836)(3.35914,5.64069)(3.49285,5.50548)(3.69311,5.38901)%
(3.95396,5.29113)(4.26069,5.20877)(4.59856,5.13885)(4.95280,5.07831)(5.30867,5.02406)%
(5.65141,4.97304)(5.96628,4.92216)(6.23852,4.86836)(6.27496,5.02870)(6.31140,5.18904)%
(6.34784,5.34938)(6.38428,5.50972)(6.38428,5.56800)\linethickness{0.008in}%
\polyline(6.38428,5.56800)(5.81904,5.70600)(5.36381,5.80921)(5.00440,5.88297)(4.72661,5.93266)%
(4.51623,5.96364)(4.35907,5.98127)(4.24093,5.99092)(4.14761,5.99794)(4.06496,6.00771)%
(3.98898,6.02518)(3.93831,6.05448)(3.93468,6.09958)(3.99978,6.16449)(4.15166,6.25226)%
(4.38123,6.35904)(4.66723,6.47789)(4.98836,6.60185)(5.32339,6.72405)(5.65390,6.84014)%
(5.96513,6.94907)(6.24257,7.05003)(6.47172,7.14220)(6.64276,7.22661)(6.76463,7.31164)%
(6.85098,7.40753)(6.91544,7.52450)(6.97077,7.67186)(7.01627,7.84507)(7.04088,8.02894)%
(7.03329,8.20802)(6.98222,8.36687)(6.88214,8.49624)(6.74033,8.60073)(6.56582,8.68676)%
(6.36764,8.76079)(6.15404,8.82871)(5.92745,8.89231)(5.68774,8.95154)(5.43473,9.00634)%
(5.16827,9.05667)(4.88820,9.10245)(4.59435,9.14364)(4.28655,9.18018)(3.96466,9.21200)%
\polyline(3.96466,9.21200)(3.94280,9.03709)(3.92093,8.86218)(3.89907,8.68727)(3.87720,8.51236)%
\polyline(3.87720,8.51236)(4.48711,8.36772)(4.97210,8.26299)(5.34677,8.19129)(5.62571,8.14578)%
(5.82354,8.11957)(5.95483,8.10581)(6.03419,8.09764)(6.07621,8.08818)(6.09549,8.07060)%
(6.10389,8.04155)(6.10727,8.00555)(6.11068,7.96817)(6.11914,7.93497)(6.13500,7.91026)%
(6.14070,7.88899)(6.10976,7.86195)(6.01565,7.81987)(5.83248,7.75368)(5.55828,7.66096)%
(5.22221,7.54790)(4.85551,7.42131)(4.48940,7.28796)(4.15131,7.15361)(3.85341,7.01988)%
(3.60406,6.88734)(3.41163,6.75659)(3.28362,6.62808)(3.21473,6.50035)(3.18983,6.37048)%
(3.19352,6.23551)(3.21044,6.09250)(3.23419,5.94135)(3.27834,5.78836)(3.35914,5.64069)%
(3.49285,5.50548)(3.69311,5.38901)(3.95396,5.29113)(4.26069,5.20877)(4.59856,5.13885)%
(4.95280,5.07831)(5.30867,5.02406)(5.65141,4.97304)(5.96628,4.92216)(6.23852,4.86836)%
\polyline(6.23852,4.86836)(6.27496,5.02870)(6.31140,5.18904)(6.34784,5.34938)(6.38428,5.50972)%
%
\linethickness{0.008in}%
\end{picture}}%%
}%
\scalebox{#1}{\tmpcontents}%
%
}%
\newcommand{\cautionmark}[1][1]{%
\scalebox{#1}{%
{\unitlength=1mm%
\begin{picture}%
(   4.60000,   3.98372)(  -2.30000,   0.00000)%
\linethickness{0.008in}%
%
\linethickness{0.012 in}%
\polyline(-2.30000,0.00000)(2.30000,0.00000)(0.00000,3.98372)(-2.30000,0.00000)%
%
\linethickness{0.008in}%
\linethickness{0.002in}%
\polyline(0.30000,0.55000)(0.28532,0.64271)(0.24271,0.72634)(0.17634,0.79271)(0.09271,0.83532)%
(0.00000,0.85000)(-0.09271,0.83532)(-0.17634,0.79271)(-0.24271,0.72634)(-0.28532,0.64271)%
(-0.30000,0.55000)(-0.28532,0.45729)(-0.24271,0.37366)(-0.17634,0.30729)(-0.09271,0.26468)%
(-0.00000,0.25000)(0.09271,0.26468)(0.17634,0.30729)(0.24271,0.37366)(0.28532,0.45729)%
(0.30000,0.55000)%
%
\polyline(0.00000,1.20000)(0.09619,1.23889)(0.18421,1.33825)(0.25763,1.47869)(0.31127,1.64158)%
(0.34897,1.81375)(0.37862,1.98450)(0.40754,2.14344)(0.43405,2.28492)(0.44959,2.40694)%
(0.44551,2.50766)(0.41740,2.58913)(0.36636,2.65840)(0.29386,2.72283)(0.20281,2.78402)%
(0.09933,2.83074)(-0.01000,2.85000)(-0.11855,2.83292)(-0.21932,2.78698)(-0.30522,2.72371)%
(-0.36996,2.65337)(-0.41290,2.57639)(-0.43593,2.48886)(-0.44109,2.38691)(-0.43200,2.26815)%
(-0.41354,2.13130)(-0.39047,1.97528)(-0.36270,1.80472)(-0.32377,1.63171)(-0.26686,1.46885)%
(-0.18930,1.33045)(-0.09771,1.23462)(0.00000,1.20000)%
%
\linethickness{0.008in}%
\polygon*(0.30000,0.55000)(0.28532,0.64271)(0.24271,0.72634)(0.17634,0.79271)(0.09271,0.83532)%
(0.00000,0.85000)(-0.09271,0.83532)(-0.17634,0.79271)(-0.24271,0.72634)(-0.28532,0.64271)%
(-0.30000,0.55000)(-0.28532,0.45729)(-0.24271,0.37366)(-0.17634,0.30729)(-0.09271,0.26468)%
(-0.00000,0.25000)(0.09271,0.26468)(0.17634,0.30729)(0.24271,0.37366)(0.28532,0.45729)%
(0.30000,0.55000)\polygon*(0.00000,1.20000)(0.09619,1.23889)(0.18421,1.33825)(0.25763,1.47869)(0.31127,1.64158)%
(0.34897,1.81375)(0.37862,1.98450)(0.40754,2.14344)(0.43405,2.28492)(0.44959,2.40694)%
(0.44551,2.50766)(0.41740,2.58913)(0.36636,2.65840)(0.29386,2.72283)(0.20281,2.78402)%
(0.09933,2.83074)(-0.01000,2.85000)(-0.11855,2.83292)(-0.21932,2.78698)(-0.30522,2.72371)%
(-0.36996,2.65337)(-0.41290,2.57639)(-0.43593,2.48886)(-0.44109,2.38691)(-0.43200,2.26815)%
(-0.41354,2.13130)(-0.39047,1.97528)(-0.36270,1.80472)(-0.32377,1.63171)(-0.26686,1.46885)%
(-0.18930,1.33045)(-0.09771,1.23462)(0.00000,1.20000)\end{picture}}%%
}%
%
}%
\newcommand{\circlemark}[2][8]{%
\scalebox{#2}{%
{\unitlength=1mm%
\begin{picture}%
(   4.00000,   4.00000)(  -2.00000,  -2.00000)%
\linethickness{0.008in}%
%
\linethickness{#1 in}%
\polyline(2.00000,0.00000)(1.98423,0.25067)(1.93717,0.49738)(1.85955,0.73625)(1.75261,0.96351)%
(1.61803,1.17557)(1.45794,1.36909)(1.27485,1.54103)(1.07165,1.68866)(0.85156,1.80965)%
(0.61803,1.90211)(0.37476,1.96457)(0.12558,1.99605)(-0.12558,1.99605)(-0.37476,1.96457)%
(-0.61803,1.90211)(-0.85156,1.80965)(-1.07165,1.68866)(-1.27485,1.54103)(-1.45794,1.36909)%
(-1.61803,1.17557)(-1.75261,0.96351)(-1.85955,0.73625)(-1.93717,0.49738)(-1.98423,0.25067)%
(-2.00000,-0.00000)(-1.98423,-0.25067)(-1.93717,-0.49738)(-1.85955,-0.73625)(-1.75261,-0.96351)%
(-1.61803,-1.17557)(-1.45794,-1.36909)(-1.27485,-1.54103)(-1.07165,-1.68866)(-0.85156,-1.80965)%
(-0.61803,-1.90211)(-0.37476,-1.96457)(-0.12558,-1.99605)(0.12558,-1.99605)(0.37476,-1.96457)%
(0.61803,-1.90211)(0.85156,-1.80965)(1.07165,-1.68866)(1.27485,-1.54103)(1.45794,-1.36909)%
(1.61803,-1.17557)(1.75261,-0.96351)(1.85955,-0.73625)(1.93717,-0.49738)(1.98423,-0.25067)%
(2.00000,0.00000)%
%
\linethickness{0.008in}%
\end{picture}}%%
}%
%
}%
\newcommand{\circleshade}[3][8]{%
\scalebox{#2}{%
{\unitlength=1mm%
\begin{picture}%
(   4.00000,   4.00000)(  -2.00000,  -2.00000)%
\linethickness{0.008in}%
%
\linethickness{#1 in}%
{\color[cmyk]{,,,}%
\polygon*(2.00000,0.00000)(1.98423,0.25067)(1.93717,0.49738)(1.85955,0.73625)(1.75261,0.96351)%
(1.61803,1.17557)(1.45794,1.36909)(1.27485,1.54103)(1.07165,1.68866)(0.85156,1.80965)%
(0.61803,1.90211)(0.37476,1.96457)(0.12558,1.99605)(-0.12558,1.99605)(-0.37476,1.96457)%
(-0.61803,1.90211)(-0.85156,1.80965)(-1.07165,1.68866)(-1.27485,1.54103)(-1.45794,1.36909)%
(-1.61803,1.17557)(-1.75261,0.96351)(-1.85955,0.73625)(-1.93717,0.49738)(-1.98423,0.25067)%
(-2.00000,-0.00000)(-1.98423,-0.25067)(-1.93717,-0.49738)(-1.85955,-0.73625)(-1.75261,-0.96351)%
(-1.61803,-1.17557)(-1.45794,-1.36909)(-1.27485,-1.54103)(-1.07165,-1.68866)(-0.85156,-1.80965)%
(-0.61803,-1.90211)(-0.37476,-1.96457)(-0.12558,-1.99605)(0.12558,-1.99605)(0.37476,-1.96457)%
(0.61803,-1.90211)(0.85156,-1.80965)(1.07165,-1.68866)(1.27485,-1.54103)(1.45794,-1.36909)%
(1.61803,-1.17557)(1.75261,-0.96351)(1.85955,-0.73625)(1.93717,-0.49738)(1.98423,-0.25067)%
(2.00000,0.00000)
}%
\polyline(2.00000,0.00000)(1.98423,0.25067)(1.93717,0.49738)(1.85955,0.73625)(1.75261,0.96351)%
(1.61803,1.17557)(1.45794,1.36909)(1.27485,1.54103)(1.07165,1.68866)(0.85156,1.80965)%
(0.61803,1.90211)(0.37476,1.96457)(0.12558,1.99605)(-0.12558,1.99605)(-0.37476,1.96457)%
(-0.61803,1.90211)(-0.85156,1.80965)(-1.07165,1.68866)(-1.27485,1.54103)(-1.45794,1.36909)%
(-1.61803,1.17557)(-1.75261,0.96351)(-1.85955,0.73625)(-1.93717,0.49738)(-1.98423,0.25067)%
(-2.00000,-0.00000)(-1.98423,-0.25067)(-1.93717,-0.49738)(-1.85955,-0.73625)(-1.75261,-0.96351)%
(-1.61803,-1.17557)(-1.45794,-1.36909)(-1.27485,-1.54103)(-1.07165,-1.68866)(-0.85156,-1.80965)%
(-0.61803,-1.90211)(-0.37476,-1.96457)(-0.12558,-1.99605)(0.12558,-1.99605)(0.37476,-1.96457)%
(0.61803,-1.90211)(0.85156,-1.80965)(1.07165,-1.68866)(1.27485,-1.54103)(1.45794,-1.36909)%
(1.61803,-1.17557)(1.75261,-0.96351)(1.85955,-0.73625)(1.93717,-0.49738)(1.98423,-0.25067)%
(2.00000,0.00000)%
%
\linethickness{0.008in}%
\end{picture}}%%
}%
%
}%
%%% bendingarrow2e.sty 2016-12-9 7:43
%%% bendingarrow2e.sce 2016-12-9 7:42
\newcommand{\NEarrow}[1][1]{%
\scalebox{#1}{\raisebox{-2.5pt}{%
{\unitlength=1pt%
\begin{picture}%
(  10.00000,  10.00000)(   0.00000,   0.00000)%
\linethickness{0.008in}%
%
\polyline(2.00000,2.00000)(7.00000,7.00000)%
%
\linethickness{0.008in}%
\polygon*(6.54625,4.91062)(8.00000,8.00000)(4.91062,6.54625)(6.18275,6.18275)(6.54625,4.91062)%
\linethickness{0.001in}%
\polyline(6.54625,4.91062)(8.00000,8.00000)(4.91062,6.54625)(6.18275,6.18275)(6.54625,4.91062)%
(8.00000,8.00000)%
%
\linethickness{0.008in}%
\end{picture}}%%
}%
%
}%
%
}%
\newcommand{\SEarrow}[1][1]{%
\scalebox{#1}{\raisebox{-2.5pt}{%
{\unitlength=1pt%
\begin{picture}%
(  10.00000,  10.00000)(   0.00000,   0.00000)%
\linethickness{0.008in}%
%
\polyline(2.00000,8.00000)(7.00000,3.00000)%
%
\linethickness{0.008in}%
\polygon*(4.91062,3.45375)(8.00000,2.00000)(6.54625,5.08938)(6.18275,3.81725)(4.91062,3.45375)%
\linethickness{0.001in}%
\polyline(4.91062,3.45375)(8.00000,2.00000)(6.54625,5.08938)(6.18275,3.81725)(4.91062,3.45375)%
(8.00000,2.00000)%
%
\linethickness{0.008in}%
\end{picture}}%%
}%
%
}%
%
}%
\newcommand{\NWarrow}[1][1]{%
\scalebox{#1}{\raisebox{-2.5pt}{%
{\unitlength=1pt%
\begin{picture}%
(  10.00000,  10.00000)(   0.00000,   0.00000)%
\linethickness{0.008in}%
%
\polyline(8.00000,2.00000)(3.00000,7.00000)%
%
\linethickness{0.008in}%
\polygon*(5.08938,6.54625)(2.00000,8.00000)(3.45375,4.91062)(3.81725,6.18275)(5.08938,6.54625)%
\linethickness{0.001in}%
\polyline(5.08938,6.54625)(2.00000,8.00000)(3.45375,4.91062)(3.81725,6.18275)(5.08938,6.54625)%
(2.00000,8.00000)%
%
\linethickness{0.008in}%
\end{picture}}%%
}%
%
}%
%
}%
\newcommand{\SWarrow}[1][1]{%
\scalebox{#1}{\raisebox{-2.5pt}{%
{\unitlength=1pt%
\begin{picture}%
(  10.00000,  10.00000)(   0.00000,   0.00000)%
\linethickness{0.008in}%
%
\polyline(8.00000,8.00000)(3.00000,3.00000)%
%
\linethickness{0.008in}%
\polygon*(3.45375,5.08938)(2.00000,2.00000)(5.08938,3.45375)(3.81725,3.81725)(3.45375,5.08938)%
\linethickness{0.001in}%
\polyline(3.45375,5.08938)(2.00000,2.00000)(5.08938,3.45375)(3.81725,3.81725)(3.45375,5.08938)%
(2.00000,2.00000)%
%
\linethickness{0.008in}%
\end{picture}}%%
}%
%
}%
%
}%
\newcommand{\NELarrow}[1][1]{%
\scalebox{#1}{\raisebox{-2.5pt}{%
{\unitlength=1pt%
\begin{picture}%
(  10.00000,  10.00000)(   0.00000,   0.00000)%
\linethickness{0.008in}%
%
\polyline(2.00000,2.00000)(2.41092,2.01409)(2.81990,2.05628)(3.22504,2.12639)(3.62443,2.22408)%
(4.01618,2.34889)(4.39847,2.50024)(4.76950,2.67742)(5.12752,2.87959)(5.47085,3.10580)%
(5.79789,3.35500)(6.10709,3.62601)(6.39700,3.91756)(6.66627,4.22827)(6.91363,4.55671)%
(7.13791,4.90131)(7.33806,5.26046)(7.51315,5.63247)(7.66235,6.01561)(7.78496,6.40806)%
(7.88040,6.80798)%
%
\linethickness{0.008in}%
\polygon*(8.26407,4.59590)(8.00000,8.00000)(6.03361,5.20877)(7.31907,5.52187)(8.26407,4.59590)%
\linethickness{0.001in}%
\polyline(8.26407,4.59590)(8.00000,8.00000)(6.03361,5.20877)(7.31907,5.52187)(8.26407,4.59590)%
(8.00000,8.00000)%
%
\linethickness{0.008in}%
\end{picture}}%%
}%
%
}%
%
}%
\newcommand{\NERarrow}[1][1]{%
\scalebox{#1}{\raisebox{-2.5pt}{%
{\unitlength=1pt%
\begin{picture}%
(  10.00000,  10.00000)(   0.00000,   0.00000)%
\linethickness{0.008in}%
%
\polyline(6.80798,7.88040)(6.40806,7.78496)(6.01561,7.66235)(5.63247,7.51315)(5.26046,7.33806)%
(4.90131,7.13791)(4.55671,6.91363)(4.22827,6.66627)(3.91756,6.39700)(3.62601,6.10709)%
(3.35500,5.79789)(3.10580,5.47085)(2.87959,5.12752)(2.67742,4.76950)(2.50024,4.39847)%
(2.34889,4.01618)(2.22408,3.62443)(2.12639,3.22504)(2.05628,2.81990)(2.01409,2.41092)%
(2.00000,2.00000)%
%
\linethickness{0.008in}%
\polygon*(5.19160,6.05822)(8.00000,8.00000)(4.59835,8.29398)(5.51598,7.34088)(5.19160,6.05822)%
\linethickness{0.001in}%
\polyline(5.19160,6.05822)(8.00000,8.00000)(4.59835,8.29398)(5.51598,7.34088)(5.19160,6.05822)%
(8.00000,8.00000)%
%
\linethickness{0.008in}%
\end{picture}}%%
}%
%
}%
%
}%
\newcommand{\SELarrow}[1][1]{%
\scalebox{#1}{\raisebox{-2.5pt}{%
{\unitlength=1pt%
\begin{picture}%
(  10.00000,  10.00000)(   0.00000,   0.00000)%
\linethickness{0.008in}%
%
\polyline(2.00000,8.00000)(2.01409,7.58908)(2.05628,7.18010)(2.12639,6.77496)(2.22408,6.37557)%
(2.34889,5.98382)(2.50024,5.60153)(2.67742,5.23050)(2.87959,4.87248)(3.10580,4.52915)%
(3.35500,4.20211)(3.62601,3.89291)(3.91756,3.60300)(4.22827,3.33373)(4.55671,3.08637)%
(4.90131,2.86209)(5.26046,2.66194)(5.63247,2.48685)(6.01561,2.33765)(6.40806,2.21504)%
(6.80798,2.11960)%
%
\linethickness{0.008in}%
\polygon*(4.59835,1.70602)(8.00000,2.00000)(5.19160,3.94178)(5.51598,2.65912)(4.59835,1.70602)%
\linethickness{0.001in}%
\polyline(4.59835,1.70602)(8.00000,2.00000)(5.19160,3.94178)(5.51598,2.65912)(4.59835,1.70602)%
(8.00000,2.00000)%
%
\linethickness{0.008in}%
\end{picture}}%%
}%
%
}%
%
}%
\newcommand{\SERarrow}[1][1]{%
\scalebox{#1}{\raisebox{-2.5pt}{%
{\unitlength=1pt%
\begin{picture}%
(  10.00000,  10.00000)(   0.00000,   0.00000)%
\linethickness{0.008in}%
%
\polyline(7.88040,3.19202)(7.78496,3.59194)(7.66235,3.98439)(7.51315,4.36753)(7.33806,4.73954)%
(7.13791,5.09869)(6.91363,5.44329)(6.66627,5.77173)(6.39700,6.08244)(6.10709,6.37399)%
(5.79789,6.64500)(5.47085,6.89420)(5.12752,7.12041)(4.76950,7.32258)(4.39847,7.49976)%
(4.01618,7.65111)(3.62443,7.77592)(3.22504,7.87361)(2.81990,7.94372)(2.41092,7.98591)%
(2.00000,8.00000)%
%
\linethickness{0.008in}%
\polygon*(6.03361,4.79123)(8.00000,2.00000)(8.26407,5.40410)(7.31907,4.47813)(6.03361,4.79123)%
\linethickness{0.001in}%
\polyline(6.03361,4.79123)(8.00000,2.00000)(8.26407,5.40410)(7.31907,4.47813)(6.03361,4.79123)%
(8.00000,2.00000)%
%
\linethickness{0.008in}%
\end{picture}}%%
}%
%
}%
%
}%
\newcommand{\SWRarrow}[1][1]{%
\scalebox{#1}{\raisebox{-2.5pt}{%
{\unitlength=1pt%
\begin{picture}%
(  10.00000,  10.00000)(   0.00000,   0.00000)%
\linethickness{0.008in}%
%
\polyline(3.19202,2.11960)(3.59194,2.21504)(3.98439,2.33765)(4.36753,2.48685)(4.73954,2.66194)%
(5.09869,2.86209)(5.44329,3.08637)(5.77173,3.33373)(6.08244,3.60300)(6.37399,3.89291)%
(6.64500,4.20211)(6.89420,4.52915)(7.12041,4.87248)(7.32258,5.23050)(7.49976,5.60153)%
(7.65111,5.98382)(7.77592,6.37557)(7.87361,6.77496)(7.94372,7.18010)(7.98591,7.58908)%
(8.00000,8.00000)%
%
\linethickness{0.008in}%
\polygon*(4.80840,3.94178)(2.00000,2.00000)(5.40165,1.70602)(4.48402,2.65912)(4.80840,3.94178)%
\linethickness{0.001in}%
\polyline(4.80840,3.94178)(2.00000,2.00000)(5.40165,1.70602)(4.48402,2.65912)(4.80840,3.94178)%
(2.00000,2.00000)%
%
\linethickness{0.008in}%
\end{picture}}%%
}%
%
}%
%
}%
\newcommand{\SWLarrow}[1][1]{%
\scalebox{#1}{\raisebox{-2.5pt}{%
{\unitlength=1pt%
\begin{picture}%
(  10.00000,  10.00000)(   0.00000,   0.00000)%
\linethickness{0.008in}%
%
\polyline(8.00000,8.00000)(7.58908,7.98591)(7.18010,7.94372)(6.77496,7.87361)(6.37557,7.77592)%
(5.98382,7.65111)(5.60153,7.49976)(5.23050,7.32258)(4.87248,7.12041)(4.52915,6.89420)%
(4.20211,6.64500)(3.89291,6.37399)(3.60300,6.08244)(3.33373,5.77173)(3.08637,5.44329)%
(2.86209,5.09869)(2.66194,4.73954)(2.48685,4.36753)(2.33765,3.98439)(2.21504,3.59194)%
(2.11960,3.19202)%
%
\linethickness{0.008in}%
\polygon*(1.73593,5.40410)(2.00000,2.00000)(3.96639,4.79123)(2.68093,4.47813)(1.73593,5.40410)%
\linethickness{0.001in}%
\polyline(1.73593,5.40410)(2.00000,2.00000)(3.96639,4.79123)(2.68093,4.47813)(1.73593,5.40410)%
(2.00000,2.00000)%
%
\linethickness{0.008in}%
\end{picture}}%%
}%
%
}%
%
}%
\newcommand{\NWRarrow}[1][1]{%
\scalebox{#1}{\raisebox{-2.5pt}{%
{\unitlength=1pt%
\begin{picture}%
(  10.00000,  10.00000)(   0.00000,   0.00000)%
\linethickness{0.008in}%
%
\polyline(2.11960,6.80798)(2.21504,6.40806)(2.33765,6.01561)(2.48685,5.63247)(2.66194,5.26046)%
(2.86209,4.90131)(3.08637,4.55671)(3.33373,4.22827)(3.60300,3.91756)(3.89291,3.62601)%
(4.20211,3.35500)(4.52915,3.10580)(4.87248,2.87959)(5.23050,2.67742)(5.60153,2.50024)%
(5.98382,2.34889)(6.37557,2.22408)(6.77496,2.12639)(7.18010,2.05628)(7.58908,2.01409)%
(8.00000,2.00000)%
%
\linethickness{0.008in}%
\polygon*(3.96639,5.20877)(2.00000,8.00000)(1.73593,4.59590)(2.68093,5.52187)(3.96639,5.20877)%
\linethickness{0.001in}%
\polyline(3.96639,5.20877)(2.00000,8.00000)(1.73593,4.59590)(2.68093,5.52187)(3.96639,5.20877)%
(2.00000,8.00000)%
%
\linethickness{0.008in}%
\end{picture}}%%
}%
%
}%
%
}%
\newcommand{\NWLarrow}[1][1]{%
\scalebox{#1}{\raisebox{-2.5pt}{%
{\unitlength=1pt%
\begin{picture}%
(  10.00000,  10.00000)(   0.00000,   0.00000)%
\linethickness{0.008in}%
%
\polyline(8.00000,2.00000)(7.98591,2.41092)(7.94372,2.81990)(7.87361,3.22504)(7.77592,3.62443)%
(7.65111,4.01618)(7.49976,4.39847)(7.32258,4.76950)(7.12041,5.12752)(6.89420,5.47085)%
(6.64500,5.79789)(6.37399,6.10709)(6.08244,6.39700)(5.77173,6.66627)(5.44329,6.91363)%
(5.09869,7.13791)(4.73954,7.33806)(4.36753,7.51315)(3.98439,7.66235)(3.59194,7.78496)%
(3.19202,7.88040)%
%
\linethickness{0.008in}%
\polygon*(5.40165,8.29398)(2.00000,8.00000)(4.80840,6.05822)(4.48402,7.34088)(5.40165,8.29398)%
\linethickness{0.001in}%
\polyline(5.40165,8.29398)(2.00000,8.00000)(4.80840,6.05822)(4.48402,7.34088)(5.40165,8.29398)%
(2.00000,8.00000)%
%
\linethickness{0.008in}%
\end{picture}}%%
}%
%
}%
%
}%