summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/pstricks_calcnotes
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-04-03 21:52:53 +0000
committerKarl Berry <karl@freefriends.org>2014-04-03 21:52:53 +0000
commitb4e5a8790343bc0d5312d3b47ce2b8d970dd333a (patch)
tree5d80d2ae049ef2b0b8c3ab38cfd4b54fb5fb2882 /Master/texmf-dist/doc/latex/pstricks_calcnotes
parent560e97df3af167d6520dea870572f63ef457dd49 (diff)
pstricks_calcnotes (3apr14)
git-svn-id: svn://tug.org/texlive/trunk@33361 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/latex/pstricks_calcnotes')
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/Convert_PstricksCode_To_Pdf/Readme.txt2
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/Convert_PstricksCode_To_Pdf/convert.tex9
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/Convert_PstricksCode_To_Pdf/test.pdfbin19361 -> 19468 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig1-1.pdfbin8060 -> 0 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig1-2.pdfbin8858 -> 0 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig1-3.pdfbin8926 -> 0 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig13.pdfbin0 -> 5097 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig14.pdfbin0 -> 5435 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig1a.pdfbin0 -> 8151 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig1b.pdfbin0 -> 9319 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig1c.pdfbin0 -> 9382 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig2-1.pdfbin8058 -> 0 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig2-2.pdfbin8789 -> 0 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig2a.pdfbin0 -> 8163 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig2b.pdfbin0 -> 8884 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig3.pdfbin8633 -> 8702 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig4.pdfbin9430 -> 9533 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig5.pdfbin5852 -> 5974 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig6.pdfbin73118 -> 10906 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig7.pdfbin27236 -> 6977 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig8.pdfbin65911 -> 11202 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig9.pdfbin98574 -> 16065 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/NewVecFld_PDF.tex572
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/ThreeAppsPDF.tex1036
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/b6of1.pdfbin0 -> 9000 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/b6of2.pdfbin0 -> 10095 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/b6of3.pdfbin0 -> 12823 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/b6of4.pdfbin0 -> 13025 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vec1.pdfbin12493 -> 0 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vec2.pdfbin19425 -> 0 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vec3.pdfbin13265 -> 0 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vec4.pdfbin12843 -> 0 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vec5.pdfbin11575 -> 0 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vec6.pdfbin11794 -> 0 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vecb1.pdfbin0 -> 12497 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vecb2.pdfbin0 -> 19468 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vecb3.pdfbin0 -> 13080 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vecb4.pdfbin0 -> 12926 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vecb5.pdfbin0 -> 11692 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vecb6.pdfbin0 -> 11897 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/NewVecFld_PS.tex675
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/ThreeAppsPS.tex1165
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/b6of1.eps11111
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/b6of2.eps11891
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/b6of3.eps28461
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/b6of4.eps33594
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vecb1.eps (renamed from Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vec1.eps)4950
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vecb2.eps (renamed from Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vec2.eps)6934
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vecb3.eps (renamed from Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vec3.eps)4910
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vecb4.eps (renamed from Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vec4.eps)6485
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vecb5.eps (renamed from Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vec5.eps)5080
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vecb6.eps (renamed from Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vec6.eps)4565
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/README10
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/ThreeAppsPDF.pdfbin0 -> 652952 bytes
-rw-r--r--Master/texmf-dist/doc/latex/pstricks_calcnotes/Two_Apps_Remarks.pdfbin783131 -> 0 bytes
55 files changed, 100975 insertions, 20475 deletions
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/Convert_PstricksCode_To_Pdf/Readme.txt b/Master/texmf-dist/doc/latex/pstricks_calcnotes/Convert_PstricksCode_To_Pdf/Readme.txt
index 18c0a961e3d..757b31f60c3 100644
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/Convert_PstricksCode_To_Pdf/Readme.txt
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/Convert_PstricksCode_To_Pdf/Readme.txt
@@ -3,7 +3,7 @@ Dear friends,
To convert a PSTricks-code picture into a graphic file ".pdf", as doing an exercise, run
the file "convert.tex" by the following steps:
- 1) latex convert.tex (you automatically get the output file "convert-fig1.tex". Put the definitions in the preamble
+ 1) latex convert.tex (you automatically get the output file "convert-fig1.tex", then put the definitions in the preamble
of the convert.tex file in that of the convert-fig1.tex file).
2) latex convert-fig1.tex
3) dvips convert-fig1.dvi
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/Convert_PstricksCode_To_Pdf/convert.tex b/Master/texmf-dist/doc/latex/pstricks_calcnotes/Convert_PstricksCode_To_Pdf/convert.tex
index d7464faaf32..fdbc1fbadb7 100644
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/Convert_PstricksCode_To_Pdf/convert.tex
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/Convert_PstricksCode_To_Pdf/convert.tex
@@ -6,7 +6,7 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\vecfldnew#1#2#3#4#5#6#7#8{%
\newcount\intg \newdimen\fx \newdimen\fy \newdimen\slope \newdimen\interm
-\def\fintg{\interm=#8 \interm=\intg\interm \ifdim\ifdim\slope<0pt-\fi\slope>\interm\advance\intg by 1\fintg\fi}
+\def\fintg{\interm=#8 \interm=\intg\interm \ifdim\ifdim\slope<0pt-\fi\slope<\interm\advance\intg by -1\relax\else\advance\intg by 1\fintg\fi}
\multido{#2}{#4}
{\multido{#1}{#3}
{\curvepnodes[algebraic,plotpoints=2]{0}{1}{\nx+((#5)*t)*(1/sqrt(1+(#6)^2))|\ny+((#5)*t)*(1/sqrt(1+(#6)^2))*(#6)}{P}
@@ -33,9 +33,10 @@
\begin{pspicture}(-3,-3)(3,3)
\psset{unit=28.5pt,dotsize=2.6pt}
\vecfldnew{\nx=-3.00+0.3}{\ny=-3.00+0.3}{20}{20}{0.3}{2*(\nx)*(\ny)/(1+(\ny)^2)}
-{\fx=\nx pt\SUMfunction{\ONEfunction}{\SQUAREfunction}{\Fncty}
-\Fncty{\ny}{\soly}{\Dsoly}\DIVIDE{\Dsoly}{\soly}{\tempa}\slope=\tempa pt\slope=\decimal\fx\slope}{3pt}
-\psaxes[labelFontSize=$\footnotesize$,Dy=1,Dx=1,ticksize=2.2pt,labelsep=4pt,linewidth=0.7pt]{->}(0,0)(-3,-3)(3,3)
+{\SUMfunction{\ONEfunction}{\SQUAREfunction}{\Fncty}\Fncty{\ny}{\soly}{\Dsoly}
+\DIVIDE{\Dsoly}{\soly}{\tempa}\MULTIPLY{\nx}{\tempa}{\tempb}
+\slope=\tempb pt}{2.5pt}
+\psaxes[labelFontSize=$\footnotesize$,Dy=1,Dx=1,ticksize=2.2pt,labelsep=4pt,linewidth=0.7pt]{->}(0,0)(-3,-3)(3.1,3)
\end{pspicture}
\end{pdfpic}
\end{document}
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/Convert_PstricksCode_To_Pdf/test.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/Convert_PstricksCode_To_Pdf/test.pdf
index 8df926c72d2..383de63aeec 100644
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/Convert_PstricksCode_To_Pdf/test.pdf
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/Convert_PstricksCode_To_Pdf/test.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig1-1.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig1-1.pdf
deleted file mode 100644
index 8efa93a02ca..00000000000
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig1-1.pdf
+++ /dev/null
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig1-2.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig1-2.pdf
deleted file mode 100644
index 54c6972e706..00000000000
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig1-2.pdf
+++ /dev/null
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig1-3.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig1-3.pdf
deleted file mode 100644
index edae51373e5..00000000000
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig1-3.pdf
+++ /dev/null
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig13.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig13.pdf
new file mode 100644
index 00000000000..a33248e1f58
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig13.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig14.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig14.pdf
new file mode 100644
index 00000000000..c14a6fc9093
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig14.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig1a.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig1a.pdf
new file mode 100644
index 00000000000..7054e9921ff
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig1a.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig1b.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig1b.pdf
new file mode 100644
index 00000000000..53755f3d312
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig1b.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig1c.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig1c.pdf
new file mode 100644
index 00000000000..6cfbe679067
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig1c.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig2-1.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig2-1.pdf
deleted file mode 100644
index 2be92abfbfd..00000000000
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig2-1.pdf
+++ /dev/null
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig2-2.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig2-2.pdf
deleted file mode 100644
index ade96c92237..00000000000
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig2-2.pdf
+++ /dev/null
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig2a.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig2a.pdf
new file mode 100644
index 00000000000..68eee32768c
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig2a.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig2b.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig2b.pdf
new file mode 100644
index 00000000000..53dd72daa9d
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig2b.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig3.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig3.pdf
index 0b6f0b825fc..de3a6075a90 100644
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig3.pdf
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig3.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig4.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig4.pdf
index e1d694a316c..a2fcc2c3f4b 100644
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig4.pdf
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig4.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig5.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig5.pdf
index 96b8581d6c3..db8fc66c19c 100644
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig5.pdf
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig5.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig6.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig6.pdf
index d99748f5a33..520ab95aa3b 100644
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig6.pdf
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig6.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig7.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig7.pdf
index ddaa77ab5de..0f5b2a64f97 100644
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig7.pdf
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig7.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig8.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig8.pdf
index aacbb9457e0..7df48b21bad 100644
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig8.pdf
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig8.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig9.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig9.pdf
index cec79431078..3e3336548ae 100644
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig9.pdf
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/Fig9.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/NewVecFld_PDF.tex b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/NewVecFld_PDF.tex
deleted file mode 100644
index 53289e4656d..00000000000
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/NewVecFld_PDF.tex
+++ /dev/null
@@ -1,572 +0,0 @@
-\documentclass[11pt,a4paper,oneside]{article}
-\usepackage{calculator}
-\usepackage{calculus}
-\usepackage{amsthm}
-\usepackage{amsmath}
-\usepackage[dvips]{geometry}
-\usepackage{pstricks}
-\usepackage{graphicx}
-\usepackage{graphics}
-\usepackage{pst-plot}
-\usepackage{pst-node}
-\usepackage{multido}
-\usepackage{pst-xkey}
-\usepackage{pst-func}
-\usepackage{pstricks-add}
-\usepackage[colorlinks,linktocpage]{hyperref}
-\def\hantt{\^e}\def\accentcircflx{\hskip-.3em\raisebox{0.32ex}{\'{}}}
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\def\RiemannSum#1#2#3#4#5#6#7#8#9{%
-\psplot[linecolor=blue]{#1}{#2}{#3}
-\pscustom[linecolor=red]{%
-\psline{-}(#1,0)(#1,0)
-\multido{\ni=#5,\ne=#6}{#4}
-{\psline(*{\ni} {#8})(*{\ne} {#9})}}
-\multido{\ne=#6,\nc=#7}{#4}
-{\psdot(*{\nc} {#3})
-\psline[linestyle=dotted,dotsep=1.5pt](\nc,0)(*{\nc} {#3})
-\psline[linecolor=red](\ne,0)(*{\ne} {#9})}
-}
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\def\vecfld#1#2#3#4#5#6{%
-\multido{#2}{#4}
-{\multido{#1}{#3}
-{\parametricplot[algebraic,arrows=->,linecolor=red]{0}{1}
-{\nx+((#5)*t)*(1/sqrt(1+(#6)^2))|\ny+((#5)*t)*(1/sqrt(1+(#6)^2))*(#6)}}}}
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\def\xch{\catcode`\p=12 \catcode`\t=12}\def\ych{\catcode`\p=11 \catcode`\t=11}
-\xch \def\dec#1pt{#1}\ych \def\decimal#1{\expandafter\dec \the#1}
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\def\vecfldnew#1#2#3#4#5#6#7#8{%
-\newcount\intg \newdimen\fx \newdimen\fy \newdimen\slope \newdimen\interm
-\def\fintg{\interm=#8 \interm=\intg\interm \ifdim\ifdim\slope<0pt-\fi\slope>\interm\advance\intg by 1\fintg\fi}
-\multido{#2}{#4}
-{\multido{#1}{#3}
-{\curvepnodes[algebraic,plotpoints=2]{0}{1}{\nx+((#5)*t)*(1/sqrt(1+(#6)^2))|\ny+((#5)*t)*(1/sqrt(1+(#6)^2))*(#6)}{P}
-#7 \slope=10\slope\fintg
-\ifnum\intg>10\psline[linecolor=red]{->}(P0)(P1)\else\ifnum\intg=0\psline[linecolor=red!5]{->}(P0)(P1)\else\multiply\intg by 10
-\psline[linecolor=red!\the\intg]{->}(P0)(P1)\fi\fi
-\intg=0\slope=0pt
-}}}
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\pagestyle{headings}
-\topmargin=-0.6cm
-\textwidth=16.7cm
-\textheight=23cm
-\headheight=2.5ex
-\headsep=0.6cm
-\oddsidemargin=.cm
-\evensidemargin=-.4cm
-\parskip=0.7ex plus0.5ex minus 0.5ex
-\baselineskip=17pt plus2pt minus2pt
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\catcode`@=11
-\renewcommand\section{\@startsection {section}{1}{\z@}%
- {-3.5ex \@plus -1ex \@minus -.2ex}%
- {2.3ex \@plus.2ex}%
- {\normalfont\large\bfseries}}
-\renewcommand\subsection{\@startsection{subsection}{2}{\z@}%
- {-3.25ex\@plus -1ex \@minus -.2ex}%
- {1.5ex \@plus .2ex}%
- {\normalfont\normalsize\bfseries}}
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\gdef\acknw{\section*{%
-{\acknwname}\markright{\protect\textsl{\acknwname}}}%
-\addcontentsline{toc}{section}{\acknwname}}
-\gdef\acknwname{Acknowledgment}
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\renewcommand\sectionmark[1]{\markright{\thesection. #1}}
-\newcounter{lk}
-\newenvironment{listof}{\begin{list}{\rm(\roman{lk})}{\usecounter{lk}%
-\setlength{\topsep}{0ex plus0.1ex}%
-\setlength{\labelwidth}{1cm}%
-\setlength{\itemsep}{0ex plus0.1ex}%
-\setlength{\itemindent}{0.5cm}%
-}}{\end{list}}
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\title{Two applications of macros in \texttt{PSTricks}\thanks{PSTricks is the original work of Timothy Van Zandt (email address: \texttt{tvz@econ.insead.fr}).
-It is currently edited by Herbert Vo\ss\ (\texttt{hvoss@tug.org}).}\\
-{\Large\&} \\
-How to color arrows properly for a vector field}
-\author{Le Phuong Quan\\
-\small{(Cantho University, Vietnam)}\\
-\small{\texttt{lpquan@ctu.edu.vn}}}
-\begin{document}
-\maketitle
-\tableofcontents
-\section{Drawing approximations to the area under a graph by rectangles}
-\subsection{Description}
-
-We recall here an application in Calculus. Let $f(x)$ be a function, defined and bounded on
-the interval $[a,b]$. If $f$ is integrable (in Riemann sense) on $[a,b]$, then its definite integral over this interval
-is
-$$\int_a^bf(x)dx=\lim_{\|P\|\to 0}\sum_{i=1}^nf(\xi_i)\Delta x_i,$$
-where $P\colon a=x_0<x_1<\cdots<x_n=b$, $\Delta x_i=x_i-x_{i-1}$, $\xi_i\in[x_{i-1},x_i]$, $i=1,2,\ldots,n$,
-and $\|P\|=\max\{\Delta x_i\colon i=1,2,\ldots,n\}$. Hence, when $\|P\|$ is small enough, we may have an
-approximation
-\begin{equation}\label{eqn1}
-I=\int_a^bf(x)dx\approx\sum_{i=1}^nf(\xi_i)\Delta x_i.
-\end{equation}
-Because $I$ is independent to the choice of the partition $P$ and of the $\xi_i$, we may
-divide $[a,b]$ into $n$ subintervals with equal length and choose $\xi_i=(x_i+x_{i-1})/2$.
-Then, $I$ can be approximately seen as the sum of areas of the rectangles with sides
-$f(\xi_i)$ and $\Delta x_i$.
-
-We will make a drawing procedure to illustrate the approximation (\ref{eqn1}). Firstly, we establish
-commands to draw the \emph{sum\/} of rectangles, like the area under piecewise-constant functions
-(called \textsl{step shape\/}, for brevity). The choice here
-is a combination of the macros \texttt{\symbol{92}pscustom} (to \emph{join\/} horizontal segments, automatically)
-and \texttt{\symbol{92}multido}, of course. In particular, the horizontal segments are depicted within the loop
-\texttt{\symbol{92}multido} by
-$$\texttt{\symbol{92}psplot[{\it settings}]\{$x_{i-1}$\}\{$x_i$\}\{$f(\xi_i)$\}}$$
-The \texttt{\symbol{92}pscustom} will join these segments altogether with the end points
-$(a,0)$ and $(b,0)$, to make the boundary of the step shape. Then, we draw the points $(\xi_i,f(\xi_i))$, $i=1,2,\ldots,n$,
-and the dotted segments between these points and the points $(\xi_i,0)$, $i=1,2,\ldots,n$, by
-\begin{align*}
-&\texttt{\symbol{92}psdot[algebraic,\dots](*\{$\xi_i$\} \{$f(x)$\})},\\
-&\texttt{\symbol{92}psline[algebraic,linestyle=dotted,\dots]($\xi_i$,$0$)(*\{$\xi_i$\} \{$f(x)$\})},
-\end{align*}
-where we use the structure \texttt{(*\{{\it value}\} \{$f(x)$\})} to obtain the point $(\xi_i,f(\xi_i))$. Finally, we draw
-vertical segments to split the step shape into rectangular cells by
-$$\texttt{\symbol{92}psline[algebraic,\dots]($x_i$,$0$)(*\{$x_i$\} \{$f(x-\Delta x_i/2)$\})}$$
-The process of performing steps is depicted in Figure \ref{Fig1}.
-\begin{figure}[htbp]
-\centering\centering\begin{tabular}{cc}
-\includegraphics[height=5.5cm]{Fig1-1}
-&\includegraphics[height=5.5cm]{Fig1-2}
-\\
-\multicolumn{2}{c}{\includegraphics[height=5.5cm]{Fig1-3}}
-\end{tabular}
-\caption{Steps to make the drawing procedure.}\label{Fig1}
-\end{figure}
-
-We can combine the above steps to make a procedure whose calling sequence consists of main parameters
-$a$, $b$, $f$ and $n$, and dependent parameters $x_{i-1}$, $x_i$, $\xi_i$, $f(\xi_i)$ and
-$f(x\pm\Delta x_i/2)$. For instant, let us consider the approximations to the integral of $f(x)=\sin x-\cos x$
-over $[-2,3]$ in the cases of $n=5$ and $n=20$. Those approximations are given in Figure \ref{Fig2}.
-
-\begin{figure}[htbp]
-\centering\includegraphics[width=6cm]{Fig2-1}
-\hskip4em
-\includegraphics[width=6cm]{Fig2-2}
-\caption{Approximations to the integral of $f(x)=\sin x-\cos x$ over $[-2,3]$.}\label{Fig2}
-\end{figure}
-
-In fact, we can make a procedure to illustrate the approximation (\ref{eqn1}), say \texttt{RiemannSum}, whose calling sequence has the form
-$$\texttt{\symbol{92}RiemannSum\{$a$\}\{$b$\}\{$f(x)$\}\{$n$\}\{$x_{\rm ini}$\}\{$x_{\rm end}$\}\{$x_{\rm choice}$\}\{$f(x+\Delta x_i/2)$\}\{$f(x-\Delta x_i/2)$\}},$$
-where $x_0=a$ and for each $i=1,2\ldots,n$:
-\begin{align*}
-x_i&=a+\dfrac{b-a}{n}i,\quad\Delta x_i=x_i-x_{i-1}=\dfrac{b-a}{n},\\
-x_{\rm ini}&=x_0+\Delta x_i,\quad x_{\rm end}=x_1+\Delta x_i,\quad x_{\rm choice}=\dfrac{x_{\rm ini}+x_{\rm end}}{2}=\dfrac{x_0+x_1}{2}+\Delta x_i.
-\end{align*}
-Note that $x_{\rm ini}$, $x_{\rm end}$ and $x_{\rm choice}$ are given in such forms to be
-suitable to variable declaration in \texttt{\symbol{92}multido}. They are nothing but
-$x_{i-1}$, $x_i$ and $\xi_i$, respectively, at the step $i$-th in the loop.
-
-Tentatively, in \texttt{PSTricks} language, the definition of \texttt{RiemannSum} is suggested to be
-\bigskip\hrule
-\noindent\begin{tabular}{@{}l}
-\verb!\def\RiemannSum#1#2#3#4#5#6#7#8#9{%!\\
-\verb!\psplot[linecolor=blue]{#1}{#2}{#3}!\\
-\verb!\pscustom[linecolor=red]{%!\\
-\verb!\psline{-}(#1,0)(#1,0)!\\
-\verb!\multido{\ni=#5,\ne=#6}{#4}!\\
-\verb!{\psline(*{\ni} {#8})(*{\ne} {#9})}}!\\
-\verb!\multido{\ne=#6,\nc=#7}{#4}!\\
-\verb!{\psdot(*{\nc} {#3})!\\
-\verb!\psline[linestyle=dotted,dotsep=1.5pt](\nc,0)(*{\nc} {#3})!\\
-\verb!\psline[linecolor=red](\ne,0)(*{\ne} {#9})}}!
-\end{tabular}\bigskip\hrule
-\subsection{Examples}
-We give here two more examples just to see that using the drawing procedure is very easy. In the first example, we approximate
-the area under the graph of the function $f(x)=x-(x/2)\cos x+2$ on the interval $[0,8]$. To draw the approximation, we try
-the case $n=16$; thus $x_0=0$ and for each $i=1,\ldots,16$, we have
-$x_i=0.5\,i$, $\Delta x_i=0.5$, $x_{\rm ini}=0.00+0.50$, $x_{\rm end}=0.50+0.50$ and $x_{\rm choice}=0.25+0.50$.
-\begin{figure}[htbp]
-\centering\includegraphics[width=5.1cm]{Fig3}
-\vskip0.5ex
-\caption{An approximation to the area under the graph of $f(x)=x-(x/2)\cos x+2$ on $[0,8]$.}\label{Fig3}
-\end{figure}
-
-To get Figure \ref{Fig3}, we have used the following \LaTeX\ code:
-\bigskip\hrule
-\noindent\begin{tabular}{@{}l}
-\verb!\begin{pspicture}(0,0)(4.125,5.5)!\\
-\verb!\psset{plotpoints=500,algebraic,dotsize=2.5pt,unit=0.5}!\\
-\verb!\RiemannSum{0}{8}{x-(x/2)*cos(x)+2}{16}{0.00+0.50}{0.50+0.50}{0.25+0.50}!\\
-\verb!{x+0.25-((x+0.25)/2)*cos(x+0.25)+2}{x-0.25-((x-0.25)/2)*cos(x-0.25)+2}!\\
-\verb!\psaxes[ticksize=2.2pt,labelsep=4pt]{->}(0,0)(8.5,11)!\\
-\verb!\end{pspicture}!
-\end{tabular}
-\smallskip\hrule\bigskip
-
-In the second example below, we will draw an approximation to the integral of $f(x)=x\sin x$ over $[1,9]$.
-Choosing $n=10$ and computing parameters needed, we get Figure \ref{Fig4}, mainly by
-the command
-\begin{align*}
-&\texttt{\symbol{92}RiemannSum\{$1$\}\{$9$\}\{$x\sin x$\}\{$10$\}\{$1.00+0.80$\}\{$1.80+0.80$\}\{$1.40+0.80$\}}\\
-&\texttt{\{$(x+0.4)\sin(x+0.4)$\}\{$(x-0.4)\sin(x-0.4)$\}}
-\end{align*}
-in the drawing procedure.
-\begin{figure}[htbp]
-\centering\includegraphics[width=4.75cm]{Fig4}
-\caption{An approximation to the integral of $f(x)=x\sin x$ over $[1,9]$.}\label{Fig4}
-\end{figure}
-\section{Drawing the vector field of an ordinary differential equation of order one}
-\subsection{Description}\label{sect1}
-
-Let us consider the differential equation
-\begin{equation}\label{eqn2}
-\frac{dy}{dx}=f(x,y).
-\end{equation}
-At each point $(x_0,y_0)$ in the domain $D$ of $f$, we will put a vector $\mathbf{v}$ with slope
-$k=f(x_0,y_0)$. If $y(x_0)=y_0$, then $k$ is the slope of the tangent to the solution curve $y=y(x)$
-of (\ref{eqn2}) at $(x_0,y_0)$. The $\mathbf{v}$'s make a \textsl{vector field\/} and the picture
-of this field would give us information about the shape of solution curves of (\ref{eqn2}), even
-we have not found yet any solution of (\ref{eqn2}).
-
-The vector field of (\ref{eqn2}) will be depicted on a finite grid of points in $D$. This grid is made of
-lines, paralell to the axes $Ox$ and $Oy$. The intersectional points of those lines are called \textsl{grid points\/}
-and often indexed by $(x_i,y_j)$, $i=0,\ldots,N_x$, $j=0,\ldots,N_y$. For convenience, we will use
-polar coordinate to locate the terminal point $(x,y)$ of a field vector, with the initial point at
-the grid point $(x_i,y_j)$. Then, we can write
-\begin{align*}
-x&=x_i+r\cos\varphi,\\
-y&=y_j+r\sin\varphi.
-\end{align*}
-Because $k=f(x_i,y_j)=\tan\varphi$ is finite, we may take $-\pi/2<\varphi<\pi/2$.
-From $\sin^2\varphi+\cos^2\varphi=1$ and $\sin\varphi=k\cos\varphi$, we derive
-$$\cos\varphi=\frac{1}{\sqrt{1+k^2}},\quad\sin\varphi=\frac{k}{\sqrt{1+k^2}}.$$
-\begin{figure}[htbp]
-\centering\includegraphics[width=5cm]{Fig5}
-\caption{Field vectors on a grid.}\label{Fig5}
-\end{figure}
-The field vectors should all have the same magnitude and we choose here that length to be
-$1/2$, that means $r=1/2$. Thus, vectors on the grid have their initial points and
-terminal ones as
-$$(x_i,y_j),\quad \Big(x_i+\frac{1}{2}\cos\varphi,y_j+\frac{1}{2}\sin\varphi\Big).$$
-
-Of macros in \texttt{PSTricks} to draw lines, we select \texttt{\symbol{92}parametricplot}\footnote{\footnotesize
-This macro is of ones, often added and updated in the package \texttt{pstricks-add}, the authors:
-Dominique Rodriguez (\texttt{dominique.rodriguez@waika9.com}), Herbert Vo\ss\ (\texttt{voss@pstricks.de}).}
-for its fitness. We immetiately have the simple parameterization of the vector at the grid point
-$(x_i,y_j)$ as
-\begin{align*}
-x&=x_i+\frac{t}{2}\cos\varphi=x_i+\frac{t}{2\sqrt{1+k^2}},\\
-y&=y_j+\frac{t}{2}\sin\varphi=y_j+\frac{tk}{2\sqrt{1+k^2}},
-\end{align*}
-where $t$ goes from $t=0$ to $t=1$, along the direction of the vector. The macro \texttt{\symbol{92}parametricplot}
-has the syntax as
-$$\texttt{\symbol{92}parametricplot[{\it settings}]\{$t_{\rm min}$\}\{$t_{\rm max}$\}\{$x(t)$|$y(t)$\}},$$
-where we should use the option \texttt{algebraic} to make the declaration of $x(t)$ and $y(t)$ simpler
-with \texttt{ASCII} code.
-
-From the above description of one field vector, we go to the one of the whole vector field
-on a grid belonging to the domain $R=\{(x,y)\colon a\le x\le b,\,c\le y\le d\}$. To determine the grid, we confine grid points to the range
-\begin{equation}\label{eqn3}
-a\le x_i\le b,\quad c\le y_j\le d.
-\end{equation}
-With respect to the indices $i$ and $j$, we choose initial values $x_0=a$ and
-$y_0=c$, with increments $\Delta x=\Delta y=\delta$, corresponding to the length of vectors and the distance
-between grid points as indicated in Figure \ref{Fig5}. Thus, to draw vectors at grid points
-$(x_i,y_j)$, we need two loops for $i$ and $j$, with $0\le i\le\lfloor m/\delta\rfloor$, $0\le j\le\lfloor n/\delta\rfloor$, where
-$m=b-a$, $n=d-c$. Apparently, these two loops are nested \texttt{\symbol{92}multido}s, with variable declaration
-for each loop as follows
-\begin{align*}
-\texttt{\symbol{92}nx}&=\text{initial value}+\text{increment}=x_0+\Delta x,\\
-\texttt{\symbol{92}ny}&=\text{initial value}+\text{increment}=y_0+\Delta y.
-\end{align*}
-Finally, we will replace \texttt{\symbol{92}nx}, \texttt{\symbol{92}ny} by $x_i$, $y_j$ in the
-below calling sequence for simplicity.
-
-Thus, the main procedure to draw the vector field of the equation (\ref{eqn2}) on the grid (\ref{eqn3})
-is
-\begin{align*}
-&\texttt{\symbol{92}multido\big\{$y_j=y_0+\Delta y$\big\}\big\{$\lfloor n/\delta\rfloor$\big\}}\texttt{\bigg\{\symbol{92}multido\big\{$x_i=x_0+\Delta x$\big\}\big\{$\lfloor m/\delta\rfloor$\big\}}\\
-&\quad\texttt{\Big\{\symbol{92}parametricplot[{\it settings}]\{$0$\}\{$1$\}\Big\{$x_i+\frac{t}{2\sqrt{1+\big[f(x_i,y_j)\big]^2}}$\Big|
-$y_j+\frac{tf(x_i,y_j)}{2\sqrt{1+\big[f(x_i,y_j)\big]^2}}$\Big\}\bigg\}}
-\end{align*}
-where we at least use \texttt{arrows=->} and \texttt{algebraic} for \textit{settings}.
-
-We can combine the steps mentioned above to define a drawing procedure, say \texttt{\symbol{92}vecfld},
-that consists of main parameters in the order as
-\texttt{\symbol{92}nx=}$x_0+\Delta x$, \texttt{\symbol{92}ny=}$y_0+\Delta y$, $\lfloor m/\delta\rfloor$, $\lfloor n/\delta\rfloor$, $\delta$
-and $f(\texttt{\symbol{92}nx},\texttt{\symbol{92}ny})$. We may change these values to modify
-the vector field or to avoid the vector intersection. Such a definition is suggested to be
-\bigskip\hrule
-\noindent\begin{tabular}{@{}l}
-\verb!\def\vecfld#1#2#3#4#5#6{%!\\
-\verb!\multido{#2}{#4}{\multido{#1}{#3}!\\
-\verb!{\parametricplot[algebraic,arrows=->,linecolor=red]{0}{1}!\\
-\verb!{\nx+((#5)*t)*(1/sqrt(1+(#6)^2))|\ny+((#5)*t)*(1/sqrt(1+(#6)^2))*(#6)}}}}!
-\end{tabular}\bigskip\hrule
-\subsection{Examples}
-Firstly, we consider the equation that describes an object falling in a resistive medium:
-\begin{equation}\label{eqn4}
-\frac{dv}{dt}=9.8-\frac{v}{5},
-\end{equation}
-where $v=v(t)$ is the speed of the object in time $t$. In Figure \ref{Fig6}, the vector field of (\ref{eqn4}) is given
-on the grid $R=\{(t,y)\colon 0\le t\le 9,\,46\le v\le 52\}$, together with the graph of the equilibrium solution
-$v=49$.
-\begin{figure}[htbp]
-\centering\includegraphics[width=8.55cm]{Fig6}
-\caption{The vector field of (\ref{eqn4}).}\label{Fig6}
-\end{figure}
-
-Figure \ref{Fig6} is made of the following \LaTeX\ code:
-\bigskip\hrule
-\noindent\begin{tabular}{@{}l}
-\verb!\begin{pspicture}(0,46)(9.5,52.5)!\\
-\verb!\vecfld{\nx=0.25+0.50}{\ny=46.25+0.50}{18}{12}{0.5}{9.8-0.2*\ny}!\\
-\verb!\psplot[algebraic,linewidth=1.2pt]{0}{9}{49}!\\
-\verb!\psaxes[Dy=1,Dx=1,Oy=46]{->}(0,46)(0,46)(9.5,52.5)!\\
-\verb!\rput(9.5,45.8){$t$}\rput(-0.2,52.5){$y$}!\\
-\verb!\end{pspicture}!
-\end{tabular}
-\smallskip\hrule\bigskip
-Let us next consider the problem
-\begin{equation}\label{eqn5}
-\frac{dy}{dx}=x+y,\quad y(0)=0.
-\end{equation}
-It is easy to check that $y=e^x-x-1$ is the unique solution to the problem (\ref{eqn5}). We now draw
-the vector field of (\ref{eqn5}) and the solution curve\footnote{\footnotesize
-We have used ${\rm ch}(1)+{\rm sh}(1)$ for the declaration of $e$, natural base of logarithmic function.} on the grid $R=\{(x,y)\colon 0\le x\le 3,\,0\le y\le 5\}$ in
-Figure \ref{Fig7}.
-\begin{figure}[htbp]
-\centering\includegraphics[width=3.25cm]{Fig7}
-\caption{The vector field of (\ref{eqn5}).}\label{Fig7}
-\end{figure}
-
-We then go to the logistic equation, which is chosen to be a model for the dependence
-of the population size $P$ on time $t$ in Biology:
-\begin{equation}\label{eqn6}
-\frac{dP}{dt}=kP\Big(1-\frac{P}{M}\Big),
-\end{equation}
-where $k$ and $M$ are constants, respectively various to selected species and environment.
-For specification, we take, for instant, $k=0.5$ and $M=100$. The right hand side of
-(\ref{eqn6}) then becomes $f(t,P)=0.5\,P(1-0.01\,P)$. In Figure \ref{Fig8}, we draw the vector field
-of (\ref{eqn6}) on the grid $R=\{(t,P)\colon 0\le t\le 10,\,95\le P\le 100\}$ and the equilibrium
-solution curve $P=100$. Furthermore, with the initial condition $P(0)=95$, the equation (\ref{eqn6})
-has the unique solution $P=1900(e^{-0.5t}+19)^{-1}$. This solution curve is also given in Figure \ref{Fig8}.
-\begin{figure}[htbp]
-\centering\includegraphics[width=8.4cm]{Fig8}
-\caption{The vector field of (\ref{eqn6}) with $k=0.5$ and $M=100$.}\label{Fig8}
-\end{figure}
-
-The previous differential equations are all of seperated variable or linear cases that
-can be solved for closed-form solutions by some simple integration formulas. We will consider one more
-equation of the non-linear case whose solution can only be approximated by numerical methods.
-The vector field of such an equation is so useful and we will use the Runge-Kutta curves (of order $4$)
-to add more information about the behaviour of solution curve. Here, those Runge-Kutta curves are depicted by the procedure
-\texttt{\symbol{92}psplotDiffEqn}, also updated from the package \texttt{pstricks-add}.
-
-The vector field of the non-linear differential equation
-\begin{equation}\label{eqn7}
-\frac{dy}{dx}=y^2-xy+1
-\end{equation}
-will be depicted on the grid $R=\{(x,y)\colon -3\le x\le 3,\,-3\le y\le 3\}$ and the solutions
-of Cauchy problems for (\ref{eqn7}), corresponding to initial conditions
-\begin{listof}
-\item $y(-3)=-1$,
-\item $y(-2)=-3$,
-\item $y(-3)=-0.4$,
-\end{listof}
-will be approximated by the method of Runge-Kutta, with the grid size $h=0.2$. It is very easy
-to recognize approximate curves, respective to (i), (ii) and (iii) in Figure \ref{Fig9} below.
-\begin{figure}[htbp]
-\centering\includegraphics[width=8.5cm]{Fig9}
-\caption{The vector field of (\ref{eqn7}) and the Runge-Kutta curves.}\label{Fig9}
-\end{figure}
-\section{Remarks on how to color arrows properly for a vector field}
-\subsection{Description}
-In the \verb!\vecfld! procedure, the command
-\begin{equation}\label{bosung1}
-\texttt{\symbol{92}parametricplot[{\it settings}]\{$t_{\rm min}$\}\{$t_{\rm max}$\}\{$x(t)$|$y(t)$\}}
-\end{equation}
-does the two works: drawing the whole oriented line segment and putting the endpoint right after
-the vector. This blots out the pointy head of arrows and makes field vectors less sharp when being seen closely.
-However, there is no problem with the procedure if we just want a monochrome vector field. But, in case of using arrows
-with their various color shades, we should use an independent procedure with options to draw a color arrow. For such a procedure,
-the command \texttt{\symbol{92}psline} could be the best choice. We just call it with two argument points, which are extracted from the curve
-produced by the command \texttt{\symbol{92}parametricplot}.
-
-To modify the \verb!\vecfld! procedure, from the above consideration, we might take the command \texttt{\symbol{92}curvepnodes} in the package \texttt{pst-node}\footnote{\footnotesize
-Package authors: Timothy Van Zandt (\texttt{tvz@econ.insead.fr}), Michael Sharpe (\texttt{msharpe@euclid.ucsd.edu}) and Herbert Vo\ss\ (\texttt{hvoss@tug.org}).} to
-extract points from a curve $(x(t),y(t))$ given in the algebraic form. Because we only need the two ending points of the curve,
-we can use
-\begin{equation}\label{bosung2}
-\texttt{\symbol{92}curvepnodes[algebraic,plotpoints=2]\{0\}\{1\}\{$x(t)$|$y(t)$\}\{P\}},
-\end{equation}
-where \texttt{P} is a name of the root of nodes and we just get the two nodes \texttt{P0}, \texttt{P1} when executing this command. Then, the corresponding
-vector is drawn by the command
-\begin{equation}\label{bosung3}
-\texttt{\symbol{92}psline[linecolor={\it settings}]\{->\}(P0)(P1)}
-\end{equation}
-The command (\ref{bosung1}) may be replaced by the two ones (\ref{bosung2}) and (\ref{bosung3}), and we obtain the arrows whose heads are now sharper.
-
-The remaining problem is how to appropriately make \textit{settings} in (\ref{bosung3}) to bring out a vector field. Obviously, \textit{settings} should be
-various color shades according to slope of vectors. In Subsection \ref{sect1}, we know for the equation (\ref{eqn2}) that $f(x_i,y_j)$ is right the slope of
-field vectors at grid points $(x_i,y_j)$, and we will divide these slopes into some number of scales, corresponding to the
-degree of color shades. Here, we confine our interest to a continuous function $f(x,y)$ in two independent variables on the domain
-$R=\{(x,y)\colon a\le x\le b,\,c\le y\le d\}$ and choose the scale of $10$ degrees. This number of degrees can be changed to any positive integer.
-
-According to the input data from the differential equation (\ref{eqn2}), the set $R$ and the grid points on it and the value $M=\max\{|f(x_i,y_j)|\colon
-0\le i\le\lfloor m/\Delta x\rfloor,\,0\le j\le\lfloor n/\Delta y\rfloor\}$, where $m=b-a$ and $n=d-c$,
-we can now define the degree of color shade for each arrow in our vector field. It should be an integer $n_{ij}$ such that
-$n_{ij}=\lfloor 10|f(x_i,y_j)|/M\rfloor$, that is
-\begin{equation}\label{bosung4}n_{ij}M\le 10|f(x_i,y_j)|<(n_{ij}+1)M.\end{equation}
-For finding such an integer, in \TeX\ codes, we need one \texttt{\symbol{92}newcount} for it and two \texttt{\symbol{92}newdimen} for
-$f(x_i,y_j)$ and intermediate values to be compared with $|f(x_i,y_j)|$. For more explanation, let us begin with settings
-\texttt{\symbol{92}newcount\symbol{92}intg} (referring (ref.) to ``integer''), \texttt{\symbol{92}newdimen\symbol{92}slope} (ref. to ``slope'') and \texttt{\symbol{92}newdimen\symbol{92}interm}
-(ref. to ``intermediate values''). Then, the integer $n_{ij}$ at stage $(i,j)$ within the two loops \texttt{\symbol{92}multido} can be defined by the recursive macro \texttt{\symbol{92}fintg} (ref. to ``find the integer'') as follows
-\begin{verbatim}
- \def\fintg{\interm=Mpt \interm=\intg\interm%
- \ifdim\ifdim\slope<0pt -\fi\slope>\interm \advance\intg by 1\fintg\fi}
-\end{verbatim}
-where \texttt{M} and \texttt{\symbol{92}slope} are holding the values $M$ and $f(x_i,y_j)$, respectively. Note that, before running our macro, \verb!\slope! should be multiplied
-by $10$ with the assignment \texttt{\symbol{92}slope=10\symbol{92}slope}, as defined in (\ref{bosung4}). Besides, by simulating the expression of $f(x,y)$, the calculation of $f(x_i,y_j)$
-should be declared with operations on \texttt{\symbol{92}newcount}s and \texttt{\symbol{92}newdimen}s. Then, the integer $n_{ij}$, which is found at stage $(i,j)$, should take its
-degree, say $k$, from $0$ to $10$ by its value, suitably associated to the command \texttt{\symbol{92}psline[linecolor=red!case-k]\{->\}(P0)(P1)}.
-Here, we choose \texttt{red} for the main color (it can be changed, of course), and \texttt{case-k} will be replaced with an appropriate percentage of \texttt{red}. Finally,
-making such a color scale is local and relative, so we can use one more parameter in the procedure to adjust color shades.
-The old procedure takes $6$ parameters and the new one will take two more parameters: one for a way of computing $f(x_i,y_j)$ and the other
-for adjusting color shades.
-
-Let us take some examples on how to compute $f(x_i,y_j)$ by \TeX\ codes or by the commands from the package \texttt{calculator}\footnote{\footnotesize
-Package author: Robert Fuster (\texttt{rfuster@mat.upv.es}).}. For a simple polynomial $f(x,y)$,
-computing $f(x_i,y_j)$ by \TeX\ codes might be facile. Because \verb!\nx! and \verb!\ny! are respectively holding the values of
-$x_i$ and $y_j$, we need the two corresponding dimensions \verb!\newdimen\fx! and \verb!\newdimen\fy! to take these values. By assigning \verb!\fx=\nx pt\fy=\ny pt!,
-we compute $f(\verb!\nx!,\verb!\ny!)$ and assign its value to \verb!\slope!. The declaration of calculations for some cases of $f(x,y)$ is given in the following table.
-
-\begin{table}[htbp]
-\centering\begin{tabular}{c|l}
-$f(x,y)$&\multicolumn{1}{c}{\TeX\ codes for computing $f(\texttt{\symbol{92}nx},\texttt{\symbol{92}ny})$} \\ \hline
-$x+y$&\verb!\advance\slope by \fx \advance\slope by \fy!\\ \hline
-$1-xy$&\verb!\advance\slope by -\decimal\fx\fy \advance\slope by 1pt!\\ \hline
-$y(3-y)$&\verb!\advance\slope by -\decimal\fy\fy \advance\slope by 3\fy!\\ \hline
-$y^2-xy$&\verb!\advance\slope by \decimal\fy\fy \advance\slope by -\decimal\fx\fy!\\ \hline
-\end{tabular}
-\end{table}
-In the table, the command \verb!\decimal!, which is quotative from \cite{five} for producing decimal numbers from dimensions, is put in the preamble using a definition as
-\begin{verbatim}
- \def\xch{\catcode`\p=12 \catcode`\t=12}\def\ych{\catcode`\p=11 \catcode`\t=11}
- \xch \def\dec#1pt{#1}\ych \def\decimal#1{\expandafter\dec \the#1}
-\end{verbatim}
-
-For a transcendental or rational function $f(x,y)$, we should use the package \texttt{calculator} for
-computing $f(x_i,y_j)$. The following table shows how to perform the calculations.
-\begin{table}[htbp]
-\centering\begin{tabular}{c|l}
-$f(x,y)$&\multicolumn{1}{c}{The commands from the package \texttt{calculator} for computing $f(\texttt{\symbol{92}nx},\texttt{\symbol{92}ny})$} \\ \hline
-$\sin(y-x)$&\verb!\SUBTRACT{\ny}{\nx}{\sola}\SIN{\sola}{\solb}\slope=\solb pt!\\ \hline
-\raisebox{-2ex}[0pt][0pt]{$2xy/(1+y^2)$}&\verb!\SUMfunction{\ONEfunction}{\SQUAREfunction}{\Fncty}!\\
-&\verb!\Fncty{\ny}{\soly}{\Dsoly}\DIVIDE{\Dsoly}{\soly}{\tempa}!\\
-&\verb!\MULTIPLY{\nx}{\tempa}{\tempb}\slope=\tempb pt!\\ \hline
-\end{tabular}
-\end{table}
-
-From the old macro \verb!\vecfld!, we will construct the new one \verb!\vecfldnew! by adding up to the former the two parameters as described above. According to
-the description of new parameters and of known ones, the calling sequence of \verb!\vecfldnew! may have the form of
-$$\texttt{\symbol{92}vecfldnew\{\symbol{92}nx$=x_0+\Delta x$\}\{\symbol{92}ny$=y_0+\Delta y$\}\{$n_x$\}\{$n_y$\}\{$\ell$\}\{$f(\texttt{\symbol{92}nx},\texttt{\symbol{92}ny})$\}\{{\rm\TeX\ codes}\}\{$n_a$\}}$$
-where $n_a$ is an estimate value for $M$ and can be adjusted to be greater or less than $M$. This flexible mechanism might be to increase or decrease the degree of
-color shades. Finally, \verb!\intg! and \verb!\slope! should be reset to
-zero at the end of each stage. Now, all materials to make the new macro are ready, and a definition for it is suggested to be
-\bigskip\hrule
-\noindent\begin{tabular}{@{}l}
-\verb!\def\vecfldnew#1#2#3#4#5#6#7#8{%!\\
-\verb!\newcount\intg \newdimen\slope \newdimen\interm \newdimen\fx \newdimen\fy!\\
-\verb!\def\fintg{\interm=#8 \interm=\intg\interm%!\\
-\verb! \ifdim\ifdim\slope<0pt -\fi\slope>\interm \advance\intg by 1\fintg\fi}!\\
-\verb!\multido{#2}{#4}!\\
-\verb!{\multido{#1}{#3}!\\
-\verb!{\curvepnodes[algebraic,plotpoints=2]{0}{1}!\\
-\verb!{\nx+((#5)*t)*(1/sqrt(1+(#6)^2))|\ny+((#5)*t)*(1/sqrt(1+(#6)^2))*(#6)}{P}!\\
-\verb!#7\slope=10\slope \fintg \ifnum\intg>10\psline[linecolor=red]{->}(P0)(P1)!\\
-\verb+\else\ifnum\intg=0\psline[linecolor=red!5]{->}(P0)(P1)+\\
-\verb+\else\multiply\intg by 10\psline[linecolor=red!\the\intg]{->}(P0)(P1)\fi\fi+\\
-\verb+\intg=0\slope=0pt+\\
-\verb+}}}+
-\end{tabular}
-\smallskip\hrule\smallskip
-
-If we predefine some scale of degrees, instead of the code $\verb!\ifnum\intg>10!\ldots\verb!\fi\fi!$, the structure \verb!\ifcase! can be used as
-$$\begin{array}{c}
-\verb!\ifcase\intg!\\
-\verb+\psline[linecolor=red!5]{->}(P0)(P1)\or+\\
-\verb+\psline[linecolor=red!10]{->}(P0)(P1)\or+\\
-\vdots\\
-\verb!\psline[linecolor=red]{->}(P0)(P1)\fi!
-\end{array}$$
-\subsection{Examples}
-The first example is given with the two $n_a$s to see how different the color shades are between the two cases. The left vector field in Figure \ref{figure1}
-is made of the calling sequence
-\begin{verbatim}
-\vecfldnew{\nx=-2.00+0.3}{\ny=-2.00+0.3}{14}{14}{0.3}{(\nx)-2*(\ny)}
-{\fy=\ny pt \fx=\nx pt \advance\slope by -2\fy \advance\slope by \fx}{9pt}
-\end{verbatim}
-\begin{figure}[htbp]
-\centering\includegraphics[width=4.6cm]{vec5}
-\hskip1cm\includegraphics[width=4.6cm]{vec6}
-\caption{The vector fields of the equation $y'=x-2y$ with $n_a=\texttt{9pt}$ (the left) and $n_a=\texttt{5pt}$ (the right)}\label{figure1}
-\end{figure}
-
-In Figure \ref{figure2}, the vector fields of the equations $y'=y-x$ and $y'=x(2-y)$ are respectively drawn by the calling sequences
-\begin{verbatim}
-\vecfldnew{\nx=-3.00+0.4}{\ny=-3.00+0.4}{15}{15}{0.35}{(\ny)-(\nx)}
-{\fy=\ny pt \fx=\nx pt \advance\slope by -\fx \advance\slope by \fy}{5pt}
-\end{verbatim}
-and
-\begin{verbatim}
-\vecfldnew{\nx=-3.00+0.4}{\ny=-3.00+0.4}{15}{15}{0.35}{(\nx)*(2-(\ny))}
-{\fy=\ny pt \fx=\nx pt \advance\slope by -\decimal\fx\fy
-\advance\slope by 2\fx}{6pt}
-\end{verbatim}
-\begin{figure}[htbp]
-\centering\includegraphics[width=6.2cm]{vec3}
-\hskip1cm\includegraphics[width=6.2cm]{vec4}
-\caption{The vector fields of the equation $y'=y-x$ (the left) and $y'=x(2-y)$ (the right).}\label{figure2}
-\end{figure}
-
-Finally, we consider two more examples on vector fields of differential equations $y'=f(x,y)$ containing trigonometric or rational functions on the right side. The calling sequences
-\begin{verbatim}
-\vecfldnew{\nx=-3.00+0.4}{\ny=-3.00+0.4}{15}{15}{0.35}{sin(\nx)*cos(\ny)}
-{\SIN{\nx}{\tmpa}\COS{\ny}{\tmpb}\MULTIPLY{\tmpa}{\tmpb}{\tmpc}
-\slope=\tmpc pt}{0.6pt}
-\end{verbatim}
-and
-\begin{verbatim}
-\vecfldnew{\nx=-3.00+0.3}{\ny=-3.00+0.3}{20}{20}{0.3}{2*(\nx)*(\ny)/(1+(\ny)^2)}
-{\SUMfunction{\ONEfunction}{\SQUAREfunction}{\Fncty}\Fncty{\ny}{\soly}{\Dsoly}
-\DIVIDE{\Dsoly}{\soly}{\tempa}\MULTIPLY{\nx}{\tempa}{\tempb}
-\slope=\tempb pt}{2.5pt}
-\end{verbatim}
-respectively result in the vector field on the left and on the right in Figure \ref{figure3}.
-
-\begin{figure}[htbp]
-\centering\includegraphics[width=6.2cm]{vec1}
-\hskip1cm\includegraphics[width=6.2cm]{vec2}
-\caption{The vector fields of the equation $y'=\sin(x)\cos(y)$ (the left) and $y'=2xy/(1+y^2)$ (the right).}\label{figure3}
-\end{figure}
-
-\acknw
-I am very grateful to
-\begin{itemize}
-\item Timothy Van Zandt, Herbert Vo\ss, Dominique Rodriguez and Michael Sharpe for helping me with
-their great works on \texttt{PSTricks}.
-\item H\`an Th\hantt\rlap\accentcircflx\ Th\`anh for helping me with his pdf\hskip.03em\LaTeX\ program.
-\item Robert Fuster for his very useful package \texttt{calculator}.
-\end{itemize}
-\begin{thebibliography}{10}
-\bibitem{one} Dominique Rodriguez, Michael Sharpe \&\ Herbert Vo\ss. \textsl{\texttt{pstricks-add}: Additional Macros for PSTricks\/}.
-Version 3.60, \url{http://ctan.org/tex-archive/graphics/pstricks/contrib}, 2013
-\bibitem{two} Timothy Van Zandt, Michael Sharpe \&\ Herbert Vo\ss. \textsl{\texttt{pst-node}: Nodes and node connections}.
-Version 1.29, \url{http://ctan.org/tex-archive/graphics/pstricks/contrib}, 2013
-\bibitem{three} Helmut Kopka \&\ Patrick W. Daly. \textsl{Guide to \LaTeX \/}.
-Addison-Wesley, Fourth Edition, 2004, ISBN 0321173856
-\bibitem{four} Timothy Van Zandt. \textsl{User's Guide\/}. Version 1.5,\\
-\url{http://ctan.org/tex-archive/graphics/pstricks/base}, 2007
-\bibitem{five}Eitan M. Gurari. \textsl{Writing With \TeX \/}, McGraw-Hill, Inc., 1994, ISBN 0-07-025207-6
-\bibitem{six} Robert Fuster. \textsl{\texttt{calculator-calculus}: Scientific Calculations With \LaTeX \/}. Version 1.0a,
-\url{http://ctan.org/tex-archive/macros/latex/contrib/calculator}, 2012
-\end{thebibliography}
-\end{document}
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/ThreeAppsPDF.tex b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/ThreeAppsPDF.tex
new file mode 100644
index 00000000000..6c5d9f06377
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/ThreeAppsPDF.tex
@@ -0,0 +1,1036 @@
+\documentclass[11pt,a4paper,oneside]{article}
+\usepackage{calculator}
+\usepackage{calculus}
+\usepackage{amsthm}
+\usepackage{amsmath}
+\usepackage{cmtt}
+\usepackage[dvips]{geometry}
+\usepackage{pstricks}
+\usepackage{graphicx}
+\usepackage{graphics}
+\usepackage{pst-plot}
+\usepackage{pst-node}
+\usepackage{multido}
+\usepackage{pst-xkey}
+\usepackage{pst-func}
+\usepackage{pstricks-add}
+\usepackage[pdftex,colorlinks,linktocpage]{hyperref}
+\def\hantt{\^e}\def\accentcircflx{\hskip-.3em\raisebox{0.32ex}{\'{}}}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\def\RiemannSum#1#2#3#4#5#6#7#8#9{%
+\psplot[linecolor=blue]{#1}{#2}{#3}
+\pscustom[linecolor=red]{%
+\psline{-}(#1,0)(#1,0)
+\multido{\ni=#5,\ne=#6}{#4}
+{\psline(*{\ni} {#8})(*{\ne} {#9})}}
+\multido{\ne=#6,\nc=#7}{#4}
+{\psdot(*{\nc} {#3})
+\psline[linestyle=dotted,dotsep=1.5pt](\nc,0)(*{\nc} {#3})
+\psline[linecolor=red](\ne,0)(*{\ne} {#9})}
+}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcount\Fa\newcount\Fct\newcount\tempA
+\def\Factor{\ifnum\Fa=1\relax\else\advance\Fa by -1\multiply\Fct by \Fa\Factor\fi}
+\def\FACTORIAL#1{\Fa=#1 \ifnum\Fa=0 \Fct=1\relax\else\Fct=\Fa \Factor\fi\global\tempA=\Fct}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcount\BINOM
+\newcount\temp
+\newcount\tmp
+\def\BINOMIAL#1#2{%
+\temp=#1\advance\temp by -#2
+\FACTORIAL{#1}
+\tmp=\tempA
+\FACTORIAL{\temp}
+\temp=\tempA
+\divide\tmp by \temp
+\FACTORIAL{#2}
+\temp=\tempA
+\divide\tmp by \temp\global\BINOM=\tmp}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newdimen\Xa\newdimen\Yb\newcount\kc
+\newdimen\BSTemp
+\def\xmult#1{\ifnum\kc<#1\advance\kc by 1\Yb=\decimal\Xa\Yb\xmult{#1}\else\relax\fi}
+\def\BERNSTEIN#1#2#3{\Xa=#3pt\kc=0\Yb=1pt\xmult{#1}\kc=0\Xa=-\Xa\advance\Xa by 1pt\xmult{#2}
+\BINOMIAL{6}{#1}\global\BSTemp=\BINOM\Yb}
+\newdimen\Xrf\newdimen\Yrf
+\newdimen\XBST\newdimen\YBST
+\def\XBC#1#2#3{%
+\BERNSTEIN{0}{6}{#2}
+\Xrf=#1pt
+\XBST=\decimal\BSTemp\Xrf
+\BERNSTEIN{1}{5}{#2}
+\Xrf=#1pt\advance\Xrf by -1.5pt
+\advance\XBST by \decimal\BSTemp\Xrf
+\BERNSTEIN{2}{4}{#2}
+\Xrf=#1pt\advance\Xrf by 2pt
+\advance\XBST by \decimal\BSTemp\Xrf
+\BERNSTEIN{3}{3}{#2}
+\Xrf=#1pt\advance\Xrf by 6pt
+\advance\XBST by \decimal\BSTemp\Xrf
+\BERNSTEIN{4}{2}{#2}
+\Xrf=#1pt\advance\Xrf by 5pt
+\advance\XBST by \decimal\BSTemp\Xrf
+\BERNSTEIN{5}{1}{#2}
+\Xrf=#1pt\advance\Xrf by 1.5pt
+\advance\XBST by \decimal\BSTemp\Xrf
+\BERNSTEIN{6}{0}{#2}
+\Xrf=#1pt
+\advance\XBST by \decimal\BSTemp\Xrf
+\global\XBST=#3\XBST}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\def\YBC#1#2#3{%
+\BERNSTEIN{0}{6}{#2}
+\Yrf=#1pt
+\YBST=\decimal\BSTemp\Yrf
+\BERNSTEIN{1}{5}{#2}
+\Yrf=#1pt\advance\Yrf by 2pt
+\advance\YBST by \decimal\BSTemp\Yrf
+\BERNSTEIN{2}{4}{#2}
+\Yrf=#1pt\advance\Yrf by 5pt
+\advance\YBST by \decimal\BSTemp\Yrf
+\BERNSTEIN{3}{3}{#2}
+\Yrf=#1pt\advance\Yrf by 3pt
+\advance\YBST by \decimal\BSTemp\Yrf
+\BERNSTEIN{4}{2}{#2}
+\Yrf=#1pt\advance\Yrf by -1pt
+\advance\YBST by \decimal\BSTemp\Yrf
+\BERNSTEIN{5}{1}{#2}
+\Yrf=#1pt\advance\Yrf by -2pt
+\advance\YBST by \decimal\BSTemp\Yrf
+\BERNSTEIN{6}{0}{#2}
+\Yrf=#1pt
+\advance\YBST by \decimal\BSTemp\Yrf
+\global\YBST=#3\YBST}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\def\XBsix#1#2{%
+(1-t)^6*(#1)*(#2)+6*t*(1-t)^5*(#1-1.5)*(#2)+15*t^2*(1-t)^4*(#1+2)*(#2)+
+20*t^3*(1-t)^3*(#1+6)*(#2)+15*t^4*(1-t)^2*(#1+5)*(#2)+6*t^5*(1-t)*(#1+1.5)*(#2)+t^6*(#1)*(#2)}
+\def\YBsix#1#2{%
+(1-t)^6*(#1)*(#2)+6*t*(1-t)^5*(#1+2)*(#2)+15*t^2*(1-t)^4*(#1+5)*(#2)+
+20*t^3*(1-t)^3*(#1+3)*(#2)+15*t^4*(1-t)^2*(#1-1)*(#2)+6*t^5*(1-t)*(#1-2)*(#2)+t^6*(#1)*(#2)}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\def\NetDraw#1#2#3#4#5{%
+\newcount\CellNum
+\newdimen\XRef
+\newdimen\YRef
+\newdimen\Xfact
+\newdimen\Yfact
+\newdimen\XMin
+\newdimen\XMax
+\newdimen\YMin
+\newdimen\YMax
+\newdimen\Xsize
+\newdimen\Ysize
+\newdimen\tempx
+\newdimen\tempy
+\CellNum=#1
+\XRef=#2pt
+\YRef=#3pt
+\Xfact=#4pt
+\Yfact=#5pt
+\XMin=\decimal\Xfact\XRef \advance\XMin by -1.50\Xfact
+\XMax=\decimal\Xfact\XRef \advance\XMax by 5.00\Xfact
+\YMin=\decimal\Yfact\YRef \advance\YMin by -6.00\Yfact
+\YMax=\decimal\Yfact\YRef \advance\YMax by \Yfact
+\Xsize=\XMax \advance\Xsize by -\XMin \divide\Xsize by \CellNum
+\Ysize=\YMax \advance\Ysize by -\YMin \divide\Ysize by \CellNum
+\parametricplot[algebraic,fillstyle=solid,fillcolor=yellow!30,plotpoints=200,linewidth=0.5pt]{0}{0.5}
+{\XBeight{\decimal\XRef}{\decimal\Xfact}|\YBeight{\decimal\YRef}{\decimal\Yfact}}
+\parametricplot[algebraic,fillstyle=solid,fillcolor=yellow!30,plotpoints=200,linewidth=0.5pt]{0.5}{1}
+{\XBeight{\decimal\XRef}{\decimal\Xfact}|\YBeight{\decimal\YRef}{\decimal\Yfact}}
+\multido{\nz=0.00+0.05}{200}{\XBC{\decimal\XRef}{\nz}{\decimal\Xfact}\YBC{\decimal\YRef}{\nz}{\decimal\Yfact}
+\multido{\nx=\decimal\XMin+\decimal\Xsize}{\the\CellNum}
+{\tempx=\nx pt\multido{\ny=\decimal\YMin+\decimal\Ysize}{\the\CellNum}
+{\tempy=\ny pt\ifdim\YBST<\tempy\relax\else\advance\tempy by \Ysize%
+ \ifdim\YBST>\tempy\relax\else
+ \ifdim\XBST<\tempx\relax\else\advance\tempx by \Xsize
+ \ifdim\XBST>\tempx\relax\else
+ \pspolygon[fillstyle=solid,fillcolor=red!90,linecolor=black,linewidth=0.2pt]
+ (\nx,\ny)(\decimal\tempx,\ny)(\decimal\tempx,\decimal\tempy)(\nx,\decimal\tempy)(\nx,\ny)\relax\fi\fi\fi\fi}
+}}
+\advance\CellNum by 1
+\multido{\nx=\decimal\XMin+\decimal\Xsize}{\the\CellNum}
+{\psline[linewidth=0.2pt](\nx,\decimal\YMax)(\nx,\decimal\YMin)}
+\multido{\ny=\decimal\YMin+\decimal\Ysize}{\the\CellNum}
+{\psline[linewidth=0.2pt](\decimal\XMin,\ny)(\decimal\XMax,\ny)}
+\parametricplot[algebraic,linecolor=white,plotpoints=200,linewidth=0.5pt]{0}{0.5}
+{\XBeight{\decimal\XRef}{\decimal\Xfact}|\YBeight{\decimal\YRef}{\decimal\Yfact}}
+\parametricplot[algebraic,linecolor=white,plotpoints=200,linewidth=0.5pt]{0.5}{1}
+{\XBeight{\decimal\XRef}{\decimal\Xfact}|\YBeight{\decimal\YRef}{\decimal\Yfact}}
+}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\def\avecfld#1#2#3#4#5#6{%
+\multido{#2}{#4}
+{\multido{#1}{#3}
+{\parametricplot[algebraic,arrows=->,linecolor=red]{0}{1}
+{\nx+((#5)*t)*(1/sqrt(1+(#6)^2))|\ny+((#5)*t)*(1/sqrt(1+(#6)^2))*(#6)}}}}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\def\anothervecfld#1#2#3#4#5#6{%
+\multido{#2}{#4}
+{\multido{#1}{#3}
+{\curvepnodes[algebraic,plotpoints=2]{0}{1}
+{\nx+((#5)*t)*(1/sqrt(1+(#6)^2))|\ny+((#5)*t)*(1/sqrt(1+(#6)^2))*(#6)}{P}
+\psline[linewidth=0.7pt,linecolor=red]{->}(P0)(P1)}}}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\def\xch{\catcode`\p=12 \catcode`\t=12}\def\ych{\catcode`\p=11 \catcode`\t=11}
+\xch \def\dec#1pt{#1}\ych \def\decimal#1{\expandafter\dec \the#1}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\def\vecfldnew#1#2#3#4#5#6#7#8{%
+\newcount\intg \newdimen\fx \newdimen\fy \newdimen\slope \newdimen\interm
+\def\fintg{\interm=#8 \interm=\intg\interm \ifdim\ifdim\slope<0pt-\fi\slope<\interm\advance\intg by -1\relax\else\advance\intg by 1\fintg\fi}
+\multido{#2}{#4}
+{\multido{#1}{#3}
+{\curvepnodes[algebraic,plotpoints=2]{0}{1}{\nx+((#5)*t)*(1/sqrt(1+(#6)^2))|\ny+((#5)*t)*(1/sqrt(1+(#6)^2))*(#6)}{P}
+#7 \slope=10\slope\fintg
+\ifnum\intg>10\psline[linecolor=red]{->}(P0)(P1)\else\ifnum\intg=0\psline[linecolor=red!5]{->}(P0)(P1)\else\multiply\intg by 10
+\psline[linecolor=red!\the\intg]{->}(P0)(P1)\fi\fi
+\intg=0\slope=0pt
+}}}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\pagestyle{headings}
+\topmargin=-0.6cm
+\textwidth=16.7cm
+\textheight=23cm
+\headheight=2.5ex
+\headsep=0.6cm
+\oddsidemargin=.cm
+\evensidemargin=-.4cm
+\parskip=0.7ex plus0.5ex minus 0.5ex
+\baselineskip=17pt plus2pt minus2pt
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\catcode`@=11
+\renewcommand\section{\@startsection {section}{1}{\z@}%
+ {-3.5ex \@plus -1ex \@minus -.2ex}%
+ {2.3ex \@plus.2ex}%
+ {\normalfont\large\bfseries}}
+\renewcommand\subsection{\@startsection{subsection}{2}{\z@}%
+ {-3.25ex\@plus -1ex \@minus -.2ex}%
+ {1.5ex \@plus .2ex}%
+ {\normalfont\normalsize\bfseries}}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\gdef\acknw{\section*{%
+{\acknwname}\markright{\protect\textsl{\acknwname}}}%
+\addcontentsline{toc}{section}{\acknwname}}
+\gdef\acknwname{Acknowledgment}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\renewcommand\sectionmark[1]{\markright{\thesection. #1}}
+\newcounter{lk}
+\newenvironment{listof}{\begin{list}{\rm(\roman{lk})}{\usecounter{lk}%
+\setlength{\topsep}{0ex plus0.1ex}%
+\setlength{\labelwidth}{1cm}%
+\setlength{\itemsep}{0ex plus0.1ex}%
+\setlength{\itemindent}{0.5cm}%
+}}{\end{list}}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\title{Three applications of macros in \texttt{PSTricks}\thanks{PSTricks is the original work of Timothy Van Zandt (email address: \texttt{tvz@econ.insead.fr}).
+It is currently edited by Herbert Vo\ss\ (\texttt{hvoss@tug.org}).}}
+\author{Le Phuong Quan\\
+\small{(Cantho University, Vietnam)}\\
+\small{\texttt{lpquan@ctu.edu.vn}}}
+\begin{document}
+\maketitle
+\tableofcontents
+\section{Drawing approximations to the area under a graph by rectangles}
+\subsection{Description}
+
+We recall here an operation in Calculus. Let $f(x)$ be a function, defined and bounded on
+an interval $[a,b]$. If $f$ is integrable (in Riemann sense) on $[a,b]$, then its definite integral over this interval
+is
+$$\int_a^bf(x)dx=\lim_{\|P\|\to 0}\sum_{i=1}^nf(\xi_i)\Delta x_i,$$
+where $P\colon a=x_0<x_1<\cdots<x_n=b$, $\Delta x_i=x_i-x_{i-1}$ is a partition of $[a,b]$, $\xi_i\in[x_{i-1},x_i]$, $i=1,2,\ldots,n$,
+and $\|P\|=\max\{\Delta x_i\colon i=1,2,\ldots,n\}$. Hence, when $\|P\|$ is small enough, we may have an
+approximation
+\begin{equation}\label{eqn1}
+I=\int_a^bf(x)dx\approx\sum_{i=1}^nf(\xi_i)\Delta x_i.
+\end{equation}
+Because $I$ is independent to the choice of $P$ and $\xi_i$, we may
+divide $[a,b]$ into $n$ subintervals with equal length and choose $\xi_i=(x_i+x_{i-1})/2$.
+Then, $I$ can be approximately seen as the sum of areas of the rectangles with sides
+$f(\xi_i)$ and $\Delta x_i$.
+
+We will make a drawing procedure to illustrate the approximation (\ref{eqn1}). Firstly, we establish
+commands to draw the ``sum'' of rectangles, like the area under piecewise-constant functions
+(called \textsl{step shape\/}, for brevity). The chosen procedure here
+obviously includes a combination of the macros \texttt{\symbol{92}pscustom} (to \textsl{join\/} horizontal segments, automatically)
+and \texttt{\symbol{92}multido}. In particular, horizontal segments are depicted within the loop
+\texttt{\symbol{92}multido} by
+$$\textmtt{\symbol{92}psplot[{\it settings}]\{$x_{i-1}$\}\{$x_i$\}\{$f(\xi_i)$\}}$$
+Then, \texttt{\symbol{92}pscustom} will join these segments altogether with the ending points
+$(a,0)$, $(b,0)$ to make the boundary of the step shape. Next, we draw the points $(\xi_i,f(\xi_i))$, $i=1,2,\ldots,n$,
+and the dotted segments between these points and the points $(\xi_i,0)$, $i=1,2,\ldots,n$, by
+\begin{align*}
+&\textmtt{\symbol{92}psdot[algebraic,\dots](*\{$\xi_i$\} \{$f(x)$\})}\\
+&\textmtt{\symbol{92}psline[algebraic,linestyle=dotted,\dots]($\xi_i$,$0$)(*\{$\xi_i$\} \{$f(x)$\})}
+\end{align*}
+where we use the structure \textmtt{(*\{{\it value}\} \{$f(x)$\})} to obtain $(\xi_i,f(\xi_i))$. Finally, we draw
+vertical segments to split the step shape into rectangular cells by
+$$\textmtt{\symbol{92}psline[algebraic,\dots]($x_i$,$0$)(*\{$x_i$\} \{$f(x-\Delta x_i/2)$\})}$$
+The process of approximation is depicted in Figure \ref{Fig1}.
+\begin{figure}[htbp]
+\centering\includegraphics[height=5.5cm]{Fig1a}
+\hskip3em\includegraphics[height=5.5cm]{Fig1b}\\[2ex]
+\centering\includegraphics[height=5cm]{Fig1c}
+\caption{Steps to make the drawing procedure.}\label{Fig1}
+\end{figure}
+
+We now combine the above steps to make a procedure whose calling sequence consists of main parameters
+$a$, $b$, $f$ and $n$, and dependent parameters $x_{i-1}$, $x_i$, $\xi_i$, $f(\xi_i)$ and
+$f(x\pm\Delta x_i/2)$. For instance, let us consider approximations to the integral of $f(x)=\sin x-\cos x$
+over $[-2,3]$ in cases of $n=5$ and $n=20$. They are given in Figure \ref{Fig2}.
+\begin{figure}[htbp]
+\centering\includegraphics[height=6.1cm]{Fig2a}
+\hskip4em\includegraphics[height=6.1cm]{Fig2b}
+\caption{Approximations to the integral of $f(x)=\sin x-\cos x$ over $[-2,3]$.}\label{Fig2}
+\end{figure}
+
+In summary, we can make a procedure to illustrate the approximation (\ref{eqn1}), say \texttt{RiemannSum}, whose calling sequence has the form of
+$$\textmtt{\symbol{92}RiemannSum\{$a$\}\{$b$\}\{$f(x)$\}\{$n$\}\{$x_{\rm ini}$\}\{$x_{\rm end}$\}\{$x_{\rm choice}$\}\{$f(x+\Delta x_i/2)$\}\{$f(x-\Delta x_i/2)$\}},$$
+where $x_0=a$ and for each $i=1,2\ldots,n$:
+\begin{align*}
+x_i&=a+\dfrac{b-a}{n}i,\quad\Delta x_i=x_i-x_{i-1}=\dfrac{b-a}{n},\\
+x_{\rm ini}&=x_0+\Delta x_i,\quad x_{\rm end}=x_1+\Delta x_i,\quad x_{\rm choice}=\dfrac{x_{\rm ini}+x_{\rm end}}{2}=\dfrac{x_0+x_1}{2}+\Delta x_i.
+\end{align*}
+Note that $x_{\rm ini}$, $x_{\rm end}$ and $x_{\rm choice}$ are given in such forms to be
+suitable to variable declaration in \texttt{\symbol{92}multido}. They are nothing but
+$x_{i-1}$, $x_i$ and $\xi_i$, respectively, at the step $i$-th in the loop.
+
+Tentatively, in \texttt{PSTricks} language, the definition of \texttt{RiemannSum} is suggested to be
+\bigskip\hrule
+\noindent\begin{tabular}{@{}l}
+\verb!\def\RiemannSum#1#2#3#4#5#6#7#8#9{%!\\
+\verb!\psplot[linecolor=blue]{#1}{#2}{#3}!\\
+\verb!\pscustom[linecolor=red]{%!\\
+\verb!\psline{-}(#1,0)(#1,0)!\\
+\verb!\multido{\ni=#5,\ne=#6}{#4}!\\
+\verb!{\psline(*{\ni} {#8})(*{\ne} {#9})}}!\\
+\verb!\multido{\ne=#6,\nc=#7}{#4}!\\
+\verb!{\psdot(*{\nc} {#3})!\\
+\verb!\psline[linestyle=dotted,dotsep=1.5pt](\nc,0)(*{\nc} {#3})!\\
+\verb!\psline[linecolor=red](\ne,0)(*{\ne} {#9})}}!
+\end{tabular}\hrule
+\subsection{Examples}
+We give here two more examples just to see that using the drawing procedure is very easy. In the first example, we approximate
+the area under the graph of the function $f(x)=x-(x/2)\cos x+2$ on the interval $[0,8]$. To draw the approximation, we try
+the case $n=16$; thus $x_0=0$ and for each $i=1,\ldots,16$, we have
+$x_i=0.5\,i$, $\Delta x_i=0.5$, $x_{\rm ini}=0.00+0.50$, $x_{\rm end}=0.50+0.50$ and $x_{\rm choice}=0.25+0.50$.
+\begin{figure}[htbp]
+\centering\includegraphics[height=6.6cm]{Fig3}
+\vskip0.5ex
+\caption{An approximation to the area under the graph of $f(x)=x-(x/2)\cos x+2$ on $[0,8]$.}\label{Fig3}
+\end{figure}
+
+To get Figure \ref{Fig3}, we have used the following \LaTeX\ code:
+\bigskip\hrule
+\noindent\begin{tabular}{@{}l}
+\verb!\begin{pspicture}(0,0)(4.125,5.5)!\\
+\verb!\psset{plotpoints=500,algebraic,dotsize=2.5pt,unit=0.5}!\\
+\verb!\RiemannSum{0}{8}{x-(x/2)*cos(x)+2}{16}{0.00+0.50}{0.50+0.50}{0.25+0.50}!\\
+\verb!{x+0.25-((x+0.25)/2)*cos(x+0.25)+2}{x-0.25-((x-0.25)/2)*cos(x-0.25)+2}!\\
+\verb!\psaxes[ticksize=2.2pt,labelsep=4pt]{->}(0,0)(8.5,11)!\\
+\verb!\end{pspicture}!
+\end{tabular}\hrule\bigskip
+
+In the second example below, we will draw an approximation to the integral of $f(x)=x\sin x$ over $[1,9]$.
+Choosing $n=10$ and computing parameters needed, we get Figure \ref{Fig4}, mainly by
+the command
+\begin{align*}
+&\textmtt{\symbol{92}RiemannSum\{$1$\}\{$9$\}\{$x\sin x$\}\{$10$\}\{$1.00+0.80$\}\{$1.80+0.80$\}\{$1.40+0.80$\}}\\
+&\textmtt{\{$(x+0.4)\sin(x+0.4)$\}\{$(x-0.4)\sin(x-0.4)$\}}
+\end{align*}
+in the drawing procedure.
+\begin{figure}[htbp]
+\centering\includegraphics[height=6.75cm]{Fig4}
+\caption{An approximation to the integral of $f(x)=x\sin x$ over $[1,9]$.}\label{Fig4}
+\end{figure}
+\section{Drawing the vector field of an ordinary differential equation of order one}
+\subsection{Description}\label{sect1}
+
+Let us consider the differential equation
+\begin{equation}\label{eqn2}
+\frac{dy}{dx}=f(x,y).
+\end{equation}
+At each point $(x_0,y_0)$ in the domain $D$ of $f$, we will put a vector $\mathbf{v}$ with slope
+$k=f(x_0,y_0)$. If $y(x_0)=y_0$, then $k$ is the slope of the tangent to the solution curve $y=y(x)$
+of (\ref{eqn2}) at $(x_0,y_0)$. The $\mathbf{v}$'s make a \textsl{vector field\/} and the picture
+of this field would give us information about the shape of solution curves of (\ref{eqn2}), even
+we have not found yet any solution of (\ref{eqn2}).
+
+The vector field of (\ref{eqn2}) will be depicted on a finite grid of points in $D$. This grid is made of
+lines, paralell to the axes $Ox$ and $Oy$. The intersectional points of those lines are called \textsl{grid points\/}
+and often indexed by $(x_i,y_j)$, $i=0,\ldots,N_x$, $j=0,\ldots,N_y$. For convenience, we will use
+polar coordinates to locate the terminal point $(x,y)$ of a field vector, with the initial point at
+grid point $(x_i,y_j)$. Then, we can write
+\begin{align*}
+x&=x_i+r\cos\varphi,\\
+y&=y_j+r\sin\varphi.
+\end{align*}
+Because $k=f(x_i,y_j)=\tan\varphi$ is finite, we may take $-\pi/2<\varphi<\pi/2$.
+From $\sin^2\varphi+\cos^2\varphi=1$ and $\sin\varphi=k\cos\varphi$, we derive
+$$\cos\varphi=\frac{1}{\sqrt{1+k^2}},\quad\sin\varphi=\frac{k}{\sqrt{1+k^2}}.$$
+\begin{figure}[htbp]
+\centering\includegraphics[height=5cm]{Fig5}
+\caption{Field vectors on a grid.}\label{Fig5}
+\end{figure}
+The field vectors should all have the same magnitude and we choose here that length to be
+$1/2$, that means $r=1/2$. Thus, vectors on the grid have their initial and terminal points as
+$$(x_i,y_j),\quad \Big(x_i+\frac{1}{2}\cos\varphi,y_j+\frac{1}{2}\sin\varphi\Big),$$
+respectively. Hence, we easily get the parametrization of a vector at grid point
+$(x_i,y_j)$:
+\begin{align*}
+x&=x_i+\frac{t}{2}\cos\varphi=x_i+\frac{t}{2\sqrt{1+k^2}},\\
+y&=y_j+\frac{t}{2}\sin\varphi=y_j+\frac{tk}{2\sqrt{1+k^2}},
+\end{align*}
+where $t$ goes from $0$ to $1$, as along the direction of the vector.
+
+Of macros in \texttt{PSTricks} to draw lines from their parametrization, we select \texttt{\symbol{92}parametricplot}\footnote{\footnotesize
+This macro is of ones, often added and updated in the package \texttt{pstricks-add}, the authors:
+Dominique Rodriguez (\texttt{dominique.rodriguez@waika9.com}), Herbert Vo\ss\ (\texttt{voss@pstricks.de}).}
+for its fitness. The macro has the syntax
+$$\textmtt{\symbol{92}parametricplot[{\it settings}]\{$t_{\rm min}$\}\{$t_{\rm max}$\}\{$x(t)$|$y(t)$\}},$$
+where we may use the option \texttt{algebraic} to make the declaration of $x(t)$ and $y(t)$ simpler
+in \texttt{ASCII} code.
+
+From the above description of one field vector, we now construct the vector field
+on a grid within a domain $R=\{(x,y)\colon a\le x\le b,\,c\le y\le d\}$. To determine the grid, we confine grid points to the range
+\begin{equation}\label{eqn3}
+a\le x_i\le b,\quad c\le y_j\le d.
+\end{equation}
+We start with initial values $x_0=a$ and $y_0=c$ to have points $(x_i,y_j)$ with increments $\Delta x=\Delta y=\delta$, corresponding to the length of vectors and the distance
+between grid points as indicated in Figure \ref{Fig5}. Thus, to draw vectors at grid points
+$(x_i,y_j)$, we need two loops for indices $i$ and $j$, with $0\le i\le\lfloor m/\delta\rfloor$, $0\le j\le\lfloor n/\delta\rfloor$, where
+$m=b-a$, $n=d-c$. Apparently, these two loops are nested \texttt{\symbol{92}multido}s, with variable declaration
+for each loop as follows
+\begin{align*}
+\texttt{\symbol{92}nx}&=\text{initial value}+\text{increment}=x_0+\Delta x,\\
+\texttt{\symbol{92}ny}&=\text{initial value}+\text{increment}=y_0+\Delta y.
+\end{align*}
+Finally, we will replace \texttt{\symbol{92}nx}, \texttt{\symbol{92}ny} by $x_i$, $y_j$ in the
+below calling sequence for simplicity.
+
+Thus, the main command to draw the vector field of the equation (\ref{eqn2}) on the grid (\ref{eqn3})
+is
+\begin{align*}
+&\textmtt{\symbol{92}multido\big\{$y_j=y_0+\Delta y$\big\}\big\{$\lfloor n/\delta\rfloor$\big\}}\textmtt{\bigg\{\symbol{92}multido\big\{$x_i=x_0+\Delta x$\big\}\big\{$\lfloor m/\delta\rfloor$\big\}}\\
+&\quad\textmtt{\Big\{\symbol{92}parametricplot[{\it settings}]\{$0$\}\{$1$\}\Big\{$x_i+\frac{t}{2\sqrt{1+\big[f(x_i,y_j)\big]^2}}$\Big|
+$y_j+\frac{tf(x_i,y_j)}{2\sqrt{1+\big[f(x_i,y_j)\big]^2}}$\Big\}\bigg\}}
+\end{align*}
+where we at least use \texttt{arrows=->} and \texttt{algebraic} for \textit{settings}.
+
+We can combine the steps mentioned above to define a drawing procedure, say \texttt{\symbol{92}avecfld},
+that consists of $6$ parameters in the order as
+\texttt{\symbol{92}nx=}$x_0+\Delta x$, \texttt{\symbol{92}ny=}$y_0+\Delta y$, $\lfloor m/\delta\rfloor$, $\lfloor n/\delta\rfloor$, $\delta$
+and $f(\texttt{\symbol{92}nx},\texttt{\symbol{92}ny})$. We may change these values to modify
+the vector field or to avoid the vector intersection. Such a procedure is suggested to be
+\bigskip\hrule
+\noindent\begin{tabular}{@{}l}
+\verb!\def\avecfld#1#2#3#4#5#6{%!\\
+\verb!\multido{#2}{#4}{\multido{#1}{#3}!\\
+\verb!{\parametricplot[algebraic,arrows=->,linecolor=red]{0}{1}!\\
+\verb!{\nx+((#5)*t)*(1/sqrt(1+(#6)^2))|\ny+((#5)*t)*(1/sqrt(1+(#6)^2))*(#6)}}}}!
+\end{tabular}\hrule\bigskip
+
+Actually, the procedure \texttt{\symbol{92}parametricplot} is used here only to draw a vector by its parametrization $(x(t),y(t))$, so we can use the structure \texttt{\symbol{92}curvepnodes} in the package \texttt{pst-node}\footnote{\footnotesize
+Package authors: Timothy Van Zandt (\texttt{tvz@econ.insead.fr}), Michael Sharpe (\texttt{msharpe@euclid.ucsd.edu}) and Herbert Vo\ss\ (\texttt{hvoss@tug.org}).} to
+extract the two ending points of the curve $(x(t),y(t))$ by the command
+$$\textmtt{\symbol{92}curvepnodes[algebraic,plotpoints=2]\{0\}\{1\}\{$x(t)$|$y(t)$\}\{P\}},$$
+where \texttt{P} is a name of the root of nodes and we just get the two nodes \texttt{P0}, \texttt{P1} when executing this command. Then, the corresponding
+vector is drawn by the command
+$$\textmtt{\symbol{92}psline[linecolor={\it settings}]\{->\}(P0)(P1)}$$
+
+Therefore, another procedure to draw a vector field may be defined as
+\bigskip\hrule
+\noindent\begin{tabular}{@{}l}
+\verb!\def\anothervecfld#1#2#3#4#5#6{%!\\
+\verb!\multido{#2}{#4}{\multido{#1}{#3}!\\
+\verb!{\curvepnodes[algebraic,plotpoints=2]{0}{1}!\\
+\verb!{\nx+((#5)*t)*(1/sqrt(1+(#6)^2))|\ny+((#5)*t)*(1/sqrt(1+(#6)^2))*(#6)}{P}!\\
+\verb!\psline[linecolor=red]{->}(P0)(P1)}}}!
+\end{tabular}\hrule
+\subsection{Examples}
+Firstly, we consider the equation that describes an object falling in a resistive medium:
+\begin{equation}\label{eqn4}
+\frac{dv}{dt}=9.8-\frac{v}{5},
+\end{equation}
+where $v=v(t)$ is the speed of the object in time $t$. In Figure \ref{Fig6}, the vector field of (\ref{eqn4}) is given
+on the grid $R=\{(t,y)\colon 0\le t\le 9,\,46\le v\le 52\}$, together with the graph of the equilibrium solution
+$v=49$.
+\begin{figure}[htbp]
+\centering\includegraphics[height=5.85cm]{Fig6}
+\caption{The vector field of (\ref{eqn4}).}\label{Fig6}
+\end{figure}
+
+Figure \ref{Fig6} is made of the following \LaTeX\ code:
+\bigskip\hrule
+\noindent\begin{tabular}{@{}l}
+\verb!\begin{pspicture}(0,46)(9.5,52.5)!\\
+\verb!\anothervecfld{\nx=0.25+0.50}{\ny=46.25+0.50}{18}{12}{0.5}{9.8-0.2*\ny}!\\
+\verb!\psplot[algebraic,linewidth=1.2pt]{0}{9}{49}!\\
+\verb!\psaxes[Dy=1,Dx=1,Oy=46]{->}(0,46)(0,46)(9.5,52.5)!\\
+\verb!\rput(9.5,45.8){$t$}\rput(-0.2,52.5){$y$}!\\
+\verb!\end{pspicture}!
+\end{tabular}\hrule\bigskip
+
+Let us next consider the problem
+\begin{equation}\label{eqn5}
+\frac{dy}{dx}=x+y,\quad y(0)=0.
+\end{equation}
+It is easy to check that $y=e^x-x-1$ is the unique solution to (\ref{eqn5}). We now draw
+the vector field of (\ref{eqn5}) and the solution curve\footnote{\footnotesize
+We have used ${\rm ch}(1)+{\rm sh}(1)$ for the declaration of $e$, natural base of logarithmic function.} on the grid $R=\{(x,y)\colon 0\le x\le 3,\,0\le y\le 5\}$ in
+Figure \ref{Fig7}.
+\begin{figure}[htbp]
+\centering\includegraphics[height=5.5cm]{Fig7}
+\caption{The vector field of (\ref{eqn5}).}\label{Fig7}
+\end{figure}
+
+We then go to the logistic equation, which is chosen to be a model for the dependence
+of the population size $P$ on time $t$ in Biology:
+\begin{equation}\label{eqn6}
+\frac{dP}{dt}=kP\Big(1-\frac{P}{M}\Big),
+\end{equation}
+where $k$ and $M$ are constants, respectively various to selected species and environment.
+For specification, we take, for instance, $k=0.5$ and $M=100$. The right hand side of
+(\ref{eqn6}) then becomes $f(t,P)=0.5\,P(1-0.01\,P)$. In Figure \ref{Fig8}, we draw the vector field
+of (\ref{eqn6}) on the grid $R=\{(t,P)\colon 0\le t\le 10,\,95\le P\le 100\}$ and the equilibrium
+solution curve $P=100$. Furthermore, with the initial condition $P(0)=95$, the equation (\ref{eqn6})
+has the unique solution $P=1900(e^{-0.5t}+19)^{-1}$. This solution curve is also given in Figure \ref{Fig8}.
+\begin{figure}[htbp]
+\centering\includegraphics[height=4.4cm]{Fig8}
+\caption{The vector field of (\ref{eqn6}) with $k=0.5$ and $M=100$.}\label{Fig8}
+\end{figure}
+
+The previous differential equations are all of seperated variable or linear cases that
+can be solved for closed-form solutions by some simple integration formulas. We will consider one more
+equation of the non-linear case whose solution can only be approximated by numerical methods.
+The vector field of such an equation is so useful and we will use the Runge-Kutta curves (of order $4$)
+to add more information about the behaviour of solution curves. Here, those Runge-Kutta curves are depicted by the procedure
+\texttt{\symbol{92}psplotDiffEqn}, also updated from the package \texttt{pstricks-add}.
+
+The vector field of the non-linear differential equation
+\begin{equation}\label{eqn7}
+\frac{dy}{dx}=y^2-xy+1
+\end{equation}
+will be depicted on the grid $R=\{(x,y)\colon -3\le x\le 3,\,-3\le y\le 3\}$ and the solutions
+of Cauchy problems for (\ref{eqn7}), corresponding to initial conditions
+\begin{listof}
+\item $y(-3)=-1$,
+\item $y(-2)=-3$,
+\item $y(-3)=-0.4$,
+\end{listof}
+will be approximated by the method of Runge-Kutta, with the grid size $h=0.2$. It is very easy
+to recognize approximate curves, respective to (i), (ii) and (iii) in Figure \ref{Fig9} below.
+\begin{figure}[htbp]
+\centering\includegraphics[height=7.8cm]{Fig9}
+\caption{The vector field of (\ref{eqn7}) and the Runge-Kutta curves.}\label{Fig9}
+\end{figure}
+\subsection{Remarks on how to color arrows properly for a vector field}
+There remains a problem in drawing a vector field. That is coloring arrows.
+Obviously, their color shade should vary according to their slope and this would give us the picture of domains containing
+increase or decrease solutions of a differential equation. In some cases, we even know how large the rate of change of those
+solutions is in a specific domain.
+
+In Subsection \ref{sect1}, we know for the equation (\ref{eqn2}) that $f(x_i,y_j)$ is right the slope of
+field vectors at grid points $(x_i,y_j)$, and we will divide these slopes into some number of scales, corresponding to the
+degree of color shades. Here, we confine our interest to a continuous function $f(x,y)$ in two independent variables on a domain
+$R=\{(x,y)\colon a\le x\le b,\,c\le y\le d\}$ and choose the scale of $10$ degrees. This number of degrees can be changed to any positive integer.
+
+According to the input data from the differential equation (\ref{eqn2}), the set $R$ and the grid points on it and the value $M=\max\{|f(x_i,y_j)|\colon
+0\le i\le\lfloor m/\Delta x\rfloor,\,0\le j\le\lfloor n/\Delta y\rfloor\}$, where $m=b-a$ and $n=d-c$,
+we can now define the degree of color shade for each arrow in our vector field. It should be an integer $n_{ij}$ such that
+$n_{ij}=\lfloor 10|f(x_i,y_j)|/M\rfloor$, that is
+\begin{equation}\label{eqn8}n_{ij}M\le 10|f(x_i,y_j)|<(n_{ij}+1)M.\end{equation}
+For finding such an integer, in \TeX\ codes, we need one \texttt{\symbol{92}newcount} for it and two \texttt{\symbol{92}newdimen} for
+$f(x_i,y_j)$ and intermediate values to be compared with $|f(x_i,y_j)|$. For more explanation, let us begin with settings
+\texttt{\symbol{92}newcount\symbol{92}intg} (referring (ref.) to ``integer''), \texttt{\symbol{92}newdimen\symbol{92}slope} (ref. to ``slope'') and \texttt{\symbol{92}newdimen\symbol{92}interm}
+(ref. to ``intermediate values''). Then, the integer $n_{ij}$ at stage $(i,j)$ within the two \texttt{\symbol{92}multido} loops can be defined by the recursive macro \texttt{\symbol{92}fintg} (ref. to ``find the integer'') as follows
+\begin{verbatim}
+ \def\fintg{\interm=Mpt \interm=\intg\interm%
+ \ifdim\ifdim\slope<0pt -\fi\slope<\interm\advance\intg by -1\relax
+ \else\advance\intg by 1\fintg\fi}
+\end{verbatim}
+where \texttt{M} and \texttt{\symbol{92}slope} are holding the values $M$ and $f(x_i,y_j)$, respectively. Note that, before running our macro, \verb!\slope! should be multiplied
+by $10$ with the assignment \texttt{\symbol{92}slope=10\symbol{92}slope}, as defined in (\ref{eqn8}). Besides, by simulating the expression of $f(x,y)$, the calculation of $f(x_i,y_j)$
+should be declared with operations on \texttt{\symbol{92}newcount}s and \texttt{\symbol{92}newdimen}s. Then, the integer $n_{ij}$, which is found at stage $(i,j)$, should take its
+degree, say $k$, from $0$ to $10$ by its value, suitably associated to the command \textmtt{\symbol{92}psline[linecolor=red!case-k]\{->\}(P0)(P1)}.
+Here, we choose \texttt{red} for the main color (it can be changed, of course), and \texttt{case-k} will be replaced with an appropriate percentage of \texttt{red}. Finally,
+such a color scale is local and relative, so we can use one more parameter in the procedure to adjust color shades.
+The old procedures take $6$ parameters and the new one will take two more parameters: one for declaration of computing $f(x_i,y_j)$ and the other
+for adjusting color shades.
+
+Let us take some examples on how to compute $f(x_i,y_j)$ by \TeX\ codes or by commands from the package \texttt{calculator}\footnote{\footnotesize
+Package author: Robert Fuster (\texttt{rfuster@mat.upv.es}).}. For a simple polynomial $f(x,y)$,
+computing $f(x_i,y_j)$ by \TeX\ codes might be facile. Because \verb!\nx! and \verb!\ny! are respectively holding values of
+$x_i$ and $y_j$, we need the two corresponding variables \verb!\newdimen\fx! and \verb!\newdimen\fy! to take these values. By assigning \verb!\fx=\nx pt\fy=\ny pt!,
+we compute $f(\verb!\nx!,\verb!\ny!)$ and assign its value to \verb!\slope!. The declaration of calculations for some cases of $f(x,y)$ is given in the following table.
+
+\begin{table}[htbp]
+\centering\begin{tabular}{c|l}
+$f(x,y)$&\multicolumn{1}{c}{\TeX\ codes for computing $f(\texttt{\symbol{92}nx},\texttt{\symbol{92}ny})$} \\ \hline
+$x+y$&\verb!\advance\slope by \fx \advance\slope by \fy!\\ \hline
+$1-xy$&\verb!\advance\slope by -\decimal\fx\fy \advance\slope by 1pt!\\ \hline
+$y(3-y)$&\verb!\advance\slope by -\decimal\fy\fy \advance\slope by 3\fy!\\ \hline
+$y^2-xy$&\verb!\advance\slope by \decimal\fy\fy \advance\slope by -\decimal\fx\fy!\\ \hline
+\end{tabular}
+\end{table}
+In the table, the command \verb!\decimal!, which is quotative from \cite{five} for producing decimal numbers from dimensions, is put in the preamble using a definition as
+\begin{verbatim}
+ \def\xch{\catcode`\p=12 \catcode`\t=12}\def\ych{\catcode`\p=11 \catcode`\t=11}
+ \xch \def\dec#1pt{#1}\ych \def\decimal#1{\expandafter\dec \the#1}
+\end{verbatim}
+
+For a transcendental or rational function $f(x,y)$, we may use the package \texttt{calculator} for
+computing $f(x_i,y_j)$. The following table shows how to perform calculations.
+\begin{table}[htbp]
+\centering\begin{tabular}{c|l}
+$f(x,y)$&\multicolumn{1}{c}{The commands from the package \texttt{calculator} for computing $f(\texttt{\symbol{92}nx},\texttt{\symbol{92}ny})$} \\ \hline
+$\sin(y-x)$&\verb!\SUBTRACT{\ny}{\nx}{\sola}\SIN{\sola}{\solb}\slope=\solb pt!\\ \hline
+\raisebox{-2ex}[0pt][0pt]{$2xy/(1+y^2)$}&\verb!\SUMfunction{\ONEfunction}{\SQUAREfunction}{\Fncty}!\\
+&\verb!\Fncty{\ny}{\soly}{\Dsoly}\DIVIDE{\Dsoly}{\soly}{\tempa}!\\
+&\verb!\MULTIPLY{\nx}{\tempa}{\tempb}\slope=\tempb pt!\\ \hline
+\end{tabular}
+\end{table}
+
+From the old macros \verb!\avecfld! or \verb!\anothervecfld!, we will construct the new one \verb!\vecfldnew! by adding up to the former the two parameters as described above. According to
+the description of new parameters and of known ones, the calling sequence of \verb!\vecfldnew! may have the form of
+$$\textmtt{\symbol{92}vecfldnew\{\symbol{92}nx$=x_0+\Delta x$\}\{\symbol{92}ny$=y_0+\Delta y$\}\{$n_x$\}\{$n_y$\}\{$\ell$\}\{$f(\texttt{\symbol{92}nx},\texttt{\symbol{92}ny})$\}\{{\rm\TeX\ codes}\}\{$n_a$\}}$$
+where $n_a$ is an estimate value for $M$ and can be adjusted to be greater or less than $M$. This flexible mechanism might be to increase or decrease the degree of
+color shades. Finally, \verb!\intg! and \verb!\slope! should be reset to
+zero at the end of each stage. Now, all materials to make the new macro are ready, and its definition is suggested to be
+\bigskip\hrule
+\noindent\begin{tabular}{@{}l}
+\verb!\def\vecfldnew#1#2#3#4#5#6#7#8{%!\\
+\verb!\newcount\intg \newdimen\slope \newdimen\interm \newdimen\fx \newdimen\fy!\\
+\verb!\def\fintg{\interm=#8 \interm=\intg\interm%!\\
+\verb! \ifdim\ifdim\slope<0pt -\fi\slope>\interm \advance\intg by 1\fintg\fi}!\\
+\verb!\multido{#2}{#4}!\\
+\verb!{\multido{#1}{#3}!\\
+\verb!{\curvepnodes[algebraic,plotpoints=2]{0}{1}!\\
+\verb!{\nx+((#5)*t)*(1/sqrt(1+(#6)^2))|\ny+((#5)*t)*(1/sqrt(1+(#6)^2))*(#6)}{P}!\\
+\verb!#7\slope=10\slope \fintg \ifnum\intg>10\psline[linecolor=red]{->}(P0)(P1)!\\
+\verb+\else\ifnum\intg=0\psline[linecolor=red!5]{->}(P0)(P1)+\\
+\verb+\else\multiply\intg by 10\psline[linecolor=red!\the\intg]{->}(P0)(P1)\fi\fi+\\
+\verb+\intg=0\slope=0pt+\\
+\verb+}}}+
+\end{tabular}\hrule\bigskip
+
+If we predefine some scale of degrees, instead of the code $\verb!\ifnum\intg>10!\ldots\verb!\fi\fi!$, the structure \verb!\ifcase! can be used as
+$$\begin{array}{c}
+\verb!\ifcase\intg!\\
+\verb+\psline[linecolor=red!5]{->}(P0)(P1)\or+\\
+\verb+\psline[linecolor=red!10]{->}(P0)(P1)\or+\\
+\vdots\\
+\verb!\psline[linecolor=red]{->}(P0)(P1)\fi!
+\end{array}$$
+
+The first example is given with two values of $n_a$ to see how different the color shades are between the two cases. The left vector field in Figure \ref{Fig10}
+is made of the calling sequence
+\begin{verbatim}
+\vecfldnew{\nx=-2.00+0.3}{\ny=-2.00+0.3}{14}{14}{0.3}{(\nx)-2*(\ny)}
+{\fy=\ny pt \fx=\nx pt \advance\slope by -2\fy \advance\slope by \fx}{7pt}
+\end{verbatim}
+\begin{figure}[htbp]
+\centering\includegraphics[width=4.6cm]{vecb5}
+\hskip1cm\includegraphics[width=4.6cm]{vecb6}
+\caption{The vector fields of the equation $y'=x-2y$ with $n_a=\texttt{7pt}$ (the left) and $n_a=\texttt{4pt}$ (the right)}\label{Fig10}
+\end{figure}
+
+In Figure \ref{Fig11}, the vector fields of the equations $y'=y-x$ and $y'=x(2-y)$ are respectively drawn by the calling sequences
+\begin{verbatim}
+\vecfldnew{\nx=-3.00+0.4}{\ny=-3.00+0.4}{15}{15}{0.35}{(\ny)-(\nx)}
+{\fy=\ny pt \fx=\nx pt \advance\slope by -\fx \advance\slope by \fy}{5pt}
+\end{verbatim}
+and
+\begin{verbatim}
+\vecfldnew{\nx=-3.00+0.4}{\ny=-3.00+0.4}{15}{15}{0.35}{(\nx)*(2-(\ny))}
+{\fy=\ny pt \fx=\nx pt \advance\slope by -\decimal\fx\fy
+\advance\slope by 2\fx}{6pt}
+\end{verbatim}
+\begin{figure}[htbp]
+\centering\includegraphics[width=6.2cm]{vecb3}
+\hskip1cm\includegraphics[width=6.2cm]{vecb4}
+\caption{The vector fields of the equation $y'=y-x$ (the left) and $y'=x(2-y)$ (the right).}\label{Fig11}
+\end{figure}
+
+Finally, we consider two more examples on vector fields of differential equations $y'=f(x,y)$ containing trigonometric or rational functions on their right side. The calling sequences
+\begin{verbatim}
+\vecfldnew{\nx=-3.00+0.4}{\ny=-3.00+0.4}{15}{15}{0.35}{sin(\nx)*cos(\ny)}
+{\SIN{\nx}{\tmpa}\COS{\ny}{\tmpb}\MULTIPLY{\tmpa}{\tmpb}{\tmpc}
+\slope=\tmpc pt}{0.6pt}
+\end{verbatim}
+and
+\begin{verbatim}
+\vecfldnew{\nx=-3.00+0.3}{\ny=-3.00+0.3}{20}{20}{0.3}{2*(\nx)*(\ny)/(1+(\ny)^2)}
+{\SUMfunction{\ONEfunction}{\SQUAREfunction}{\Fncty}\Fncty{\ny}{\soly}{\Dsoly}
+\DIVIDE{\Dsoly}{\soly}{\tempa}\MULTIPLY{\nx}{\tempa}{\tempb}
+\slope=\tempb pt}{2.5pt}
+\end{verbatim}
+respectively result in the vector fields on the left and on the right in Figure \ref{Fig12}.
+
+\begin{figure}[htbp]
+\centering\includegraphics[width=6.2cm]{vecb1}
+\hskip1cm\includegraphics[width=6.2cm]{vecb2}
+\caption{The vector fields of the equation $y'=\sin(x)\cos(y)$ (the left) and $y'=2xy/(1+y^2)$ (the right).}\label{Fig12}
+\end{figure}
+\section{Drawing partitions of a simply connected plane domain}
+\subsection{Description}
+B\'{e}zier curves have been used in many different aspects, but mostly in computer graphics to model smooth curves designed by computer
+programs. We just recall here the vector function of a B\'{e}zier curve of degree $n$ with $n+1$ control points whose position
+vectors are $\mathbf{r}_0$, $\mathbf{r}_1$, \dots, $\mathbf{r}_n$. It is the vector function $\mathbf{r}(t)$ in a real variable $t\in[0,1]$ that
+is defined as
+\begin{equation}\label{eqn9}
+\mathbf{r}(t)=\sum_{i=0}^n\binom{n}{i}t^i(1-t)^{n-i}\mathbf{r}_i.
+\end{equation}
+Since $\mathbf{r}(0)=\mathbf{r}_0$, $\mathbf{r}(1)=\mathbf{r}_n$ and $\mathbf{r}'(0)=n(\mathbf{r}_1-\mathbf{r}_0)$, $\mathbf{r}'(1)=n(\mathbf{r}_n-\mathbf{r}_{n-1})$,
+we can take a curve such that it is closed and tangent to a line $(\Delta)$ at the point whose position vector is $\mathbf{r}_0$, by
+letting $\mathbf{r}_n=\mathbf{r}_0$ and the points whose position vectors are $\mathbf{r}_0$, $\mathbf{r}_1$ and $\mathbf{r}_{n-1}$
+all be on the line $(\Delta)$.
+
+Taking a closed B\'{e}zier curve to be the boundary of a plane domain has the great advantage. That is because coordinates of points
+on the curve are evaluated by polynomials, and the curve has necessary smoothness, beautiful enough for graphic illustrations.
+\texttt{PSTricks} has the procedure \verb!\parametricplot! to draw such a curve. But, an important problem here is how to control
+the coordinates of its points to construct a procedure for drawing a partition of a simply connected plane domain and coloring
+(or marking) its cells having common points with the boundary of the domain. We particularly need such a procedure for illustrations
+of essential notions in measure theory or double integral definition. Because of the limitation in accuracy imposed
+by the \TeX\ arithmetic, we should mention about $2$-dimension vector functions of a B\'{e}zier curve of small degree (in fact, as small as possible).
+According to the above requirements for the closed boundary of a simply connected domain, we will design a family of closed B\'{e}zier curves of
+degree $6$, although we may extend their degree to $12$.
+
+From the expression of $\mathbf{r}(t)$ in (\ref{eqn9}), we will construct the following functions and procedures:
+\begin{itemize}
+\item The factorial function \texttt{FACTORIAL}.
+\item The binomial function \texttt{BINOMIAL}.
+\item Polynomials $t^m(1-t)^n$.
+\item A procedure to compute a sum of $7$ terms: values of $\mathbf{r}(t)$ as linear combinations
+of the Bernstein polynomials
+$$\binom{6}{k}t^k(1-t)^{6-k},\quad k=0,\ldots,6.$$
+\end{itemize}
+These functions and procedures are macros given by definitions with or without parameters. In the following subsections we will construct them step by step and
+show how to make connections between them.
+\subsubsection{Factorial functions and binomial coefficients}
+To obtain the factorial function, a procedure for multiplying consecutively an integer $n$ with its diminished values will be constructed. For the declared
+integer variables \verb!\Fa! and \verb!\Fct!, the latter will hold values of the function, and the former will hold factors that are multiplied consecutively
+and reduced by $1$. Namely, if \verb!\Fa! is $0$ or $1$ then \verb!\Fct! takes $1$; else if $\texttt{\symbol{92}Fa}>1$ then \verb!\Fct! takes
+the initial value of \verb!\Fa! to begin a loop: diminishing \verb!\Fa! by $1$ and updating \verb!\Fct! by multiplying its old value with the new value of \verb!\Fa!.
+The loop is defined by the control sequence \verb!\Factor! and is ended when \verb!\Fa! is diminished to $1$; then, the factorial function obtains its value from
+the one given back after calling \verb!\FACTORIAL! with one parameter.
+\begin{verbatim}
+\newcount\Fa\newcount\Fct
+\newcount\tempA
+\def\Factor{\ifnum\Fa=1\relax\else\advance\Fa by -1\multiply\Fct by \Fa\Factor\fi}
+\def\FACTORIAL#1{\Fa=#1 \ifnum\Fa=0 \Fct=1\relax\else\Fct=\Fa \Factor\fi%
+\global\tempA=\Fct}
+\end{verbatim}
+Since \TeX\ limits the largest integer number to $2^{30}-1$, we can evaluate only to
+$$\textmtt{\symbol{92}FACTORIAL\{$12$\}}=12!=479001600.$$
+Besides, the last value of \verb!\Fct!, which is right the one obtained from calling the function, is assigned to a global integer variable \verb!\tempA! for use
+in other procedures. Finally, make the calling sequence
+$$\textmtt{\symbol{92}FACTORIAL\{k\}\symbol{92}the\symbol{92}Fct}$$
+to obtain and show up the value of $k!$. From these values we derive binomial coefficients by the formula
+$$\binom{m}{n}=\frac{m!}{n!(m-n)!}.$$
+A simple procedure that makes division of $m!$ by $n!$, then of the result by $(m-n)!$ can be performed by the control sequence
+\verb!\BINOMIAL! with two parameters as follows
+\begin{verbatim}
+\newcount\BINOM
+\newcount\temp\newcount\tmp
+\def\BINOMIAL#1#2{%
+\temp=#1\advance\temp by -#2
+\FACTORIAL{#1}
+\tmp=\tempA
+\FACTORIAL{\temp}
+\temp=\tempA
+\divide\tmp by \temp
+\FACTORIAL{#2}
+\temp=\tempA
+\divide\tmp by \temp\global\BINOM=\tmp}
+\end{verbatim}
+Again, the last value of \verb!\tmp! is assigned to a global integer variable \verb!\BINOM! for later use. Because the vector function of a B\'{e}zier
+curve of degree $6$ is only needed, so are the binomial coefficients \verb!\BINOMIAL{!$6$\verb!}{!$k$\verb!}!, $k=0,1,\ldots,6$.
+\subsubsection{Bernstein polynomials}
+The construction of Bernstein functions is based on an iterative multiplication of the same value $t$ by a given number $m$ of times,
+then the process is repeated with the value $1-t$ by a given number $n$ of times. The last result is multiplied by a variable that holds
+the value of $\binom{m+n}{m}$. We will use an integer variable \verb!\kc! to count times of multiplication for the same factor $t$ or $1-t$.
+The procedure of iterative multiplication \verb!\xmult! with one parameter $m$ or $n$ is a recursive one that is performed
+iteratively until \verb!\kc! reaches the value $m$ or $n$.
+\begin{verbatim}
+\newdimen\Xa\newdimen\Yb\newcount\kc
+\def\xmult#1{\ifnum\kc<#1\advance\kc by 1\Yb=\decimal\Xa\Yb\xmult{#1}
+ \else\relax\fi}
+\end{verbatim}
+Finally, the value of $t^m(1-t)^n$ that is hold by the variable \verb!\Yb! is multiplied by \verb!\BINOM!, the value $\binom{6}{m}$.
+Thus, Bernstein polynomials are given by the following macro \verb!\BERNSTEIN! with three parameters that hold values of
+$m$, $n$ and $t$, respectively.
+\begin{verbatim}
+\newdimen\BSTemp
+\def\BERNSTEIN#1#2#3{\Xa=#3pt\kc=0\Yb=1pt\xmult{#1}\kc=0\Xa=-\Xa
+\advance\Xa by 1pt\xmult{#2}\BINOMIAL{6}{#1}\global\BSTemp=\BINOM\Yb}
+\end{verbatim}
+Also, values of \verb!\BERNSTEIN! are assigned to a global variable.
+\subsubsection{Vector functions of a plane B\'{e}zier curve of degree $6$}
+We will construct here the vector function of a plane and closed B\'{e}zier curve with the control points
+$M_0(x_0,y_0)$, $M_1(x_1,y_1)$, \dots, $M_6(x_6,y_6)$ that is chosen in such a way that the curve is tangent to
+a line $(\Delta)$ at its initial point $M_0$. According to the mentioned properties of a B\'{e}zier curve, the requirements
+for the curve are satisfied when $M_6=M_0$ and $M_0$, $M_1$, $M_5$ are all on the line $(\Delta)$.
+\begin{figure}[htbp]
+\centering\includegraphics[height=4.3cm]{Fig13}
+\caption{A B\'{e}zier curve of degree $6$ with the required control points.}\label{Fig13}
+\end{figure}
+In case $n=6$, from (\ref{eqn9}) we derive the vector function $\mathbf{r}(t)$ with the two components
+\begin{equation}\label{eqn10}
+X(t)=\sum_{i=0}^6\binom{6}{i}t^i(1-t)^{6-i}x_i,\quad Y(t)=\sum_{i=0}^6\binom{6}{i}t^i(1-t)^{6-i}y_i.
+\end{equation}
+We first evaluate values of $X(t)$ by the procedures that just have been constructed, with a choice of $x_i$, $i=1,\ldots,6$, from a given $x_0$
+and the requirements of the B\'{e}zier curve as in Figure \ref{Fig13}. For example, we may take
+$$x_1=x_0-1.5,\quad x_2=x_0+2,\quad x_3=x_0+6,\quad x_4=x_0+5,\quad x_5=x_0+1.5,\quad x_6=x_0.$$
+Moreover, we may change the shape of the curve by taking a factor $\alpha$ for $X(t)$. In short, we will make a procedure to evaluate the sum of terms
+$\binom{6}{i}t^i(1-t)^{6-i}(\alpha x_i)$, $i=0,1,\ldots,6$. In fact, it is a procedure to add up values into a global variable \verb!\XBST! that is called
+by a macro \verb!\XBC! with three declaring parameters for $x_i$, $t$ and $\alpha$. The value of $\alpha$ is used last when being multiplied by a
+variable that holds $X(t)$. Such a procedure is suggested to be the following macro
+\begin{verbatim}
+\newdimen\Xrf\newdimen\Yrf
+\newdimen\XBST\newdimen\YBST
+\def\XBC#1#2#3{%
+\BERNSTEIN{0}{6}{#2}
+\Xrf=#1pt
+\XBST=\decimal\BSTemp\Xrf
+\BERNSTEIN{1}{5}{#2}
+\Xrf=#1pt\advance\Xrf by -1.5pt
+\advance\XBST by \decimal\BSTemp\Xrf
+\BERNSTEIN{2}{4}{#2}
+\Xrf=#1pt\advance\Xrf by 2pt
+\advance\XBST by \decimal\BSTemp\Xrf
+\BERNSTEIN{3}{3}{#2}
+\Xrf=#1pt\advance\Xrf by 6pt
+\advance\XBST by \decimal\BSTemp\Xrf
+\BERNSTEIN{4}{2}{#2}
+\Xrf=#1pt\advance\Xrf by 5pt
+\advance\XBST by \decimal\BSTemp\Xrf
+\BERNSTEIN{5}{1}{#2}
+\Xrf=#1pt\advance\Xrf by 1.5pt
+\advance\XBST by \decimal\BSTemp\Xrf
+\BERNSTEIN{6}{0}{#2}
+\Xrf=#1pt
+\advance\XBST by \decimal\BSTemp\Xrf
+\global\XBST=#3\XBST}
+\end{verbatim}
+In the macro, a control sequence of the form \verb!\decimal\Xdim! is for obtaining the decimal value of a variable \verb!\Xdim! without units
+(\verb!pt!, by default). This can be defined by
+\begin{verbatim}
+\def\xch{\catcode`\p=12 \catcode`\t=12}\def\ych{\catcode`\p=11 \catcode`\t=11}
+\xch \def\dec#1pt{#1}\ych \gdef\decimal#1{\expandafter\dec \the#1}
+\end{verbatim}
+Besides, the last line in the definition of \verb!\XBC! (\verb!\global\XBST=#3\XBST!) signifies \verb!\XBST! is adjusted for multiplication by
+$\alpha$ when holding the current value of the sum $X(t)$. In Table \ref{bc-Table1}, some values
+of \verb!\XBC! are compared with those of a simpler procedure in Maple\footnote{\footnotesize Maple
+is a computer algebra system. It was first developed in 1980 by the Symbolic Computation Group at the University of
+Waterloo in Waterloo, Ontario, Canada. Maple supports numeric and symbolic computations
+and can be used as a programming language, which resembles Pascal.}.
+\begin{table}[htbp]
+\centering\begin{tabular}{|c|c|c|c|c|c|}\hline
+&$(-2.4,0.23,1.5)$&$(4.2,0.45,1.1)$&$(-3.4,0.7,1.24)$&$(-0.89,0.4,1.5)$&$(5.21,0.5,2.15)$\\ \hline
+\texttt{\symbol{92}XBC}&$\XBC{-2.4}{0.23}{1.5}\decimal\XBST$&$\XBC{4.2}{0.45}{1.1}\decimal\XBST$&$\XBC{-3.4}{0.7}{1.24}\decimal\XBST$&$\XBC{-0.89}{0.4}{1.5}\decimal\XBST$&$\XBC{5.21}{0.5}{2.15}\decimal\XBST$\\ \hline
+Maple&$-2.41044$&$8.13235$&$-0.13696$&$2.78628$&$18.76008$\\ \hline
+\end{tabular}
+\caption{A comparison between some values of \textmtt{\symbol{92}XBC} and those of a procedure in Maple.}\label{bc-Table1}
+\end{table}
+
+Likewise, from a given $y_0$, we may have a choice of $y_i$, $i=1,\ldots,6$, as follows
+$$y_1=y_0+2,\quad y_2=y_0+5,\quad y_3=y_0+3,\quad y_4=y_0-1,\quad y_5=y_0-2,\quad y_6=y_0.$$
+The macro \verb!\YBC! is constructed in a quite analogous way as for \verb!\XBC! to evaluate values of $Y(t)$ in (\ref{eqn10}),
+and the value $\beta Y(t)$ ($\beta$ is again an adjustment factor) is hold by a global variable \verb!\YBST!.
+
+\subsubsection{Partition of a simply connected plane domain by a rectangular grid}
+
+We consider here a simply connected plane domain $D$ surrounded by a B\'{e}zier curve of degree $6$ that will be depicted by
+the procedure \verb!\NetDraw!. This is called together with its five parameters whose values are assigned to the five local variables
+with their following meaning:
+\begin{align*}
+\texttt{\symbol{92}CellNum:}&\text{ The number of horizontal and vertical cells of the grid.}\\
+\texttt{\symbol{92}Xref:}&\text{ The value of $x_0$.}\\
+\texttt{\symbol{92}Yref:}&\text{ The value of $y_0$.}\\
+\texttt{\symbol{92}Xfact:}&\text{ The value of $\alpha$.}\\
+\texttt{\symbol{92}Yfact:}&\text{ The value of $\beta$.}
+\end{align*}
+We denote by $R$ a rectangular domain containing $D$ and having edges parallel to the coordinate axes.
+A grid of rectangular cells will be depicted on $R$. According to the given values of $x_0$, $y_0$, $\alpha$ and $\beta$, the vertices of $R$
+can be chosen as the points $(\verb!\XMin!,\verb!\YMax!)$, $(\verb!\XMax!,\verb!\YMax!)$, $(\verb!\XMax!,\verb!\YMin!)$, $(\verb!\XMin!,\verb!\YMin!)$, where
+\begin{align*}
+\textmtt{\symbol{92}XMin}&=\alpha(\textmtt{\symbol{92}Xref}-1.5),&&\textmtt{\symbol{92}XMax}=\alpha(\textmtt{\symbol{92}Xref}+6),\\
+\textmtt{\symbol{92}YMin}&=\beta(\textmtt{\symbol{92}Yref}-2),&&\textmtt{\symbol{92}YMax}=\beta(\texttt{\symbol{92}Yref}+5).
+\end{align*}
+Then, the horizontal step size \verb!\Xsize! and the vertical step
+size \verb!\Ysize! may be taken as
+$$\mtt\\\texttt{Xsize}=\frac{\mtt\\\texttt{XMax}-\mtt\\\texttt{XMin}}{\mtt\\\texttt{CellNum}},\quad
+\mtt\\\texttt{Ysize}=\frac{\mtt\\\texttt{YMax}-\mtt\\\texttt{YMin}}{\mtt\\\texttt{CellNum}}.$$
+
+At first, the grid is made by using the structure \verb!\multido! to draw vertical and horizontal lines whose equations are
+$$x=\texttt{\symbol{92}XMin}+i\texttt{\symbol{92}Xsize},\quad
+y=\texttt{\symbol{92}YMin}+i\texttt{\symbol{92}Ysize},\quad i=0,\ldots,\texttt{\symbol{92}CellNum}.$$
+Next, the B\'{e}zier curve is depicted by the command
+$$\textmtt{\symbol{92}parametricplot[algebraic,fillstyle=solid]\{$0$\}\{$1$\}\{$\alpha X(t)$|$\beta Y(t)$\}}$$
+and it is approximated by the sequence of points $(X_i,Y_i)$, $i=1,\ldots,N$, where $X_i$ and $Y_i$ are given from
+the calling sequences
+$$\textmtt{\symbol{92}XBC\{\symbol{92}XRef\}\{$t_i$\}\{\symbol{92}Xfact\}},\quad
+\textmtt{\symbol{92}YBC\{\symbol{92}YRef\}\{$t_i$\}\{\symbol{92}Yfact\}}.$$
+
+Finally, the most important algorithm is to determine cells that have points in common with the B\'{e}zier curve,
+and to color them. The chosen ``filter'' method here can be described as follows: for each point $(X_i,Y_i)$ of the approximate sequence,
+$i=1,\ldots, N$, we examine cells from left to right in horizontal direction, and from below to above in vertical direction. As soon as
+being found, the cell containing $(X_i,Y_i)$ is specifically colored by the command \textmtt{\mtt\\pspolygon[fillstyle=solid,$\ldots$]} passing its four
+vertices; then, we examine the next point $(X_{i+1},Y_{i+1})$, and so on. Actually, a structure of three nested \verb!\multido! loops
+is used to perform this filter method, and the loop for counting points $(X_i,Y_i)$ is the most outer one. The algorithm to examine if
+a cell contains $(X_i,Y_i)$ may have the form of
+\begin{verbatim}
+ \ifdim\YBST<y\relax\else\advance y by \Ysize
+ \ifdim\YBST>y\relax\else
+ \ifdim\XBST<x\relax\else\advance x by \Xsize
+ \ifdim\XBST>x\relax\else
+ \pspolygon[fillstyle=solid,fillcolor=red]
+ (x,y)(x+\Xsize,y)(x+\Xsize,y+\Ysize)(x,y+\Ysize)(x,y)\relax
+ \fi\fi\fi\fi
+\end{verbatim}
+The single characters ``\verb!x!'', ``\verb!y!'' and the opertation ``\verb!+!'' will be replaced appropriately in the procedure \verb!\NetDraw! below.
+For increasingly chosen values of $N$, we may know if the set of cells having points in common with the curve can cover the curve itself?
+On the other hand, to increase the number of approximate points is corresponding to reduce the increment in the most outer loop \verb!\multido!.
+For instance, if we take $N=100$, then the variable \verb!\nz! in the loop should be declared as $\texttt{\mtt\\nz}=0.00+0.01$ because
+$t_i\in[0,1]$.
+
+In summary, to illustrate a partition of a simply connected plane domain, we can apply the following procedure \verb!\NetDraw!. As mentioned above,
+step by step, \verb!\NetDraw! can: draw the boundary of a plane domain $D$ by a B\'{e}zier curve of degree $6$, draw a partition of a rectangle $R$ containing $D$
+by a grid of rectangular cells, and color cells having points in common with the boundary of $D$.
+\bigskip
+%\vskip2ex
+\hrule
+\begin{verbatim}
+\def\NetDraw#1#2#3#4#5{%
+\newcount\CellNum
+\newdimen\XRef
+\newdimen\YRef
+\newdimen\Xfact
+\newdimen\Yfact
+\newdimen\XMin
+\newdimen\XMax
+\newdimen\YMin
+\newdimen\YMax
+\newdimen\Xsize
+\newdimen\Ysize
+\newdimen\tempx
+\newdimen\tempy
+\CellNum=#1
+\XRef=#2pt
+\YRef=#3pt
+\Xfact=#4pt
+\Yfact=#5pt
+\XMin=\decimal\Xfact\XRef \advance\XMin by -1.50\Xfact
+\XMax=\decimal\Xfact\XRef \advance\XMax by 6.00\Xfact
+\YMin=\decimal\Yfact\YRef \advance\YMin by -2.00\Yfact
+\YMax=\decimal\Yfact\YRef \advance\YMax by 5.00\Yfact
+\Xsize=\XMax \advance\Xsize by -\XMin \divide\Xsize by \CellNum
+\Ysize=\YMax \advance\Ysize by -\YMin \divide\Ysize by \CellNum
+\parametricplot[algebraic,fillstyle=solid,fillcolor=yellow!80,plotpoints=200,
+linewidth=0.5pt]{0}{1}{\XBsix{\decimal\XRef}{\decimal\Xfact}|
+\YBsix{\decimal\YRef}{\decimal\Yfact}}
+\multido{\nz=0.00+0.005}{200}{\XBC{\decimal\XRef}{\nz}{\decimal\Xfact}
+\YBC{\decimal\YRef}{\nz}{\decimal\Yfact}
+\multido{\nx=\decimal\XMin+\decimal\Xsize}{\the\CellNum}
+{\tempx=\nx pt\multido{\ny=\decimal\YMin+\decimal\Ysize}{\the\CellNum}
+{\tempy=\ny pt\ifdim\YBST<\tempy\relax\else\advance\tempy by \Ysize%
+ \ifdim\YBST>\tempy\relax\else
+ \ifdim\XBST<\tempx\relax\else\advance\tempx by \Xsize
+ \ifdim\XBST>\tempx\relax\else
+ \pspolygon[fillstyle=solid,fillcolor=blue!90,linecolor=black,
+ linewidth=0.2pt]
+ (\nx,\ny)(\decimal\tempx,\ny)(\decimal\tempx,\decimal\tempy)
+ (\nx,\decimal\tempy)(\nx,\ny)\relax\fi\fi\fi\fi}
+}}
+\advance\CellNum by 1
+\multido{\nx=\decimal\XMin+\decimal\Xsize}{\the\CellNum}
+{\psline[linewidth=0.2pt](\nx,\decimal\YMax)(\nx,\decimal\YMin)}
+\multido{\ny=\decimal\YMin+\decimal\Ysize}{\the\CellNum}
+{\psline[linewidth=0.2pt](\decimal\XMin,\ny)(\decimal\XMax,\ny)}
+\parametricplot[algebraic,linecolor=white,plotpoints=200,linewidth=0.5pt]{0}{1}
+{\XBsix{\decimal\XRef}{\decimal\Xfact}|\YBsix{\decimal\YRef}{\decimal\Yfact}}}
+\end{verbatim}\hrule\bigskip
+
+In the definition of \verb!\NetDraw!, the expressions $\alpha X(t)$, $\beta Y(t)$ are declared in the \verb!algebraic! form by the macros \verb!\XBsix!,
+\verb!\YBsix! with two parameters that hold values of $x_0,\alpha$ and $y_0,\beta$, respectively. These macros are given by
+the following definitions:
+\begin{verbatim}
+\def\XBsix#1#2{%
+(1-t)^6*(#1)*(#2)+6*t*(1-t)^5*(#1-1.5)*(#2)+15*t^2*(1-t)^4*(#1+2)*(#2)+
+20*t^3*(1-t)^3*(#1+6)*(#2)+15*t^4*(1-t)^2*(#1+5)*(#2)+
+6*t^5*(1-t)*(#1+1.5)*(#2)+t^6*(#1)*(#2)}
+\def\YBsix#1#2{%
+(1-t)^6*(#1)*(#2)+6*t*(1-t)^5*(#1+2)*(#2)+15*t^2*(1-t)^4*(#1+5)*(#2)+
+20*t^3*(1-t)^3*(#1+3)*(#2)+15*t^4*(1-t)^2*(#1-1)*(#2)+
+6*t^5*(1-t)*(#1-2)*(#2)+t^6*(#1)*(#2)}
+\end{verbatim}
+\subsection{Examples}
+Firstly, let us see the effect of change for the shape of a domain when adjusting its boundary by taking different values of $\alpha$ and $\beta$. The
+calling sequence for this purpose may have the form of
+\begin{align*}
+&\textmtt{\mtt\\parametricplot[algebraic,plotpoints=200,linewidth=0.5pt]\{$0$\}\{$1$\}}\\
+&\textmtt{\mtt\{XBsix\{$x_0$\}\{$\alpha$\}|\mtt\\YBsix\{$y_0$\}\{$\beta$\}\mtt\}}
+\end{align*}
+and its result is given in Figure \ref{Fig14}.
+\begin{figure}[htbp]
+\centering\includegraphics[height=3cm]{Fig14}
+\caption{From left to right, corresponding to the couple of values:
+$\alpha=2,\,\beta=2$; $\alpha=2.5,\,\beta=2$; $\alpha=2,\,\beta=2.5$.}\label{Fig14}
+\end{figure}
+
+The Table \ref{bc-table2} below provides three partitions of a domain $D$ with cells that decrease in size. In each case, \verb!\NetDraw! can
+determine the cells that have points in common with the boundary curve and color them. The calling sequence here
+takes a simple form
+$$\textmtt{\mtt\\NetDraw\{$c$\}\{$x_0$\}\{$y_0$\}\{$\alpha$\}\{$\beta$\}}$$
+The numerical argument $c$ is assigned to the local variable \verb!\CellNum!. The number of approximate points $(X_i,Y_i)$ for the boundary curve
+is chosen to be $200$, by default, corresponding to the increment $\Delta\mtt{z}=0.005$. The number $N$ can be made larger and the filter procedure
+for determining required cells may be more exact. In Table \ref{bc-table2}, the B\'{e}zier curves are depicted with the choice
+$x_0=y_0=\alpha=\beta=2$.
+\begin{table}[htbp]
+\centering\begin{tabular}{cc}
+\includegraphics[width=6cm]{b6of1}&\includegraphics[width=6cm]{b6of2}\\
+\includegraphics[width=6cm]{b6of3}&\includegraphics[width=6cm]{b6of4}
+\end{tabular}
+\caption{The partitions of $D$ with $c=18$, $c=36$ and $c=63$.}\label{bc-table2}
+\end{table}
+
+\acknw
+I am very grateful to
+\begin{itemize}
+\item Timothy Van Zandt, Herbert Vo\ss, Dominique Rodriguez and Michael Sharpe for helping me with
+their great works on \texttt{PSTricks}.
+\item H\`an Th\hantt\rlap\accentcircflx\ Th\`anh for helping me with his pdf\hskip.03em\LaTeX\ program.
+\item Robert Fuster for his very useful package \texttt{calculator}.
+\end{itemize}
+\begin{thebibliography}{10}
+\bibitem{one} Dominique Rodriguez, Michael Sharpe \&\ Herbert Vo\ss. \textsl{\texttt{pstricks-add}: Additional Macros for PSTricks\/}.
+Version 3.60,
+\url{http://ctan.org/tex-archive/graphics/pstricks/contrib}, 2013
+\bibitem{two} Timothy Van Zandt, Michael Sharpe \&\ Herbert Vo\ss. \textsl{\texttt{pst-node}: Nodes and node connections}.
+Version 1.29,
+\url{http://ctan.org/tex-archive/graphics/pstricks/contrib}, 2013
+\bibitem{three} Helmut Kopka \&\ Patrick W. Daly. \textsl{Guide to \LaTeX \/}.
+Addison-Wesley, Fourth Edition, 2004, ISBN 0321173856
+\bibitem{four} Timothy Van Zandt. \textsl{User's Guide\/}. Version 1.5,\\
+\url{http://ctan.org/tex-archive/graphics/pstricks/base}, 2007
+\bibitem{five}Eitan M. Gurari. \textsl{Writing With \TeX \/}, McGraw-Hill, Inc., 1994, ISBN 0-07-025207-6
+\bibitem{six} Robert Fuster. \textsl{\texttt{calculator-calculus}: Scientific Calculations With \LaTeX \/}. Version 1.0a,
+\url{http://ctan.org/tex-archive/macros/latex/contrib/calculator}, 2012
+\end{thebibliography}
+
+\end{document}
+\begin{thebibliography}{10}
+\bibitem{one} Dominique Rodriguez, Michael Sharpe \&\ Herbert Vo\ss. \textsl{\texttt{pstricks-add}: Additional Macros for PSTricks\/}.
+Version 3.60,
+\url{http://ctan.org/tex-archive/graphics/pstricks/contrib}, 2013
+\bibitem{two} Timothy Van Zandt, Michael Sharpe \&\ Herbert Vo\ss. \textsl{\texttt{pst-node}: Nodes and node connections}.
+Version 1.29,
+\url{http://ctan.org/tex-archive/graphics/pstricks/contrib}, 2013
+\bibitem{three} Helmut Kopka \&\ Patrick W. Daly. \textsl{Guide to \LaTeX \/}.
+Addison-Wesley, Fourth Edition, 2004, ISBN 0321173856
+\bibitem{four} Timothy Van Zandt. \textsl{User's Guide\/}. Version 1.5,\\
+\url{http://ctan.org/tex-archive/graphics/pstricks/base}, 2007
+\bibitem{five}Eitan M. Gurari. \textsl{Writing With \TeX \/}, McGraw-Hill, Inc., 1994, ISBN 0-07-025207-6
+\bibitem{six} Robert Fuster. \textsl{\texttt{calculator-calculus}: Scientific Calculations With \LaTeX \/}. Version 1.0a,
+\url{http://ctan.org/tex-archive/macros/latex/contrib/calculator}, 2012
+\end{thebibliography}
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/b6of1.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/b6of1.pdf
new file mode 100644
index 00000000000..dd72352f521
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/b6of1.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/b6of2.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/b6of2.pdf
new file mode 100644
index 00000000000..58957eb2916
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/b6of2.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/b6of3.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/b6of3.pdf
new file mode 100644
index 00000000000..2358b9887bd
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/b6of3.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/b6of4.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/b6of4.pdf
new file mode 100644
index 00000000000..986c6f42794
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/b6of4.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vec1.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vec1.pdf
deleted file mode 100644
index c305ce04853..00000000000
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vec1.pdf
+++ /dev/null
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vec2.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vec2.pdf
deleted file mode 100644
index 634f25d5203..00000000000
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vec2.pdf
+++ /dev/null
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vec3.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vec3.pdf
deleted file mode 100644
index b94a3b56924..00000000000
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vec3.pdf
+++ /dev/null
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vec4.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vec4.pdf
deleted file mode 100644
index f27e258918e..00000000000
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vec4.pdf
+++ /dev/null
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vec5.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vec5.pdf
deleted file mode 100644
index ed3a31fa1a4..00000000000
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vec5.pdf
+++ /dev/null
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vec6.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vec6.pdf
deleted file mode 100644
index 32cb089959c..00000000000
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vec6.pdf
+++ /dev/null
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vecb1.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vecb1.pdf
new file mode 100644
index 00000000000..e7e593cd4ce
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vecb1.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vecb2.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vecb2.pdf
new file mode 100644
index 00000000000..383de63aeec
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vecb2.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vecb3.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vecb3.pdf
new file mode 100644
index 00000000000..5909485e59d
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vecb3.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vecb4.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vecb4.pdf
new file mode 100644
index 00000000000..e0d120903de
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vecb4.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vecb5.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vecb5.pdf
new file mode 100644
index 00000000000..d4cf2d2e602
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vecb5.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vecb6.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vecb6.pdf
new file mode 100644
index 00000000000..31ea95365c6
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Pdf_Output/vecb6.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/NewVecFld_PS.tex b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/NewVecFld_PS.tex
deleted file mode 100644
index ae1b6eb6f59..00000000000
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/NewVecFld_PS.tex
+++ /dev/null
@@ -1,675 +0,0 @@
-\documentclass[11pt,a4paper,oneside]{article}
-\usepackage{calculator}
-\usepackage{calculus}
-\usepackage{amsthm}
-\usepackage{amsmath}
-\usepackage[dvips]{geometry}
-\usepackage{pstricks}
-\usepackage{graphicx}
-\usepackage{graphics}
-\usepackage{pst-plot}
-\usepackage{pst-node}
-\usepackage{multido}
-\usepackage{pst-xkey}
-\usepackage{pst-func}
-\usepackage{pstricks-add}
-\usepackage[dvips,colorlinks,linktocpage]{hyperref}
-\def\hantt{\^e}\def\accentcircflx{\hskip-.3em\raisebox{0.32ex}{\'{}}}
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\def\RiemannSum#1#2#3#4#5#6#7#8#9{%
-\psplot[linecolor=blue]{#1}{#2}{#3}
-\pscustom[linecolor=red]{%
-\psline{-}(#1,0)(#1,0)
-\multido{\ni=#5,\ne=#6}{#4}
-{\psline(*{\ni} {#8})(*{\ne} {#9})}}
-\multido{\ne=#6,\nc=#7}{#4}
-{\psdot(*{\nc} {#3})
-\psline[linestyle=dotted,dotsep=1.5pt](\nc,0)(*{\nc} {#3})
-\psline[linecolor=red](\ne,0)(*{\ne} {#9})}
-}
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\def\vecfld#1#2#3#4#5#6{%
-\multido{#2}{#4}
-{\multido{#1}{#3}
-{\parametricplot[algebraic,arrows=->,linecolor=red]{0}{1}
-{\nx+((#5)*t)*(1/sqrt(1+(#6)^2))|\ny+((#5)*t)*(1/sqrt(1+(#6)^2))*(#6)}}}}
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\def\xch{\catcode`\p=12 \catcode`\t=12}\def\ych{\catcode`\p=11 \catcode`\t=11}
-\xch \def\dec#1pt{#1}\ych \def\decimal#1{\expandafter\dec \the#1}
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\def\vecfldnew#1#2#3#4#5#6#7#8{%
-\newcount\intg \newdimen\fx \newdimen\fy \newdimen\slope \newdimen\interm
-\def\fintg{\interm=#8 \interm=\intg\interm \ifdim\ifdim\slope<0pt-\fi\slope>\interm\advance\intg by 1\fintg\fi}
-\multido{#2}{#4}
-{\multido{#1}{#3}
-{\curvepnodes[algebraic,plotpoints=2]{0}{1}{\nx+((#5)*t)*(1/sqrt(1+(#6)^2))|\ny+((#5)*t)*(1/sqrt(1+(#6)^2))*(#6)}{P}
-#7 \slope=10\slope\fintg
-\ifnum\intg>10\psline[linecolor=red]{->}(P0)(P1)\else\ifnum\intg=0\psline[linecolor=red!5]{->}(P0)(P1)\else\multiply\intg by 10
-\psline[linecolor=red!\the\intg]{->}(P0)(P1)\fi\fi
-\intg=0\slope=0pt
-}}}
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\pagestyle{headings}
-\topmargin=-0.6cm
-\textwidth=16.7cm
-\textheight=23cm
-\headheight=2.5ex
-\headsep=0.6cm
-\oddsidemargin=.cm
-\evensidemargin=-.4cm
-\parskip=0.7ex plus0.5ex minus 0.5ex
-\baselineskip=17pt plus2pt minus2pt
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\catcode`@=11
-\renewcommand\section{\@startsection {section}{1}{\z@}%
- {-3.5ex \@plus -1ex \@minus -.2ex}%
- {2.3ex \@plus.2ex}%
- {\normalfont\large\bfseries}}
-\renewcommand\subsection{\@startsection{subsection}{2}{\z@}%
- {-3.25ex\@plus -1ex \@minus -.2ex}%
- {1.5ex \@plus .2ex}%
- {\normalfont\normalsize\bfseries}}
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\gdef\acknw{\section*{%
-{\acknwname}\markright{\protect\textsl{\acknwname}}}%
-\addcontentsline{toc}{section}{\acknwname}}
-\gdef\acknwname{Acknowledgment}
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\renewcommand\sectionmark[1]{\markright{\thesection. #1}}
-\newcounter{lk}
-\newenvironment{listof}{\begin{list}{\rm(\roman{lk})}{\usecounter{lk}%
-\setlength{\topsep}{0ex plus0.1ex}%
-\setlength{\labelwidth}{1cm}%
-\setlength{\itemsep}{0ex plus0.1ex}%
-\setlength{\itemindent}{0.5cm}%
-}}{\end{list}}
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\title{Two applications of macros in \texttt{PSTricks}\thanks{PSTricks is the original work of Timothy Van Zandt (email address: \texttt{tvz@econ.insead.fr}).
-It is currently edited by Herbert Vo\ss\ (\texttt{hvoss@tug.org}).}\\
-{\Large\&} \\
-How to color arrows properly for a vector field}
-\author{Le Phuong Quan\\
-\small{(Cantho University, Vietnam)}\\
-\small{\texttt{lpquan@ctu.edu.vn}}}
-\begin{document}
-\maketitle
-\tableofcontents
-\section{Drawing approximations to the area under a graph by rectangles}
-\subsection{Description}
-
-We recall here an application in Calculus. Let $f(x)$ be a function, defined and bounded on
-the interval $[a,b]$. If $f$ is integrable (in Riemann sense) on $[a,b]$, then its definite integral over this interval
-is
-$$\int_a^bf(x)dx=\lim_{\|P\|\to 0}\sum_{i=1}^nf(\xi_i)\Delta x_i,$$
-where $P\colon a=x_0<x_1<\cdots<x_n=b$, $\Delta x_i=x_i-x_{i-1}$, $\xi_i\in[x_{i-1},x_i]$, $i=1,2,\ldots,n$,
-and $\|P\|=\max\{\Delta x_i\colon i=1,2,\ldots,n\}$. Hence, when $\|P\|$ is small enough, we may have an
-approximation
-\begin{equation}\label{eqn1}
-I=\int_a^bf(x)dx\approx\sum_{i=1}^nf(\xi_i)\Delta x_i.
-\end{equation}
-Because $I$ is independent to the choice of the partition $P$ and of the $\xi_i$, we may
-divide $[a,b]$ into $n$ subintervals with equal length and choose $\xi_i=(x_i+x_{i-1})/2$.
-Then, $I$ can be approximately seen as the sum of areas of the rectangles with sides
-$f(\xi_i)$ and $\Delta x_i$.
-
-We will make a drawing procedure to illustrate the approximation (\ref{eqn1}). Firstly, we establish
-commands to draw the \emph{sum\/} of rectangles, like the area under piecewise-constant functions
-(called \textsl{step shape\/}, for brevity). The choice here
-is a combination of the macros \texttt{\symbol{92}pscustom} (to \emph{join\/} horizontal segments, automatically)
-and \texttt{\symbol{92}multido}, of course. In particular, the horizontal segments are depicted within the loop
-\texttt{\symbol{92}multido} by
-$$\texttt{\symbol{92}psplot[{\it settings}]\{$x_{i-1}$\}\{$x_i$\}\{$f(\xi_i)$\}}$$
-The \texttt{\symbol{92}pscustom} will join these segments altogether with the end points
-$(a,0)$ and $(b,0)$, to make the boundary of the step shape. Then, we draw the points $(\xi_i,f(\xi_i))$, $i=1,2,\ldots,n$,
-and the dotted segments between these points and the points $(\xi_i,0)$, $i=1,2,\ldots,n$, by
-\begin{align*}
-&\texttt{\symbol{92}psdot[algebraic,\dots](*\{$\xi_i$\} \{$f(x)$\})},\\
-&\texttt{\symbol{92}psline[algebraic,linestyle=dotted,\dots]($\xi_i$,$0$)(*\{$\xi_i$\} \{$f(x)$\})},
-\end{align*}
-where we use the structure \texttt{(*\{{\it value}\} \{$f(x)$\})} to obtain the point $(\xi_i,f(\xi_i))$. Finally, we draw
-vertical segments to split the step shape into rectangular cells by
-$$\texttt{\symbol{92}psline[algebraic,\dots]($x_i$,$0$)(*\{$x_i$\} \{$f(x-\Delta x_i/2)$\})}$$
-The process of performing steps is depicted in Figure \ref{Fig1}.
-\begin{figure}[htbp]
-\centering\begin{pspicture}(-2,-2)(3,3.5)
-\psset{yunit=0.2}
-\psaxes[labelFontSize=$\footnotesize$,Dy=2,ticksize=2.2pt,labelsep=4pt]{->}(0,0)(-2.5,-10)(3.5,15.5)
-\psplot[plotpoints=500,algebraic,linecolor=red]{-2}{3}{x^3-2*x^2+6}
-\pscustom{
-\psline{-}(-2,0)(-2,0)
-\multido{\nx=-2.000+0.500,\ny=-1.750+0.500,\ni=-1.500+0.500}{10}
-{\psplot[algebraic]{\nx}{\ni}{(\ny)^3-2*(\ny)^2+6}}
-\psline{-}(3,0)}
-\end{pspicture}
-\hskip3em
-\begin{pspicture}(-2,-2)(3,3.5)
-\psset{yunit=0.2}
-\psaxes[labelFontSize=$\footnotesize$,Dy=2,ticksize=2.2pt,labelsep=4pt]{->}(0,0)(-2.5,-10)(3.5,15.5)
-\psplot[plotpoints=500,algebraic,linecolor=red]{-2}{3}{x^3-2*x^2+6}
-\pscustom{
-\psline{-}(-2,0)(-2,0)
-\multido{\nx=-2.000+0.500,\ny=-1.750+0.500,\ni=-1.500+0.500}{10}
-{\psplot[algebraic]{\nx}{\ni}{(\ny)^3-2*(\ny)^2+6}}
-\psline{-}(3,0)}
-\multido{\nx=-2.000+0.500,\ny=-1.750+0.500,\ni=-1.500+0.500}{10}
-{\psline[linestyle=dotted,dotsep=1.5pt,dotstyle=o,linecolor=gray](\ny,0)(*{\ny} {x^3-2*x^2+6})
-\psdot[dotsize=1.2pt 1,dotstyle=Bo](*{\ny} {x^3-2*x^2+6})}
-\end{pspicture}\\[3ex]
-\centering\begin{pspicture}(-2,-2)(3,3)
-\psset{yunit=0.2}
-\psaxes[labelFontSize=$\footnotesize$,Dy=2,ticksize=2.2pt,labelsep=4pt]{->}(0,0)(-2.5,-10)(3.5,15.5)
-\psplot[plotpoints=500,algebraic,linecolor=red]{-2}{3}{x^3-2*x^2+6}
-\pscustom{
-\psline{-}(-2,0)(-2,0)
-\multido{\nx=-2.000+0.500,\ny=-1.750+0.500,\ni=-1.500+0.500}{10}
-{\psplot[algebraic]{\nx}{\ni}{(\ny)^3-2*(\ny)^2+6}}
-\psline{-}(3,0)}
-\multido{\nx=-2.000+0.500,\ny=-1.750+0.500,\ni=-1.500+0.500}{10}
-{\psline[linestyle=dotted,dotsep=1.5pt,dotstyle=o,linecolor=gray](\ny,0)(*{\ny} {x^3-2*x^2+6})
-\psdot[dotsize=1.2pt 1,dotstyle=Bo](*{\ny} {x^3-2*x^2+6})}
-\multido{\nx=-2.000+0.500,\ny=-1.750+0.500,\ni=-1.500+0.500}{9}
-{\psline(\ni,0)(*{\ni} {(x-0.25)^3-2*(x-0.25)^2+6})}
-\end{pspicture}
-\caption{Steps to make the drawing procedure.}\label{Fig1}
-\end{figure}
-
-We can combine the above steps to make a procedure whose calling sequence consists of main parameters
-$a$, $b$, $f$ and $n$, and dependent parameters $x_{i-1}$, $x_i$, $\xi_i$, $f(\xi_i)$ and
-$f(x\pm\Delta x_i/2)$. For instant, let us consider the approximations to the integral of $f(x)=\sin x-\cos x$
-over $[-2,3]$ in the cases of $n=5$ and $n=20$. Those approximations are given in Figure \ref{Fig2}.
-
-\begin{figure}[htbp]
-\centering\begin{pspicture}(-2.5,-3)(3.5,3.01)
-\psset{plotpoints=500,algebraic,dotsize=1pt 2,yunit=2}
-\psaxes[labelFontSize=$\footnotesize$,Dy=1]{->}(0,0)(-2.5,-1.5)(3.5,1.5)
-\RiemannSum{-2}{3}{sin(x)-cos(x)}{5}
-{-2.0+1.0}{-1.0+1.0}{-1.5+1.0}
-{sin(x+0.5)-cos(x+0.5)}{sin(x-0.5)-cos(x-0.5)}
-\end{pspicture}
-\hskip4em
-\begin{pspicture}(-2.5,-3)(3.5,3.01)
-\psset{plotpoints=500,algebraic,dotsize=1pt 2,yunit=2}
-\psaxes[labelFontSize=$\footnotesize$,Dy=1]{->}(0,0)(-2.5,-1.5)(3.5,1.5)
-\RiemannSum{-2}{3}{sin(x)-cos(x)}{20}
-{-2.000+0.250}{-1.750+0.250}{-1.875+0.250}
-{sin(x+0.125)-cos(x+0.125)}{sin(x-0.125)-cos(x-0.125)}
-\end{pspicture}
-\caption{Approximations to the integral of $f(x)=\sin x-\cos x$ over $[-2,3]$.}\label{Fig2}
-\end{figure}
-
-In fact, we can make a procedure to illustrate the approximation (\ref{eqn1}), say \texttt{RiemannSum}, whose calling sequence has the form
-$$\texttt{\symbol{92}RiemannSum\{$a$\}\{$b$\}\{$f(x)$\}\{$n$\}\{$x_{\rm ini}$\}\{$x_{\rm end}$\}\{$x_{\rm choice}$\}\{$f(x+\Delta x_i/2)$\}\{$f(x-\Delta x_i/2)$\}},$$
-where $x_0=a$ and for each $i=1,2\ldots,n$:
-\begin{align*}
-x_i&=a+\dfrac{b-a}{n}i,\quad\Delta x_i=x_i-x_{i-1}=\dfrac{b-a}{n},\\
-x_{\rm ini}&=x_0+\Delta x_i,\quad x_{\rm end}=x_1+\Delta x_i,\quad x_{\rm choice}=\dfrac{x_{\rm ini}+x_{\rm end}}{2}=\dfrac{x_0+x_1}{2}+\Delta x_i.
-\end{align*}
-Note that $x_{\rm ini}$, $x_{\rm end}$ and $x_{\rm choice}$ are given in such forms to be
-suitable to variable declaration in \texttt{\symbol{92}multido}. They are nothing but
-$x_{i-1}$, $x_i$ and $\xi_i$, respectively, at the step $i$-th in the loop.
-
-Tentatively, in \texttt{PSTricks} language, the definition of \texttt{RiemannSum} is suggested to be
-\bigskip\hrule
-\noindent\begin{tabular}{@{}l}
-\verb!\def\RiemannSum#1#2#3#4#5#6#7#8#9{%!\\
-\verb!\psplot[linecolor=blue]{#1}{#2}{#3}!\\
-\verb!\pscustom[linecolor=red]{%!\\
-\verb!\psline{-}(#1,0)(#1,0)!\\
-\verb!\multido{\ni=#5,\ne=#6}{#4}!\\
-\verb!{\psline(*{\ni} {#8})(*{\ne} {#9})}}!\\
-\verb!\multido{\ne=#6,\nc=#7}{#4}!\\
-\verb!{\psdot(*{\nc} {#3})!\\
-\verb!\psline[linestyle=dotted,dotsep=1.5pt](\nc,0)(*{\nc} {#3})!\\
-\verb!\psline[linecolor=red](\ne,0)(*{\ne} {#9})}}!
-\end{tabular}\bigskip\hrule
-\subsection{Examples}
-We give here two more examples just to see that using the drawing procedure is very easy. In the first example, we approximate
-the area under the graph of the function $f(x)=x-(x/2)\cos x+2$ on the interval $[0,8]$. To draw the approximation, we try
-the case $n=16$; thus $x_0=0$ and for each $i=1,\ldots,16$, we have
-$x_i=0.5\,i$, $\Delta x_i=0.5$, $x_{\rm ini}=0.00+0.50$, $x_{\rm end}=0.50+0.50$ and $x_{\rm choice}=0.25+0.50$.
-\begin{figure}[htbp]
-\centering\begin{pspicture}(0,0)(5.1,6.6)
-\psset{plotpoints=500,algebraic,dotsize=1pt 2,unit=0.6}
-\RiemannSum{0}{8}{x-(x/2)*cos(x)+2}{16}{0.00+0.50}{0.50+0.50}{0.25+0.50}
-{x+0.25-((x+0.25)/2)*cos(x+0.25)+2}{x-0.25-((x-0.25)/2)*cos(x-0.25)+2}
-\psaxes[labelFontSize=$\footnotesize$,Dy=1,ticksize=2.2pt,labelsep=4pt]{->}(0,0)(8.5,11)
-\end{pspicture}
-\vskip0.5ex
-\caption{An approximation to the area under the graph of $f(x)=x-(x/2)\cos x+2$ on $[0,8]$.}\label{Fig3}
-\end{figure}
-
-To get Figure \ref{Fig3}, we have used the following \LaTeX\ code:
-\bigskip\hrule
-\noindent\begin{tabular}{@{}l}
-\verb!\begin{pspicture}(0,0)(4.125,5.5)!\\
-\verb!\psset{plotpoints=500,algebraic,dotsize=2.5pt,unit=0.5}!\\
-\verb!\RiemannSum{0}{8}{x-(x/2)*cos(x)+2}{16}{0.00+0.50}{0.50+0.50}{0.25+0.50}!\\
-\verb!{x+0.25-((x+0.25)/2)*cos(x+0.25)+2}{x-0.25-((x-0.25)/2)*cos(x-0.25)+2}!\\
-\verb!\psaxes[ticksize=2.2pt,labelsep=4pt]{->}(0,0)(8.5,11)!\\
-\verb!\end{pspicture}!
-\end{tabular}
-\smallskip\hrule\bigskip
-
-In the second example below, we will draw an approximation to the integral of $f(x)=x\sin x$ over $[1,9]$.
-Choosing $n=10$ and computing parameters needed, we get Figure \ref{Fig4}, mainly by
-the command
-\begin{align*}
-&\texttt{\symbol{92}RiemannSum\{$1$\}\{$9$\}\{$x\sin x$\}\{$10$\}\{$1.00+0.80$\}\{$1.80+0.80$\}\{$1.40+0.80$\}}\\
-&\texttt{\{$(x+0.4)\sin(x+0.4)$\}\{$(x-0.4)\sin(x-0.4)$\}}
-\end{align*}
-in the drawing procedure.
-\begin{figure}[htbp]
-\centering\begin{pspicture}(0,-2.5)(4.75,4.25)
-\psset{plotpoints=500,algebraic,dotsize=1pt 2,unit=0.5}
-\RiemannSum{1}{9}{x*sin(x)}{10}%
-{1.00+0.80}{1.80+0.80}{1.40+0.80}%
-{(x+0.4)*sin(x+0.4)}{(x-0.4)*sin(x-0.4)}
-\psaxes[labelFontSize=$\footnotesize$,Dy=1,ticksize=2.2pt,labelsep=4pt]{->}(0,0)(0,-5)(9.5,8.5)
-\end{pspicture}
-\caption{An approximation to the integral of $f(x)=x\sin x$ over $[1,9]$.}\label{Fig4}
-\end{figure}
-\section{Drawing the vector field of an ordinary differential equation of order one}
-\subsection{Description}\label{sect1}
-
-Let us consider the differential equation
-\begin{equation}\label{eqn2}
-\frac{dy}{dx}=f(x,y).
-\end{equation}
-At each point $(x_0,y_0)$ in the domain $D$ of $f$, we will put a vector $\mathbf{v}$ with slope
-$k=f(x_0,y_0)$. If $y(x_0)=y_0$, then $k$ is the slope of the tangent to the solution curve $y=y(x)$
-of (\ref{eqn2}) at $(x_0,y_0)$. The $\mathbf{v}$'s make a \textsl{vector field\/} and the picture
-of this field would give us information about the shape of solution curves of (\ref{eqn2}), even
-we have not found yet any solution of (\ref{eqn2}).
-
-The vector field of (\ref{eqn2}) will be depicted on a finite grid of points in $D$. This grid is made of
-lines, paralell to the axes $Ox$ and $Oy$. The intersectional points of those lines are called \textsl{grid points\/}
-and often indexed by $(x_i,y_j)$, $i=0,\ldots,N_x$, $j=0,\ldots,N_y$. For convenience, we will use
-polar coordinate to locate the terminal point $(x,y)$ of a field vector, with the initial point at
-the grid point $(x_i,y_j)$. Then, we can write
-\begin{align*}
-x&=x_i+r\cos\varphi,\\
-y&=y_j+r\sin\varphi.
-\end{align*}
-Because $k=f(x_i,y_j)=\tan\varphi$ is finite, we may take $-\pi/2<\varphi<\pi/2$.
-From $\sin^2\varphi+\cos^2\varphi=1$ and $\sin\varphi=k\cos\varphi$, we derive
-$$\cos\varphi=\frac{1}{\sqrt{1+k^2}},\quad\sin\varphi=\frac{k}{\sqrt{1+k^2}}.$$
-\begin{figure}[htbp]
-\centering\begin{pspicture}(0,0)(5,5)
-\psset{unit=2}
-\psaxes[labelFontSize=$\footnotesize$,Dx=0.5,Dy=0.5,labels=none,ticksize=2pt,labelsep=2pt,linewidth=0.5pt]
-{->}(0,0)(2.5,2.5)
-\psdots[dotstyle=*,dotsize=3pt](1,1)(1.5,1)(1,1.5)
-\psline[linewidth=0.3pt](1.5,0.5)(1.5,2)(1,2)(1,0.5)(2,0.5)(2,1.5)
-\psline[linewidth=0.3pt](1,1.5)(2,1.5)\psline[linewidth=0.3pt](1,1)(2,1)
-\psarc[linewidth=0.5pt,linestyle=dotted,dotsep=1.5pt](1,1){0.5}{-90}{90}
-\psarc[linewidth=0.5pt,linestyle=dotted,dotsep=1.5pt](1.5,1){0.5}{-90}{90}
-\psarc[linewidth=0.5pt,linestyle=dotted,dotsep=1.5pt](1,1.5){0.5}{-90}{90}
-\psline[linewidth=0.8pt]{->}(1,1.5)(1.27,1.92)
-\psline[linewidth=0.8pt]{->}(1,1)(1.382,1.322)
-\psline[linewidth=0.8pt]{->}(1.5,1)(1.977,1.147)
-\rput(1,-0.1){$x_i$}\rput(1.5,-0.1){$x_{i+1}$}\rput(-0.1,1){$y_j$}\rput(-0.2,1.5){$y_{j+1}$}
-\end{pspicture}
-\caption{Field vectors on a grid.}\label{Fig5}
-\end{figure}
-The field vectors should all have the same magnitude and we choose here that length to be
-$1/2$, that means $r=1/2$. Thus, vectors on the grid have their initial points and
-terminal ones as
-$$(x_i,y_j),\quad \Big(x_i+\frac{1}{2}\cos\varphi,y_j+\frac{1}{2}\sin\varphi\Big).$$
-
-Of macros in \texttt{PSTricks} to draw lines, we select \texttt{\symbol{92}parametricplot}\footnote{\footnotesize
-This macro is of ones, often added and updated in the package \texttt{pstricks-add}, the authors:
-Dominique Rodriguez (\texttt{dominique.rodriguez@waika9.com}), Herbert Vo\ss\ (\texttt{voss@pstricks.de}).}
-for its fitness. We immetiately have the simple parameterization of the vector at the grid point
-$(x_i,y_j)$ as
-\begin{align*}
-x&=x_i+\frac{t}{2}\cos\varphi=x_i+\frac{t}{2\sqrt{1+k^2}},\\
-y&=y_j+\frac{t}{2}\sin\varphi=y_j+\frac{tk}{2\sqrt{1+k^2}},
-\end{align*}
-where $t$ goes from $t=0$ to $t=1$, along the direction of the vector. The macro \texttt{\symbol{92}parametricplot}
-has the syntax as
-$$\texttt{\symbol{92}parametricplot[{\it settings}]\{$t_{\rm min}$\}\{$t_{\rm max}$\}\{$x(t)$|$y(t)$\}},$$
-where we should use the option \texttt{algebraic} to make the declaration of $x(t)$ and $y(t)$ simpler
-with \texttt{ASCII} code.
-
-From the above description of one field vector, we go to the one of the whole vector field
-on a grid belonging to the domain $R=\{(x,y)\colon a\le x\le b,\,c\le y\le d\}$. To determine the grid, we confine grid points to the range
-\begin{equation}\label{eqn3}
-a\le x_i\le b,\quad c\le y_j\le d.
-\end{equation}
-With respect to the indices $i$ and $j$, we choose initial values $x_0=a$ and
-$y_0=c$, with increments $\Delta x=\Delta y=\delta$, corresponding to the length of vectors and the distance
-between grid points as indicated in Figure \ref{Fig5}. Thus, to draw vectors at grid points
-$(x_i,y_j)$, we need two loops for $i$ and $j$, with $0\le i\le\lfloor m/\delta\rfloor$, $0\le j\le\lfloor n/\delta\rfloor$, where
-$m=b-a$, $n=d-c$. Apparently, these two loops are nested \texttt{\symbol{92}multido}s, with variable declaration
-for each loop as follows
-\begin{align*}
-\texttt{\symbol{92}nx}&=\text{initial value}+\text{increment}=x_0+\Delta x,\\
-\texttt{\symbol{92}ny}&=\text{initial value}+\text{increment}=y_0+\Delta y.
-\end{align*}
-Finally, we will replace \texttt{\symbol{92}nx}, \texttt{\symbol{92}ny} by $x_i$, $y_j$ in the
-below calling sequence for simplicity.
-
-Thus, the main procedure to draw the vector field of the equation (\ref{eqn2}) on the grid (\ref{eqn3})
-is
-\begin{align*}
-&\texttt{\symbol{92}multido\big\{$y_j=y_0+\Delta y$\big\}\big\{$\lfloor n/\delta\rfloor$\big\}}\texttt{\bigg\{\symbol{92}multido\big\{$x_i=x_0+\Delta x$\big\}\big\{$\lfloor m/\delta\rfloor$\big\}}\\
-&\quad\texttt{\Big\{\symbol{92}parametricplot[{\it settings}]\{$0$\}\{$1$\}\Big\{$x_i+\frac{t}{2\sqrt{1+\big[f(x_i,y_j)\big]^2}}$\Big|
-$y_j+\frac{tf(x_i,y_j)}{2\sqrt{1+\big[f(x_i,y_j)\big]^2}}$\Big\}\bigg\}}
-\end{align*}
-where we at least use \texttt{arrows=->} and \texttt{algebraic} for \textit{settings}.
-
-We can combine the steps mentioned above to define a drawing procedure, say \texttt{\symbol{92}vecfld},
-that consists of main parameters in the order as
-\texttt{\symbol{92}nx=}$x_0+\Delta x$, \texttt{\symbol{92}ny=}$y_0+\Delta y$, $\lfloor m/\delta\rfloor$, $\lfloor n/\delta\rfloor$, $\delta$
-and $f(\texttt{\symbol{92}nx},\texttt{\symbol{92}ny})$. We may change these values to modify
-the vector field or to avoid the vector intersection. Such a definition is suggested to be
-\bigskip\hrule
-\noindent\begin{tabular}{@{}l}
-\verb!\def\vecfld#1#2#3#4#5#6{%!\\
-\verb!\multido{#2}{#4}{\multido{#1}{#3}!\\
-\verb!{\parametricplot[algebraic,arrows=->,linecolor=red]{0}{1}!\\
-\verb!{\nx+((#5)*t)*(1/sqrt(1+(#6)^2))|\ny+((#5)*t)*(1/sqrt(1+(#6)^2))*(#6)}}}}!
-\end{tabular}\bigskip\hrule
-\subsection{Examples}
-Firstly, we consider the equation that describes an object falling in a resistive medium:
-\begin{equation}\label{eqn4}
-\frac{dv}{dt}=9.8-\frac{v}{5},
-\end{equation}
-where $v=v(t)$ is the speed of the object in time $t$. In Figure \ref{Fig6}, the vector field of (\ref{eqn4}) is given
-on the grid $R=\{(t,y)\colon 0\le t\le 9,\,46\le v\le 52\}$, together with the graph of the equilibrium solution
-$v=49$.
-\begin{figure}[htbp]
-\centering\begin{pspicture}(0,41.4)(8.55,47.25)
-\psset{xunit=0.9,yunit=0.9}
-\multido{\ny=46.25+0.50}{13}
-{\multido{\nx=0.25+0.50}{18}
-{\parametricplot[linewidth=0.5pt,algebraic,arrows=->,arrowinset=0.55,linecolor=red]{0}{1}{\nx+(t/2)*(1/sqrt(1+(9.8-0.2*(\ny))^2))|\ny+(t/2)*(1/sqrt(1+(9.8-(0.2)*(\ny))^2))*(9.8-(0.2)*(\ny))}}}
-\psplot[algebraic,linewidth=1.2pt]{0}{9.25}{49}
-\psaxes[labelFontSize=$\footnotesize$,ticksize=2.2pt,labelsep=4pt,Dy=1,Dx=1,Oy=46,linewidth=0.7pt]{->}(0,46)(0,46)(9.5,52.5)
-\rput(9.5,45.8){$t$}\rput(-0.2,52.5){$y$}
-\end{pspicture}
-\caption{The vector field of (\ref{eqn4}).}\label{Fig6}
-\end{figure}
-
-Figure \ref{Fig6} is made of the following \LaTeX\ code:
-\bigskip\hrule
-\noindent\begin{tabular}{@{}l}
-\verb!\begin{pspicture}(0,46)(9.5,52.5)!\\
-\verb!\vecfld{\nx=0.25+0.50}{\ny=46.25+0.50}{18}{12}{0.5}{9.8-0.2*\ny}!\\
-\verb!\psplot[algebraic,linewidth=1.2pt]{0}{9}{49}!\\
-\verb!\psaxes[Dy=1,Dx=1,Oy=46]{->}(0,46)(0,46)(9.5,52.5)!\\
-\verb!\rput(9.5,45.8){$t$}\rput(-0.2,52.5){$y$}!\\
-\verb!\end{pspicture}!
-\end{tabular}
-\smallskip\hrule\bigskip
-Let us next consider the problem
-\begin{equation}\label{eqn5}
-\frac{dy}{dx}=x+y,\quad y(0)=0.
-\end{equation}
-It is easy to check that $y=e^x-x-1$ is the unique solution to the problem (\ref{eqn5}). We now draw
-the vector field of (\ref{eqn5}) and the solution curve\footnote{\footnotesize
-We have used ${\rm ch}(1)+{\rm sh}(1)$ for the declaration of $e$, natural base of logarithmic function.} on the grid $R=\{(x,y)\colon 0\le x\le 3,\,0\le y\le 5\}$ in
-Figure \ref{Fig7}.
-\begin{figure}[htbp]
-\centering\begin{pspicture}(0,0)(3.25,5.5)
-\psset{unit=1}
-\multido{\ny=0.25+0.50}{10}
-{\multido{\nx=0.25+0.50}{6}
-{\parametricplot[linewidth=0.5pt,algebraic,arrows=->,arrowinset=0.55,linecolor=red]{0}{1}{\nx+(t/2)*(1/sqrt(1+(\nx+\ny)^2))|\ny+(t/2)*(1/sqrt(1+(\nx+\ny)^2))*(\nx+\ny)}}}
-\psplot[algebraic,linewidth=1.2pt]{0}{2.15}{(sh(1)+ch(1))^x-x-1}
-\psaxes[labelFontSize=$\footnotesize$,Dy=1,Dx=1,ticksize=2.2pt,labelsep=4pt,linewidth=0.7pt]{->}(0,0)(3.5,5.5)
-\rput(3.5,-0.2){$x$}\rput(-0.25,5.5){$y$}
-\end{pspicture}
-\caption{The vector field of (\ref{eqn5}).}\label{Fig7}
-\end{figure}
-
-We then go to the logistic equation, which is chosen to be a model for the dependence
-of the population size $P$ on time $t$ in Biology:
-\begin{equation}\label{eqn6}
-\frac{dP}{dt}=kP\Big(1-\frac{P}{M}\Big),
-\end{equation}
-where $k$ and $M$ are constants, respectively various to selected species and environment.
-For specification, we take, for instant, $k=0.5$ and $M=100$. The right hand side of
-(\ref{eqn6}) then becomes $f(t,P)=0.5\,P(1-0.01\,P)$. In Figure \ref{Fig8}, we draw the vector field
-of (\ref{eqn6}) on the grid $R=\{(t,P)\colon 0\le t\le 10,\,95\le P\le 100\}$ and the equilibrium
-solution curve $P=100$. Furthermore, with the initial condition $P(0)=95$, the equation (\ref{eqn6})
-has the unique solution $P=1900(e^{-0.5t}+19)^{-1}$. This solution curve is also given in Figure \ref{Fig8}.
-\begin{figure}[htbp]
-\centering\begin{pspicture}(0,76)(8.4,80.4)
-\psset{xunit=0.8,yunit=0.8}
-\multido{\ny=95.25+0.50}{10}
-{\multido{\nx=0.25+0.50}{20}
-{\parametricplot[linewidth=0.5pt,algebraic,arrows=->,arrowinset=0.55,linecolor=red]{0}{1}{\nx+(t/2)*(1/sqrt(1+((0.5)*(\ny)*(1-(0.01)*(\ny)))^2))|\ny+(t/2)*(1/sqrt(1+((0.5)*(\ny)*(1-(0.01)*(\ny)))^2))*((0.5)*(\ny)*(1-(0.01)*(\ny)))}}}
-\psplot[algebraic,linewidth=1.2pt]{0}{10.25}{100}
-\psplot[algebraic,linewidth=1.2pt]{0}{10.25}{1900/((ch(1)+sh(1))^(-0.5*x)+19)}
-\psaxes[labelFontSize=$\footnotesize$,Dy=1,Dx=1,Oy=95,ticksize=2pt,labelsep=4pt,linewidth=0.7pt]{->}(0,95)(0,95)(10.5,100.5)
-\rput(10.5,94.8){$t$}\rput(-0.25,100.5){$P$}
-\end{pspicture}
-\caption{The vector field of (\ref{eqn6}) with $k=0.5$ and $M=100$.}\label{Fig8}
-\end{figure}
-
-The previous differential equations are all of seperated variable or linear cases that
-can be solved for closed-form solutions by some simple integration formulas. We will consider one more
-equation of the non-linear case whose solution can only be approximated by numerical methods.
-The vector field of such an equation is so useful and we will use the Runge-Kutta curves (of order $4$)
-to add more information about the behaviour of solution curve. Here, those Runge-Kutta curves are depicted by the procedure
-\texttt{\symbol{92}psplotDiffEqn}, also updated from the package \texttt{pstricks-add}.
-
-The vector field of the non-linear differential equation
-\begin{equation}\label{eqn7}
-\frac{dy}{dx}=y^2-xy+1
-\end{equation}
-will be depicted on the grid $R=\{(x,y)\colon -3\le x\le 3,\,-3\le y\le 3\}$ and the solutions
-of Cauchy problems for (\ref{eqn7}), corresponding to initial conditions
-\begin{listof}
-\item $y(-3)=-1$,
-\item $y(-2)=-3$,
-\item $y(-3)=-0.4$,
-\end{listof}
-will be approximated by the method of Runge-Kutta, with the grid size $h=0.2$. It is very easy
-to recognize approximate curves, respective to (i), (ii) and (iii) in Figure \ref{Fig9} below.
-\begin{figure}[htbp]
-\centering\begin{pspicture}(-3.6,-3.6)(4.2,4.2)
-\psset{unit=1.2,dotsize=2.6pt}
-\vecfld{\nx=-3.00+0.4}{\ny=-3.00+0.4}{16}{16}{0.35}{(\ny)^2-(\nx)*(\ny)+1}
-\psplotDiffEqn[linewidth=1.2pt,algebraic,showpoints=true,plotpoints=24,method=rk4]{-3}{1.9}{-1}{(y[0])^2-x*y[0]+1}
-\psplotDiffEqn[linewidth=1.2pt,algebraic,showpoints=true,plotpoints=25,method=rk4]{-2}{3}{-3}{(y[0])^2-x*y[0]+1}
-\psplotDiffEqn[linewidth=1.2pt,algebraic,showpoints=true,plotpoints=10,method=rk4]{-3}{-0.96}{-0.4}{(y[0])^2-x*y[0]+1}
-\psaxes[labelFontSize=$\footnotesize$,Dy=1,Dx=1,ticksize=2.2pt,labelsep=4pt,linewidth=0.7pt]{->}(0,0)(-3,-3)(3.5,3.5)
-\rput(3.5,-0.2){$x$}\rput(-0.25,3.5){$y$}
-\end{pspicture}
-\caption{The vector field of (\ref{eqn7}) and the Runge-Kutta curves.}\label{Fig9}
-\end{figure}
-\section{Remarks on how to color arrows properly for a vector field}
-\subsection{Description}
-In the \verb!\vecfld! procedure, the command
-\begin{equation}\label{bosung1}
-\texttt{\symbol{92}parametricplot[{\it settings}]\{$t_{\rm min}$\}\{$t_{\rm max}$\}\{$x(t)$|$y(t)$\}}
-\end{equation}
-does the two works: drawing the whole oriented line segment and putting the endpoint right after
-the vector. This blots out the pointy head of arrows and makes field vectors less sharp when being seen closely.
-However, there is no problem with the procedure if we just want a monochrome vector field. But, in case of using arrows
-with their various color shades, we should use an independent procedure with options to draw a color arrow. For such a procedure,
-the command \texttt{\symbol{92}psline} could be the best choice. We just call it with two argument points, which are extracted from the curve
-produced by the command \texttt{\symbol{92}parametricplot}.
-
-To modify the \verb!\vecfld! procedure, from the above consideration, we might take the command \texttt{\symbol{92}curvepnodes} in the package \texttt{pst-node}\footnote{\footnotesize
-Package authors: Timothy Van Zandt (\texttt{tvz@econ.insead.fr}), Michael Sharpe (\texttt{msharpe@euclid.ucsd.edu}) and Herbert Vo\ss\ (\texttt{hvoss@tug.org}).} to
-extract points from a curve $(x(t),y(t))$ given in the algebraic form. Because we only need the two ending points of the curve,
-we can use
-\begin{equation}\label{bosung2}
-\texttt{\symbol{92}curvepnodes[algebraic,plotpoints=2]\{0\}\{1\}\{$x(t)$|$y(t)$\}\{P\}},
-\end{equation}
-where \texttt{P} is a name of the root of nodes and we just get the two nodes \texttt{P0}, \texttt{P1} when executing this command. Then, the corresponding
-vector is drawn by the command
-\begin{equation}\label{bosung3}
-\texttt{\symbol{92}psline[linecolor={\it settings}]\{->\}(P0)(P1)}
-\end{equation}
-The command (\ref{bosung1}) may be replaced by the two ones (\ref{bosung2}) and (\ref{bosung3}), and we obtain the arrows whose heads are now sharper.
-
-The remaining problem is how to appropriately make \textit{settings} in (\ref{bosung3}) to bring out a vector field. Obviously, \textit{settings} should be
-various color shades according to slope of vectors. In Subsection \ref{sect1}, we know for the equation (\ref{eqn2}) that $f(x_i,y_j)$ is right the slope of
-field vectors at grid points $(x_i,y_j)$, and we will divide these slopes into some number of scales, corresponding to the
-degree of color shades. Here, we confine our interest to a continuous function $f(x,y)$ in two independent variables on the domain
-$R=\{(x,y)\colon a\le x\le b,\,c\le y\le d\}$ and choose the scale of $10$ degrees. This number of degrees can be changed to any positive integer.
-
-According to the input data from the differential equation (\ref{eqn2}), the set $R$ and the grid points on it and the value $M=\max\{|f(x_i,y_j)|\colon
-0\le i\le\lfloor m/\Delta x\rfloor,\,0\le j\le\lfloor n/\Delta y\rfloor\}$, where $m=b-a$ and $n=d-c$,
-we can now define the degree of color shade for each arrow in our vector field. It should be an integer $n_{ij}$ such that
-$n_{ij}=\lfloor 10|f(x_i,y_j)|/M\rfloor$, that is
-\begin{equation}\label{bosung4}n_{ij}M\le 10|f(x_i,y_j)|<(n_{ij}+1)M.\end{equation}
-For finding such an integer, in \TeX\ codes, we need one \texttt{\symbol{92}newcount} for it and two \texttt{\symbol{92}newdimen} for
-$f(x_i,y_j)$ and intermediate values to be compared with $|f(x_i,y_j)|$. For more explanation, let us begin with settings
-\texttt{\symbol{92}newcount\symbol{92}intg} (referring (ref.) to ``integer''), \texttt{\symbol{92}newdimen\symbol{92}slope} (ref. to ``slope'') and \texttt{\symbol{92}newdimen\symbol{92}interm}
-(ref. to ``intermediate values''). Then, the integer $n_{ij}$ at stage $(i,j)$ within the two loops \texttt{\symbol{92}multido} can be defined by the recursive macro \texttt{\symbol{92}fintg} (ref. to ``find the integer'') as follows
-\begin{verbatim}
- \def\fintg{\interm=Mpt \interm=\intg\interm%
- \ifdim\ifdim\slope<0pt -\fi\slope>\interm \advance\intg by 1\fintg\fi}
-\end{verbatim}
-where \texttt{M} and \texttt{\symbol{92}slope} are holding the values $M$ and $f(x_i,y_j)$, respectively. Note that, before running our macro, \verb!\slope! should be multiplied
-by $10$ with the assignment \texttt{\symbol{92}slope=10\symbol{92}slope}, as defined in (\ref{bosung4}). Besides, by simulating the expression of $f(x,y)$, the calculation of $f(x_i,y_j)$
-should be declared with operations on \texttt{\symbol{92}newcount}s and \texttt{\symbol{92}newdimen}s. Then, the integer $n_{ij}$, which is found at stage $(i,j)$, should take its
-degree, say $k$, from $0$ to $10$ by its value, suitably associated to the command \texttt{\symbol{92}psline[linecolor=red!case-k]\{->\}(P0)(P1)}.
-Here, we choose \texttt{red} for the main color (it can be changed, of course), and \texttt{case-k} will be replaced with an appropriate percentage of \texttt{red}. Finally,
-making such a color scale is local and relative, so we can use one more parameter in the procedure to adjust color shades.
-The old procedure takes $6$ parameters and the new one will take two more parameters: one for a way of computing $f(x_i,y_j)$ and the other
-for adjusting color shades.
-
-Let us take some examples on how to compute $f(x_i,y_j)$ by \TeX\ codes or by the commands from the package \texttt{calculator}\footnote{\footnotesize
-Package author: Robert Fuster (\texttt{rfuster@mat.upv.es}).}. For a simple polynomial $f(x,y)$,
-computing $f(x_i,y_j)$ by \TeX\ codes might be facile. Because \verb!\nx! and \verb!\ny! are respectively holding the values of
-$x_i$ and $y_j$, we need the two corresponding dimensions \verb!\newdimen\fx! and \verb!\newdimen\fy! to take these values. By assigning \verb!\fx=\nx pt\fy=\ny pt!,
-we compute $f(\verb!\nx!,\verb!\ny!)$ and assign its value to \verb!\slope!. The declaration of calculations for some cases of $f(x,y)$ is given in the following table.
-
-\begin{table}[htbp]
-\centering\begin{tabular}{c|l}
-$f(x,y)$&\multicolumn{1}{c}{\TeX\ codes for computing $f(\texttt{\symbol{92}nx},\texttt{\symbol{92}ny})$} \\ \hline
-$x+y$&\verb!\advance\slope by \fx \advance\slope by \fy!\\ \hline
-$1-xy$&\verb!\advance\slope by -\decimal\fx\fy \advance\slope by 1pt!\\ \hline
-$y(3-y)$&\verb!\advance\slope by -\decimal\fy\fy \advance\slope by 3\fy!\\ \hline
-$y^2-xy$&\verb!\advance\slope by \decimal\fy\fy \advance\slope by -\decimal\fx\fy!\\ \hline
-\end{tabular}
-\end{table}
-In the table, the command \verb!\decimal!, which is quotative from \cite{five} for producing decimal numbers from dimensions, is put in the preamble using a definition as
-\begin{verbatim}
- \def\xch{\catcode`\p=12 \catcode`\t=12}\def\ych{\catcode`\p=11 \catcode`\t=11}
- \xch \def\dec#1pt{#1}\ych \def\decimal#1{\expandafter\dec \the#1}
-\end{verbatim}
-
-For a transcendental or rational function $f(x,y)$, we should use the package \texttt{calculator} for
-computing $f(x_i,y_j)$. The following table shows how to perform the calculations.
-\begin{table}[htbp]
-\centering\begin{tabular}{c|l}
-$f(x,y)$&\multicolumn{1}{c}{The commands from the package \texttt{calculator} for computing $f(\texttt{\symbol{92}nx},\texttt{\symbol{92}ny})$} \\ \hline
-$\sin(y-x)$&\verb!\SUBTRACT{\ny}{\nx}{\sola}\SIN{\sola}{\solb}\slope=\solb pt!\\ \hline
-\raisebox{-2ex}[0pt][0pt]{$2xy/(1+y^2)$}&\verb!\SUMfunction{\ONEfunction}{\SQUAREfunction}{\Fncty}!\\
-&\verb!\Fncty{\ny}{\soly}{\Dsoly}\DIVIDE{\Dsoly}{\soly}{\tempa}!\\
-&\verb!\MULTIPLY{\nx}{\tempa}{\tempb}\slope=\tempb pt!\\ \hline
-\end{tabular}
-\end{table}
-
-From the old macro \verb!\vecfld!, we will construct the new one \verb!\vecfldnew! by adding up to the former the two parameters as described above. According to
-the description of new parameters and of known ones, the calling sequence of \verb!\vecfldnew! may have the form of
-$$\texttt{\symbol{92}vecfldnew\{\symbol{92}nx$=x_0+\Delta x$\}\{\symbol{92}ny$=y_0+\Delta y$\}\{$n_x$\}\{$n_y$\}\{$\ell$\}\{$f(\texttt{\symbol{92}nx},\texttt{\symbol{92}ny})$\}\{{\rm\TeX\ codes}\}\{$n_a$\}}$$
-where $n_a$ is an estimate value for $M$ and can be adjusted to be greater or less than $M$. This flexible mechanism might be to increase or decrease the degree of
-color shades. Finally, \verb!\intg! and \verb!\slope! should be reset to
-zero at the end of each stage. Now, all materials to make the new macro are ready, and a definition for it is suggested to be
-\bigskip\hrule
-\noindent\begin{tabular}{@{}l}
-\verb!\def\vecfldnew#1#2#3#4#5#6#7#8{%!\\
-\verb!\newcount\intg \newdimen\slope \newdimen\interm \newdimen\fx \newdimen\fy!\\
-\verb!\def\fintg{\interm=#8 \interm=\intg\interm%!\\
-\verb! \ifdim\ifdim\slope<0pt -\fi\slope>\interm \advance\intg by 1\fintg\fi}!\\
-\verb!\multido{#2}{#4}!\\
-\verb!{\multido{#1}{#3}!\\
-\verb!{\curvepnodes[algebraic,plotpoints=2]{0}{1}!\\
-\verb!{\nx+((#5)*t)*(1/sqrt(1+(#6)^2))|\ny+((#5)*t)*(1/sqrt(1+(#6)^2))*(#6)}{P}!\\
-\verb!#7\slope=10\slope \fintg \ifnum\intg>10\psline[linecolor=red]{->}(P0)(P1)!\\
-\verb+\else\ifnum\intg=0\psline[linecolor=red!5]{->}(P0)(P1)+\\
-\verb+\else\multiply\intg by 10\psline[linecolor=red!\the\intg]{->}(P0)(P1)\fi\fi+\\
-\verb+\intg=0\slope=0pt+\\
-\verb+}}}+
-\end{tabular}
-\smallskip\hrule\smallskip
-
-If we predefine some scale of degrees, instead of the code $\verb!\ifnum\intg>10!\ldots\verb!\fi\fi!$, the structure \verb!\ifcase! can be used as
-$$\begin{array}{c}
-\verb!\ifcase\intg!\\
-\verb+\psline[linecolor=red!5]{->}(P0)(P1)\or+\\
-\verb+\psline[linecolor=red!10]{->}(P0)(P1)\or+\\
-\vdots\\
-\verb!\psline[linecolor=red]{->}(P0)(P1)\fi!
-\end{array}$$
-\subsection{Examples}
-The first example is given with the two $n_a$s to see how different the color shades are between the two cases. The left vector field in Figure \ref{figure1}
-is made of the calling sequence
-\begin{verbatim}
-\vecfldnew{\nx=-2.00+0.3}{\ny=-2.00+0.3}{14}{14}{0.3}{(\nx)-2*(\ny)}
-{\fy=\ny pt \fx=\nx pt \advance\slope by -2\fy \advance\slope by \fx}{9pt}
-\end{verbatim}
-\begin{figure}[htbp]
-\centering\includegraphics[width=4.6cm]{vec5}
-\hskip1cm\includegraphics[width=4.6cm]{vec6}
-\caption{The vector fields of the equation $y'=x-2y$ with $n_a=\texttt{9pt}$ (the left) and $n_a=\texttt{5pt}$ (the right)}\label{figure1}
-\end{figure}
-
-In Figure \ref{figure2}, the vector fields of the equations $y'=y-x$ and $y'=x(2-y)$ are respectively drawn by the calling sequences
-\begin{verbatim}
-\vecfldnew{\nx=-3.00+0.4}{\ny=-3.00+0.4}{15}{15}{0.35}{(\ny)-(\nx)}
-{\fy=\ny pt \fx=\nx pt \advance\slope by -\fx \advance\slope by \fy}{5pt}
-\end{verbatim}
-and
-\begin{verbatim}
-\vecfldnew{\nx=-3.00+0.4}{\ny=-3.00+0.4}{15}{15}{0.35}{(\nx)*(2-(\ny))}
-{\fy=\ny pt \fx=\nx pt \advance\slope by -\decimal\fx\fy
-\advance\slope by 2\fx}{6pt}
-\end{verbatim}
-\begin{figure}[htbp]
-\centering\includegraphics[width=6.2cm]{vec3}
-\hskip1cm\includegraphics[width=6.2cm]{vec4}
-\caption{The vector fields of the equation $y'=y-x$ (the left) and $y'=x(2-y)$ (the right).}\label{figure2}
-\end{figure}
-
-Finally, we consider two more examples on vector fields of differential equations $y'=f(x,y)$ containing trigonometric or rational functions on the right side. The calling sequences
-\begin{verbatim}
-\vecfldnew{\nx=-3.00+0.4}{\ny=-3.00+0.4}{15}{15}{0.35}{sin(\nx)*cos(\ny)}
-{\SIN{\nx}{\tmpa}\COS{\ny}{\tmpb}\MULTIPLY{\tmpa}{\tmpb}{\tmpc}
-\slope=\tmpc pt}{0.6pt}
-\end{verbatim}
-and
-\begin{verbatim}
-\vecfldnew{\nx=-3.00+0.3}{\ny=-3.00+0.3}{20}{20}{0.3}{2*(\nx)*(\ny)/(1+(\ny)^2)}
-{\SUMfunction{\ONEfunction}{\SQUAREfunction}{\Fncty}\Fncty{\ny}{\soly}{\Dsoly}
-\DIVIDE{\Dsoly}{\soly}{\tempa}\MULTIPLY{\nx}{\tempa}{\tempb}
-\slope=\tempb pt}{2.5pt}
-\end{verbatim}
-respectively result in the vector field on the left and on the right in Figure \ref{figure3}.
-
-\begin{figure}[htbp]
-\centering\includegraphics[width=6.2cm]{vec1}
-\hskip1cm\includegraphics[width=6.2cm]{vec2}
-\caption{The vector fields of the equation $y'=\sin(x)\cos(y)$ (the left) and $y'=2xy/(1+y^2)$ (the right).}\label{figure3}
-\end{figure}
-
-\acknw
-I am very grateful to
-\begin{itemize}
-\item Timothy Van Zandt, Herbert Vo\ss, Dominique Rodriguez and Michael Sharpe for helping me with
-their great works on \texttt{PSTricks}.
-\item H\`an Th\hantt\rlap\accentcircflx\ Th\`anh for helping me with his pdf\hskip.03em\LaTeX\ program.
-\item Robert Fuster for his very useful package \texttt{calculator}.
-\end{itemize}
-\begin{thebibliography}{10}
-\bibitem{one} Dominique Rodriguez, Michael Sharpe \&\ Herbert Vo\ss. \textsl{\texttt{pstricks-add}: Additional Macros for PSTricks\/}.
-Version 3.60, \url{http://ctan.org/tex-archive/graphics/pstricks/contrib}, 2013
-\bibitem{two} Timothy Van Zandt, Michael Sharpe \&\ Herbert Vo\ss. \textsl{\texttt{pst-node}: Nodes and node connections}.
-Version 1.29, \url{http://ctan.org/tex-archive/graphics/pstricks/contrib}, 2013
-\bibitem{three} Helmut Kopka \&\ Patrick W. Daly. \textsl{Guide to \LaTeX \/}.
-Addison-Wesley, Fourth Edition, 2004, ISBN 0321173856
-\bibitem{four} Timothy Van Zandt. \textsl{User's Guide\/}. Version 1.5,\\
-\url{http://ctan.org/tex-archive/graphics/pstricks/base}, 2007
-\bibitem{five}Eitan M. Gurari. \textsl{Writing With \TeX \/}, McGraw-Hill, Inc., 1994, ISBN 0-07-025207-6
-\bibitem{six} Robert Fuster. \textsl{\texttt{calculator-calculus}: Scientific Calculations With \LaTeX \/}. Version 1.0a,
-\url{http://ctan.org/tex-archive/macros/latex/contrib/calculator}, 2012
-\end{thebibliography}
-\end{document}
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/ThreeAppsPS.tex b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/ThreeAppsPS.tex
new file mode 100644
index 00000000000..b1cfddca668
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/ThreeAppsPS.tex
@@ -0,0 +1,1165 @@
+\documentclass[11pt,a4paper,oneside]{article}
+\usepackage{calculator}
+\usepackage{calculus}
+\usepackage{amsthm}
+\usepackage{amsmath}
+\usepackage{cmtt}
+\usepackage[dvips]{geometry}
+\usepackage{pstricks}
+\usepackage{graphicx}
+\usepackage{graphics}
+\usepackage{pst-plot}
+\usepackage{pst-node}
+\usepackage{multido}
+\usepackage{pst-xkey}
+\usepackage{pst-func}
+\usepackage{pstricks-add}
+\usepackage[dvips,colorlinks,linktocpage]{hyperref}
+\def\hantt{\^e}\def\accentcircflx{\hskip-.3em\raisebox{0.32ex}{\'{}}}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\def\RiemannSum#1#2#3#4#5#6#7#8#9{%
+\psplot[linecolor=blue]{#1}{#2}{#3}
+\pscustom[linecolor=red]{%
+\psline{-}(#1,0)(#1,0)
+\multido{\ni=#5,\ne=#6}{#4}
+{\psline(*{\ni} {#8})(*{\ne} {#9})}}
+\multido{\ne=#6,\nc=#7}{#4}
+{\psdot(*{\nc} {#3})
+\psline[linestyle=dotted,dotsep=1.5pt](\nc,0)(*{\nc} {#3})
+\psline[linecolor=red](\ne,0)(*{\ne} {#9})}
+}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcount\Fa\newcount\Fct\newcount\tempA
+\def\Factor{\ifnum\Fa=1\relax\else\advance\Fa by -1\multiply\Fct by \Fa\Factor\fi}
+\def\FACTORIAL#1{\Fa=#1 \ifnum\Fa=0 \Fct=1\relax\else\Fct=\Fa \Factor\fi\global\tempA=\Fct}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcount\BINOM
+\newcount\temp
+\newcount\tmp
+\def\BINOMIAL#1#2{%
+\temp=#1\advance\temp by -#2
+\FACTORIAL{#1}
+\tmp=\tempA
+\FACTORIAL{\temp}
+\temp=\tempA
+\divide\tmp by \temp
+\FACTORIAL{#2}
+\temp=\tempA
+\divide\tmp by \temp\global\BINOM=\tmp}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newdimen\Xa\newdimen\Yb\newcount\kc
+\newdimen\BSTemp
+\def\xmult#1{\ifnum\kc<#1\advance\kc by 1\Yb=\decimal\Xa\Yb\xmult{#1}\else\relax\fi}
+\def\BERNSTEIN#1#2#3{\Xa=#3pt\kc=0\Yb=1pt\xmult{#1}\kc=0\Xa=-\Xa\advance\Xa by 1pt\xmult{#2}
+\BINOMIAL{6}{#1}\global\BSTemp=\BINOM\Yb}
+\newdimen\Xrf\newdimen\Yrf
+\newdimen\XBST\newdimen\YBST
+\def\XBC#1#2#3{%
+\BERNSTEIN{0}{6}{#2}
+\Xrf=#1pt
+\XBST=\decimal\BSTemp\Xrf
+\BERNSTEIN{1}{5}{#2}
+\Xrf=#1pt\advance\Xrf by -1.5pt
+\advance\XBST by \decimal\BSTemp\Xrf
+\BERNSTEIN{2}{4}{#2}
+\Xrf=#1pt\advance\Xrf by 2pt
+\advance\XBST by \decimal\BSTemp\Xrf
+\BERNSTEIN{3}{3}{#2}
+\Xrf=#1pt\advance\Xrf by 6pt
+\advance\XBST by \decimal\BSTemp\Xrf
+\BERNSTEIN{4}{2}{#2}
+\Xrf=#1pt\advance\Xrf by 5pt
+\advance\XBST by \decimal\BSTemp\Xrf
+\BERNSTEIN{5}{1}{#2}
+\Xrf=#1pt\advance\Xrf by 1.5pt
+\advance\XBST by \decimal\BSTemp\Xrf
+\BERNSTEIN{6}{0}{#2}
+\Xrf=#1pt
+\advance\XBST by \decimal\BSTemp\Xrf
+\global\XBST=#3\XBST}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\def\YBC#1#2#3{%
+\BERNSTEIN{0}{6}{#2}
+\Yrf=#1pt
+\YBST=\decimal\BSTemp\Yrf
+\BERNSTEIN{1}{5}{#2}
+\Yrf=#1pt\advance\Yrf by 2pt
+\advance\YBST by \decimal\BSTemp\Yrf
+\BERNSTEIN{2}{4}{#2}
+\Yrf=#1pt\advance\Yrf by 5pt
+\advance\YBST by \decimal\BSTemp\Yrf
+\BERNSTEIN{3}{3}{#2}
+\Yrf=#1pt\advance\Yrf by 3pt
+\advance\YBST by \decimal\BSTemp\Yrf
+\BERNSTEIN{4}{2}{#2}
+\Yrf=#1pt\advance\Yrf by -1pt
+\advance\YBST by \decimal\BSTemp\Yrf
+\BERNSTEIN{5}{1}{#2}
+\Yrf=#1pt\advance\Yrf by -2pt
+\advance\YBST by \decimal\BSTemp\Yrf
+\BERNSTEIN{6}{0}{#2}
+\Yrf=#1pt
+\advance\YBST by \decimal\BSTemp\Yrf
+\global\YBST=#3\YBST}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\def\XBsix#1#2{%
+(1-t)^6*(#1)*(#2)+6*t*(1-t)^5*(#1-1.5)*(#2)+15*t^2*(1-t)^4*(#1+2)*(#2)+
+20*t^3*(1-t)^3*(#1+6)*(#2)+15*t^4*(1-t)^2*(#1+5)*(#2)+6*t^5*(1-t)*(#1+1.5)*(#2)+t^6*(#1)*(#2)}
+\def\YBsix#1#2{%
+(1-t)^6*(#1)*(#2)+6*t*(1-t)^5*(#1+2)*(#2)+15*t^2*(1-t)^4*(#1+5)*(#2)+
+20*t^3*(1-t)^3*(#1+3)*(#2)+15*t^4*(1-t)^2*(#1-1)*(#2)+6*t^5*(1-t)*(#1-2)*(#2)+t^6*(#1)*(#2)}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\def\NetDraw#1#2#3#4#5{%
+\newcount\CellNum
+\newdimen\XRef
+\newdimen\YRef
+\newdimen\Xfact
+\newdimen\Yfact
+\newdimen\XMin
+\newdimen\XMax
+\newdimen\YMin
+\newdimen\YMax
+\newdimen\Xsize
+\newdimen\Ysize
+\newdimen\tempx
+\newdimen\tempy
+\CellNum=#1
+\XRef=#2pt
+\YRef=#3pt
+\Xfact=#4pt
+\Yfact=#5pt
+\XMin=\decimal\Xfact\XRef \advance\XMin by -1.50\Xfact
+\XMax=\decimal\Xfact\XRef \advance\XMax by 5.00\Xfact
+\YMin=\decimal\Yfact\YRef \advance\YMin by -6.00\Yfact
+\YMax=\decimal\Yfact\YRef \advance\YMax by \Yfact
+\Xsize=\XMax \advance\Xsize by -\XMin \divide\Xsize by \CellNum
+\Ysize=\YMax \advance\Ysize by -\YMin \divide\Ysize by \CellNum
+\parametricplot[algebraic,fillstyle=solid,fillcolor=yellow!30,plotpoints=200,linewidth=0.5pt]{0}{0.5}
+{\XBeight{\decimal\XRef}{\decimal\Xfact}|\YBeight{\decimal\YRef}{\decimal\Yfact}}
+\parametricplot[algebraic,fillstyle=solid,fillcolor=yellow!30,plotpoints=200,linewidth=0.5pt]{0.5}{1}
+{\XBeight{\decimal\XRef}{\decimal\Xfact}|\YBeight{\decimal\YRef}{\decimal\Yfact}}
+\multido{\nz=0.00+0.05}{200}{\XBC{\decimal\XRef}{\nz}{\decimal\Xfact}\YBC{\decimal\YRef}{\nz}{\decimal\Yfact}
+\multido{\nx=\decimal\XMin+\decimal\Xsize}{\the\CellNum}
+{\tempx=\nx pt\multido{\ny=\decimal\YMin+\decimal\Ysize}{\the\CellNum}
+{\tempy=\ny pt\ifdim\YBST<\tempy\relax\else\advance\tempy by \Ysize%
+ \ifdim\YBST>\tempy\relax\else
+ \ifdim\XBST<\tempx\relax\else\advance\tempx by \Xsize
+ \ifdim\XBST>\tempx\relax\else
+ \pspolygon[fillstyle=solid,fillcolor=red!90,linecolor=black,linewidth=0.2pt]
+ (\nx,\ny)(\decimal\tempx,\ny)(\decimal\tempx,\decimal\tempy)(\nx,\decimal\tempy)(\nx,\ny)\relax\fi\fi\fi\fi}
+}}
+\advance\CellNum by 1
+\multido{\nx=\decimal\XMin+\decimal\Xsize}{\the\CellNum}
+{\psline[linewidth=0.2pt](\nx,\decimal\YMax)(\nx,\decimal\YMin)}
+\multido{\ny=\decimal\YMin+\decimal\Ysize}{\the\CellNum}
+{\psline[linewidth=0.2pt](\decimal\XMin,\ny)(\decimal\XMax,\ny)}
+\parametricplot[algebraic,linecolor=white,plotpoints=200,linewidth=0.5pt]{0}{0.5}
+{\XBeight{\decimal\XRef}{\decimal\Xfact}|\YBeight{\decimal\YRef}{\decimal\Yfact}}
+\parametricplot[algebraic,linecolor=white,plotpoints=200,linewidth=0.5pt]{0.5}{1}
+{\XBeight{\decimal\XRef}{\decimal\Xfact}|\YBeight{\decimal\YRef}{\decimal\Yfact}}
+}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\def\avecfld#1#2#3#4#5#6{%
+\multido{#2}{#4}
+{\multido{#1}{#3}
+{\parametricplot[algebraic,arrows=->,linecolor=red]{0}{1}
+{\nx+((#5)*t)*(1/sqrt(1+(#6)^2))|\ny+((#5)*t)*(1/sqrt(1+(#6)^2))*(#6)}}}}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\def\anothervecfld#1#2#3#4#5#6{%
+\multido{#2}{#4}
+{\multido{#1}{#3}
+{\curvepnodes[algebraic,plotpoints=2]{0}{1}
+{\nx+((#5)*t)*(1/sqrt(1+(#6)^2))|\ny+((#5)*t)*(1/sqrt(1+(#6)^2))*(#6)}{P}
+\psline[linewidth=0.7pt,linecolor=red]{->}(P0)(P1)}}}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\def\xch{\catcode`\p=12 \catcode`\t=12}\def\ych{\catcode`\p=11 \catcode`\t=11}
+\xch \def\dec#1pt{#1}\ych \def\decimal#1{\expandafter\dec \the#1}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\def\vecfldnew#1#2#3#4#5#6#7#8{%
+\newcount\intg \newdimen\fx \newdimen\fy \newdimen\slope \newdimen\interm
+\def\fintg{\interm=#8 \interm=\intg\interm \ifdim\ifdim\slope<0pt-\fi\slope<\interm\advance\intg by -1\relax\else\advance\intg by 1\fintg\fi}
+\multido{#2}{#4}
+{\multido{#1}{#3}
+{\curvepnodes[algebraic,plotpoints=2]{0}{1}{\nx+((#5)*t)*(1/sqrt(1+(#6)^2))|\ny+((#5)*t)*(1/sqrt(1+(#6)^2))*(#6)}{P}
+#7 \slope=10\slope\fintg
+\ifnum\intg>10\psline[linecolor=red]{->}(P0)(P1)\else\ifnum\intg=0\psline[linecolor=red!5]{->}(P0)(P1)\else\multiply\intg by 10
+\psline[linecolor=red!\the\intg]{->}(P0)(P1)\fi\fi
+\intg=0\slope=0pt
+}}}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\pagestyle{headings}
+\topmargin=-0.6cm
+\textwidth=16.7cm
+\textheight=23cm
+\headheight=2.5ex
+\headsep=0.6cm
+\oddsidemargin=.cm
+\evensidemargin=-.4cm
+\parskip=0.7ex plus0.5ex minus 0.5ex
+\baselineskip=17pt plus2pt minus2pt
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\catcode`@=11
+\renewcommand\section{\@startsection {section}{1}{\z@}%
+ {-3.5ex \@plus -1ex \@minus -.2ex}%
+ {2.3ex \@plus.2ex}%
+ {\normalfont\large\bfseries}}
+\renewcommand\subsection{\@startsection{subsection}{2}{\z@}%
+ {-3.25ex\@plus -1ex \@minus -.2ex}%
+ {1.5ex \@plus .2ex}%
+ {\normalfont\normalsize\bfseries}}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\gdef\acknw{\section*{%
+{\acknwname}\markright{\protect\textsl{\acknwname}}}%
+\addcontentsline{toc}{section}{\acknwname}}
+\gdef\acknwname{Acknowledgment}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\renewcommand\sectionmark[1]{\markright{\thesection. #1}}
+\newcounter{lk}
+\newenvironment{listof}{\begin{list}{\rm(\roman{lk})}{\usecounter{lk}%
+\setlength{\topsep}{0ex plus0.1ex}%
+\setlength{\labelwidth}{1cm}%
+\setlength{\itemsep}{0ex plus0.1ex}%
+\setlength{\itemindent}{0.5cm}%
+}}{\end{list}}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\title{Three applications of macros in \texttt{PSTricks}\thanks{PSTricks is the original work of Timothy Van Zandt (email address: \texttt{tvz@econ.insead.fr}).
+It is currently edited by Herbert Vo\ss\ (\texttt{hvoss@tug.org}).}}
+\author{Le Phuong Quan\\
+\small{(Cantho University, Vietnam)}\\
+\small{\texttt{lpquan@ctu.edu.vn}}}
+\begin{document}
+\maketitle
+\tableofcontents
+\section{Drawing approximations to the area under a graph by rectangles}
+\subsection{Description}
+
+We recall here an operation in Calculus. Let $f(x)$ be a function, defined and bounded on
+an interval $[a,b]$. If $f$ is integrable (in Riemann sense) on $[a,b]$, then its definite integral over this interval
+is
+$$\int_a^bf(x)dx=\lim_{\|P\|\to 0}\sum_{i=1}^nf(\xi_i)\Delta x_i,$$
+where $P\colon a=x_0<x_1<\cdots<x_n=b$, $\Delta x_i=x_i-x_{i-1}$ is a partition of $[a,b]$, $\xi_i\in[x_{i-1},x_i]$, $i=1,2,\ldots,n$,
+and $\|P\|=\max\{\Delta x_i\colon i=1,2,\ldots,n\}$. Hence, when $\|P\|$ is small enough, we may have an
+approximation
+\begin{equation}\label{eqn1}
+I=\int_a^bf(x)dx\approx\sum_{i=1}^nf(\xi_i)\Delta x_i.
+\end{equation}
+Because $I$ is independent to the choice of $P$ and $\xi_i$, we may
+divide $[a,b]$ into $n$ subintervals with equal length and choose $\xi_i=(x_i+x_{i-1})/2$.
+Then, $I$ can be approximately seen as the sum of areas of the rectangles with sides
+$f(\xi_i)$ and $\Delta x_i$.
+
+We will make a drawing procedure to illustrate the approximation (\ref{eqn1}). Firstly, we establish
+commands to draw the ``sum'' of rectangles, like the area under piecewise-constant functions
+(called \textsl{step shape\/}, for brevity). The chosen procedure here
+obviously includes a combination of the macros \texttt{\symbol{92}pscustom} (to \textsl{join\/} horizontal segments, automatically)
+and \texttt{\symbol{92}multido}. In particular, horizontal segments are depicted within the loop
+\texttt{\symbol{92}multido} by
+$$\textmtt{\symbol{92}psplot[{\it settings}]\{$x_{i-1}$\}\{$x_i$\}\{$f(\xi_i)$\}}$$
+Then, \texttt{\symbol{92}pscustom} will join these segments altogether with the ending points
+$(a,0)$, $(b,0)$ to make the boundary of the step shape. Next, we draw the points $(\xi_i,f(\xi_i))$, $i=1,2,\ldots,n$,
+and the dotted segments between these points and the points $(\xi_i,0)$, $i=1,2,\ldots,n$, by
+\begin{align*}
+&\textmtt{\symbol{92}psdot[algebraic,\dots](*\{$\xi_i$\} \{$f(x)$\})}\\
+&\textmtt{\symbol{92}psline[algebraic,linestyle=dotted,\dots]($\xi_i$,$0$)(*\{$\xi_i$\} \{$f(x)$\})}
+\end{align*}
+where we use the structure \textmtt{(*\{{\it value}\} \{$f(x)$\})} to obtain $(\xi_i,f(\xi_i))$. Finally, we draw
+vertical segments to split the step shape into rectangular cells by
+$$\textmtt{\symbol{92}psline[algebraic,\dots]($x_i$,$0$)(*\{$x_i$\} \{$f(x-\Delta x_i/2)$\})}$$
+The process of approximation is depicted in Figure \ref{Fig1}.
+\begin{figure}[htbp]
+\centering\begin{pspicture}(-2,-2)(3,3.5)
+\psset{yunit=0.2}
+\psaxes[labelFontSize=$\footnotesize$,Dy=2,ticksize=2.2pt,labelsep=4pt]{->}(0,0)(-2.5,-10)(3.5,15.5)
+\psplot[plotpoints=500,algebraic,linecolor=red]{-2}{3}{x^3-2*x^2+6}
+\pscustom{
+\psline{-}(-2,0)(-2,0)
+\multido{\nx=-2.000+0.500,\ny=-1.750+0.500,\ni=-1.500+0.500}{10}
+{\psplot[algebraic]{\nx}{\ni}{(\ny)^3-2*(\ny)^2+6}}
+\psline{-}(3,0)}
+\end{pspicture}
+\hskip3em
+\begin{pspicture}(-2,-2)(3,3.5)
+\psset{yunit=0.2}
+\psaxes[labelFontSize=$\footnotesize$,Dy=2,ticksize=2.2pt,labelsep=4pt]{->}(0,0)(-2.5,-10)(3.5,15.5)
+\psplot[plotpoints=500,algebraic,linecolor=red]{-2}{3}{x^3-2*x^2+6}
+\pscustom{
+\psline{-}(-2,0)(-2,0)
+\multido{\nx=-2.000+0.500,\ny=-1.750+0.500,\ni=-1.500+0.500}{10}
+{\psplot[algebraic]{\nx}{\ni}{(\ny)^3-2*(\ny)^2+6}}
+\psline{-}(3,0)}
+\multido{\nx=-2.000+0.500,\ny=-1.750+0.500,\ni=-1.500+0.500}{10}
+{\psline[linestyle=dotted,dotsep=1.5pt,dotstyle=o,linecolor=gray](\ny,0)(*{\ny} {x^3-2*x^2+6})
+\psdot[dotsize=1.2pt 1,dotstyle=Bo](*{\ny} {x^3-2*x^2+6})}
+\end{pspicture}\\[3ex]
+\centering\begin{pspicture}(-2,-2)(3,3)
+\psset{yunit=0.2}
+\psaxes[labelFontSize=$\footnotesize$,Dy=2,ticksize=2.2pt,labelsep=4pt]{->}(0,0)(-2.5,-10)(3.5,15.5)
+\psplot[plotpoints=500,algebraic,linecolor=red]{-2}{3}{x^3-2*x^2+6}
+\pscustom{
+\psline{-}(-2,0)(-2,0)
+\multido{\nx=-2.000+0.500,\ny=-1.750+0.500,\ni=-1.500+0.500}{10}
+{\psplot[algebraic]{\nx}{\ni}{(\ny)^3-2*(\ny)^2+6}}
+\psline{-}(3,0)}
+\multido{\nx=-2.000+0.500,\ny=-1.750+0.500,\ni=-1.500+0.500}{10}
+{\psline[linestyle=dotted,dotsep=1.5pt,dotstyle=o,linecolor=gray](\ny,0)(*{\ny} {x^3-2*x^2+6})
+\psdot[dotsize=1.2pt 1,dotstyle=Bo](*{\ny} {x^3-2*x^2+6})}
+\multido{\nx=-2.000+0.500,\ny=-1.750+0.500,\ni=-1.500+0.500}{9}
+{\psline(\ni,0)(*{\ni} {(x-0.25)^3-2*(x-0.25)^2+6})}
+\end{pspicture}
+\caption{Steps to make the drawing procedure.}\label{Fig1}
+\end{figure}
+
+We now combine the above steps to make a procedure whose calling sequence consists of main parameters
+$a$, $b$, $f$ and $n$, and dependent parameters $x_{i-1}$, $x_i$, $\xi_i$, $f(\xi_i)$ and
+$f(x\pm\Delta x_i/2)$. For instance, let us consider approximations to the integral of $f(x)=\sin x-\cos x$
+over $[-2,3]$ in cases of $n=5$ and $n=20$. They are given in Figure \ref{Fig2}.
+\begin{figure}[htbp]
+\centering\begin{pspicture}(-2.5,-3)(3.5,3.01)
+\psset{plotpoints=500,algebraic,dotsize=1pt 2,yunit=2}
+\psaxes[labelFontSize=$\footnotesize$,Dy=1]{->}(0,0)(-2.5,-1.5)(3.5,1.5)
+\RiemannSum{-2}{3}{sin(x)-cos(x)}{5}
+{-2.0+1.0}{-1.0+1.0}{-1.5+1.0}
+{sin(x+0.5)-cos(x+0.5)}{sin(x-0.5)-cos(x-0.5)}
+\end{pspicture}
+\hskip4em
+\begin{pspicture}(-2.5,-3)(3.5,3.01)
+\psset{plotpoints=500,algebraic,dotsize=1pt 2,yunit=2}
+\psaxes[labelFontSize=$\footnotesize$,Dy=1]{->}(0,0)(-2.5,-1.5)(3.5,1.5)
+\RiemannSum{-2}{3}{sin(x)-cos(x)}{20}
+{-2.000+0.250}{-1.750+0.250}{-1.875+0.250}
+{sin(x+0.125)-cos(x+0.125)}{sin(x-0.125)-cos(x-0.125)}
+\end{pspicture}
+\caption{Approximations to the integral of $f(x)=\sin x-\cos x$ over $[-2,3]$.}\label{Fig2}
+\end{figure}
+
+In summary, we can make a procedure to illustrate the approximation (\ref{eqn1}), say \texttt{RiemannSum}, whose calling sequence has the form of
+$$\textmtt{\symbol{92}RiemannSum\{$a$\}\{$b$\}\{$f(x)$\}\{$n$\}\{$x_{\rm ini}$\}\{$x_{\rm end}$\}\{$x_{\rm choice}$\}\{$f(x+\Delta x_i/2)$\}\{$f(x-\Delta x_i/2)$\}},$$
+where $x_0=a$ and for each $i=1,2\ldots,n$:
+\begin{align*}
+x_i&=a+\dfrac{b-a}{n}i,\quad\Delta x_i=x_i-x_{i-1}=\dfrac{b-a}{n},\\
+x_{\rm ini}&=x_0+\Delta x_i,\quad x_{\rm end}=x_1+\Delta x_i,\quad x_{\rm choice}=\dfrac{x_{\rm ini}+x_{\rm end}}{2}=\dfrac{x_0+x_1}{2}+\Delta x_i.
+\end{align*}
+Note that $x_{\rm ini}$, $x_{\rm end}$ and $x_{\rm choice}$ are given in such forms to be
+suitable to variable declaration in \texttt{\symbol{92}multido}. They are nothing but
+$x_{i-1}$, $x_i$ and $\xi_i$, respectively, at the step $i$-th in the loop.
+
+Tentatively, in \texttt{PSTricks} language, the definition of \texttt{RiemannSum} is suggested to be
+\bigskip\hrule
+\noindent\begin{tabular}{@{}l}
+\verb!\def\RiemannSum#1#2#3#4#5#6#7#8#9{%!\\
+\verb!\psplot[linecolor=blue]{#1}{#2}{#3}!\\
+\verb!\pscustom[linecolor=red]{%!\\
+\verb!\psline{-}(#1,0)(#1,0)!\\
+\verb!\multido{\ni=#5,\ne=#6}{#4}!\\
+\verb!{\psline(*{\ni} {#8})(*{\ne} {#9})}}!\\
+\verb!\multido{\ne=#6,\nc=#7}{#4}!\\
+\verb!{\psdot(*{\nc} {#3})!\\
+\verb!\psline[linestyle=dotted,dotsep=1.5pt](\nc,0)(*{\nc} {#3})!\\
+\verb!\psline[linecolor=red](\ne,0)(*{\ne} {#9})}}!
+\end{tabular}\hrule
+\subsection{Examples}
+We give here two more examples just to see that using the drawing procedure is very easy. In the first example, we approximate
+the area under the graph of the function $f(x)=x-(x/2)\cos x+2$ on the interval $[0,8]$. To draw the approximation, we try
+the case $n=16$; thus $x_0=0$ and for each $i=1,\ldots,16$, we have
+$x_i=0.5\,i$, $\Delta x_i=0.5$, $x_{\rm ini}=0.00+0.50$, $x_{\rm end}=0.50+0.50$ and $x_{\rm choice}=0.25+0.50$.
+\begin{figure}[htbp]
+\centering\begin{pspicture}(0,0)(5.1,6.6)
+\psset{plotpoints=500,algebraic,dotsize=1pt 2,unit=0.6}
+\RiemannSum{0}{8}{x-(x/2)*cos(x)+2}{16}{0.00+0.50}{0.50+0.50}{0.25+0.50}
+{x+0.25-((x+0.25)/2)*cos(x+0.25)+2}{x-0.25-((x-0.25)/2)*cos(x-0.25)+2}
+\psaxes[labelFontSize=$\footnotesize$,Dy=1,ticksize=2.2pt,labelsep=4pt]{->}(0,0)(8.5,11)
+\end{pspicture}
+\vskip0.5ex
+\caption{An approximation to the area under the graph of $f(x)=x-(x/2)\cos x+2$ on $[0,8]$.}\label{Fig3}
+\end{figure}
+
+To get Figure \ref{Fig3}, we have used the following \LaTeX\ code:
+\bigskip\hrule
+\noindent\begin{tabular}{@{}l}
+\verb!\begin{pspicture}(0,0)(4.125,5.5)!\\
+\verb!\psset{plotpoints=500,algebraic,dotsize=2.5pt,unit=0.5}!\\
+\verb!\RiemannSum{0}{8}{x-(x/2)*cos(x)+2}{16}{0.00+0.50}{0.50+0.50}{0.25+0.50}!\\
+\verb!{x+0.25-((x+0.25)/2)*cos(x+0.25)+2}{x-0.25-((x-0.25)/2)*cos(x-0.25)+2}!\\
+\verb!\psaxes[ticksize=2.2pt,labelsep=4pt]{->}(0,0)(8.5,11)!\\
+\verb!\end{pspicture}!
+\end{tabular}\hrule\bigskip
+
+In the second example below, we will draw an approximation to the integral of $f(x)=x\sin x$ over $[1,9]$.
+Choosing $n=10$ and computing parameters needed, we get Figure \ref{Fig4}, mainly by
+the command
+\begin{align*}
+&\textmtt{\symbol{92}RiemannSum\{$1$\}\{$9$\}\{$x\sin x$\}\{$10$\}\{$1.00+0.80$\}\{$1.80+0.80$\}\{$1.40+0.80$\}}\\
+&\textmtt{\{$(x+0.4)\sin(x+0.4)$\}\{$(x-0.4)\sin(x-0.4)$\}}
+\end{align*}
+in the drawing procedure.
+\begin{figure}[htbp]
+\centering\begin{pspicture}(0,-2.5)(4.75,4.25)
+\psset{plotpoints=500,algebraic,dotsize=1pt 2,unit=0.5}
+\RiemannSum{1}{9}{x*sin(x)}{10}%
+{1.00+0.80}{1.80+0.80}{1.40+0.80}%
+{(x+0.4)*sin(x+0.4)}{(x-0.4)*sin(x-0.4)}
+\psaxes[labelFontSize=$\footnotesize$,Dy=1,ticksize=2.2pt,labelsep=4pt]{->}(0,0)(0,-5)(9.5,8.5)
+\end{pspicture}
+\caption{An approximation to the integral of $f(x)=x\sin x$ over $[1,9]$.}\label{Fig4}
+\end{figure}
+\section{Drawing the vector field of an ordinary differential equation of order one}
+\subsection{Description}\label{sect1}
+
+Let us consider the differential equation
+\begin{equation}\label{eqn2}
+\frac{dy}{dx}=f(x,y).
+\end{equation}
+At each point $(x_0,y_0)$ in the domain $D$ of $f$, we will put a vector $\mathbf{v}$ with slope
+$k=f(x_0,y_0)$. If $y(x_0)=y_0$, then $k$ is the slope of the tangent to the solution curve $y=y(x)$
+of (\ref{eqn2}) at $(x_0,y_0)$. The $\mathbf{v}$'s make a \textsl{vector field\/} and the picture
+of this field would give us information about the shape of solution curves of (\ref{eqn2}), even
+we have not found yet any solution of (\ref{eqn2}).
+
+The vector field of (\ref{eqn2}) will be depicted on a finite grid of points in $D$. This grid is made of
+lines, paralell to the axes $Ox$ and $Oy$. The intersectional points of those lines are called \textsl{grid points\/}
+and often indexed by $(x_i,y_j)$, $i=0,\ldots,N_x$, $j=0,\ldots,N_y$. For convenience, we will use
+polar coordinates to locate the terminal point $(x,y)$ of a field vector, with the initial point at
+grid point $(x_i,y_j)$. Then, we can write
+\begin{align*}
+x&=x_i+r\cos\varphi,\\
+y&=y_j+r\sin\varphi.
+\end{align*}
+Because $k=f(x_i,y_j)=\tan\varphi$ is finite, we may take $-\pi/2<\varphi<\pi/2$.
+From $\sin^2\varphi+\cos^2\varphi=1$ and $\sin\varphi=k\cos\varphi$, we derive
+$$\cos\varphi=\frac{1}{\sqrt{1+k^2}},\quad\sin\varphi=\frac{k}{\sqrt{1+k^2}}.$$
+\begin{figure}[htbp]
+\centering\begin{pspicture}(0,0)(5,5)
+\psset{unit=2}
+\psaxes[labelFontSize=$\footnotesize$,Dx=0.5,Dy=0.5,labels=none,ticksize=2pt,labelsep=2pt,linewidth=0.5pt]
+{->}(0,0)(2.5,2.5)
+\psdots[dotstyle=*,dotsize=3pt,linecolor=red](1,1)(1.5,1)(1,1.5)
+\psline[linewidth=0.3pt](1.5,0.5)(1.5,2)(1,2)(1,0.5)(2,0.5)(2,1.5)
+\psline[linewidth=0.3pt](1,1.5)(2,1.5)\psline[linewidth=0.3pt](1,1)(2,1)
+\psarc[linewidth=0.5pt,linestyle=dotted,dotsep=1.5pt](1,1){0.5}{-90}{90}
+\psarc[linewidth=0.5pt,linestyle=dotted,dotsep=1.5pt](1.5,1){0.5}{-90}{90}
+\psarc[linewidth=0.5pt,linestyle=dotted,dotsep=1.5pt](1,1.5){0.5}{-90}{90}
+\psline[linewidth=0.8pt,linecolor=red]{->}(1,1.5)(1.27,1.92)
+\psline[linewidth=0.8pt,linecolor=red]{->}(1,1)(1.382,1.322)
+\psline[linewidth=0.8pt,linecolor=red]{->}(1.5,1)(1.977,1.147)
+\rput(1,-0.1){$x_i$}\rput(1.5,-0.1){$x_{i+1}$}\rput(-0.1,1){$y_j$}\rput(-0.2,1.5){$y_{j+1}$}
+\end{pspicture}
+\caption{Field vectors on a grid.}\label{Fig5}
+\end{figure}
+The field vectors should all have the same magnitude and we choose here that length to be
+$1/2$, that means $r=1/2$. Thus, vectors on the grid have their initial and terminal points as
+$$(x_i,y_j),\quad \Big(x_i+\frac{1}{2}\cos\varphi,y_j+\frac{1}{2}\sin\varphi\Big),$$
+respectively. Hence, we easily get the parametrization of a vector at grid point
+$(x_i,y_j)$:
+\begin{align*}
+x&=x_i+\frac{t}{2}\cos\varphi=x_i+\frac{t}{2\sqrt{1+k^2}},\\
+y&=y_j+\frac{t}{2}\sin\varphi=y_j+\frac{tk}{2\sqrt{1+k^2}},
+\end{align*}
+where $t$ goes from $0$ to $1$, as along the direction of the vector.
+
+Of macros in \texttt{PSTricks} to draw lines from their parametrization, we select \texttt{\symbol{92}parametricplot}\footnote{\footnotesize
+This macro is of ones, often added and updated in the package \texttt{pstricks-add}, the authors:
+Dominique Rodriguez (\texttt{dominique.rodriguez@waika9.com}), Herbert Vo\ss\ (\texttt{voss@pstricks.de}).}
+for its fitness. The macro has the syntax
+$$\textmtt{\symbol{92}parametricplot[{\it settings}]\{$t_{\rm min}$\}\{$t_{\rm max}$\}\{$x(t)$|$y(t)$\}},$$
+where we may use the option \texttt{algebraic} to make the declaration of $x(t)$ and $y(t)$ simpler
+in \texttt{ASCII} code.
+
+From the above description of one field vector, we now construct the vector field
+on a grid within a domain $R=\{(x,y)\colon a\le x\le b,\,c\le y\le d\}$. To determine the grid, we confine grid points to the range
+\begin{equation}\label{eqn3}
+a\le x_i\le b,\quad c\le y_j\le d.
+\end{equation}
+We start with initial values $x_0=a$ and $y_0=c$ to have points $(x_i,y_j)$ with increments $\Delta x=\Delta y=\delta$, corresponding to the length of vectors and the distance
+between grid points as indicated in Figure \ref{Fig5}. Thus, to draw vectors at grid points
+$(x_i,y_j)$, we need two loops for indices $i$ and $j$, with $0\le i\le\lfloor m/\delta\rfloor$, $0\le j\le\lfloor n/\delta\rfloor$, where
+$m=b-a$, $n=d-c$. Apparently, these two loops are nested \texttt{\symbol{92}multido}s, with variable declaration
+for each loop as follows
+\begin{align*}
+\texttt{\symbol{92}nx}&=\text{initial value}+\text{increment}=x_0+\Delta x,\\
+\texttt{\symbol{92}ny}&=\text{initial value}+\text{increment}=y_0+\Delta y.
+\end{align*}
+Finally, we will replace \texttt{\symbol{92}nx}, \texttt{\symbol{92}ny} by $x_i$, $y_j$ in the
+below calling sequence for simplicity.
+
+Thus, the main command to draw the vector field of the equation (\ref{eqn2}) on the grid (\ref{eqn3})
+is
+\begin{align*}
+&\textmtt{\symbol{92}multido\big\{$y_j=y_0+\Delta y$\big\}\big\{$\lfloor n/\delta\rfloor$\big\}}\textmtt{\bigg\{\symbol{92}multido\big\{$x_i=x_0+\Delta x$\big\}\big\{$\lfloor m/\delta\rfloor$\big\}}\\
+&\quad\textmtt{\Big\{\symbol{92}parametricplot[{\it settings}]\{$0$\}\{$1$\}\Big\{$x_i+\frac{t}{2\sqrt{1+\big[f(x_i,y_j)\big]^2}}$\Big|
+$y_j+\frac{tf(x_i,y_j)}{2\sqrt{1+\big[f(x_i,y_j)\big]^2}}$\Big\}\bigg\}}
+\end{align*}
+where we at least use \texttt{arrows=->} and \texttt{algebraic} for \textit{settings}.
+
+We can combine the steps mentioned above to define a drawing procedure, say \texttt{\symbol{92}avecfld},
+that consists of $6$ parameters in the order as
+\texttt{\symbol{92}nx=}$x_0+\Delta x$, \texttt{\symbol{92}ny=}$y_0+\Delta y$, $\lfloor m/\delta\rfloor$, $\lfloor n/\delta\rfloor$, $\delta$
+and $f(\texttt{\symbol{92}nx},\texttt{\symbol{92}ny})$. We may change these values to modify
+the vector field or to avoid the vector intersection. Such a procedure is suggested to be
+\bigskip\hrule
+\noindent\begin{tabular}{@{}l}
+\verb!\def\avecfld#1#2#3#4#5#6{%!\\
+\verb!\multido{#2}{#4}{\multido{#1}{#3}!\\
+\verb!{\parametricplot[algebraic,arrows=->,linecolor=red]{0}{1}!\\
+\verb!{\nx+((#5)*t)*(1/sqrt(1+(#6)^2))|\ny+((#5)*t)*(1/sqrt(1+(#6)^2))*(#6)}}}}!
+\end{tabular}\hrule\bigskip
+
+Actually, the procedure \texttt{\symbol{92}parametricplot} is used here only to draw a vector by its parametrization $(x(t),y(t))$, so we can use the structure \texttt{\symbol{92}curvepnodes} in the package \texttt{pst-node}\footnote{\footnotesize
+Package authors: Timothy Van Zandt (\texttt{tvz@econ.insead.fr}), Michael Sharpe (\texttt{msharpe@euclid.ucsd.edu}) and Herbert Vo\ss\ (\texttt{hvoss@tug.org}).} to
+extract the two ending points of the curve $(x(t),y(t))$ by the command
+$$\textmtt{\symbol{92}curvepnodes[algebraic,plotpoints=2]\{0\}\{1\}\{$x(t)$|$y(t)$\}\{P\}},$$
+where \texttt{P} is a name of the root of nodes and we just get the two nodes \texttt{P0}, \texttt{P1} when executing this command. Then, the corresponding
+vector is drawn by the command
+$$\textmtt{\symbol{92}psline[linecolor={\it settings}]\{->\}(P0)(P1)}$$
+
+Therefore, another procedure to draw a vector field may be defined as
+\bigskip\hrule
+\noindent\begin{tabular}{@{}l}
+\verb!\def\anothervecfld#1#2#3#4#5#6{%!\\
+\verb!\multido{#2}{#4}{\multido{#1}{#3}!\\
+\verb!{\curvepnodes[algebraic,plotpoints=2]{0}{1}!\\
+\verb!{\nx+((#5)*t)*(1/sqrt(1+(#6)^2))|\ny+((#5)*t)*(1/sqrt(1+(#6)^2))*(#6)}{P}!\\
+\verb!\psline[linecolor=red]{->}(P0)(P1)}}}!
+\end{tabular}\hrule
+\subsection{Examples}
+Firstly, we consider the equation that describes an object falling in a resistive medium:
+\begin{equation}\label{eqn4}
+\frac{dv}{dt}=9.8-\frac{v}{5},
+\end{equation}
+where $v=v(t)$ is the speed of the object in time $t$. In Figure \ref{Fig6}, the vector field of (\ref{eqn4}) is given
+on the grid $R=\{(t,y)\colon 0\le t\le 9,\,46\le v\le 52\}$, together with the graph of the equilibrium solution
+$v=49$.
+\begin{figure}[htbp]
+\centering\begin{pspicture}(0,41.4)(8.55,47.25)
+\psset{xunit=0.9,yunit=0.9}
+\multido{\ny=46.25+0.50}{13}
+{\multido{\nx=0.25+0.50}{18}
+{\curvepnodes[algebraic,plotpoints=2]{0}{1}{\nx+(t/2)*(1/sqrt(1+(9.8-0.2*(\ny))^2))|\ny+(t/2)*(1/sqrt(1+(9.8-(0.2)*(\ny))^2))*(9.8-(0.2)*(\ny))}{P}
+\psline[linewidth=0.7pt,linecolor=red]{->}(P0)(P1)}}
+\psplot[algebraic,linewidth=1.2pt]{0}{9.25}{49}
+\psaxes[labelFontSize=$\footnotesize$,ticksize=2.2pt,labelsep=4pt,Dy=1,Dx=1,Oy=46,linewidth=0.7pt]{->}(0,46)(0,46)(9.5,52.5)
+\rput(9.5,45.8){$t$}\rput(-0.2,52.5){$y$}
+\end{pspicture}
+\caption{The vector field of (\ref{eqn4}).}\label{Fig6}
+\end{figure}
+
+Figure \ref{Fig6} is made of the following \LaTeX\ code:
+\bigskip\hrule
+\noindent\begin{tabular}{@{}l}
+\verb!\begin{pspicture}(0,46)(9.5,52.5)!\\
+\verb!\anothervecfld{\nx=0.25+0.50}{\ny=46.25+0.50}{18}{12}{0.5}{9.8-0.2*\ny}!\\
+\verb!\psplot[algebraic,linewidth=1.2pt]{0}{9}{49}!\\
+\verb!\psaxes[Dy=1,Dx=1,Oy=46]{->}(0,46)(0,46)(9.5,52.5)!\\
+\verb!\rput(9.5,45.8){$t$}\rput(-0.2,52.5){$y$}!\\
+\verb!\end{pspicture}!
+\end{tabular}\hrule\bigskip
+
+Let us next consider the problem
+\begin{equation}\label{eqn5}
+\frac{dy}{dx}=x+y,\quad y(0)=0.
+\end{equation}
+It is easy to check that $y=e^x-x-1$ is the unique solution to (\ref{eqn5}). We now draw
+the vector field of (\ref{eqn5}) and the solution curve\footnote{\footnotesize
+We have used ${\rm ch}(1)+{\rm sh}(1)$ for the declaration of $e$, natural base of logarithmic function.} on the grid $R=\{(x,y)\colon 0\le x\le 3,\,0\le y\le 5\}$ in
+Figure \ref{Fig7}.
+\begin{figure}[htbp]
+\centering\begin{pspicture}(0,0)(3.25,5.5)
+\psset{unit=1}
+\multido{\ny=0.25+0.50}{10}
+{\multido{\nx=0.25+0.50}{6}
+{\curvepnodes[algebraic,plotpoints=2]{0}{1}{\nx+(t/2)*(1/sqrt(1+(\nx+\ny)^2))|\ny+(t/2)*(1/sqrt(1+(\nx+\ny)^2))*(\nx+\ny)}{P}
+\psline[linewidth=0.7pt,linecolor=red]{->}(P0)(P1)}}
+\psplot[algebraic,linewidth=1.2pt]{0}{2.15}{(sh(1)+ch(1))^x-x-1}
+\psaxes[labelFontSize=$\footnotesize$,Dy=1,Dx=1,ticksize=2.2pt,labelsep=4pt,linewidth=0.7pt]{->}(0,0)(3.5,5.5)
+\rput(3.5,-0.2){$x$}\rput(-0.25,5.5){$y$}
+\end{pspicture}
+\caption{The vector field of (\ref{eqn5}).}\label{Fig7}
+\end{figure}
+
+We then go to the logistic equation, which is chosen to be a model for the dependence
+of the population size $P$ on time $t$ in Biology:
+\begin{equation}\label{eqn6}
+\frac{dP}{dt}=kP\Big(1-\frac{P}{M}\Big),
+\end{equation}
+where $k$ and $M$ are constants, respectively various to selected species and environment.
+For specification, we take, for instance, $k=0.5$ and $M=100$. The right hand side of
+(\ref{eqn6}) then becomes $f(t,P)=0.5\,P(1-0.01\,P)$. In Figure \ref{Fig8}, we draw the vector field
+of (\ref{eqn6}) on the grid $R=\{(t,P)\colon 0\le t\le 10,\,95\le P\le 100\}$ and the equilibrium
+solution curve $P=100$. Furthermore, with the initial condition $P(0)=95$, the equation (\ref{eqn6})
+has the unique solution $P=1900(e^{-0.5t}+19)^{-1}$. This solution curve is also given in Figure \ref{Fig8}.
+\begin{figure}[htbp]
+\centering\begin{pspicture}(0,76)(8.4,80.4)
+\psset{xunit=0.8,yunit=0.8}
+\multido{\ny=95.25+0.50}{10}
+{\multido{\nx=0.25+0.50}{20}
+{\curvepnodes[algebraic,plotpoints=2]{0}{1}{\nx+(t/2)*(1/sqrt(1+((0.5)*(\ny)*(1-(0.01)*(\ny)))^2))|\ny+(t/2)*(1/sqrt(1+((0.5)*(\ny)*(1-(0.01)*(\ny)))^2))*((0.5)*(\ny)*(1-(0.01)*(\ny)))}{P}
+\psline[linewidth=0.7pt,linecolor=red]{->}(P0)(P1)}}
+\psplot[algebraic,linewidth=1.2pt]{0}{10.25}{100}
+\psplot[algebraic,linewidth=1.2pt]{0}{10.25}{1900/((ch(1)+sh(1))^(-0.5*x)+19)}
+\psaxes[labelFontSize=$\footnotesize$,Dy=1,Dx=1,Oy=95,ticksize=2pt,labelsep=4pt,linewidth=0.7pt]{->}(0,95)(0,95)(10.5,100.5)
+\rput(10.5,94.8){$t$}\rput(-0.25,100.5){$P$}
+\end{pspicture}
+\caption{The vector field of (\ref{eqn6}) with $k=0.5$ and $M=100$.}\label{Fig8}
+\end{figure}
+
+The previous differential equations are all of seperated variable or linear cases that
+can be solved for closed-form solutions by some simple integration formulas. We will consider one more
+equation of the non-linear case whose solution can only be approximated by numerical methods.
+The vector field of such an equation is so useful and we will use the Runge-Kutta curves (of order $4$)
+to add more information about the behaviour of solution curves. Here, those Runge-Kutta curves are depicted by the procedure
+\texttt{\symbol{92}psplotDiffEqn}, also updated from the package \texttt{pstricks-add}.
+
+The vector field of the non-linear differential equation
+\begin{equation}\label{eqn7}
+\frac{dy}{dx}=y^2-xy+1
+\end{equation}
+will be depicted on the grid $R=\{(x,y)\colon -3\le x\le 3,\,-3\le y\le 3\}$ and the solutions
+of Cauchy problems for (\ref{eqn7}), corresponding to initial conditions
+\begin{listof}
+\item $y(-3)=-1$,
+\item $y(-2)=-3$,
+\item $y(-3)=-0.4$,
+\end{listof}
+will be approximated by the method of Runge-Kutta, with the grid size $h=0.2$. It is very easy
+to recognize approximate curves, respective to (i), (ii) and (iii) in Figure \ref{Fig9} below.
+\begin{figure}[htbp]
+\centering\begin{pspicture}(-3.6,-3.6)(4.2,4.2)
+\psset{unit=1.2,dotsize=2.6pt}
+\anothervecfld{\nx=-3.00+0.4}{\ny=-3.00+0.4}{16}{16}{0.35}{(\ny)^2-(\nx)*(\ny)+1}
+\psplotDiffEqn[linewidth=1.2pt,algebraic,showpoints=true,plotpoints=24,method=rk4]{-3}{1.9}{-1}{(y[0])^2-x*y[0]+1}
+\psplotDiffEqn[linewidth=1.2pt,algebraic,showpoints=true,plotpoints=25,method=rk4]{-2}{3}{-3}{(y[0])^2-x*y[0]+1}
+\psplotDiffEqn[linewidth=1.2pt,algebraic,showpoints=true,plotpoints=10,method=rk4]{-3}{-0.96}{-0.4}{(y[0])^2-x*y[0]+1}
+\psaxes[labelFontSize=$\footnotesize$,Dy=1,Dx=1,ticksize=2.2pt,labelsep=4pt,linewidth=0.7pt]{->}(0,0)(-3,-3)(3.5,3.5)
+\rput(3.5,-0.2){$x$}\rput(-0.25,3.5){$y$}
+\end{pspicture}
+\caption{The vector field of (\ref{eqn7}) and the Runge-Kutta curves.}\label{Fig9}
+\end{figure}
+\subsection{Remarks on how to color arrows properly for a vector field}
+There remains a problem in drawing a vector field. That is coloring arrows.
+Obviously, their color shade should vary according to their slope and this would give us the picture of domains containing
+increase or decrease solutions of a differential equation. In some cases, we even know how large the rate of change of those
+solutions is in a specific domain.
+
+In Subsection \ref{sect1}, we know for the equation (\ref{eqn2}) that $f(x_i,y_j)$ is right the slope of
+field vectors at grid points $(x_i,y_j)$, and we will divide these slopes into some number of scales, corresponding to the
+degree of color shades. Here, we confine our interest to a continuous function $f(x,y)$ in two independent variables on a domain
+$R=\{(x,y)\colon a\le x\le b,\,c\le y\le d\}$ and choose the scale of $10$ degrees. This number of degrees can be changed to any positive integer.
+
+According to the input data from the differential equation (\ref{eqn2}), the set $R$ and the grid points on it and the value $M=\max\{|f(x_i,y_j)|\colon
+0\le i\le\lfloor m/\Delta x\rfloor,\,0\le j\le\lfloor n/\Delta y\rfloor\}$, where $m=b-a$ and $n=d-c$,
+we can now define the degree of color shade for each arrow in our vector field. It should be an integer $n_{ij}$ such that
+$n_{ij}=\lfloor 10|f(x_i,y_j)|/M\rfloor$, that is
+\begin{equation}\label{eqn8}n_{ij}M\le 10|f(x_i,y_j)|<(n_{ij}+1)M.\end{equation}
+For finding such an integer, in \TeX\ codes, we need one \texttt{\symbol{92}newcount} for it and two \texttt{\symbol{92}newdimen} for
+$f(x_i,y_j)$ and intermediate values to be compared with $|f(x_i,y_j)|$. For more explanation, let us begin with settings
+\texttt{\symbol{92}newcount\symbol{92}intg} (referring (ref.) to ``integer''), \texttt{\symbol{92}newdimen\symbol{92}slope} (ref. to ``slope'') and \texttt{\symbol{92}newdimen\symbol{92}interm}
+(ref. to ``intermediate values''). Then, the integer $n_{ij}$ at stage $(i,j)$ within the two \texttt{\symbol{92}multido} loops can be defined by the recursive macro \texttt{\symbol{92}fintg} (ref. to ``find the integer'') as follows
+\begin{verbatim}
+ \def\fintg{\interm=Mpt \interm=\intg\interm%
+ \ifdim\ifdim\slope<0pt -\fi\slope<\interm\advance\intg by -1\relax
+ \else\advance\intg by 1\fintg\fi}
+\end{verbatim}
+where \texttt{M} and \texttt{\symbol{92}slope} are holding the values $M$ and $f(x_i,y_j)$, respectively. Note that, before running our macro, \verb!\slope! should be multiplied
+by $10$ with the assignment \texttt{\symbol{92}slope=10\symbol{92}slope}, as defined in (\ref{eqn8}). Besides, by simulating the expression of $f(x,y)$, the calculation of $f(x_i,y_j)$
+should be declared with operations on \texttt{\symbol{92}newcount}s and \texttt{\symbol{92}newdimen}s. Then, the integer $n_{ij}$, which is found at stage $(i,j)$, should take its
+degree, say $k$, from $0$ to $10$ by its value, suitably associated to the command \textmtt{\symbol{92}psline[linecolor=red!case-k]\{->\}(P0)(P1)}.
+Here, we choose \texttt{red} for the main color (it can be changed, of course), and \texttt{case-k} will be replaced with an appropriate percentage of \texttt{red}. Finally,
+such a color scale is local and relative, so we can use one more parameter in the procedure to adjust color shades.
+The old procedures take $6$ parameters and the new one will take two more parameters: one for declaration of computing $f(x_i,y_j)$ and the other
+for adjusting color shades.
+
+Let us take some examples on how to compute $f(x_i,y_j)$ by \TeX\ codes or by commands from the package \texttt{calculator}\footnote{\footnotesize
+Package author: Robert Fuster (\texttt{rfuster@mat.upv.es}).}. For a simple polynomial $f(x,y)$,
+computing $f(x_i,y_j)$ by \TeX\ codes might be facile. Because \verb!\nx! and \verb!\ny! are respectively holding values of
+$x_i$ and $y_j$, we need the two corresponding variables \verb!\newdimen\fx! and \verb!\newdimen\fy! to take these values. By assigning \verb!\fx=\nx pt\fy=\ny pt!,
+we compute $f(\verb!\nx!,\verb!\ny!)$ and assign its value to \verb!\slope!. The declaration of calculations for some cases of $f(x,y)$ is given in the following table.
+
+\begin{table}[htbp]
+\centering\begin{tabular}{c|l}
+$f(x,y)$&\multicolumn{1}{c}{\TeX\ codes for computing $f(\texttt{\symbol{92}nx},\texttt{\symbol{92}ny})$} \\ \hline
+$x+y$&\verb!\advance\slope by \fx \advance\slope by \fy!\\ \hline
+$1-xy$&\verb!\advance\slope by -\decimal\fx\fy \advance\slope by 1pt!\\ \hline
+$y(3-y)$&\verb!\advance\slope by -\decimal\fy\fy \advance\slope by 3\fy!\\ \hline
+$y^2-xy$&\verb!\advance\slope by \decimal\fy\fy \advance\slope by -\decimal\fx\fy!\\ \hline
+\end{tabular}
+\end{table}
+In the table, the command \verb!\decimal!, which is quotative from \cite{five} for producing decimal numbers from dimensions, is put in the preamble using a definition as
+\begin{verbatim}
+ \def\xch{\catcode`\p=12 \catcode`\t=12}\def\ych{\catcode`\p=11 \catcode`\t=11}
+ \xch \def\dec#1pt{#1}\ych \def\decimal#1{\expandafter\dec \the#1}
+\end{verbatim}
+
+For a transcendental or rational function $f(x,y)$, we may use the package \texttt{calculator} for
+computing $f(x_i,y_j)$. The following table shows how to perform calculations.
+\begin{table}[htbp]
+\centering\begin{tabular}{c|l}
+$f(x,y)$&\multicolumn{1}{c}{The commands from the package \texttt{calculator} for computing $f(\texttt{\symbol{92}nx},\texttt{\symbol{92}ny})$} \\ \hline
+$\sin(y-x)$&\verb!\SUBTRACT{\ny}{\nx}{\sola}\SIN{\sola}{\solb}\slope=\solb pt!\\ \hline
+\raisebox{-2ex}[0pt][0pt]{$2xy/(1+y^2)$}&\verb!\SUMfunction{\ONEfunction}{\SQUAREfunction}{\Fncty}!\\
+&\verb!\Fncty{\ny}{\soly}{\Dsoly}\DIVIDE{\Dsoly}{\soly}{\tempa}!\\
+&\verb!\MULTIPLY{\nx}{\tempa}{\tempb}\slope=\tempb pt!\\ \hline
+\end{tabular}
+\end{table}
+
+From the old macros \verb!\avecfld! or \verb!\anothervecfld!, we will construct the new one \verb!\vecfldnew! by adding up to the former the two parameters as described above. According to
+the description of new parameters and of known ones, the calling sequence of \verb!\vecfldnew! may have the form of
+$$\textmtt{\symbol{92}vecfldnew\{\symbol{92}nx$=x_0+\Delta x$\}\{\symbol{92}ny$=y_0+\Delta y$\}\{$n_x$\}\{$n_y$\}\{$\ell$\}\{$f(\texttt{\symbol{92}nx},\texttt{\symbol{92}ny})$\}\{{\rm\TeX\ codes}\}\{$n_a$\}}$$
+where $n_a$ is an estimate value for $M$ and can be adjusted to be greater or less than $M$. This flexible mechanism might be to increase or decrease the degree of
+color shades. Finally, \verb!\intg! and \verb!\slope! should be reset to
+zero at the end of each stage. Now, all materials to make the new macro are ready, and its definition is suggested to be
+\bigskip\hrule
+\noindent\begin{tabular}{@{}l}
+\verb!\def\vecfldnew#1#2#3#4#5#6#7#8{%!\\
+\verb!\newcount\intg \newdimen\slope \newdimen\interm \newdimen\fx \newdimen\fy!\\
+\verb!\def\fintg{\interm=#8 \interm=\intg\interm%!\\
+\verb! \ifdim\ifdim\slope<0pt -\fi\slope>\interm \advance\intg by 1\fintg\fi}!\\
+\verb!\multido{#2}{#4}!\\
+\verb!{\multido{#1}{#3}!\\
+\verb!{\curvepnodes[algebraic,plotpoints=2]{0}{1}!\\
+\verb!{\nx+((#5)*t)*(1/sqrt(1+(#6)^2))|\ny+((#5)*t)*(1/sqrt(1+(#6)^2))*(#6)}{P}!\\
+\verb!#7\slope=10\slope \fintg \ifnum\intg>10\psline[linecolor=red]{->}(P0)(P1)!\\
+\verb+\else\ifnum\intg=0\psline[linecolor=red!5]{->}(P0)(P1)+\\
+\verb+\else\multiply\intg by 10\psline[linecolor=red!\the\intg]{->}(P0)(P1)\fi\fi+\\
+\verb+\intg=0\slope=0pt+\\
+\verb+}}}+
+\end{tabular}\hrule\bigskip
+
+If we predefine some scale of degrees, instead of the code $\verb!\ifnum\intg>10!\ldots\verb!\fi\fi!$, the structure \verb!\ifcase! can be used as
+$$\begin{array}{c}
+\verb!\ifcase\intg!\\
+\verb+\psline[linecolor=red!5]{->}(P0)(P1)\or+\\
+\verb+\psline[linecolor=red!10]{->}(P0)(P1)\or+\\
+\vdots\\
+\verb!\psline[linecolor=red]{->}(P0)(P1)\fi!
+\end{array}$$
+
+The first example is given with two values of $n_a$ to see how different the color shades are between the two cases. The left vector field in Figure \ref{Fig10}
+is made of the calling sequence
+\begin{verbatim}
+\vecfldnew{\nx=-2.00+0.3}{\ny=-2.00+0.3}{14}{14}{0.3}{(\nx)-2*(\ny)}
+{\fy=\ny pt \fx=\nx pt \advance\slope by -2\fy \advance\slope by \fx}{7pt}
+\end{verbatim}
+\begin{figure}[htbp]
+\centering\includegraphics[width=4.6cm]{vecb5}
+\hskip1cm\includegraphics[width=4.6cm]{vecb6}
+\caption{The vector fields of the equation $y'=x-2y$ with $n_a=\texttt{7pt}$ (the left) and $n_a=\texttt{4pt}$ (the right)}\label{Fig10}
+\end{figure}
+
+In Figure \ref{Fig11}, the vector fields of the equations $y'=y-x$ and $y'=x(2-y)$ are respectively drawn by the calling sequences
+\begin{verbatim}
+\vecfldnew{\nx=-3.00+0.4}{\ny=-3.00+0.4}{15}{15}{0.35}{(\ny)-(\nx)}
+{\fy=\ny pt \fx=\nx pt \advance\slope by -\fx \advance\slope by \fy}{5pt}
+\end{verbatim}
+and
+\begin{verbatim}
+\vecfldnew{\nx=-3.00+0.4}{\ny=-3.00+0.4}{15}{15}{0.35}{(\nx)*(2-(\ny))}
+{\fy=\ny pt \fx=\nx pt \advance\slope by -\decimal\fx\fy
+\advance\slope by 2\fx}{6pt}
+\end{verbatim}
+\begin{figure}[htbp]
+\centering\includegraphics[width=6.2cm]{vecb3}
+\hskip1cm\includegraphics[width=6.2cm]{vecb4}
+\caption{The vector fields of the equation $y'=y-x$ (the left) and $y'=x(2-y)$ (the right).}\label{Fig11}
+\end{figure}
+
+Finally, we consider two more examples on vector fields of differential equations $y'=f(x,y)$ containing trigonometric or rational functions on their right side. The calling sequences
+\begin{verbatim}
+\vecfldnew{\nx=-3.00+0.4}{\ny=-3.00+0.4}{15}{15}{0.35}{sin(\nx)*cos(\ny)}
+{\SIN{\nx}{\tmpa}\COS{\ny}{\tmpb}\MULTIPLY{\tmpa}{\tmpb}{\tmpc}
+\slope=\tmpc pt}{0.6pt}
+\end{verbatim}
+and
+\begin{verbatim}
+\vecfldnew{\nx=-3.00+0.3}{\ny=-3.00+0.3}{20}{20}{0.3}{2*(\nx)*(\ny)/(1+(\ny)^2)}
+{\SUMfunction{\ONEfunction}{\SQUAREfunction}{\Fncty}\Fncty{\ny}{\soly}{\Dsoly}
+\DIVIDE{\Dsoly}{\soly}{\tempa}\MULTIPLY{\nx}{\tempa}{\tempb}
+\slope=\tempb pt}{2.5pt}
+\end{verbatim}
+respectively result in the vector fields on the left and on the right in Figure \ref{Fig12}.
+
+\begin{figure}[htbp]
+\centering\includegraphics[width=6.2cm]{vecb1}
+\hskip1cm\includegraphics[width=6.2cm]{vecb2}
+\caption{The vector fields of the equation $y'=\sin(x)\cos(y)$ (the left) and $y'=2xy/(1+y^2)$ (the right).}\label{Fig12}
+\end{figure}
+\section{Drawing partitions of a simply connected plane domain}
+\subsection{Description}
+B\'{e}zier curves have been used in many different aspects, but mostly in computer graphics to model smooth curves designed by computer
+programs. We just recall here the vector function of a B\'{e}zier curve of degree $n$ with $n+1$ control points whose position
+vectors are $\mathbf{r}_0$, $\mathbf{r}_1$, \dots, $\mathbf{r}_n$. It is the vector function $\mathbf{r}(t)$ in a real variable $t\in[0,1]$ that
+is defined as
+\begin{equation}\label{eqn9}
+\mathbf{r}(t)=\sum_{i=0}^n\binom{n}{i}t^i(1-t)^{n-i}\mathbf{r}_i.
+\end{equation}
+Since $\mathbf{r}(0)=\mathbf{r}_0$, $\mathbf{r}(1)=\mathbf{r}_n$ and $\mathbf{r}'(0)=n(\mathbf{r}_1-\mathbf{r}_0)$, $\mathbf{r}'(1)=n(\mathbf{r}_n-\mathbf{r}_{n-1})$,
+we can take a curve such that it is closed and tangent to a line $(\Delta)$ at the point whose position vector is $\mathbf{r}_0$, by
+letting $\mathbf{r}_n=\mathbf{r}_0$ and the points whose position vectors are $\mathbf{r}_0$, $\mathbf{r}_1$ and $\mathbf{r}_{n-1}$
+all be on the line $(\Delta)$.
+
+Taking a closed B\'{e}zier curve to be the boundary of a plane domain has the great advantage. That is because coordinates of points
+on the curve are evaluated by polynomials, and the curve has necessary smoothness, beautiful enough for graphic illustrations.
+\texttt{PSTricks} has the procedure \verb!\parametricplot! to draw such a curve. But, an important problem here is how to control
+the coordinates of its points to construct a procedure for drawing a partition of a simply connected plane domain and coloring
+(or marking) its cells having common points with the boundary of the domain. We particularly need such a procedure for illustrations
+of essential notions in measure theory or double integral definition. Because of the limitation in accuracy imposed
+by the \TeX\ arithmetic, we should mention about $2$-dimension vector functions of a B\'{e}zier curve of small degree (in fact, as small as possible).
+According to the above requirements for the closed boundary of a simply connected domain, we will design a family of closed B\'{e}zier curves of
+degree $6$, although we may extend their degree to $12$.
+
+From the expression of $\mathbf{r}(t)$ in (\ref{eqn9}), we will construct the following functions and procedures:
+\begin{itemize}
+\item The factorial function \texttt{FACTORIAL}.
+\item The binomial function \texttt{BINOMIAL}.
+\item Polynomials $t^m(1-t)^n$.
+\item A procedure to compute a sum of $7$ terms: values of $\mathbf{r}(t)$ as linear combinations
+of the Bernstein polynomials
+$$\binom{6}{k}t^k(1-t)^{6-k},\quad k=0,\ldots,6.$$
+\end{itemize}
+These functions and procedures are macros given by definitions with or without parameters. In the following subsections we will construct them step by step and
+show how to make connections between them.
+\subsubsection{Factorial functions and binomial coefficients}
+To obtain the factorial function, a procedure for multiplying consecutively an integer $n$ with its diminished values will be constructed. For the declared
+integer variables \verb!\Fa! and \verb!\Fct!, the latter will hold values of the function, and the former will hold factors that are multiplied consecutively
+and reduced by $1$. Namely, if \verb!\Fa! is $0$ or $1$ then \verb!\Fct! takes $1$; else if $\texttt{\symbol{92}Fa}>1$ then \verb!\Fct! takes
+the initial value of \verb!\Fa! to begin a loop: diminishing \verb!\Fa! by $1$ and updating \verb!\Fct! by multiplying its old value with the new value of \verb!\Fa!.
+The loop is defined by the control sequence \verb!\Factor! and is ended when \verb!\Fa! is diminished to $1$; then, the factorial function obtains its value from
+the one given back after calling \verb!\FACTORIAL! with one parameter.
+\begin{verbatim}
+\newcount\Fa\newcount\Fct
+\newcount\tempA
+\def\Factor{\ifnum\Fa=1\relax\else\advance\Fa by -1\multiply\Fct by \Fa\Factor\fi}
+\def\FACTORIAL#1{\Fa=#1 \ifnum\Fa=0 \Fct=1\relax\else\Fct=\Fa \Factor\fi%
+\global\tempA=\Fct}
+\end{verbatim}
+Since \TeX\ limits the largest integer number to $2^{30}-1$, we can evaluate only to
+$$\textmtt{\symbol{92}FACTORIAL\{$12$\}}=12!=479001600.$$
+Besides, the last value of \verb!\Fct!, which is right the one obtained from calling the function, is assigned to a global integer variable \verb!\tempA! for use
+in other procedures. Finally, make the calling sequence
+$$\textmtt{\symbol{92}FACTORIAL\{k\}\symbol{92}the\symbol{92}Fct}$$
+to obtain and show up the value of $k!$. From these values we derive binomial coefficients by the formula
+$$\binom{m}{n}=\frac{m!}{n!(m-n)!}.$$
+A simple procedure that makes division of $m!$ by $n!$, then of the result by $(m-n)!$ can be performed by the control sequence
+\verb!\BINOMIAL! with two parameters as follows
+\begin{verbatim}
+\newcount\BINOM
+\newcount\temp\newcount\tmp
+\def\BINOMIAL#1#2{%
+\temp=#1\advance\temp by -#2
+\FACTORIAL{#1}
+\tmp=\tempA
+\FACTORIAL{\temp}
+\temp=\tempA
+\divide\tmp by \temp
+\FACTORIAL{#2}
+\temp=\tempA
+\divide\tmp by \temp\global\BINOM=\tmp}
+\end{verbatim}
+Again, the last value of \verb!\tmp! is assigned to a global integer variable \verb!\BINOM! for later use. Because the vector function of a B\'{e}zier
+curve of degree $6$ is only needed, so are the binomial coefficients \verb!\BINOMIAL{!$6$\verb!}{!$k$\verb!}!, $k=0,1,\ldots,6$.
+\subsubsection{Bernstein polynomials}
+The construction of Bernstein functions is based on an iterative multiplication of the same value $t$ by a given number $m$ of times,
+then the process is repeated with the value $1-t$ by a given number $n$ of times. The last result is multiplied by a variable that holds
+the value of $\binom{m+n}{m}$. We will use an integer variable \verb!\kc! to count times of multiplication for the same factor $t$ or $1-t$.
+The procedure of iterative multiplication \verb!\xmult! with one parameter $m$ or $n$ is a recursive one that is performed
+iteratively until \verb!\kc! reaches the value $m$ or $n$.
+\begin{verbatim}
+\newdimen\Xa\newdimen\Yb\newcount\kc
+\def\xmult#1{\ifnum\kc<#1\advance\kc by 1\Yb=\decimal\Xa\Yb\xmult{#1}
+ \else\relax\fi}
+\end{verbatim}
+Finally, the value of $t^m(1-t)^n$ that is hold by the variable \verb!\Yb! is multiplied by \verb!\BINOM!, the value $\binom{6}{m}$.
+Thus, Bernstein polynomials are given by the following macro \verb!\BERNSTEIN! with three parameters that hold values of
+$m$, $n$ and $t$, respectively.
+\begin{verbatim}
+\newdimen\BSTemp
+\def\BERNSTEIN#1#2#3{\Xa=#3pt\kc=0\Yb=1pt\xmult{#1}\kc=0\Xa=-\Xa
+\advance\Xa by 1pt\xmult{#2}\BINOMIAL{6}{#1}\global\BSTemp=\BINOM\Yb}
+\end{verbatim}
+Also, values of \verb!\BERNSTEIN! are assigned to a global variable.
+\subsubsection{Vector functions of a plane B\'{e}zier curve of degree $6$}
+We will construct here the vector function of a plane and closed B\'{e}zier curve with the control points
+$M_0(x_0,y_0)$, $M_1(x_1,y_1)$, \dots, $M_6(x_6,y_6)$ that is chosen in such a way that the curve is tangent to
+a line $(\Delta)$ at its initial point $M_0$. According to the mentioned properties of a B\'{e}zier curve, the requirements
+for the curve are satisfied when $M_6=M_0$ and $M_0$, $M_1$, $M_5$ are all on the line $(\Delta)$.
+\begin{figure}[htbp]
+\centering\begin{pspicture}(0,0)(5,4.3)
+\psset{unit=0.6cm}
+\newcount\pos\def\drawpts#1#2{\newdimen\xrp\xrp=2pt\newdimen\yrp\yrp=2pt\advance\xrp by #1pt\advance\yrp by #2pt\psdot(\decimal\xrp,\decimal\yrp)
+\rput[rt](\decimal\xrp,\decimal\yrp){$M_{\the\pos}$}\advance\pos by 1}
+\drawpts{0}{0}\drawpts{-1.5}{2}\drawpts{2}{5}\drawpts{6}{3}\drawpts{5}{-1}\drawpts{1.5}{-2}
+\parametricplot[algebraic,linewidth=0.5pt]{0}{0.5}{\XBsix{2}{1}|\YBsix{2}{1}}
+\parametricplot[algebraic,linewidth=0.5pt]{0.5}{1}{\XBsix{2}{1}|\YBsix{2}{1}}
+\psline[linewidth=0.2pt](0.5,4)(3.5,0)
+\end{pspicture}
+\caption{A B\'{e}zier curve of degree $6$ with the required control points.}\label{Fig13}
+\end{figure}
+In case $n=6$, from (\ref{eqn9}) we derive the vector function $\mathbf{r}(t)$ with the two components
+\begin{equation}\label{eqn10}
+X(t)=\sum_{i=0}^6\binom{6}{i}t^i(1-t)^{6-i}x_i,\quad Y(t)=\sum_{i=0}^6\binom{6}{i}t^i(1-t)^{6-i}y_i.
+\end{equation}
+We first evaluate values of $X(t)$ by the procedures that just have been constructed, with a choice of $x_i$, $i=1,\ldots,6$, from a given $x_0$
+and the requirements of the B\'{e}zier curve as in Figure \ref{Fig13}. For example, we may take
+$$x_1=x_0-1.5,\quad x_2=x_0+2,\quad x_3=x_0+6,\quad x_4=x_0+5,\quad x_5=x_0+1.5,\quad x_6=x_0.$$
+Moreover, we may change the shape of the curve by taking a factor $\alpha$ for $X(t)$. In short, we will make a procedure to evaluate the sum of terms
+$\binom{6}{i}t^i(1-t)^{6-i}(\alpha x_i)$, $i=0,1,\ldots,6$. In fact, it is a procedure to add up values into a global variable \verb!\XBST! that is called
+by a macro \verb!\XBC! with three declaring parameters for $x_i$, $t$ and $\alpha$. The value of $\alpha$ is used last when being multiplied by a
+variable that holds $X(t)$. Such a procedure is suggested to be the following macro
+\begin{verbatim}
+\newdimen\Xrf\newdimen\Yrf
+\newdimen\XBST\newdimen\YBST
+\def\XBC#1#2#3{%
+\BERNSTEIN{0}{6}{#2}
+\Xrf=#1pt
+\XBST=\decimal\BSTemp\Xrf
+\BERNSTEIN{1}{5}{#2}
+\Xrf=#1pt\advance\Xrf by -1.5pt
+\advance\XBST by \decimal\BSTemp\Xrf
+\BERNSTEIN{2}{4}{#2}
+\Xrf=#1pt\advance\Xrf by 2pt
+\advance\XBST by \decimal\BSTemp\Xrf
+\BERNSTEIN{3}{3}{#2}
+\Xrf=#1pt\advance\Xrf by 6pt
+\advance\XBST by \decimal\BSTemp\Xrf
+\BERNSTEIN{4}{2}{#2}
+\Xrf=#1pt\advance\Xrf by 5pt
+\advance\XBST by \decimal\BSTemp\Xrf
+\BERNSTEIN{5}{1}{#2}
+\Xrf=#1pt\advance\Xrf by 1.5pt
+\advance\XBST by \decimal\BSTemp\Xrf
+\BERNSTEIN{6}{0}{#2}
+\Xrf=#1pt
+\advance\XBST by \decimal\BSTemp\Xrf
+\global\XBST=#3\XBST}
+\end{verbatim}
+In the macro, a control sequence of the form \verb!\decimal\Xdim! is for obtaining the decimal value of a variable \verb!\Xdim! without units
+(\verb!pt!, by default). This can be defined by
+\begin{verbatim}
+\def\xch{\catcode`\p=12 \catcode`\t=12}\def\ych{\catcode`\p=11 \catcode`\t=11}
+\xch \def\dec#1pt{#1}\ych \gdef\decimal#1{\expandafter\dec \the#1}
+\end{verbatim}
+Besides, the last line in the definition of \verb!\XBC! (\verb!\global\XBST=#3\XBST!) signifies \verb!\XBST! is adjusted for multiplication by
+$\alpha$ when holding the current value of the sum $X(t)$. In Table \ref{bc-Table1}, some values
+of \verb!\XBC! are compared with those of a simpler procedure in Maple\footnote{\footnotesize Maple
+is a computer algebra system. It was first developed in 1980 by the Symbolic Computation Group at the University of
+Waterloo in Waterloo, Ontario, Canada. Maple supports numeric and symbolic computations
+and can be used as a programming language, which resembles Pascal.}.
+\begin{table}[htbp]
+\centering\begin{tabular}{|c|c|c|c|c|c|}\hline
+&$(-2.4,0.23,1.5)$&$(4.2,0.45,1.1)$&$(-3.4,0.7,1.24)$&$(-0.89,0.4,1.5)$&$(5.21,0.5,2.15)$\\ \hline
+\texttt{\symbol{92}XBC}&$\XBC{-2.4}{0.23}{1.5}\decimal\XBST$&$\XBC{4.2}{0.45}{1.1}\decimal\XBST$&$\XBC{-3.4}{0.7}{1.24}\decimal\XBST$&$\XBC{-0.89}{0.4}{1.5}\decimal\XBST$&$\XBC{5.21}{0.5}{2.15}\decimal\XBST$\\ \hline
+Maple&$-2.41044$&$8.13235$&$-0.13696$&$2.78628$&$18.76008$\\ \hline
+\end{tabular}
+\caption{A comparison between some values of \textmtt{\symbol{92}XBC} and those of a procedure in Maple.}\label{bc-Table1}
+\end{table}
+
+Likewise, from a given $y_0$, we may have a choice of $y_i$, $i=1,\ldots,6$, as follows
+$$y_1=y_0+2,\quad y_2=y_0+5,\quad y_3=y_0+3,\quad y_4=y_0-1,\quad y_5=y_0-2,\quad y_6=y_0.$$
+The macro \verb!\YBC! is constructed in a quite analogous way as for \verb!\XBC! to evaluate values of $Y(t)$ in (\ref{eqn10}),
+and the value $\beta Y(t)$ ($\beta$ is again an adjustment factor) is hold by a global variable \verb!\YBST!.
+
+\subsubsection{Partition of a simply connected plane domain by a rectangular grid}
+
+We consider here a simply connected plane domain $D$ surrounded by a B\'{e}zier curve of degree $6$ that will be depicted by
+the procedure \verb!\NetDraw!. This is called together with its five parameters whose values are assigned to the five local variables
+with their following meaning:
+\begin{align*}
+\texttt{\symbol{92}CellNum:}&\text{ The number of horizontal and vertical cells of the grid.}\\
+\texttt{\symbol{92}Xref:}&\text{ The value of $x_0$.}\\
+\texttt{\symbol{92}Yref:}&\text{ The value of $y_0$.}\\
+\texttt{\symbol{92}Xfact:}&\text{ The value of $\alpha$.}\\
+\texttt{\symbol{92}Yfact:}&\text{ The value of $\beta$.}
+\end{align*}
+We denote by $R$ a rectangular domain containing $D$ and having edges parallel to the coordinate axes.
+A grid of rectangular cells will be depicted on $R$. According to the given values of $x_0$, $y_0$, $\alpha$ and $\beta$, the vertices of $R$
+can be chosen as the points $(\verb!\XMin!,\verb!\YMax!)$, $(\verb!\XMax!,\verb!\YMax!)$, $(\verb!\XMax!,\verb!\YMin!)$, $(\verb!\XMin!,\verb!\YMin!)$, where
+\begin{align*}
+\textmtt{\symbol{92}XMin}&=\alpha(\textmtt{\symbol{92}Xref}-1.5),&&\textmtt{\symbol{92}XMax}=\alpha(\textmtt{\symbol{92}Xref}+6),\\
+\textmtt{\symbol{92}YMin}&=\beta(\textmtt{\symbol{92}Yref}-2),&&\textmtt{\symbol{92}YMax}=\beta(\texttt{\symbol{92}Yref}+5).
+\end{align*}
+Then, the horizontal step size \verb!\Xsize! and the vertical step
+size \verb!\Ysize! may be taken as
+$$\mtt\\\texttt{Xsize}=\frac{\mtt\\\texttt{XMax}-\mtt\\\texttt{XMin}}{\mtt\\\texttt{CellNum}},\quad
+\mtt\\\texttt{Ysize}=\frac{\mtt\\\texttt{YMax}-\mtt\\\texttt{YMin}}{\mtt\\\texttt{CellNum}}.$$
+
+At first, the grid is made by using the structure \verb!\multido! to draw vertical and horizontal lines whose equations are
+$$x=\texttt{\symbol{92}XMin}+i\texttt{\symbol{92}Xsize},\quad
+y=\texttt{\symbol{92}YMin}+i\texttt{\symbol{92}Ysize},\quad i=0,\ldots,\texttt{\symbol{92}CellNum}.$$
+Next, the B\'{e}zier curve is depicted by the command
+$$\textmtt{\symbol{92}parametricplot[algebraic,fillstyle=solid]\{$0$\}\{$1$\}\{$\alpha X(t)$|$\beta Y(t)$\}}$$
+and it is approximated by the sequence of points $(X_i,Y_i)$, $i=1,\ldots,N$, where $X_i$ and $Y_i$ are given from
+the calling sequences
+$$\textmtt{\symbol{92}XBC\{\symbol{92}XRef\}\{$t_i$\}\{\symbol{92}Xfact\}},\quad
+\textmtt{\symbol{92}YBC\{\symbol{92}YRef\}\{$t_i$\}\{\symbol{92}Yfact\}}.$$
+
+Finally, the most important algorithm is to determine cells that have points in common with the B\'{e}zier curve,
+and to color them. The chosen ``filter'' method here can be described as follows: for each point $(X_i,Y_i)$ of the approximate sequence,
+$i=1,\ldots, N$, we examine cells from left to right in horizontal direction, and from below to above in vertical direction. As soon as
+being found, the cell containing $(X_i,Y_i)$ is specifically colored by the command \textmtt{\mtt\\pspolygon[fillstyle=solid,$\ldots$]} passing its four
+vertices; then, we examine the next point $(X_{i+1},Y_{i+1})$, and so on. Actually, a structure of three nested \verb!\multido! loops
+is used to perform this filter method, and the loop for counting points $(X_i,Y_i)$ is the most outer one. The algorithm to examine if
+a cell contains $(X_i,Y_i)$ may have the form of
+\begin{verbatim}
+ \ifdim\YBST<y\relax\else\advance y by \Ysize
+ \ifdim\YBST>y\relax\else
+ \ifdim\XBST<x\relax\else\advance x by \Xsize
+ \ifdim\XBST>x\relax\else
+ \pspolygon[fillstyle=solid,fillcolor=red]
+ (x,y)(x+\Xsize,y)(x+\Xsize,y+\Ysize)(x,y+\Ysize)(x,y)\relax
+ \fi\fi\fi\fi
+\end{verbatim}
+The single characters ``\verb!x!'', ``\verb!y!'' and the opertation ``\verb!+!'' will be replaced appropriately in the procedure \verb!\NetDraw! below.
+For increasingly chosen values of $N$, we may know if the set of cells having points in common with the curve can cover the curve itself?
+On the other hand, to increase the number of approximate points is corresponding to reduce the increment in the most outer loop \verb!\multido!.
+For instance, if we take $N=100$, then the variable \verb!\nz! in the loop should be declared as $\texttt{\mtt\\nz}=0.00+0.01$ because
+$t_i\in[0,1]$.
+
+In summary, to illustrate a partition of a simply connected plane domain, we can apply the following procedure \verb!\NetDraw!. As mentioned above,
+step by step, \verb!\NetDraw! can: draw the boundary of a plane domain $D$ by a B\'{e}zier curve of degree $6$, draw a partition of a rectangle $R$ containing $D$
+by a grid of rectangular cells, and color cells having points in common with the boundary of $D$.
+\bigskip
+%\vskip2ex
+\hrule
+\begin{verbatim}
+\def\NetDraw#1#2#3#4#5{%
+\newcount\CellNum
+\newdimen\XRef
+\newdimen\YRef
+\newdimen\Xfact
+\newdimen\Yfact
+\newdimen\XMin
+\newdimen\XMax
+\newdimen\YMin
+\newdimen\YMax
+\newdimen\Xsize
+\newdimen\Ysize
+\newdimen\tempx
+\newdimen\tempy
+\CellNum=#1
+\XRef=#2pt
+\YRef=#3pt
+\Xfact=#4pt
+\Yfact=#5pt
+\XMin=\decimal\Xfact\XRef \advance\XMin by -1.50\Xfact
+\XMax=\decimal\Xfact\XRef \advance\XMax by 6.00\Xfact
+\YMin=\decimal\Yfact\YRef \advance\YMin by -2.00\Yfact
+\YMax=\decimal\Yfact\YRef \advance\YMax by 5.00\Yfact
+\Xsize=\XMax \advance\Xsize by -\XMin \divide\Xsize by \CellNum
+\Ysize=\YMax \advance\Ysize by -\YMin \divide\Ysize by \CellNum
+\parametricplot[algebraic,fillstyle=solid,fillcolor=yellow!80,plotpoints=200,
+linewidth=0.5pt]{0}{1}{\XBsix{\decimal\XRef}{\decimal\Xfact}|
+\YBsix{\decimal\YRef}{\decimal\Yfact}}
+\multido{\nz=0.00+0.005}{200}{\XBC{\decimal\XRef}{\nz}{\decimal\Xfact}
+\YBC{\decimal\YRef}{\nz}{\decimal\Yfact}
+\multido{\nx=\decimal\XMin+\decimal\Xsize}{\the\CellNum}
+{\tempx=\nx pt\multido{\ny=\decimal\YMin+\decimal\Ysize}{\the\CellNum}
+{\tempy=\ny pt\ifdim\YBST<\tempy\relax\else\advance\tempy by \Ysize%
+ \ifdim\YBST>\tempy\relax\else
+ \ifdim\XBST<\tempx\relax\else\advance\tempx by \Xsize
+ \ifdim\XBST>\tempx\relax\else
+ \pspolygon[fillstyle=solid,fillcolor=blue!90,linecolor=black,
+ linewidth=0.2pt]
+ (\nx,\ny)(\decimal\tempx,\ny)(\decimal\tempx,\decimal\tempy)
+ (\nx,\decimal\tempy)(\nx,\ny)\relax\fi\fi\fi\fi}
+}}
+\advance\CellNum by 1
+\multido{\nx=\decimal\XMin+\decimal\Xsize}{\the\CellNum}
+{\psline[linewidth=0.2pt](\nx,\decimal\YMax)(\nx,\decimal\YMin)}
+\multido{\ny=\decimal\YMin+\decimal\Ysize}{\the\CellNum}
+{\psline[linewidth=0.2pt](\decimal\XMin,\ny)(\decimal\XMax,\ny)}
+\parametricplot[algebraic,linecolor=white,plotpoints=200,linewidth=0.5pt]{0}{1}
+{\XBsix{\decimal\XRef}{\decimal\Xfact}|\YBsix{\decimal\YRef}{\decimal\Yfact}}}
+\end{verbatim}\hrule\bigskip
+
+In the definition of \verb!\NetDraw!, the expressions $\alpha X(t)$, $\beta Y(t)$ are declared in the \verb!algebraic! form by the macros \verb!\XBsix!,
+\verb!\YBsix! with two parameters that hold values of $x_0,\alpha$ and $y_0,\beta$, respectively. These macros are given by
+the following definitions:
+\begin{verbatim}
+\def\XBsix#1#2{%
+(1-t)^6*(#1)*(#2)+6*t*(1-t)^5*(#1-1.5)*(#2)+15*t^2*(1-t)^4*(#1+2)*(#2)+
+20*t^3*(1-t)^3*(#1+6)*(#2)+15*t^4*(1-t)^2*(#1+5)*(#2)+
+6*t^5*(1-t)*(#1+1.5)*(#2)+t^6*(#1)*(#2)}
+\def\YBsix#1#2{%
+(1-t)^6*(#1)*(#2)+6*t*(1-t)^5*(#1+2)*(#2)+15*t^2*(1-t)^4*(#1+5)*(#2)+
+20*t^3*(1-t)^3*(#1+3)*(#2)+15*t^4*(1-t)^2*(#1-1)*(#2)+
+6*t^5*(1-t)*(#1-2)*(#2)+t^6*(#1)*(#2)}
+\end{verbatim}
+\subsection{Examples}
+Firstly, let us see the effect of change for the shape of a domain when adjusting its boundary by taking different values of $\alpha$ and $\beta$. The
+calling sequence for this purpose may have the form of
+\begin{align*}
+&\textmtt{\mtt\\parametricplot[algebraic,plotpoints=200,linewidth=0.5pt]\{$0$\}\{$1$\}}\\
+&\textmtt{\mtt\{XBsix\{$x_0$\}\{$\alpha$\}|\mtt\\YBsix\{$y_0$\}\{$\beta$\}\mtt\}}
+\end{align*}
+and its result is given in Figure \ref{Fig14}.
+\begin{figure}[htbp]
+\centering\begin{pspicture}(0,0.5)(3.5,3)
+\psset{unit=12pt}
+\parametricplot[algebraic,plotpoints=200,linewidth=0.5pt]{0}{1}{\XBsix{2}{1.5}|\YBsix{2}{1.5}}
+\end{pspicture}
+\begin{pspicture}(0,0.5)(5,3.5)
+\psset{unit=12pt}
+\parametricplot[algebraic,plotpoints=200,linewidth=0.5pt]{0}{1}{\XBsix{2}{2}|\YBsix{2}{1.5}}
+\end{pspicture}
+\begin{pspicture}(0,1)(4,3.5)
+\psset{unit=12pt}
+\parametricplot[algebraic,plotpoints=200,linewidth=0.5pt]{0}{1}{\XBsix{2}{1.5}|\YBsix{2}{2}}
+\end{pspicture}
+\caption{From left to right, corresponding to the couple of values:
+$\alpha=2,\,\beta=2$; $\alpha=2.5,\,\beta=2$; $\alpha=2,\,\beta=2.5$.}\label{Fig14}
+\end{figure}
+
+The Table \ref{bc-table2} below provides three partitions of a domain $D$ with cells that decrease in size. In each case, \verb!\NetDraw! can
+determine the cells that have points in common with the boundary curve and color them. The calling sequence here
+takes a simple form
+$$\textmtt{\mtt\\NetDraw\{$c$\}\{$x_0$\}\{$y_0$\}\{$\alpha$\}\{$\beta$\}}$$
+The numerical argument $c$ is assigned to the local variable \verb!\CellNum!. The number of approximate points $(X_i,Y_i)$ for the boundary curve
+is chosen to be $200$, by default, corresponding to the increment $\Delta\mtt{z}=0.005$. The number $N$ can be made larger and the filter procedure
+for determining required cells may be more exact. In Table \ref{bc-table2}, the B\'{e}zier curves are depicted with the choice
+$x_0=y_0=\alpha=\beta=2$.
+\begin{table}[htbp]
+\centering\begin{tabular}{cc}
+\includegraphics[width=6cm]{b6of1}&\includegraphics[width=6cm]{b6of2}\\
+\includegraphics[width=6cm]{b6of3}&\includegraphics[width=6cm]{b6of4}
+\end{tabular}
+\caption{The partitions of $D$ with $c=18$, $c=36$ and $c=63$.}\label{bc-table2}
+\end{table}
+
+\acknw
+I am very grateful to
+\begin{itemize}
+\item Timothy Van Zandt, Herbert Vo\ss, Dominique Rodriguez and Michael Sharpe for helping me with
+their great works on \texttt{PSTricks}.
+\item H\`an Th\hantt\rlap\accentcircflx\ Th\`anh for helping me with his pdf\hskip.03em\LaTeX\ program.
+\item Robert Fuster for his very useful package \texttt{calculator}.
+\end{itemize}
+\begin{thebibliography}{10}
+\bibitem{one} Dominique Rodriguez, Michael Sharpe \&\ Herbert Vo\ss. \textsl{\texttt{pstricks-add}: Additional Macros for PSTricks\/}.
+Version 3.60,
+\url{http://ctan.org/tex-archive/graphics/pstricks/contrib}, 2013
+\bibitem{two} Timothy Van Zandt, Michael Sharpe \&\ Herbert Vo\ss. \textsl{\texttt{pst-node}: Nodes and node connections}.
+Version 1.29,
+\url{http://ctan.org/tex-archive/graphics/pstricks/contrib}, 2013
+\bibitem{three} Helmut Kopka \&\ Patrick W. Daly. \textsl{Guide to \LaTeX \/}.
+Addison-Wesley, Fourth Edition, 2004, ISBN 0321173856
+\bibitem{four} Timothy Van Zandt. \textsl{User's Guide\/}. Version 1.5,\\
+\url{http://ctan.org/tex-archive/graphics/pstricks/base}, 2007
+\bibitem{five}Eitan M. Gurari. \textsl{Writing With \TeX \/}, McGraw-Hill, Inc., 1994, ISBN 0-07-025207-6
+\bibitem{six} Robert Fuster. \textsl{\texttt{calculator-calculus}: Scientific Calculations With \LaTeX \/}. Version 1.0a,
+\url{http://ctan.org/tex-archive/macros/latex/contrib/calculator}, 2012
+\end{thebibliography}
+
+\end{document}
+\begin{thebibliography}{10}
+\bibitem{one} Dominique Rodriguez, Michael Sharpe \&\ Herbert Vo\ss. \textsl{\texttt{pstricks-add}: Additional Macros for PSTricks\/}.
+Version 3.60,
+\url{http://ctan.org/tex-archive/graphics/pstricks/contrib}, 2013
+\bibitem{two} Timothy Van Zandt, Michael Sharpe \&\ Herbert Vo\ss. \textsl{\texttt{pst-node}: Nodes and node connections}.
+Version 1.29,
+\url{http://ctan.org/tex-archive/graphics/pstricks/contrib}, 2013
+\bibitem{three} Helmut Kopka \&\ Patrick W. Daly. \textsl{Guide to \LaTeX \/}.
+Addison-Wesley, Fourth Edition, 2004, ISBN 0321173856
+\bibitem{four} Timothy Van Zandt. \textsl{User's Guide\/}. Version 1.5,\\
+\url{http://ctan.org/tex-archive/graphics/pstricks/base}, 2007
+\bibitem{five}Eitan M. Gurari. \textsl{Writing With \TeX \/}, McGraw-Hill, Inc., 1994, ISBN 0-07-025207-6
+\bibitem{six} Robert Fuster. \textsl{\texttt{calculator-calculus}: Scientific Calculations With \LaTeX \/}. Version 1.0a,
+\url{http://ctan.org/tex-archive/macros/latex/contrib/calculator}, 2012
+\end{thebibliography}
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/b6of1.eps b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/b6of1.eps
new file mode 100644
index 00000000000..afdba1de51a
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/b6of1.eps
@@ -0,0 +1,11111 @@
+%!PS-Adobe-3.0 EPSF-3.0
+%%Creator: dvips(k) 5.992 Copyright 2012 Radical Eye Software
+%%Title: testps-fig1.dvi
+%%CreationDate: Wed Nov 27 16:11:03 2013
+%%Pages: 1
+%%PageOrder: Ascend
+%%BoundingBox: 117 554 275 700
+%%DocumentPaperSizes: Letter
+%%EndComments
+%DVIPSWebPage: (www.radicaleye.com)
+%DVIPSCommandLine: DVIPS.EXE testps-fig1
+%DVIPSParameters: dpi=600
+%DVIPSSource: TeX output 2013.11.27:1610
+%%BeginProcSet: tex.pro 0 0
+%!
+/TeXDict 300 dict def TeXDict begin/N{def}def/B{bind def}N/S{exch}N/X{S
+N}B/A{dup}B/TR{translate}N/isls false N/vsize 11 72 mul N/hsize 8.5 72
+mul N/landplus90{false}def/@rigin{isls{[0 landplus90{1 -1}{-1 1}ifelse 0
+0 0]concat}if 72 Resolution div 72 VResolution div neg scale isls{
+landplus90{VResolution 72 div vsize mul 0 exch}{Resolution -72 div hsize
+mul 0}ifelse TR}if Resolution VResolution vsize -72 div 1 add mul TR[
+matrix currentmatrix{A A round sub abs 0.00001 lt{round}if}forall round
+exch round exch]setmatrix}N/@landscape{/isls true N}B/@manualfeed{
+statusdict/manualfeed true put}B/@copies{/#copies X}B/FMat[1 0 0 -1 0 0]
+N/FBB[0 0 0 0]N/nn 0 N/IEn 0 N/ctr 0 N/df-tail{/nn 8 dict N nn begin
+/FontType 3 N/FontMatrix fntrx N/FontBBox FBB N string/base X array
+/BitMaps X/BuildChar{CharBuilder}N/Encoding IEn N end A{/foo setfont}2
+array copy cvx N load 0 nn put/ctr 0 N[}B/sf 0 N/df{/sf 1 N/fntrx FMat N
+df-tail}B/dfs{div/sf X/fntrx[sf 0 0 sf neg 0 0]N df-tail}B/E{pop nn A
+definefont setfont}B/Cw{Cd A length 5 sub get}B/Ch{Cd A length 4 sub get
+}B/Cx{128 Cd A length 3 sub get sub}B/Cy{Cd A length 2 sub get 127 sub}
+B/Cdx{Cd A length 1 sub get}B/Ci{Cd A type/stringtype ne{ctr get/ctr ctr
+1 add N}if}B/CharBuilder{save 3 1 roll S A/base get 2 index get S
+/BitMaps get S get/Cd X pop/ctr 0 N Cdx 0 Cx Cy Ch sub Cx Cw add Cy
+setcachedevice Cw Ch true[1 0 0 -1 -.1 Cx sub Cy .1 sub]{Ci}imagemask
+restore}B/D{/cc X A type/stringtype ne{]}if nn/base get cc ctr put nn
+/BitMaps get S ctr S sf 1 ne{A A length 1 sub A 2 index S get sf div put
+}if put/ctr ctr 1 add N}B/I{cc 1 add D}B/bop{userdict/bop-hook known{
+bop-hook}if/SI save N @rigin 0 0 moveto/V matrix currentmatrix A 1 get A
+mul exch 0 get A mul add .99 lt{/QV}{/RV}ifelse load def pop pop}N/eop{
+SI restore userdict/eop-hook known{eop-hook}if showpage}N/@start{
+userdict/start-hook known{start-hook}if pop/VResolution X/Resolution X
+1000 div/DVImag X/IEn 256 array N 2 string 0 1 255{IEn S A 360 add 36 4
+index cvrs cvn put}for pop 65781.76 div/vsize X 65781.76 div/hsize X}N
+/p{show}N/RMat[1 0 0 -1 0 0]N/BDot 260 string N/Rx 0 N/Ry 0 N/V{}B/RV/v{
+/Ry X/Rx X V}B statusdict begin/product where{pop false[(Display)(NeXT)
+(LaserWriter 16/600)]{A length product length le{A length product exch 0
+exch getinterval eq{pop true exit}if}{pop}ifelse}forall}{false}ifelse
+end{{gsave TR -.1 .1 TR 1 1 scale Rx Ry false RMat{BDot}imagemask
+grestore}}{{gsave TR -.1 .1 TR Rx Ry scale 1 1 false RMat{BDot}
+imagemask grestore}}ifelse B/QV{gsave newpath transform round exch round
+exch itransform moveto Rx 0 rlineto 0 Ry neg rlineto Rx neg 0 rlineto
+fill grestore}B/a{moveto}B/delta 0 N/tail{A/delta X 0 rmoveto}B/M{S p
+delta add tail}B/b{S p tail}B/c{-4 M}B/d{-3 M}B/e{-2 M}B/f{-1 M}B/g{0 M}
+B/h{1 M}B/i{2 M}B/j{3 M}B/k{4 M}B/w{0 rmoveto}B/l{p -4 w}B/m{p -3 w}B/n{
+p -2 w}B/o{p -1 w}B/q{p 1 w}B/r{p 2 w}B/s{p 3 w}B/t{p 4 w}B/x{0 S
+rmoveto}B/y{3 2 roll p a}B/bos{/SS save N}B/eos{SS restore}B end
+
+%%EndProcSet
+%%BeginProcSet: pstricks.pro 0 0
+% $Id: pstricks.pro 801 2013-07-09 18:10:41Z herbert $
+%
+%% PostScript prologue for pstricks.tex.
+%% Version 1.17, 2013/07/08
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%
+%
+% Define the follwing gs-functions if not known, eg when using distiller
+%
+systemdict /.setopacityalpha known not {/.setopacityalpha { pop } def } if
+systemdict /.setblendmode known not {/.setblendmode { pop } def } if
+systemdict /.setshapealpha known not {/.setshapealpha { pop } def } if
+%
+/tx@Dict 200 dict def % the main PSTricks dictionary
+tx@Dict begin
+/ADict 25 dict def % The arrow dictionary
+/CM { matrix currentmatrix } bind def
+/SLW /setlinewidth load def
+/CLW /currentlinewidth load def
+/CP /currentpoint load def
+/ED { exch def } bind def
+/L /lineto load def
+/T /translate load def
+/TMatrix { } def
+/RAngle { 0 } def
+/Sqrt { dup 0 lt { pop 0 } { sqrt } ifelse } def % return 0 for negative arguments
+/Atan { /atan load stopped { pop pop 0 } if } def % return 0 if atan not known
+/ATAN1 {neg -1 atan 180 sub } def % atan(x) (only one parameter)
+/Div { dup 0 eq { pop } { div } ifelse } def % control the division
+/tan { dup cos abs 1.e-10 lt
+ { pop 1.e10 } % return 1.e10 as infinit
+ { dup sin exch cos div } ifelse % default sin/cos
+} def
+/Tan { dup sin exch cos Div } def % sin(x)/cos(x) x in degrees
+/Acos {dup dup mul neg 1 add dup 0 lt { % arc cos, returns 0 when negative root
+ pop pop 0 }{ sqrt exch atan} ifelse } def
+/Acos2 { 2 dict begin
+ /x ED /y ED
+ y abs 1.0e-20 lt { 1.0e30 } if
+ x y div
+ dup dup mul neg 1 add dup 0 lt { % arc cos needs two values x,y
+ pop pop 0 }{ sqrt exch atan} ifelse
+ y 0 lt { 180 add } if
+} def
+/NET { neg exch neg exch T } def % change coordinate system to the negative one
+/Pyth { dup mul exch dup mul add sqrt } def % Pythagoras, expects 2 parameter
+/Pyth2 { % Pythagoras, xA yA xB yB
+ 3 -1 roll % xA xB yB yA
+ sub % xA xB yB-yA
+ 3 1 roll % yB-yA xA xB
+ sub % yB-yA xA-xB
+ Pyth } def
+/PtoC { 2 copy cos mul 3 1 roll sin mul } def % Polar to Cartesian
+/Rand { rand 4294967295 div } def % a real random number
+%----------------- hv added 20050516 ---------------
+/PiDiv2 1.57079632680 def
+/Pi 3.14159265359 def
+/TwoPi 6.28318530718 def
+/Euler 2.71828182846 def
+%/e Euler bind def
+%
+/RadtoDeg { 180 mul Pi div } bind def % convert from radian to degrees
+/DegtoRad { Pi mul 180 div } bind def % viceversa
+%
+/startGlobal { true setglobal globaldict begin } bind def
+/endGlobal { end false setglobal } bind def
+/pssetRGBcolor /setrgbcolor load def
+/pssetCMYKcolor /setcmykcolor load def
+/pssetGraycolor /setgray load def
+%
+%----------------- hv end---------------------------
+/PathLength@ { /z z y y1 sub x x1 sub Pyth add def /y1 y def /x1 x def } def
+%
+/PathLength {
+ flattenpath /z 0 def
+ { /y1 ED /x1 ED /y2 y1 def /x2 x1 def }
+ { /y ED /x ED PathLength@ }
+ {}
+ { /y y2 def /x x2 def PathLength@ }
+ /pathforall load stopped { pop pop pop pop } if
+ z
+} def
+%
+/STP { .996264 dup scale } def % BP/PT scaling
+/STV { SDict begin normalscale end STP } def %
+%
+/DashLine {
+ dup 0 gt
+ { /a .5 def PathLength exch div }
+ { pop /a 1 def PathLength } ifelse
+ /b ED % pattern should fit evenly in b
+ dup /X ED % pattern array
+ 0 get /y ED % length of first black segment
+ /z 0 X {add} forall def % length of the full pattern
+ %% Computation of the scaling factor as described by van Zandt:
+ b a .5 sub 2 mul y mul sub z Div round
+ z mul a .5 sub 2 mul y mul add b exch Div
+ %%%% scaling factor on stack.
+ /z ED %% now, z is the scaling factor
+ false % for the length test below
+ X { z mul } forall X astore %% modification TN 04-08-07
+ %%% Checking whether at least one dash in X has positive length:
+ {0 gt or} forall
+ { X 1 a sub y mul }
+ { [ 1 0 ] 0 }
+ ifelse
+ setdash stroke
+} def
+%
+/DotLine {
+ /b PathLength def
+ /a ED /z ED /y CLW def
+ /z y z add def
+ a 0 gt {
+ /b b a div def
+ }{
+ a 0 eq {
+ /b b y sub def
+ }{ a -3 eq {
+ /b b y add def } if
+ } ifelse
+ } ifelse
+ [ 0 b b z Div round Div dup 0 le { pop 1 } if ]
+ a 0 gt { 0 }{ y 2 div a -2 gt { neg }if } ifelse
+ setdash 1 setlinecap stroke
+} def
+%
+/SymbolLine { % on stack [ x y x y ...
+ counttomark % number of elements
+ 2 div cvi /n ED % n pairs
+ /YA ED /XA ED % the start point
+ n 1 sub {
+ /YB ED /XB ED
+ /XLength XB XA sub def
+ /YLength YB YA sub def
+ /PAngle YLength XLength Atan def
+ /XYLength XLength YLength Pyth def
+
+ %% for negative SymStep we calculate the distance
+ SymStep 0 lt
+ { %XYLength SymStep div abs cvi
+ /nSym SymStep abs cvi def }
+ { /nSym XYLength SymStep div cvi def }
+ ifelse
+ 0.5 setflat
+ /Shift Symbol stringwidth pop 2 div def
+ /deltaX XLength nSym div def
+ /deltaY YLength nSym div def
+ curveticks
+ { XA YA moveto }
+ { XA Shift sub YA Shift sub moveto }
+ ifelse
+ nSym {
+ gsave
+ curveticks
+ { PAngle 180 sub CorrAngle sub tickAngle add /rotAngle ED
+ currentpoint translate rotAngle rotate
+ 0 SymbolWidth 2 div moveto 0 SymbolWidth 2 div neg lineto
+ SymbolLinewidth setlinewidth stroke
+ }
+ {
+ rotateSymbol { PAngle 180 sub CorrAngle sub rotate } if
+ Symbol show
+ }
+ ifelse
+ grestore
+ deltaX deltaY rmoveto
+ } repeat
+ /YA YB def /XA XB def
+ } repeat
+ curveticks
+ { XA YA moveto }
+ { XA Shift sub YA Shift sub moveto }
+ ifelse
+ gsave
+ curveticks
+ { PAngle 180 sub CorrAngle sub tickAngle add /rotAngle ED
+ XA YA translate rotAngle rotate
+ 0 SymbolWidth 2 div moveto 0 SymbolWidth 2 div neg lineto
+ SymbolLinewidth setlinewidth stroke
+ }
+ {
+ rotateSymbol { PAngle 180 sub CorrAngle sub rotate } if
+ Symbol show
+ }
+ ifelse
+ grestore
+ pop % delete the mark symbol
+} def
+%
+/LineFill { % hv ------------ patch 7 -------------
+ gsave
+ abs /hatchWidthInc ED
+ abs /hatchSepInc ED
+ abs CLW add /a ED
+ a 0 dtransform round exch round exch
+ 2 copy idtransform
+ exch Atan rotate
+ idtransform pop /a ED
+ .25 .25 itransform pathbbox
+ /y2 ED
+ a Div ceiling cvi /x2 ED /y1 ED
+ a Div cvi /x1 ED /y2 y2 y1 sub def
+ clipType % must be defined in pstricks.tex: clip -- eoclip
+ newpath
+ 2 setlinecap
+ systemdict
+ /setstrokeadjust known { true setstrokeadjust } if
+ x2 x1 sub 1 add {
+ x1 a mul y1 moveto 0 y2 rlineto stroke
+ /x1 x1 1 add
+ hatchWidthInc 0 gt { CLW add } if
+ def
+ hatchSepInc 0 gt hatchWidthInc 0 gt or {
+ /a a hatchSepInc add def
+ CLW hatchWidthInc add SLW
+ } if
+ } repeat
+ grestore
+ pop pop } def
+%
+/DotFill {% on stack: dot radius
+ /dotRadius ED
+ abs CLW add /a ED
+ a 0 dtransform round exch round exch
+ 2 copy idtransform
+ exch Atan rotate
+ idtransform pop /a ED
+ .25 .25 itransform
+ pathbbox % llx lly urx ury of smallest bounding box
+ /y2 ED /x2 ED /y1 ED /x1 ED
+ y2 y1 sub a div 2 add cvi /Ny ED
+ x2 x1 sub a div 2 add cvi /Nx ED
+ clipType % must be defined in pstricks.tex: clip -- eoclip
+ newpath
+ /yA y1 dotRadius add CLW add def
+ /xA0 x1 dotRadius add CLW add def
+ Ny {
+ /xA xA0 def
+ Nx {
+ newpath
+ xA yA dotRadius 0 360 arc
+ SolidDot { gsave fill grestore } if
+ stroke
+ xA a add /xA ED
+ } repeat
+ yA a add /yA ED
+ } repeat
+ grestore
+} def
+%
+/PenroseFill {% on stack: scaling factor
+ /Scale ED
+% 1 exch div round /penroseFactor ED
+% a 0 dtransform round exch round exch
+% 2 copy idtransform
+% exch Atan rotate
+% idtransform pop /a ED
+% .25 .25 itransform pathbbox
+% /y2 ED
+% a Div ceiling cvi /x2 ED /y1 ED
+% a Div cvi /x1 ED /y2 y2 y1 sub def
+ clip
+ newpath
+gsave
+ 220 150 translate
+ Scale dup scale
+ systemdict /setstrokeadjust known { true setstrokeadjust } if
+ /I/S/L/W/G/+/Z/F/E/D[/def/exch/for{E D}/add{s E get mul}
+ { Z -36.2001 1 33 }{25 E S rlineto}{/q Z dup q G E q 1 + G}{Z 2 2}]{cvx def}forall
+ [0 72 1008 {dup sin E cos }F ]1 setlinejoin/s W{/a W{/b I 10{/i I 4{/m I moveto
+ i m +/j I 10{/l Z b m l + G a l G sub s m get div .2 + floor .3 + 25
+ mul j l + S rmoveto}F i L j L stroke }F}F}F}F
+ grestore
+% pop pop
+} def
+%
+/PenroseFillA {% on stack: scaling factor, border color, kite color, dart color
+ /Scale ED
+ Scale dup scale
+ /border_colour ED
+ /kite_colour ED
+ /dart_colour ED
+ clip
+
+ newpath
+ gsave
+ 100 100 translate
+ 6
+ Scale 1 lt { 1 Scale dup add div mul cvi } if %%%% Number of iterations
+ 10 %%%% Long side length in millimeters
+ /border_width { L 0.06 mul }def %%%% Choose the scalefactor for the borders
+ /L exch 25.4 div 72 mul def %%%% Conversion: mm -> inches -> points
+ /f{-1 5 sqrt add 2 div}bind def %%%% The reciprocal of the golden ratio
+ /l{L f mul}bind def %%%% Short side length l = L*f
+ /Ll{L l add}bind def %%%% Ll = L + l
+ /c{36 cos L mul}bind def %%%% c = L*cos(36)
+ /s{36 sin L mul}bind def %%%% s = L*sin(36)
+ /draw_tile { 0 0 moveto c s lineto 0 lineto gsave closepath gsave fill grestore
+ 0 setlinewidth stroke grestore border_colour stroke } bind def
+ /half_kite { dup dup 0 gt{ 1 sub gsave f f neg scale -36 rotate half_dart
+ Ll 0 translate 144 rotate kite grestore }
+ { kite_colour L draw_tile }ifelse
+ pop } bind def
+ /half_dart { dup dup 0 gt{ 1 sub gsave f f scale half_kite
+ -144 rotate Ll neg 0 translate half_dart grestore }
+ { dart_colour l draw_tile }ifelse
+ pop } bind def
+ /kite{ gsave half_kite 1 -1 scale half_kite grestore }bind def
+ border_width setlinewidth 1 setlinejoin 1 setlinecap
+% 450 0 translate
+ dup f exch neg exp dup scale
+ 5 {kite 72 rotate } repeat stroke
+ grestore
+} def
+%
+%
+/TruchetFill { % on stack: scaling factor
+ 10 dict begin
+ dup dup scale
+ 1 exch div round /penroseFactor ED
+ a 0 dtransform round exch round exch
+ 2 copy idtransform
+ exch Atan rotate
+ idtransform pop /a ED
+ .25 .25 itransform pathbbox
+ /y2 ED
+ a Div ceiling cvi /x2 ED /y1 ED
+ a Div cvi /x1 ED /y2 y2 y1 sub def
+ clip
+ newpath
+ systemdict
+ /setstrokeadjust known { true setstrokeadjust } if
+ /ma a neg def
+ /ha a 2 div def
+ /mha ha neg def
+ /tile {
+ rand dup 2 idiv 2 mul eq { 90 rotate } if
+ mha mha moveto ha mha lineto
+ ha ha lineto mha ha lineto
+% closepath .1 setlinewidth stroke
+ contents
+ } def
+ /contents{
+ 0 ha moveto ha 0 lineto
+ 0 mha moveto mha 0 lineto
+% 1 setlinewidth stroke
+ } def
+ /dotiling {
+ f ma mul a f a mul {
+ /i exch def
+ f ma mul a f a mul {
+ /j exch def
+ gsave i j translate
+ tile stroke grestore
+ } for
+ } for
+ } def
+%
+ /f 3 def
+ 5 srand dotiling
+ end % local user dict
+} def
+%
+/BeginArrow {
+ ADict begin % hold it local, for end see EndArrow
+ /@mtrx CM def
+ gsave
+ 2 copy T
+ 2 index sub neg exch
+ 3 index sub exch Atan
+ rotate newpath
+} def
+%
+/EndArrow { @mtrx setmatrix CP grestore end } def % end the ADict
+%
+/Arrow {
+ CLW mul add dup
+ 2 div /w ED
+ mul dup /h ED
+ mul /a ED
+ { 0 h T 1 -1 scale } if
+ w neg h moveto
+ 0 0 L w h L w neg a neg rlineto
+ gsave fill grestore
+} def
+%
+/ArrowD { % the sides are drawn as curves (hv 20071211)
+ CLW mul add dup
+ 2 div /w ED
+ mul dup /h ED
+ mul /Inset ED
+ { 0 h T 1 -1 scale } if % changes the direction
+% we use y=w/h^2 * x^2 as equation for the control points
+% for the coordinates the arrow is seen from top to bottom
+% the bottom (tip) is (0;0)
+ w neg h moveto % lower left of >
+ w 9 div 4 mul neg h 3 div 2 mul
+ w 9 div neg h 3 div
+ 0 0 curveto % tip of >
+ w 9 div h 3 div
+ w 9 div 4 mul h 3 div 2 mul
+ w h curveto % upper left of >
+ w neg Inset neg rlineto % move to x=0 and inset
+ gsave fill grestore
+} def
+%
+/Tbar {
+ CLW mul add /z ED
+ z -2 div CLW 2 div moveto
+ z 0 rlineto stroke
+ 0 CLW moveto
+} def
+%
+/Bracket {
+ CLW mul add dup CLW sub 2 div
+ /x ED mul CLW add /y ED /z CLW 2 div def
+ x neg y moveto
+ x neg CLW 2 div L x CLW 2 div L x y L stroke
+ 0 CLW moveto
+} def
+%
+/RoundBracket {
+ CLW mul add dup 2 div
+ /x ED mul /y ED /mtrx CM def
+ 0 CLW 2 div T x y mul 0 ne { x y scale } if
+ 1 1 moveto
+ .85 .5 .35 0 0 0 curveto
+ -.35 0 -.85 .5 -1 1 curveto
+ mtrx setmatrix stroke 0 CLW moveto
+} def
+%
+/SD { 0 360 arc fill } def
+%
+/EndDot { % DS is the dot size
+ { /z DS def } { /z 0 def } ifelse % outer or inner dimen
+ /b ED % the color definition
+ 0 z DS SD
+ b { 0 z DS CLW sub SD } if
+ 0 DS z add CLW 4 div sub
+ moveto
+} def
+%
+/Shadow { [ { /moveto load } { /lineto load } { /curveto load } {
+ /closepath load } /pathforall load stopped { pop pop pop pop CP /moveto
+ load } if ] cvx newpath 3 1 roll T exec } def
+%
+/NArray { % holds the coordinates and on top of stack the showpoints boolean
+ /showpoints ED
+ counttomark 2 div dup cvi /n ED % n 2 div on stack
+ n eq not { exch pop } if % even numbers of points? delete one
+ ] aload /Points ED
+ showpoints not { Points aload pop } if
+% { ] aload /Points ED }
+% { n 2 mul 1 add -1 roll pop } ifelse % delete the mark symbol
+} def
+%
+/Line {
+ NArray n 0 eq not
+ { n 1 eq { 0 0 /n 2 def } if ArrowA /n n 2 sub def
+ n { Lineto } repeat
+ CP 4 2 roll ArrowB L pop pop
+ } if
+} def
+%
+/LineToYAxis {
+ /Ox ED % Save the x origin value
+ NArray % all x-y pairs on stack
+ n { 2 copy moveto % go to current point
+ Ox exch Lineto % line to y-axis
+ pop % delete old x-value
+ } repeat
+} def
+%
+/LineToXAxis{
+ /Oy ED % Save the y origin value
+ NArray % all x-y pairs on stack
+ n 0 eq not
+ { n 1 eq { 0 0 /n 2 def } if
+ ArrowA
+ /n n 2 sub def
+ CP 2 copy moveto pop Oy Lineto
+ n { 2 copy moveto pop Oy Lineto } repeat
+ CP
+ 4 2 roll
+ ArrowB
+ 2 copy moveto pop Oy
+ L
+ pop pop } if
+} def
+%
+/Arcto {
+ /a [ 6 -2 roll ] cvx def
+ a r
+ /arcto load stopped { 5 } { 4 } ifelse { pop } repeat
+ a
+} def
+%
+/CheckClosed {
+ dup n 2 mul 1 sub index eq 2 index n 2 mul 1 add index eq
+ and { pop pop /n n 1 sub def } if
+} def
+%
+/Polygon {
+ NArray n 2 eq { 0 0 /n 3 def } if
+ n 3 lt
+ { n { pop pop } repeat }
+ { n 3 gt { CheckClosed } if
+ n 2 mul -2 roll
+ /y0 ED /x0 ED /y1 ED /x1 ED
+ x1 y1
+ /x1 x0 x1 add 2 div def
+ /y1 y0 y1 add 2 div def
+ x1 y1 moveto
+ /n n 2 sub def
+ n { Lineto } repeat
+ x1 y1 x0 y0 6 4 roll Lineto
+ Lineto pop pop closepath } ifelse
+} def
+%
+/SymbolPolygon { % on stack [ x y x y ...
+ counttomark % number of elements
+ 2 add /m ED
+ 2 copy m 2 roll % copy last two
+ m 2 div cvi /n ED % n pairs
+ /YA ED /XA ED % the start point
+ n 1 sub {
+ /YB ED /XB ED
+ /XLength XB XA sub def
+ /YLength YB YA sub def
+ /PAngle YLength XLength Atan def
+ /XYLength XLength YLength Pyth def
+ /nSym XYLength SymStep Div cvi def
+ /Shift Symbol stringwidth pop 2 Div def
+ /deltaX XLength nSym Div def
+ /deltaY YLength nSym Div def
+ XA Shift sub YA Shift sub moveto
+ nSym {
+ gsave rotateSymbol { PAngle 180 sub CorrAngle sub rotate } if
+ Symbol show
+ grestore
+ deltaX deltaY rmoveto
+ } repeat
+% XB Shift sub YB Shift sub moveto Symbol show
+ /YA YB def /XA XB def
+ } repeat
+ pop % delete the mark symbol
+} def
+%
+/Diamond {
+ /mtrx CM def
+ T rotate
+ /h ED
+ /w ED
+ dup 0 eq { pop } { CLW mul neg
+ /d ED
+ /a w h Atan def
+ /h d a sin Div h add def
+ /w d a cos Div w add def } ifelse
+ mark w 2 div h 2 div w 0 0 h neg w neg 0 0 h w 2 div h 2 div
+ /ArrowA { moveto } def
+ /ArrowB { } def
+ false Line
+ closepath mtrx setmatrix } def
+%
+/Triangle {
+ /mtrx CM def
+ translate
+ rotate /h ED 2 div /w ED
+ dup CLW mul /d ED
+ /h h d w h Atan sin Div sub def
+ /w w d h w Atan 2 div dup cos exch sin Div mul sub def
+ mark
+ 0 d w neg d 0 h w d 0 d
+ /ArrowA { moveto } def
+ /ArrowB { } def
+ false
+ Line
+ closepath
+ mtrx
+% DG/SR modification begin - Jun. 1, 1998 - Patch 3 (from Michael Vulis)
+% setmatrix } def
+ setmatrix pop
+} def
+% DG/SR modification end
+%
+/CCA {
+ /y ED /x ED
+ 2 copy y sub /dy1 ED
+ x sub /dx1 ED
+ /l1 dx1 dy1 Pyth def
+} def
+%
+/CC {
+ /l0 l1 def
+ /x1 x dx sub def
+ /y1 y dy sub def
+ /dx0 dx1 def
+ /dy0 dy1 def
+ CCA
+ /dx dx0 l1 c exp mul dx1 l0 c exp mul add def
+ /dy dy0 l1 c exp mul dy1 l0 c exp mul add def
+ /m dx0 dy0 Atan dx1 dy1 Atan sub 2 div cos abs b exp a mul dx dy Pyth Div 2 div def
+ /x2 x l0 dx mul m mul sub def
+ /y2 y l0 dy mul m mul sub def
+ /dx l1 dx mul m mul neg def
+ /dy l1 dy mul m mul neg def
+} def
+%
+/IC {
+ /c c 1 add def
+ c 0 lt { /c 0 def } { c 3 gt { /c 3 def } if } ifelse
+ /a a 2 mul 3 div 45 cos b exp div def
+ CCA
+ /dx 0 def
+ /dy 0 def
+} def
+%
+/BOC { IC CC x2 y2 x1 y1 ArrowA CP 4 2 roll x y curveto } def
+/NC { CC x1 y1 x2 y2 x y curveto } def
+/EOC { x dx sub y dy sub 4 2 roll ArrowB 2 copy curveto } def
+/BAC { IC CC x y moveto CC x1 y1 CP ArrowA } def
+/NAC { x2 y2 x y curveto CC x1 y1 } def
+/EAC { x2 y2 x y ArrowB curveto pop pop } def
+%
+/OpenCurve {
+ NArray n 3 lt
+ { n { pop pop } repeat }
+ { BOC /n n 3 sub def n { NC } repeat EOC } ifelse
+} def
+%
+/CurvePath {
+ %% for negative SymStep we calculate the distance
+ SymStep 0 lt { gsave PathLength SymStep div abs /SymStep ED grestore } if
+ 0.5 setflat
+ flattenpath /z 0 def /z0 0 def
+ { /y1 ED /x1 ED /y2 y1 def /x2 x1 def
+ x1 Shift sub y1 Shift sub moveto
+ gsave
+ curveticks
+ { x1 y1 translate startAngle rotate
+ 0 SymbolWidth 2 div moveto 0 SymbolWidth 2 div neg lineto
+ SymbolLinewidth setlinewidth stroke
+ }
+ { startAngle rotate Symbol show }
+ ifelse
+ grestore /z0 z def }
+ { /y ED /x ED PathLength@ z z0 sub SymStep ge {
+ x Shift sub y Shift sub moveto
+ gsave
+ curveticks
+ { y yOld sub x xOld sub Atan 180 sub CorrAngle sub /rotAngle ED
+ x y translate rotAngle rotate
+ 0 SymbolWidth 2 div moveto 0 SymbolWidth 2 div neg lineto
+ SymbolLinewidth setlinewidth stroke
+ }
+ {
+ rotateSymbol { y yOld sub x xOld sub Atan 180 sub CorrAngle sub rotate } if
+ Symbol show
+ }
+ ifelse
+ grestore /z0 z def } if
+ /yOld y def /xOld x def }
+ {} %% the lineto part
+ { /y y2 def /x x2 def PathLength@
+ x Shift sub y Shift sub moveto
+ gsave
+ curveticks
+ { y yOld sub x xOld sub Atan 180 sub /rotAngle ED
+ x y translate rotAngle rotate
+ 0 SymbolWidth 2 div moveto 0 SymbolWidth 2 div neg lineto
+ SymbolLinewidth setlinewidth stroke
+ }
+ {
+ x Shift sub y Shift sub moveto
+ rotateSymbol { y yOld sub x xOld sub Atan 180 sub CorrAngle sub rotate } if
+ Symbol show
+ }
+ ifelse
+ grestore
+ }
+ pathforall
+% curveticks
+% { gsave
+% x y translate rotAngle rotate
+% 0 SymbolWidth 2 div moveto 0 SymbolWidth 2 div neg lineto
+% SymbolLinewidth setlinewidth stroke grestore
+% } if
+ z
+} def
+%
+/OpenSymbolCurve {
+ OpenCurve
+ 0.1 setflat
+ /Shift Symbol stringwidth pop 2 div def
+ CurvePath
+} def
+%
+/AltCurve {
+ { false NArray n 2 mul 2 roll
+ [ n 2 mul 3 sub 1 roll ] aload
+ /Points ED
+ n 2 mul -2 roll }
+ { false NArray } ifelse
+ n 4 lt { n { pop pop } repeat } { BAC /n n 4 sub def n { NAC } repeat EAC } ifelse
+} def
+%
+/AltOpenSymbolCurve {
+ AltCurve
+ 0.1 setflat
+ /Shift Symbol stringwidth pop 2 div def
+ CurvePath
+} def
+%
+/ClosedCurve {
+ NArray n 3 lt
+ { n { pop pop } repeat }
+ { n 3 gt { CheckClosed } if
+ 6 copy n 2 mul 6 add 6 roll
+ IC CC x y moveto n { NC } repeat
+ closepath pop pop
+ } ifelse
+} def
+%
+/ClosedSymbolCurve {
+ ClosedCurve
+ 0.1 setflat
+ /Shift Symbol stringwidth pop 2 div def
+ CurvePath
+} def
+%
+/SQ { /r ED r r moveto r r neg L r neg r neg L r neg r L fill } def
+/ST { /y ED /x ED x y moveto x neg y L 0 x L fill } def
+/SP { /r ED gsave 0 r moveto 4 { 72 rotate 0 r L } repeat fill grestore } def
+%
+/FontDot {
+ DS 2 mul dup
+ matrix scale matrix concatmatrix exch matrix
+ rotate matrix concatmatrix exch
+ findfont exch makefont setfont
+} def
+%
+/Rect {
+ x1 y1 y2 add 2 div moveto
+ x1 y2 lineto
+ x2 y2 lineto
+ x2 y1 lineto
+ x1 y1 lineto
+ closepath
+} def
+%
+/OvalFrame {
+ x1 x2 eq y1 y2 eq or
+ { pop pop x1 y1 moveto x2 y2 L }
+ { y1 y2 sub abs x1 x2 sub abs 2 copy gt
+ { exch pop } { pop } ifelse
+ 2 div exch { dup 3 1 roll mul exch } if
+ 2 copy lt { pop } { exch pop } ifelse
+ /b ED
+ x1 y1 y2 add 2 div moveto
+ x1 y2 x2 y2 b arcto
+ x2 y2 x2 y1 b arcto
+ x2 y1 x1 y1 b arcto
+ x1 y1 x1 y2 b arcto
+ 16 { pop } repeat
+ closepath
+ } ifelse
+} def
+%
+/Frame {
+ CLW mul /a ED
+ 3 -1 roll
+ 2 copy gt { exch } if
+ a sub /y2 ED
+ a add /y1 ED
+ 2 copy gt { exch } if
+ a sub /x2 ED
+ a add /x1 ED
+ 1 index 0 eq { pop pop Rect } { OvalFrame } ifelse
+} def
+%
+/BezierNArray {
+ /f ED
+ counttomark 2 div dup cvi /n ED
+ n eq not { exch pop } if
+ n 1 sub neg 3 mod 3 add 3 mod { 0 0 /n n 1 add def } repeat
+ f { ] aload /Points ED } { n 2 mul 1 add -1 roll pop } ifelse
+} def
+%
+/OpenBezier {
+ BezierNArray
+ n 1 eq
+ { pop pop }
+ { ArrowA n 4 sub 3 idiv
+ { 6 2 roll 4 2 roll curveto } repeat
+ 6 2 roll 4 2 roll ArrowB curveto } ifelse
+} def
+%
+/OpenSymbolBezier {
+ OpenBezier
+ 0.1 setflat
+ /Shift Symbol stringwidth pop 2 div def
+ CurvePath
+} def
+%
+/ClosedBezier {
+ BezierNArray
+ n 1 eq
+ { pop pop }
+ { moveto n 1 sub 3 idiv
+ { 6 2 roll 4 2 roll curveto } repeat
+ closepath } ifelse
+} def
+%
+/ClosedSymbolBezier {
+ /f ED % save showpoints value
+ 2 copy /yEnd ED /xEnd ED
+ counttomark -2 roll 2 copy /yStart ED /xStart ED
+ counttomark 2 roll
+ f
+ ClosedBezier
+ 0.1 setflat
+ /Shift Symbol stringwidth pop 2 div def
+ CurvePath
+ [ xEnd yEnd xStart yStart SymbolLine
+} def
+%
+/BezierShowPoints {
+ gsave
+ Points aload length 2 div cvi /n ED
+ moveto
+ n 1 sub { lineto } repeat
+ CLW 2 div SLW [ 4 4 ] 0 setdash stroke
+ grestore
+} def
+%
+/Parab {
+ /y0 ED /x0 ED /y1 ED /x1 ED
+ /dx x0 x1 sub 3 div def
+ /dy y0 y1 sub 3 div def
+ x0 dx sub y0 dy add x1 y1 ArrowA
+ x0 dx add y0 dy add x0 2 mul x1 sub y1 ArrowB
+ curveto
+ /Points [ x1 y1 x0 y0 x0 2 mul x1 sub y1 ] def
+} def
+%
+/Parab1 { % 1 end | 0 SP
+ /ySP ED /xSP ED /y1 ED /x1 ED
+ /dx xSP x1 sub 3 div def
+ /dy ySP y1 sub 3 div def
+ newpath x1 y1 moveto xSP y1 lineto xSP ySP lineto
+ x1 ySP lineto closepath clip
+ currentpoint
+ newpath moveto
+ xSP dx sub ySP dy add x1 y1 ArrowA
+ xSP dx add ySP dy add xSP 2 mul x1 sub y1 ArrowB
+ curveto
+ /Points [ x1 y1 xSP ySP xSP 2 mul x1 sub y1 ] def
+} def
+%
+/Grid {
+ newpath
+ /a 4 string def
+ /b ED % psk@gridlabels in pt
+ /c ED % { \pst@usecolor\psgridlabelcolor }
+ /n ED % psk@griddots
+ cvi dup 1 lt { pop 1 } if
+ /s ED % \psk@subgriddiv
+ s div dup 0 eq { pop 1 } if
+ /dy ED s div dup 0 eq { pop 1 } if % \pst@number\psyunit abs
+ /dx ED dy div round dy mul % \pst@number\psxunit abs
+ /y0 ED dx div round dx mul
+ /x0 ED dy div round cvi
+ /y2 ED dx div round cvi
+ /x2 ED dy div round cvi
+ /y1 ED dx div round cvi
+ /x1 ED
+ /h y2 y1 sub 0 gt { 1 } { -1 } ifelse def
+ /w x2 x1 sub 0 gt { 1 } { -1 } ifelse def
+ b 0 gt {
+ /z1 b 4 div CLW 2 div add def
+% /Helvetica findfont b scalefont setfont
+ /b b .95 mul CLW 2 div add def } if
+ systemdict /setstrokeadjust known
+ { true setstrokeadjust /t { } def }
+ { /t { transform 0.25 sub round 0.25 add exch 0.25 sub round 0.25 add
+ exch itransform } bind def } ifelse
+ gsave n 0 gt { 1 setlinecap [ 0 dy n div ] dy n div 2 div setdash } { 2 setlinecap } ifelse
+ /i x1 def
+ /f y1 dy mul n 0 gt { dy n div 2 div h mul sub } if def
+ /g y2 dy mul n 0 gt { dy n div 2 div h mul add } if def
+ x2 x1 sub w mul 1 add dup 1000 gt { pop 1000 } if
+ { i dx mul dup y0 moveto
+ b 0 gt
+ { gsave c i a cvs dup stringwidth pop
+ /z2 ED w 0 gt {z1} {z1 z2 add neg} ifelse
+ h 0 gt {b neg}{z1} ifelse
+ rmoveto show grestore } if
+ dup t f moveto
+ g t L stroke
+ /i i w add def
+ } repeat
+ grestore
+ gsave
+ n 0 gt
+ % DG/SR modification begin - Nov. 7, 1997 - Patch 1
+ %{ 1 setlinecap [ 0 dx n div ] dy n div 2 div setdash }
+ { 1 setlinecap [ 0 dx n div ] dx n div 2 div setdash }
+ % DG/SR modification end
+ { 2 setlinecap } ifelse
+ /i y1 def
+ /f x1 dx mul n 0 gt { dx n div 2 div w mul sub } if def
+ /g x2 dx mul n 0 gt { dx n div 2 div w mul add } if def
+ y2 y1 sub h mul 1 add dup 1000 gt { pop 1000 } if
+ { newpath i dy mul dup x0 exch moveto
+ b 0 gt { gsave c i a cvs dup stringwidth pop
+ /z2 ED
+ w 0 gt {z1 z2 add neg} {z1} ifelse
+ h 0 gt {z1} {b neg} ifelse
+ rmoveto show grestore } if
+ dup f exch t moveto
+ g exch t L stroke
+ /i i h add def
+ } repeat
+ grestore
+} def
+%
+/ArcArrow {
+ /d ED /b ED /a ED
+ gsave
+ newpath 0 -1000 moveto clip
+ newpath
+ 0 1 0 0 b
+ grestore
+ c mul
+ /e ED
+ pop pop pop r a e d PtoC y add exch x add
+ exch r a PtoC y add exch x add exch b pop pop pop pop a e d CLW 8 div c
+ mul neg d
+} def
+%
+/Ellipse {
+ /rotAngle ED
+ /mtrx CM def
+ T
+ rotAngle rotate
+ scale 0 0 1 5 3 roll arc
+ mtrx setmatrix
+} def
+%
+/ArcAdjust { %%%% Vincent Guirardel
+% given a target length (targetLength) and an initial angle (angle0) [in the stack],
+% let M(angle0)=(rx*cos(angle0),ry*sin(angle0))=(x0,y0).
+% This computes an angle t such that (x0,y0) is at distance
+% targetLength from the point M(t)=(rx*cos(t),ry*sin(t)).
+% NOTE: this an absolute angle, it does not have to be added or substracted to angle0
+% contrary to TvZ's code.
+% To achieve, this, one iterates the following process: start with some angle t,
+% compute the point M' at distance targetLength of (x0,y0) on the semi-line [(x0,y0) M(t)].
+% Now take t' (= new angle) so that (0,0) M(t') and M' are aligned.
+%
+% Another difference with TvZ's code is that we need d (=add/sub) to be defined.
+% the value of d = add/sub is used to know on which side we have to move.
+% It is only used in the initialisation of the angle before the iteration.
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Input stack: 1: target length 2: initial angle
+% variables used : rx, ry, d (=add/sub)
+%
+ /targetLength ED /angle0 ED
+ /x0 rx angle0 cos mul def
+ /y0 ry angle0 sin mul def
+% we are looking for an angle t such that (x0,y0) is at distance targetLength
+% from the point M(t)=(rx*cos(t),ry*sin(t)))
+%initialisation of angle (using 1st order approx = TvZ's code)
+ targetLength 57.2958 mul
+ angle0 sin rx mul dup mul
+ angle0 cos ry mul dup mul
+ add sqrt div
+% if initialisation angle is two large (more than 90 degrees) set it to 90 degrees
+% (if the ellipse is very curved at the point where we draw the arrow, %
+% the value can be much more than 360 degrees !)
+% this should avoid going on the wrong side (more than 180 degrees) or go near
+% a bad attractive point (at 180 degrees)
+ dup 90 ge { pop 90 } if
+ angle0 exch d % add or sub
+% maximum number of times to iterate the iterative procedure:
+% iterative procedure: takes an angle t on top of stack, computes a
+% better angle (and put it on top of stack)
+ 30 { dup
+% compute distance D between (x0,y0) and M(t)
+ dup cos rx mul x0 sub dup mul exch sin ry mul y0 sub dup mul add sqrt
+% if D almost equals targetLength, we stop
+ dup targetLength sub abs 1e-5 le { pop exit } if
+% stack now contains D t
+% compute the point M(t') at distance targetLength of (x0,y0) on the semi-line [(x0,y0) M(t)]:
+% M(t')= ( (x(t)-x0)*targetLength/d+x0 , (y(t)-y0)*targetLength/d+y0 )
+ exch dup cos rx mul x0 sub exch sin ry mul y0 sub
+% stack contains: y(t)-y0, x(t)-x0, d
+ 2 index Div targetLength mul y0 add ry Div exch
+ 2 index Div targetLength mul x0 add rx Div
+% stack contains x(t')/rx , y(t')/ry , d
+% now compute t', and remove D from stack
+ atan exch pop
+ } repeat
+% we don't look at what happened... in particular, if targetLength is greater
+% than the diameter of the ellipse...
+% the final angle will be around /angle0 + 180. maybe we should treat this pathological case...
+% after iteration, stack contains an angle t such that M(t) is the tail of the arrow
+% to give back the result as a an angle relative to angle0 we could add the following line:
+% angle0 sub 0 exch d
+%
+% begin bug fix 2006-01-11
+% we want to adjust the new angle t' by a multiple of 360 so that | t'-angle0 | <= 180
+%(we don't want to make the ellipse turn more or less than it should)...
+dup angle0 sub dup abs 180 gt { 180 add 360 div floor 360 mul sub } { pop } ifelse
+% end bug fix
+} def
+%
+/EllipticArcArrow {
+ /d ED % is add or sub
+ /b ED % arrow procedure
+ /a1 ED % angle
+ gsave
+ newpath
+ 0 -1000 moveto
+ clip % Set clippath far from arrow.
+ newpath
+ 0 1 0 0 b % Draw arrow to determine length.
+ grestore
+% Length of arrow is on top of stack. Next 3 numbers are junk.
+%
+ a1 exch ArcAdjust % Angular position of base of arrow.
+ /a2 ED
+ pop pop pop
+ a2 cos rx mul xOrig add % hv 2007-08-29 x->xOrig
+ a2 sin ry mul yOrig add % hv 2007-08-29 y->yOrig
+ a1 cos rx mul xOrig add %
+ a1 sin ry mul yOrig add %
+% Now arrow tip coor and base coor are on stack.
+ b pop pop pop pop % Draw arrow, and discard coordinates.
+ a2 CLW 8 div
+% change value of d (test it by looking if `` 1 1 d '' gives 2 or not )
+ 1 1 d 2 eq { /d { sub } def } { /d { add } def } ifelse
+ ArcAdjust
+% resets original value of d
+ 1 1 d 2 eq { /d { sub } def } { /d { add } def } ifelse % Adjust angle to give overlap.
+} def
+%%------------------ tvz/DG/hv (2004-05-10) end -------------------%%
+%
+/Rot { CP CP translate 3 -1 roll neg rotate NET } def
+%
+/RotBegin {
+ tx@Dict /TMatrix known not { /TMatrix { } def /RAngle { 0 } def } if
+ /TMatrix [ TMatrix CM ] cvx def
+ /a ED
+ a Rot /RAngle [ RAngle dup a add ] cvx def
+} def
+%
+/RotEnd {
+ /TMatrix [ TMatrix setmatrix ] cvx def
+ /RAngle [ RAngle pop ] cvx def
+} def
+%
+/PutCoor { gsave CP T CM STV exch exec moveto setmatrix CP grestore } def
+/PutBegin { /TMatrix [ TMatrix CM ] cvx def CP 4 2 roll T moveto } def
+/PutEnd { CP /TMatrix [ TMatrix setmatrix ] cvx def moveto } def
+%
+/Uput {
+ /a ED
+ add 2 div /h ED 2
+ div /w ED
+ /s a sin def
+ /c a cos def
+ /b s abs c abs 2 copy gt dup
+ /q ED
+ { pop } { exch pop } ifelse def
+ /w1 c b div w mul def
+ /h1 s b div h mul def
+ q { w1 abs w sub dup c mul abs }{ h1 abs h sub dup s mul abs } ifelse
+} def
+%
+/UUput {
+ /z ED
+ abs /y ED
+ /x ED
+ q { x s div c mul abs y gt }{ x c div s mul abs y gt } ifelse
+ { x x mul y y mul sub z z mul add sqrt z add }
+ { q { x s div } { x c div } ifelse abs
+ } ifelse
+ a PtoC
+ h1 add exch
+ w1 add exch
+} def
+%
+/BeginOL {
+ dup (all) eq exch TheOL eq or
+ { IfVisible not { Visible /IfVisible true def } if }
+ { IfVisible { Invisible /IfVisible false def } if } ifelse
+} def
+%
+/InitOL {
+ /OLUnit [ 3000 3000 matrix defaultmatrix dtransform ] cvx def
+ /Visible { CP OLUnit idtransform T moveto } def
+ /Invisible { CP OLUnit neg exch neg exch idtransform T moveto } def
+ /BOL { BeginOL } def
+ /IfVisible true def
+} def
+%
+end
+%-----------------------------------------------------------------------------%
+%
+% END pstricks.pro
+
+%%EndProcSet
+%%BeginProcSet: pst-algparser.pro 0 0
+% $Id: pst-algparser.pro 801 2013-07-09 18:10:41Z herbert $
+%%
+%% PostScript prologue for PSTricks algorithm parser
+%% Version 0.04, 2011/10/21
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%%
+%%-----------------------------------------------------------------------------%
+%
+/AlgParser { tx@AlgToPs begin AlgToPs end } def % Dominique Rodriguez
+%
+/tx@CoreAnalyzerDict 100 dict def tx@CoreAnalyzerDict begin
+%
+% PS ANALYZER FOR ALGEBRAIC EXPRESSION V1.13
+%
+% 09/2011 DR factorial with ! added
+%
+% E->T|E+T
+% T->FS|T*FS
+% FS -> F | +FS | -FS
+% F->P|F^SF|P!
+% P->(E)|literal
+% literal->number|var|var[E]|func(params)
+% params->E|E,param
+% number->TOBEFINISHED
+%
+%% E expression, T term, SF signed factor, F factor, P power
+%
+%% parser
+%
+%% str
+%
+%% C->E<condition_operators>E
+%% STR index -> STR index+lenExpr
+/AnalyzeCond { AnalyzeExpr ReadCondOp AnalyzeExpr EvalCondOp } def
+%
+%% analyze Expression List (separator , or | )
+%% STR index -> STR index+lenExpr
+%% /AnalyzeListOfE {
+%% { NextNonBlankChar pop AnalyzeExpr%%dup Strlen eq { exit } if NextNonBlankChar
+%% NextNonBlankChar dup 0 eq { pop exit } if
+%% dup 44 ne 1 index 124 ne and { dup 41 ne { PROBLEMCONTACTBILLOU } { pop exit } ifelse } if
+%% pop NextNonBlankChar dup 0 eq { exit } if 124 ne { PROBLEMCONTACTBILLOU } if 1 add NextNonBlankChar 0 eq {toto} if } loop
+%% AnalyzeListOfEPostHook
+%% } def
+/AnalyzeListOfE {
+ /NotFirst false def
+ { NextNonBlankChar pop AnalyzeExpr
+ NotFirst { EvalListOfExpr } { /NotFirst true def } ifelse
+ dup Strlen eq { exit } if NextNonBlankChar
+ dup 44 ne 1 index 124 ne and
+ { dup 41 ne { PROBLEMCONTACTBILLOU } { pop exit } ifelse }
+ if pop 1 add } loop
+ AnalyzeListOfEPostHook
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% E->T|E+T
+%% STR index -> STR index+lenExpr
+/AnalyzeExpr {
+ AnalyzePreHook AnalyzeTerm IsEndingExpr
+ { dup 0 ne { 32 eq { NextNonBlankChar } if } { pop } ifelse }
+ { { RollOp 1 add NextNonBlankChar pop AnalyzeTerm PreEvalHook EvalAddSub IsEndingExpr { pop exit } if } loop }
+ ifelse
+ AnalyzePostHook
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% T->FS|T*FS
+%% STR index
+/AnalyzeTerm {
+ AnalyzePreHook AnalyzeSignedFactor IsEndingTerm
+ { dup 0 ne { 32 eq { NextNonBlankChar } if } { pop } ifelse }
+ { { RollOp 1 add NextNonBlankChar pop AnalyzeSignedFactor PreEvalHook EvalMulDiv IsEndingTerm { pop exit } if} loop }
+ ifelse
+ AnalyzePostHook
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% FS -> F | +FS | -FS
+%% STR index
+/AnalyzeSignedFactor {
+ AnalyzePreHook 2 copy get dup IsUnaryOp
+ { RollOp 1 add NextNonBlankChar pop AnalyzeSignedFactor EvalUnaryOp }
+ { pop AnalyzeFactor }
+ ifelse AnalyzePostHook
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% F->P|F^P|P!
+%% STR index
+/AnalyzeFactor {
+ AnalyzePreHook AnalyzePower IsEndingFactor
+ { dup 0 ne { 32 eq { NextNonBlankChar } if } { pop } ifelse }
+ { { dup 33 eq%% is there a ! DR 09/2011
+ { pop 1 add NextNonBlankChar pop EvalFactorial }
+ { RollOp 1 add NextNonBlankChar pop AnalyzePower PreEvalHook EvalPower }
+ ifelse
+ IsEndingFactor { pop exit } if } loop }
+ ifelse AnalyzePostHook
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% P->(E)|literal
+%% STR index
+/AnalyzePower {
+ %% depending of first char either a number, or a literal
+ 2 copy get dup 40 eq%%an open par
+ { pop 1 add NextNonBlankChar pop AnalyzeExpr 1 add NextNonBlankChar pop }
+ { AnalyzeLiteral }
+ ifelse
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% STR index STR[index] -> STR index
+%/AnalyzeLiteral { IsNumber { EvalNumber } { EvalLiteral } ifelse } def
+/AnalyzeLiteral { dup IsUnaryOp exch IsNumber or { EvalNumber } { EvalLiteral } ifelse } def%%dr 09102006
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% recognize + or -
+%% chr -> T/F
+/IsUnaryOp { dup 43 eq exch 45 eq or } bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% a number can contain only : 0123456789.
+%% chr -> T/F
+/IsNumber { dup 48 ge exch dup 57 le 3 -1 roll and exch 46 eq or } bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% STR index -> STR index number
+%% a number can be of the form [0-9]*.[0-9]*\([eE][+-]?[0-9]+\)?
+%% STR index -> STR index' number
+/ReadNumber {
+ exch dup 3 -1 roll dup 3 1 roll
+ %%read mantissa
+ { 1 add 2 copy dup Strlen eq { pop pop 0 exit } if get dup IsNumber not { exit } if pop } loop
+ dup 101 eq exch 69 eq or
+ %%% there is a "e" or "E" -> read exponant
+ { 1 add 2 copy get dup IsUnaryOp
+ { pop 1 add 2 copy get } if
+ { IsNumber not { exit } if 1 add 2 copy get } loop }
+ if
+ dup 4 1 roll
+ 3 -1 roll exch 1 index sub getinterval
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% a number can contain only : 0123456789.
+%% chr -> T/F
+/IsCondOp { dup 30 eq exch dup 60 ge exch 62 le and or } bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% STR index -> STR index number
+%% a number can be of the form [0-9]*.[0-9]*\([eE][+-]?[0-9]+\)?
+%% STR index -> STR index' number
+/ReadCondOp {
+ NextNonBlankChar 1 index 4 1 roll
+ { IsCondOp not { exit } if 1 add 2 copy get } loop
+ 2 copy 5 -1 roll
+ exch 1 index sub getinterval 3 1 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% a literal can contain only : 0123456789.
+%% chr -> T/F
+/IsLiteral {%
+ dup 48 ge exch dup 57 le 3 -1 roll and exch
+ dup 65 ge exch dup 90 le 3 -1 roll and 3 -1 roll or exch
+ dup 97 ge exch 122 le and or } bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% a literal can be of the form [a-zA-Z][a-zA-Z0-9]*\(\((Expression)\)|\(\[Expression\]\)\)?
+%% STR index -> literal STR index' nextchr
+/ReadLiteral {
+ exch dup 3 -1 roll dup 3 1 roll
+ %%read literal core
+ { 2 copy dup Strlen eq { pop pop 0 exit } if get dup IsLiteral not { exit } if pop 1 add } loop
+ 4 1 roll dup 5 1 roll 3 -1 roll exch 1 index sub getinterval 4 1 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% expr is ended by end of str or a clpar
+%% STR index -> STR index STR[index] T/F
+/IsEndingExpr {%
+ 2 copy dup Strlen eq
+ %% if end of str is reached -> end !
+ { pop pop 0 true }
+ %% ending chr -> clpar, comma, |, <, >, =, !,
+ {get dup dup 41 eq
+ exch dup 124 eq
+ exch dup 93 eq
+ exch dup 44 eq
+ exch dup 30 eq
+ exch dup 60 ge exch 62 le and or or or or or}
+ ifelse } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% expr is ended by end of str or a +-
+%% STR index -> STR index STR[index] T/F
+/IsEndingTerm { IsEndingExpr { true } { dup dup 43 eq exch 45 eq or } ifelse } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% expr is ended by end of str or */
+%% STR index -> STR index STR[index] T/F
+/IsEndingFactor { IsEndingTerm { true } { dup dup 42 eq exch 47 eq or } ifelse } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% expr is ended by end of str or ^
+%% STR index -> STR index STR[index] T/F
+/IsEndingPower { IsEndingFactor { true } { dup 94 eq } ifelse } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% STR index -> STR index STR[index]
+/NextNonBlankChar { { dup Strlen eq { 0 exit } if 2 copy get dup neBlkChar { exit } if pop 1 add } loop } bind def
+/neBlkChar { dup 32 ne exch dup 10 ne exch 9 ne and and } bind def
+%%%%%%%%%%%%%%%%%%%%%%%%
+%% DEBUG
+/BRK {false} def
+/BRKtrue {/BRK true def} def
+/BRKStop {BRK {BRKtoto} if } def
+/BRKEvalStop {BRK exch if } def
+/BRKBRK2true {BRK {BRK2true} if } def
+/BRK2 {false} def
+/BRK2true {/BRK2 true def} def
+/BRK2Stop {BRK2 {BRK2toto} if } def/BRK {false} def
+end
+%
+%-------------------------------------------------------------------------------%
+%
+/tx@AlgToPs 12 dict def tx@AlgToPs begin
+%
+%% algExpr -> PSVector
+/AlgToPs { tx@CoreAnalyzerDict begin InitParser AnalyzeListOfE pop pop EndingSequence end } def
+/EndingSequence { ExpressionVector aload length /end cvx exch 1 add array astore } def
+/InitParser { /ExpressionVector [ /tx@AddMathFunc cvx /begin cvx ] def dup length /Strlen exch def 0 } def
+/Strlen 0 def
+/EvalListOfExpr {} def%
+/EvalNumber {%
+ ReadNumber cvr /ExpressionVector ExpressionVector aload length dup 3 add -1 roll cvx
+ exch 1 add array astore def NextNonBlankChar pop } def
+/EvalAddSub {%
+ /ExpressionVector ExpressionVector aload length dup 5 add -1 roll
+ 43 eq { /add } { /sub } ifelse cvx exch 1 add array astore def
+} def
+/EvalMulDiv {%
+ /ExpressionVector ExpressionVector aload length dup 5 add -1 roll
+ 42 eq { /mul } { /div } ifelse cvx exch 1 add array astore def
+} def
+/EvalPower {%
+ /ExpressionVector ExpressionVector aload length dup 5 add -1 roll
+ pop /exp cvx exch 1 add array astore def
+} def
+/EvalFactorial {% DR 09/2011
+ /ExpressionVector ExpressionVector aload length
+ /fact cvx exch 1 add array astore def
+} def
+/EvalLiteral {%
+ ReadLiteral
+ dup 40 eq%%% there is an open par -> function call
+ { pop 2 index
+ dup (Sum) eq { EvalSum }
+ { dup (IfTE) eq { EvalCond }
+ { dup (Derive) eq { pop EvalDerive }
+ { pop 1 add NextNonBlankChar pop AnalyzeListOfE 2 index TrigoFunc
+ /ExpressionVector ExpressionVector aload length dup 5 add -1 roll cvn cvx
+ exch 1 add array astore def 1 add NextNonBlankChar pop } ifelse } ifelse} ifelse }
+ { /ExpressionVector ExpressionVector aload length dup 6 add -1 roll cvn cvx exch 1 add array astore def
+ dup 91 eq%%% there is an open bracket -> vector element
+ { pop 1 add NextNonBlankChar pop AnalyzeExpr
+ /ExpressionVector ExpressionVector aload length /cvi cvx exch /get cvx exch 2 add array astore def 1 add }
+ { pop NextNonBlankChar pop }
+ ifelse}
+ ifelse
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% the derive function : Derive(n,f(x))
+%% firstparindex lastparindex ->
+/EvalDerive {
+ %% manage the function descripiton
+ 1 add ReadNumber 3 1 roll NextNonBlankChar
+ 44 ne { ANALYZER_ERROR_missing_second_comma_in_Sum } if
+ 1 add NextNonBlankChar pop
+ 3 -1 roll cvi
+ dup 0 eq
+ { pop AnalyzeExpr 3 -1 roll pop 1 add }
+ { 1 sub 3 1 roll (x) exch tx@Derive begin DeriveIndexed end 4 -1 roll
+ { (x) tx@Derive begin Derive end } repeat
+ ExpressionVector exch /ExpressionVector [] def
+ AlgToPs aload length
+ /ExpressionVector 1 index 3 add -1 roll aload length dup 3 add -1 roll /l2 exch def /l1 exch def
+ l1 l2 add 1 add l2 neg roll l1 l2 add array astore def 3 -1 roll pop 1 add
+ 1 index length /Strlen exch def } ifelse
+} def
+/EvalSum {%
+ pop 1 add NextNonBlankChar pop
+ %% read the variable name
+ ReadLiteral pop NextNonBlankChar
+ 44 ne { ANALYZER_ERROR_missing_first_comma_in_Sum } if
+ %% read the initial value
+ 1 add NextNonBlankChar pop ReadNumber cvi 3 1 roll
+ 2 copy get 44 ne { ANALYZER_ERROR_missing_second_comma_in_Sum } if
+ %% read the increment value
+ 1 add NextNonBlankChar pop ReadNumber cvi 3 1 roll
+ 2 copy get 44 ne { ANALYZER_ERROR_missing_second_comma_in_Sum } if
+ %% read the limit value
+ 1 add NextNonBlankChar pop ReadNumber cvi 3 1 roll
+ 2 copy get 44 ne { ANALYZER_ERROR_missing_second_comma_in_Sum } if
+ /ExpressionVector ExpressionVector aload length dup 7 add -3 roll 0 4 1 roll
+ 5 -1 roll 4 add array astore def
+ %% keep ExpressionVector for later and create a new one for internal Sum computation
+ ExpressionVector 3 1 roll /ExpressionVector [ 6 -1 roll cvn /exch cvx /def cvx ] def
+ 1 add NextNonBlankChar pop AnalyzeExpr
+ %% add each term
+ /ExpressionVector ExpressionVector aload length 1 add /add cvx exch array astore def
+ /ExpressionVector 4 -1 roll aload length ExpressionVector cvx /for cvx 3 -1 roll 2 add
+ array astore def 3 -1 roll pop 1 add
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Convert to radians if trigo function call
+%% (name) ->
+/TrigoFunc {
+ dup (cos) eq 1 index (sin) eq or exch (tan) eq or
+ { /ExpressionVector ExpressionVector aload length Pi /div cvx 180 /mul cvx 5 -1 roll 4 add
+ array astore def
+ } if
+} def
+/EvalCond {%
+ pop 1 add AnalyzeCond NextNonBlankChar
+ 44 ne { ANALYZER_ERROR_missing_first_comma_in_IfTE } if
+ ExpressionVector 3 1 roll /ExpressionVector [] def
+ 1 add AnalyzeExpr ExpressionVector 3 1 roll /ExpressionVector [] def
+ NextNonBlankChar 44 ne { ANALYZER_ERROR_missing_second_comma_in_IfTE } if
+ 1 add AnalyzeExpr
+ NextNonBlankChar 41 ne { ANALYZER_ERROR_missing_ending parenthesis_in_IfTE } if
+ ExpressionVector
+ /ExpressionVector 6 -1 roll aload length dup
+ 6 add -1 roll cvx exch dup 4 add -1 roll cvx /ifelse cvx 3 -1 roll 3 add array astore def
+ 1 add 3 -1 roll pop
+} def
+%% CondOp STR index
+/EvalCondOp {%
+ 3 -1 roll
+ dup (=) eq { /eq } {%
+ dup (<) eq { /lt } {%
+ dup (>) eq { /gt } {%
+ dup (>=) eq { /ge } {%
+ dup (<=) eq { /ge } {%
+ dup (!=) eq { /ne } { ERROR_non_valid_conditional_operator }
+ ifelse } ifelse } ifelse } ifelse } ifelse } ifelse
+ cvx exch pop
+ /ExpressionVector ExpressionVector aload length dup 3 add -1 roll exch 1 add array astore def } def
+/EvalUnaryOp {
+ 3 -1 roll 45 eq { /ExpressionVector ExpressionVector aload length /neg cvx exch 1 add array astore def } if
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% H O O K S
+/AnalyzePreHook {} bind def
+/PreEvalHook {} bind def
+/AnalyzeListOfEPostHook {} bind def
+/AnalyzePostHook {} def
+/RollOp { 3 1 roll } bind def
+end %tx@CoreAnalyzerDict
+%
+%--------------------------------------------------------------------%
+%
+/tx@Derive 41 dict def tx@Derive begin
+%%increase ^^ for each function added
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% algExpr variable -> PSVector
+/Derive {%
+ 10240 string 3 1 roll 0 3 1 roll
+ /Variable exch def
+ tx@CoreAnalyzerDict begin InitParser AnalyzeListOfE end
+} def
+/Strlen 0 def
+/InitParser { dup length /Strlen exch def 0 } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% algExpr variable index -> PSVector
+/DeriveIndexed {%
+ 3 1 roll 10240 string 3 1 roll 0 3 1 roll
+ /Variable exch def
+ tx@CoreAnalyzerDict begin InitParser pop 4 -1 roll AnalyzeExpr 4 -2 roll pop pop 4 -2 roll exch pop end
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (u,v)'=-(u',v')
+/EvalListOfExpr {%
+ 4 2 roll 2 copy 9 -1 roll dup length 4 1 roll putinterval add AddPipe
+ 2 copy 7 -1 roll dup length 4 1 roll putinterval add
+ 6 -2 roll pop pop
+ 2 copy pop 0 6 2 roll GetIntervalNewStr 5 1 roll 2 copy 0 exch getinterval 6 1 roll } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (-u)'=-(u')
+/EvalUnaryOp {
+ 4 -2 roll 4 index (0) eq
+ { (0) StrConcat 7 -1 roll pop }
+ { 7 -1 roll 45 eq
+ { AddSub AddOpPar true } { false } ifelse
+ 3 1 roll 5 index StrConcat 3 -1 roll { AddClPar } if } ifelse
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ 7 -2 roll pop pop 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (number)'=0
+/EvalNumber { ReadNumber (0) 6 2 roll } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (u+v)'=u'+v'
+/EvalAddSub {%
+ 7 index dup (0) eq
+ { pop true }%% du=0 nothing added
+ { dup length exch 5 index 5 index 3 -1 roll putinterval 4 -1 roll add 3 1 roll false }
+ ifelse
+ 5 index dup (0) eq
+ { pop { (0) } { 4 -2 roll 2 copy pop 0 6 2 roll GetIntervalNewStr } ifelse }%%dv=0
+ { exch
+ { 5 -2 roll 7 index 45 eq { AddSub } if false } %%nothing yet added
+ { 5 -2 roll 7 index 43 eq%%something yet added
+ { AddAdd false } { AddSub AddOpPar true } ifelse }
+ ifelse 11 1 roll
+ 3 -1 roll StrConcat 10 -1 roll { AddClPar } if
+ 2 copy pop 0 6 2 roll GetIntervalNewStr }
+ ifelse
+ mark 11 -5 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (u*v)' or (u/v)'
+/EvalMulDiv { 6 index 42 eq {EvalMul} {EvalDiv} ifelse } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (u*v)'=u'*v+u*v'
+/EvalMul {%
+ 4 -2 roll 7 index dup (0) eq
+ { pop false }%%du=0
+ { (1) eq%%du=1
+ { false }
+ { AddOpPar 7 index StrConcat AddClPar AddMul AddOpPar true } ifelse
+ 3 1 roll 6 index StrConcat 3 -1 roll { AddClPar } if
+ true }%%du!=0
+ ifelse
+ 5 1 roll 5 index (0) eq
+ { 5 -1 roll not { (0) StrConcat } if }%%dv=0
+ { 5 -1 roll { AddAdd } if
+ 4 index (1) eq
+ { 8 index StrConcat }
+ { AddOpPar 8 index StrConcat AddClPar AddMul AddOpPar 4 index StrConcat AddClPar }
+ ifelse
+ }%%dv!=0
+ ifelse
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ mark 11 -5 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (u/v)'=(u'*v-u*v')/v^2
+/EvalDiv {%
+ 4 -2 roll
+ 4 index (0) eq%%dv=0 -> u'/v
+ { 7 index (0) eq { (0) StrConcat } { AddOpPar 7 index StrConcat AddClPar AddDiv 5 index StrConcat } ifelse }
+ { 7 index dup (0) eq
+ { pop }%%du=0
+ { (1) eq%%du=1
+ { false }
+ { AddOpPar 7 index StrConcat AddClPar AddMul AddOpPar true } ifelse
+ 3 1 roll 6 index StrConcat 3 -1 roll { AddClPar } if}%%du!=0
+ ifelse
+ AddSub
+ 4 index (1) eq
+ { 8 index StrConcat }
+ { AddOpPar 8 index StrConcat AddClPar AddMul AddOpPar 4 index StrConcat AddClPar }
+ ifelse
+ %}%%dv!=0
+ 2 copy GetIntervalNewStr 3 1 roll pop 0 AddOpPar 3 -1 roll StrConcat AddClPar
+ AddDiv AddOpPar 5 index StrConcat AddClPar 2 copy (^2) putinterval 2 add }
+ ifelse
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ mark 11 -5 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% str1 index str2 -> str1 index
+/StrConcat { dup length 4 2 roll 2 copy 6 -1 roll putinterval 3 -1 roll add } bind def
+/GetIntervalNewStr { 0 exch getinterval dup length string copy } bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (u^v)'=(u^v)'=u'vu^(v-1)+v'u^(v)ln(u)
+/EvalPower {%
+ 4 -2 roll 7 index (0) eq
+ {%%if du=0 then (u^v)'=v'ln(u)u^v
+ 4 index (0) eq
+ { (0) StrConcat }%%if dv=0 then (u^v)'=0
+ { 4 index (1) ne { AddOpPar 4 index StrConcat (\)*) StrConcat } if
+ 8 index (e) ne { (ln\() StrConcat 8 index StrConcat (\)*) StrConcat } if
+ AddOpPar 8 index StrConcat (\)^\() StrConcat 5 index StrConcat AddClPar } ifelse
+ }
+ {%%du!=0
+ 4 index (0) eq
+ {%%if dv=0 then (u^v)'=vu'u^(v-1)
+ 5 index dup IsStrNumber
+ { dup (0) eq
+ { StrConcat }
+ { dup dup (1) eq exch (1.0) eq or
+ { StrConcat }
+ { StrConcat
+ 7 index dup (1) ne exch (1.0) ne and%%%dr 09102006 insert du if <> 1
+ { (*\() StrConcat 7 index StrConcat (\)) StrConcat } if%%%dr 09102006
+ (*\() StrConcat 8 index StrConcat (\)) StrConcat
+ 5 index dup dup (2) eq exch (2.0) eq or
+ { pop } { cvr 1 sub 20 string cvs 3 1 roll (^) StrConcat 3 -1 roll StrConcat } ifelse } ifelse } ifelse }
+ { pop AddOpPar 5 index StrConcat (\)*\() StrConcat 8 index StrConcat (\)^\() StrConcat
+ 5 index StrConcat (-1\)) StrConcat } ifelse
+ }
+ {%%if dv!=0 and du!=0 then (u^v)'=u'vu^(v-1)+v'u^(v)ln(u)
+ 7 index (1) ne { AddOpPar 7 index StrConcat (\)*) StrConcat } if
+ AddOpPar 5 index StrConcat (\)*\() StrConcat
+ 8 index StrConcat (\)^\() StrConcat
+ 5 index StrConcat (-1\)+\() StrConcat
+ 4 index (1) ne { 4 index StrConcat (\)*\() StrConcat } if
+ 8 index StrConcat (\)^\() StrConcat
+ 5 index StrConcat (\)*ln\() StrConcat
+ 8 index StrConcat AddClPar
+ } ifelse
+ } ifelse
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ mark 11 -5 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% No derivative for factorial ! only cst => null derivative
+/EvalFactorial {% DR 09/2011
+ 4 index (0) eq
+ { (0) mark 8 -2 roll cleartomark 2 index 7 index dup 4 index exch sub getinterval exch 6 2 roll }
+ { DERIVATIVE_ENGINE_ERROR_no_variable_in_factorial } ifelse
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% str -> true/false
+/IsStrNumber {%
+ true exch
+ { dup 48 lt exch dup 57 gt 3 -1 roll or
+ exch dup 46 ne%%.
+ exch dup 43 ne%%+
+ exch 45 ne%%-
+ and and and { pop false } if } forall
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% literal switch -> func call, vector, variables
+/EvalLiteral {%
+ ReadLiteral dup 40 eq%%% there is an open par -> function call
+ { pop (EvalFunc_ ) 9 4 index StrConcat 0 exch getinterval cvn cvx exec }
+ { dup 91 eq%%% there is an open bracket -> vector element
+ { DERIVATIVE_ENGINE_ERROR_vector_not_yet_implemented }
+ { pop EvalVariable }
+ ifelse }
+ ifelse
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% first last parpos Expr[first:parpos-1] ->
+/EvalVariable { 2 index Variable eq { (1) } { (0) } ifelse 4 -1 roll exch 6 2 roll } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (f(u))'=u'f'(u)
+/EvalFunc {
+ 4 2 roll 4 index (1) ne
+ { AddOpPar 4 index StrConcat (\)*) StrConcat } if
+ (Eval ) 4 8 index StrConcat 0 exch getinterval cvn cvx exec
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ mark 9 -3 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Func derivative -> Eval<func>
+/EvalFunc_sin {%
+ PreCommonFunc
+ { (cos\() StrConcat 5 index StrConcat AddClPar } if
+ PostCommonFunc } def
+/EvalFunc_cos {%
+ PreCommonFunc
+ { (\(-sin\() StrConcat 5 index StrConcat (\)\)) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_tan {%
+ PreCommonFunc
+ { dup 0 eq { (1) StrConcat } { 1 sub } ifelse (/cos\() StrConcat 5 index StrConcat (\)^2) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_asin {%
+ PreCommonFunc
+ { (1/sqrt\(1-\() StrConcat 5 index StrConcat (\)^2\)\)) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_acos {%
+ PreCommonFunc
+ { (-1/sqrt\(1-\() StrConcat 5 index StrConcat (\)^2\)\)) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_atg {%
+ PreCommonFunc
+ { (1/\(1+\() StrConcat 5 index StrConcat (\)^2\)\)) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_ln {%
+ PreCommonFunc
+ { dup 0 eq { (1) StrConcat } { 1 sub } ifelse (/\() StrConcat 5 index StrConcat AddClPar } if
+ PostCommonFunc } def
+/EvalFunc_exp {%
+ PreCommonFunc
+ { (exp\() StrConcat 5 index StrConcat AddClPar } if
+ PostCommonFunc } def
+/EvalFunc_EXP {%
+ PreCommonFunc
+ { (EXP\() StrConcat 5 index StrConcat AddClPar } if
+ PostCommonFunc } def
+/EvalFunc_sqrt {%
+ PreCommonFunc
+ { dup 0 eq { (1) StrConcat } { 1 sub } ifelse (/\(2*sqrt\() StrConcat 5 index StrConcat (\)\)) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_Fact {%
+ PreCommonFunc { DERIVATIVE_ENGINE_ERROR_no_variable_expression_in_Fact } if
+ PostCommonFunc } def
+/EvalFunc_sh {%
+ PreCommonFunc
+ { (ch\() StrConcat 5 index StrConcat AddClPar } if
+ PostCommonFunc } def
+/EvalFunc_ch {%
+ PreCommonFunc
+ { (sh\() StrConcat 5 index StrConcat AddClPar } if
+ PostCommonFunc } def
+/EvalFunc_th {%
+ PreCommonFunc
+ { dup 0 eq { (1) StrConcat } { 1 sub } ifelse (/ch\() StrConcat 5 index StrConcat (\)^2) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_Argsh {%
+ PreCommonFunc
+ { (1/sqrt\(1+\() StrConcat 5 index StrConcat (\)^2\)\)) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_Argch {%
+ PreCommonFunc
+ { (1/sqrt\(\() StrConcat 5 index StrConcat (\)^2-1\)\)) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_Argth {%
+ PreCommonFunc
+ { (1/\(1-\() StrConcat 5 index StrConcat (\)^2\)\)) StrConcat } if
+ PostCommonFunc } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+/PreCommonFunc {
+ 1 add NextNonBlankChar pop 3 -1 roll 5 1 roll AnalyzeExpr 1 add NextNonBlankChar pop
+ 4 2 roll 4 index (0) eq
+ { (0) StrConcat false }
+ { 4 index (1) ne { AddOpPar 4 index StrConcat (\)*) StrConcat } if true } ifelse
+} def
+/PostCommonFunc {
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ mark 9 -3 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+/EvalFunc_Derive {%
+ 1 add ReadNumber cvi 1 add dup cvr log 1 add cvi string cvs
+ 4 -1 roll pop 5 1 roll 1 add NextNonBlankChar pop AnalyzeExpr 1 add
+ 4 -2 roll (Derive\() StrConcat 7 -1 roll StrConcat (,) StrConcat 6 -1 roll StrConcat AddClPar
+ 2 copy pop 0 6 2 roll GetIntervalNewStr 6 -1 roll pop 2 index 6 index dup 4 index exch sub getinterval
+ exch 6 2 roll } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% literal switch -> func call, vector, variables
+/EvalFunc_Sum {%
+ 1 add NextNonBlankChar pop
+ %% read the variable name
+ ReadLiteral pop 3 -1 roll pop NextNonBlankChar
+ 44 ne { ANALYZER_ERROR_missing_first_comma_in_Sum } if
+ %% read the initial value
+ 1 add NextNonBlankChar pop ReadNumber pop
+ 2 copy get 44 ne { ANALYZER_ERROR_missing_second_comma_in_Sum } if
+ %% read the increment value
+ 1 add NextNonBlankChar pop ReadNumber pop
+ 2 copy get 44 ne { ANALYZER_ERROR_missing_third_comma_in_Sum } if
+ %% read the limit value
+ 1 add NextNonBlankChar pop ReadNumber pop
+ 2 copy get 44 ne { ANALYZER_ERROR_missing_fourth_comma_in_Sum } if
+ 1 add NextNonBlankChar pop dup 6 1 roll 3 -1 roll pop AnalyzeExpr 1 add NextNonBlankChar pop
+ 4 -2 roll 3 index 8 index dup 9 index exch sub getinterval StrConcat
+ 4 index StrConcat AddClPar
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ mark 9 -3 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% literal switch -> func call, vector, variables
+/EvalFunc_IfTE {%
+ 3 -1 roll pop 1 add NextNonBlankChar pop SkipCond
+ NextNonBlankChar
+ 44 ne { ANALYZER_ERROR_missing_first_comma_in_IfTE } if
+ 1 add NextNonBlankChar pop dup 5 1 roll
+ AnalyzeExpr NextNonBlankChar
+ 44 ne { ANALYZER_ERROR_missing_second_comma_in_IfTE } if
+ 1 add NextNonBlankChar pop
+ AnalyzeExpr 1 add NextNonBlankChar pop
+ 4 -2 roll 3 index 10 index dup 11 index exch sub getinterval StrConcat
+ 6 index StrConcat (,) StrConcat 4 index StrConcat AddClPar
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ mark 11 -5 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% advance in str until a comma is found (no error detection!)
+%% str index -> str index'
+/SkipCond { { 1 add 2 copy get 44 eq {exit } if } loop } bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Convert to radians if trigo function call
+%% (name) ->
+/TrigoFunc {
+ dup (cos) eq 1 index (sin) eq or exch (tan) eq or
+ { /ExpressionVector ExpressionVector aload length Pi /div cvx 180 /mul cvx 5 -1 roll 4 add
+ array astore def
+ } if
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% No derivative for condition....
+/EvalCondOp { 3 -1 roll pop } bind def
+/PutIntervalOneAdd {putinterval 1 add} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add open parenthesis in string at the given index
+%% str index -> str index+1
+/AddOpPar {2 copy (\() PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add close parenthesis in string at the given index
+%% str index -> str index+1
+/AddClPar {2 copy (\)) PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add 0 in string at the given index
+%% str index -> str index+1
+/AddZero {2 copy (0) PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add open parenthesis in string at the given index
+%% str index -> str index+1
+/AddMul {2 copy (*) PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add open parenthesis in string at the given index
+%% str index -> str index+1
+/AddDiv {2 copy (/) PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add a plus sign in string at the given index
+%% str index -> str index+1
+/AddAdd {2 copy (+) PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add a minus sign in string at the given index
+%% str index -> str index+1
+/AddSub {2 copy (-) PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add a pipe sign in string at the given index
+%% str index -> str index+1
+/AddPipe {2 copy (|) PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% H O O K S
+/AnalyzePreHook { dup 5 1 roll } bind def
+/PreEvalHook {} def
+/AnalyzePostHook { 7 -1 roll pop } bind def
+/AnalyzeListOfEPostHook { 6 -1 roll mark 6 1 roll cleartomark } bind def
+/RollOp { 5 1 roll } bind def
+end%%%tx@CoreAnalyzerDict
+/tx@AddMathFunc 12 dict def tx@AddMathFunc begin
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% NEW FUNC
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% function arcsine in radians asin(x)=atan(x/sqrt(1-x^2))
+%% x -> theta
+/asin {%
+ dup abs 1 gt { EQDFasinrangeerror } if
+ dup dup dup mul 1 exch sub sqrt atan exch 0 lt { 360 sub } if DegtoRad
+} def
+%% function arccosine in radians acos(x)=atan(sqrt(1-x^2)/x)
+%% x -> theta
+/acos {%
+ dup abs 1 gt { EQDFacosrangeerror } if
+ dup dup mul 1 exch sub sqrt exch atan DegtoRad
+} def
+%% function arctangent in radians
+%% x -> theta
+/atg { 1 atan dup 90 gt { 360 sub } if DegtoRad } bind def
+%% HYPERBOLIC FUNCTIONS
+/sh { dup Ex exch neg Ex sub 2 div } def
+/ch { dup Ex exch neg Ex add 2 div } def
+/th { dup sh exch ch div } def
+/Argsh { dup dup mul 1 add sqrt add ln } def
+/Argch { dup dup mul 1 sub sqrt add ln } def
+/Argth { dup 1 add exch 1 exch sub div ln 2 div } def
+%% modified exponential funtion for 0
+%% x n -> x^n
+/Exp { dup 0 eq { pop pop 1 } { exp } ifelse } bind def
+%% modified exponential funtion for 0
+%% x -> e^x
+/Ex { Euler exch exp } bind def
+%%
+%% factorial function
+%% n -> n!
+/Fact { 1 exch 2 exch 1 exch { mul } for } bind def
+/fact { Fact } bind def
+/! { Fact } bind def
+end
+%
+% END pst-algparser.pro
+
+%%EndProcSet
+%%BeginProcSet: pst-tools.pro 0 0
+% $Id: pst-tools.pro 713 2012-10-16 14:25:00Z herbert $
+%
+%% PostScript tools prologue for pstricks.tex.
+%% Version 0.03, 2012/10/16
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%
+%
+/Pi2 1.57079632679489661925640 def
+/factorial { % n on stack, returns n!
+ dup 0 eq { 1 }{
+ dup 1 gt { dup 1 sub factorial mul } if }
+ ifelse } def
+%
+/MoverN { % m n on stack, returns the binomial coefficient m over n
+ 2 dict begin
+ /n exch def /m exch def
+ n 0 eq { 1 }{
+ m n eq { 1 }{
+ m factorial n factorial m n sub factorial mul div } ifelse } ifelse
+ end
+} def
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% subroutines for complex numbers, given as an array [a b]
+% which is a+bi = Real+i Imag
+%
+/cxadd { % [a1 b1] [a2 b2] = [a1+a2 b1+b2]
+ dup 0 get % [a1 b1] [a2 b2] a2
+ 3 -1 roll % [a2 b2] a2 [a1 b1]
+ dup 0 get % [a2 b2] a2 [a1 b1] a1
+ 3 -1 roll % [a2 b2] [a1 b1] a1 a2
+ add % [a2 b2] [a1 b1] a1+a2
+ 3 1 roll % a1+a2 [a2 b2] [a1 b1]
+ 1 get % a1+a2 [a2 b2] b1
+ exch 1 get % a1+a2 b1 b2
+ add 2 array astore
+} def
+%
+/cxneg { % [a b]
+ dup 1 get % [a b] b
+ exch 0 get % b a
+ neg exch neg % -a -b
+ 2 array astore
+} def
+%
+/cxsub { cxneg cxadd } def % same as negative addition
+%
+% [a1 b1][a2 b2] = [a1a2-b1b2 a1b2+b1a2] = [a3 b3]
+/cxmul { % [a1 b1] [a2 b2]
+ dup 0 get % [a1 b1] [a2 b2] a2
+ exch 1 get % [a1 b1] a2 b2
+ 3 -1 roll % a2 b2 [a1 b1]
+ dup 0 get % a2 b2 [a1 b1] a1
+ exch 1 get % a2 b2 a1 b1
+ dup % a2 b2 a1 b1 b1
+ 5 -1 roll dup % b2 a1 b1 b1 a2 a2
+ 3 1 roll mul % b2 a1 b1 a2 b1a2
+ 5 -2 roll dup % b1 a2 b1a2 b2 a1 a1
+ 3 -1 roll dup % b1 a2 b1a2 a1 a1 b2 b2
+ 3 1 roll mul % b1 a2 b1a2 a1 b2 a1b2
+ 4 -1 roll add % b1 a2 a1 b2 b3
+ 4 2 roll mul % b1 b2 b3 a1a2
+ 4 2 roll mul sub % b3 a3
+ exch 2 array astore
+} def
+%
+% [a b]^2 = [a^2-b^2 2ab] = [a2 b2]
+/cxsqr { % [a b] square root
+ dup 0 get exch 1 get % a b
+ dup dup mul % a b b^2
+ 3 -1 roll % b b^2 a
+ dup dup mul % b b^2 a a^2
+ 3 -1 roll sub % b a a2
+ 3 1 roll mul 2 mul % a2 b2
+ 2 array astore
+} def
+%
+/cxsqrt { % [a b]
+% dup cxnorm sqrt /r exch def
+% cxarg 2 div RadtoDeg dup cos r mul exch sin r mul cxmake2
+ cxlog % log[a b]
+ 2 cxrdiv % log[a b]/2
+ aload pop exch % b a
+ 2.781 exch exp % b exp(a)
+ exch cxconv exch % [Re +iIm] exp(a)
+ cxrmul %
+} def
+%
+/cxarg { % [a b]
+ aload pop % a b
+ exch atan % arctan b/a
+ DegtoRad % arg(z)=atan(b/a)
+} def
+%
+% log[a b] = [a^2-b^2 2ab] = [a2 b2]
+/cxlog { % [a b]
+ dup % [a b][a b]
+ cxnorm % [a b] |z|
+ log % [a b] log|z|
+ exch % log|z|[a b]
+ cxarg % log|z| Theta
+ cxmake2 % [log|z| Theta]
+} def
+%
+% square of magnitude of complex number
+/cxnorm2 { % [a b]
+ dup 0 get exch 1 get % a b
+ dup mul % a b^2
+ exch dup mul add % a^2+b^2
+} def
+%
+/cxnorm { % [a b]
+ cxnorm2 sqrt
+} def
+%
+/cxconj { % conjugent complex
+ dup 0 get exch 1 get % a b
+ neg 2 array astore % [a -b]
+} def
+%
+/cxre { 0 get } def % real value
+/cxim { 1 get } def % imag value
+%
+% 1/[a b] = ([a -b]/(a^2+b^2)
+/cxrecip { % [a b]
+ dup cxnorm2 exch % n2 [a b]
+ dup 0 get exch 1 get % n2 a b
+ 3 -1 roll % a b n2
+ dup % a b n2 n2
+ 4 -1 roll exch div % b n2 a/n2
+ 3 1 roll div % a/n2 b/n2
+ neg 2 array astore
+} def
+%
+/cxmake1 { 0 2 array astore } def % make a complex number, real given
+/cxmake2 { 2 array astore } def % dito, both given
+%
+/cxdiv { cxrecip cxmul } def
+%
+% multiplikation by a real number
+/cxrmul { % [a b] r
+ exch aload pop % r a b
+ 3 -1 roll dup % a b r r
+ 3 1 roll mul % a r b*r
+ 3 1 roll mul % b*r a*r
+ exch 2 array astore % [a*r b*r]
+} def
+%
+% division by a real number
+/cxrdiv { % [a b] r
+ 1 exch div % [a b] 1/r
+ cxrmul
+} def
+%
+% exp(i theta) = cos(theta)+i sin(theta) polar<->cartesian
+/cxconv { % theta
+ RadtoDeg dup sin exch cos cxmake2
+} def
+
+%%%%% ### bubblesort ###
+%% syntax : array bubblesort --> array2 trie par ordre croissant
+%% code de Bill Casselman
+%% http://www.math.ubc.ca/people/faculty/cass/graphics/text/www/
+/bubblesort { % on stack must be an array [ ... ]
+4 dict begin
+ /a exch def
+ /n a length 1 sub def
+ n 0 gt {
+ % at this point only the n+1 items in the bottom of a remain to
+ % the sorted largest item in that blocks is to be moved up into
+ % position n
+ n {
+ 0 1 n 1 sub {
+ /i exch def
+ a i get a i 1 add get gt {
+ % if a[i] > a[i+1] swap a[i] and a[i+1]
+ a i 1 add
+ a i get
+ a i a i 1 add get
+ % set new a[i] = old a[i+1]
+ put
+ % set new a[i+1] = old a[i]
+ put
+ } if
+ } for
+ /n n 1 sub def
+ } repeat
+ } if
+ a % return the sorted array
+end
+} def
+%
+/concatstringarray{ % [(a) (b) ... (z)] --> (ab...z) 20100422
+ 0 1 index { length add } forall
+ string
+ 0 3 2 roll
+ { 3 copy putinterval length add }forall
+ pop
+} bind def
+%
+/dot2comma {% on stack a string (...)
+ 2 dict begin
+ /Output exch def
+ 0 1 Output length 1 sub {
+ /Index exch def
+ Output Index get 46 eq { Output Index 44 put } if
+ } for
+ Output
+ end
+} def
+%
+/rightTrim {
+ dup
+ length 1 sub -1 0 {
+ /i exch def dup i get 32 ne { exit } if
+ } for
+ 0 i 1 add getinterval
+ dup length string copy
+} bind def
+
+/psStringwidth /stringwidth load def
+/psShow /show load def
+
+%/stringwidth{ rightTrim psStringwidth } bind def
+
+%/show { rightTrim psShow } bind def
+%-----------------------------------------------------------------------------%
+% END pst-tools.pro
+
+%%EndProcSet
+%%BeginProcSet: pst-dots.pro 0 0
+% $Id: pst-dots.pro 801 2013-07-09 18:10:41Z herbert $
+%
+%% PostScript prologue for pstricks.tex.
+%% Version 2.02, 2009/06/16
+%%
+%% For distribution, see pstricks.tex.
+%%
+%% Timothy Van Zandt <tvz@Princeton.EDU>
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%%
+%% Modified by Etienne Riga - Dec. 16, 1999
+%% Modified by Etienne Riga - 2005/01/01 (er)
+%% to add /Diamond, /SolidDiamond and /BoldDiamond
+%% Modified by Herbert Voss (hv) - 2008/04/17
+%
+10 dict dup begin % hold local
+ /FontType 3 def
+ /FontMatrix [.001 0 0 .001 0 0] def
+% /FontBBox [-571.5 -742.5 571.5 742.5] def % changed to next line 20060616 hv
+ /FontBBox [-1000 -1000 1000 1000] def % See end of file in /BuildGlyph
+ /Encoding 256 array def
+ 0 1 255 {Encoding exch /.notdef put} for % fill the array with /.notdef
+ Encoding % replace with given dot names
+ dup (b) 0 get /Bullet put % get the numerical position of b in ASCII
+% % and save /Bullet at this place in Encoding
+ dup (c) 0 get /Circle put
+ dup (C) 0 get /BoldCircle put % 67
+ dup (u) 0 get /SolidTriangle put
+ dup (t) 0 get /Triangle put
+ dup (T) 0 get /BoldTriangle put
+ dup (r) 0 get /SolidSquare put
+ dup (s) 0 get /Square put
+ dup (S) 0 get /BoldSquare put
+ dup (q) 0 get /SolidPentagon put
+ dup (p) 0 get /Pentagon put
+ dup (P) 0 get /BoldPentagon put
+%%%
+ dup (k) 0 get /Asterisk put
+ dup (K) 0 get /BoldAsterisk put
+ dup (J) 0 get /SolidAsterisk put
+ dup (h) 0 get /Hexagon put
+ dup (H) 0 get /BoldHexagon put
+ dup (G) 0 get /SolidHexagon put
+ dup (f) 0 get /Octogon put % 2008-04-18 hv
+ dup (F) 0 get /BoldOctogon put % 2008-04-18 hv
+ dup (g) 0 get /SolidOctogon put % 2008-04-18 hv
+ dup (a) 0 get /Add put
+ dup (A) 0 get /BoldAdd put % 65
+ dup (x) 0 get /Mul put
+ dup (X) 0 get /BoldMul put
+ dup (m) 0 get /Oplus put
+ dup (M) 0 get /BOplus put
+ dup (e) 0 get /SolidOplus put
+ dup (n) 0 get /Otimes put
+ dup (N) 0 get /BOtimes put
+ dup (E) 0 get /SolidOtimes put
+ dup (i) 0 get /Bar put
+ dup (I) 0 get /BoldBar put
+ dup (l) 0 get /SolidDiamond put
+ dup (d) 0 get /Diamond put
+ (D) 0 get /BoldDiamond put
+%%%
+/CharProcs 47 dict def
+CharProcs begin
+ /CirclePath {0 0 500 0 360 arc closepath} def
+ /Bullet {CirclePath fill} def
+ /Circle {CirclePath .9 .9 scale CirclePath eofill} def
+ /BoldCircle {CirclePath .8 .8 scale CirclePath eofill} def
+ /TrianglePath {0 660 moveto -571.5 -330 lineto 571.5 -330 lineto closepath} def
+ /SolidTriangle {TrianglePath fill} def
+ /Triangle {TrianglePath .85 .85 scale TrianglePath eofill} def
+ /BoldTriangle {TrianglePath .7 .7 scale TrianglePath eofill} def
+ /SquarePath {-450 450 moveto 450 450 lineto 450 -450 lineto -450 -450 lineto closepath} def
+ /SolidSquare {SquarePath fill} def
+ /Square {SquarePath .89 .89 scale SquarePath eofill} def
+ /BoldSquare {SquarePath .78 .78 scale SquarePath eofill} def
+ /PentagonPath {
+ -337.8 -465 moveto 337.8 -465 lineto 546.6 177.6 lineto
+ 0 574.7 lineto -546.6 177.6 lineto closepath
+ } def
+ /SolidPentagon {PentagonPath fill} def
+ /Pentagon {PentagonPath .89 .89 scale PentagonPath eofill} def
+ /BoldPentagon {PentagonPath .78 .78 scale PentagonPath eofill} def
+%-------------- hv begin 2004/07/25 from: er 2003/03/24
+ /HexagonPath {
+ 0 550 moveto -476 275 lineto -476 -275 lineto
+ 0 -550 lineto 476 -275 lineto 476 275 lineto closepath
+ } def
+ /SolidHexagon {HexagonPath fill} def
+ /Hexagon {HexagonPath .89 .89 scale HexagonPath eofill} def
+ /BoldHexagon {HexagonPath .79 .79 scale HexagonPath eofill} def
+% 2008-04-18 hv
+ /OctogonPath {
+ 550 dup 22.5 tan mul dup neg dup add /xMove exch def
+ exch moveto 7 { xMove 0 rlineto 45 rotate } repeat closepath } def
+ /SolidOctogon { OctogonPath fill } def
+ /Octogon { OctogonPath .89 .89 scale OctogonPath eofill } def
+ /BoldOctogon { OctogonPath .79 .79 scale OctogonPath eofill } def
+%
+ /AsteriskPath {
+ 20 0 moveto 10 250 180 500 0 500 curveto
+ -180 500 -10 250 -20 0 curveto closepath
+ } def
+ /Asterisk {
+ AsteriskPath 60 rotate AsteriskPath 60 rotate AsteriskPath
+ 60 rotate AsteriskPath 60 rotate AsteriskPath 60 rotate AsteriskPath fill
+ } def
+%
+ /Basterp {50 250 220 500 0 500 curveto -220 500 -50 250 -50 30 cos 100 mul curveto} def
+ /BoldAsteriskPath {
+ 50 30 cos 100 mul moveto Basterp
+ 60 rotate Basterp 60 rotate Basterp
+ 60 rotate Basterp 60 rotate Basterp
+ 60 rotate Basterp closepath
+ } def
+ /BoldAsterisk {BoldAsteriskPath fill} def
+ /SolidAsterisk {CirclePath .9 .9 scale BoldAsteriskPath eofill} def
+ /CrossPath {
+ 40 550 moveto -40 550 lineto -40 40 lineto -550 40 lineto
+ -550 -40 lineto -40 -40 lineto -40 -550 lineto 40 -550 lineto
+ 40 -40 lineto 550 -40 lineto 550 40 lineto 40 40 lineto closepath
+ } def
+ /BoldCrossPath {80 550 moveto -80 550 lineto -80 80 lineto -550 80 lineto
+ -550 -80 lineto -80 -80 lineto -80 -550 lineto 80 -550 lineto
+ 80 -80 lineto 550 -80 lineto 550 80 lineto 80 80 lineto closepath
+ } def
+ /Add {CrossPath fill} def
+ /Mul {45 rotate CrossPath fill} def
+ /BoldAdd {BoldCrossPath fill} def
+ /BoldMul {45 rotate BoldCrossPath fill} def
+ /Oplus {CirclePath .9 .9 scale CirclePath eofill .775 .775 scale CrossPath fill } def
+ /SolidOplus {CirclePath .775 .775 scale BoldCrossPath eofill} def
+ /BOplus {CirclePath .8 .8 scale CirclePath eofill .775 .775 scale BoldCrossPath fill} def
+ /Otimes {CirclePath .9 .9 scale CirclePath eofill 45 rotate .775 .775 scale CrossPath fill} def
+ /BOtimes {CirclePath .8 .8 scale CirclePath eofill 45 rotate .775 .775 scale BoldCrossPath fill } def
+ /SolidOtimes {CirclePath 45 rotate .775 .775 scale BoldCrossPath eofill} def
+ /BarPath {40 660 moveto -40 660 lineto -40 -660 lineto 40 -660 lineto closepath} def
+ /Bar {BarPath fill} def
+ /BoldBarPath {80 660 moveto -80 660 lineto -80 -660 lineto 80 -660 lineto closepath} def
+ /BoldBar {BoldBarPath fill} def
+ /DiamondPath {0 742.5 moveto -428.5 0 lineto 0 -742.5 lineto 428.5 0 lineto closepath} def
+ /SolidDiamond {DiamondPath fill} def
+ /Diamond {DiamondPath .865 .865 scale DiamondPath eofill} def
+ /BoldDiamond {DiamondPath .73 .73 scale DiamondPath eofill} def
+%%%
+ /.notdef { } def
+end
+%
+/BuildGlyph {
+ exch
+ begin
+% Metrics 1 index get exec 0
+ 0 0
+% BBoxes 3 index get exec
+ -1000 -1000 1000 1000
+% -571.5 -742.5 571.5 742.5
+ setcachedevice
+ CharProcs begin load exec end
+ end
+} def
+%
+/BuildChar {
+ 1 index /Encoding get exch get
+ 1 index /BuildGlyph get exec
+} bind def
+%
+end
+/PSTricksDotFont exch definefont pop
+%
+%% end
+
+%%EndProcSet
+%%BeginProcSet: pst-coil.pro 0 0
+%!ps
+% PostScript prologue for pst-coil.tex.
+% Version 1.03, 2010/02/01
+% For distribution, see pstricks.tex.
+%
+/tx@CoilDict 40 dict def tx@CoilDict begin
+/CoilLoop {
+ /t ED
+ t sin AspectSin mul t 180 div AspectCos mul add t cos lineto } def
+/Coil {
+ /Inc ED
+ dup sin /AspectSin ED
+ cos /AspectCos ED
+ /ArmB ED
+ /ArmA ED
+ /h ED /w ED /y1 ED /x1 ED /y0 ED /x0 ED
+ x0 y0 translate y1 y0 sub x1 x0 sub 2 copy Pyth
+ /TotalLength ED
+ Atan rotate
+ /BeginAngle ArmA AspectCos Div w h mul Div 360 mul def
+ /EndAngle TotalLength ArmB sub AspectCos Div
+ w h mul Div 360 mul def
+ 1 0 0 0 ArrowA ArmA 0 lineto
+ /mtrx CM def
+ w h mul 2 Div w 2 Div scale BeginAngle Inc
+ EndAngle { CoilLoop } for
+ EndAngle CoilLoop mtrx setmatrix TotalLength ArmB sub 0 lineto CP
+% DG/SR modification begin - Jun. 2, 1998 - Patch 1 (from Michael Vulis)
+% TotalLength 0 ArrowB lineto } def
+ TotalLength 0 ArrowB lineto
+ pop pop pop pop } def
+% DG/SR modification end
+%
+/Sin {
+ /Func ED
+ /PointsPerPeriod ED
+ /ArmB ED
+ /ArmA ED
+ /Amplitude ED
+ /roundValue ED
+ /relativePeriod ED
+ /Periods ED
+ /y1 ED /x1 ED /y0 ED /x0 ED
+ x0 y0 translate y1 y0 sub x1 x0 sub 2 copy Pyth
+ dup /TotalLength ED
+ ArmA sub ArmB sub /SinLength ED
+ Atan rotate
+ 1 0 0 0 ArrowA ArmA 0 lineto
+ /mtrx CM def
+ relativePeriod
+ {}
+ { SinLength Periods div roundValue { cvi } if
+ /Periods ED } ifelse
+ /dxStep SinLength 360 div def % the default step for x pos
+ /xStep 360 PointsPerPeriod div def % the step for the for loop
+ 1 xStep 360 { % PointsPerPeriod times
+ dup dxStep mul ArmA add exch % x pos and value for the func
+ Periods mul Func Amplitude mul lineto
+ } for
+ mtrx setmatrix TotalLength ArmB sub 0 lineto CP
+ TotalLength 0 ArrowB lineto
+ pop pop pop pop
+} def
+%
+/AltCoil {
+ /Inc ED
+ dup sin /AspectSin ED
+ cos /AspectCos ED /h ED /w ED /EndAngle ED /BeginAngle ED
+ /mtrx CM def
+ w h mul 2 Div w 2 Div scale BeginAngle sin AspectSin mul
+ BeginAngle 180 div AspectCos mul add BeginAngle cos
+ /lineto load stopped { moveto } if
+ BeginAngle Inc EndAngle { CoilLoop } for
+ EndAngle CoilLoop mtrx setmatrix } def
+/ZigZag {
+ /ArmB ED /ArmA ED
+ 2 div /w ED
+ w mul /h ED /y1 ED /x1 ED /y0 ED /x0 ED
+ x1 y1 translate y0 y1 sub x0 x1 sub 2 copy Pyth
+ /TotalLength ED
+ Atan rotate TotalLength ArmA sub ArmB sub dup h div cvi /n ED n h mul
+ sub 2 div dup ArmA add
+ /ArmA ED ArmB add
+ /ArmB ED
+ /x ArmB h 2 div add def
+ mark 0 0 ArmB 0
+ n { x w /w w neg def /x x h add def } repeat
+ TotalLength ArmA sub 0 TotalLength 0 } def
+%
+end
+% END pst-coil.pro
+
+%%EndProcSet
+%%BeginProcSet: pst-node.pro 0 0
+% $Id: pst-node.pro 805 2013-07-11 13:18:11Z herbert $
+%%
+%% PostScript prologue for pst-node.tex.
+%% Version 1.14, 2012/09/18.
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%
+tx@Dict begin % from main pstricks dict
+ /T /translate load def
+ /CP /currentpoint load def
+% /startGlobal { true setglobal globaldict begin } bind def
+% /endGlobal { end false setglobal } bind def
+end
+/tx@NodeDict 400 dict def tx@NodeDict begin
+/NewNode { % on stack: { x y } boolean N@name type InitXnode
+ gsave
+ NodeScale % a bugfix for xelatex, it's empty for dvips
+ /next exch def % { x y } boolean N@name type
+ dict dup % { x y } boolean N@name dict dict
+ 3 1 roll def % { x y } boolean dict N@name dict def
+ exch { dup 3 1 roll def } if % { x y } dict boolean
+ begin % { x y } dict begin
+ tx@Dict begin
+ STV CP T exec % set scaling
+ end
+ /NodeMtrx CM def % save CM
+ next % InitXNode
+ end
+ grestore
+} def
+%
+/InitPnode {
+ /Y ED /X ED
+ /NodePos { NodeSep Cos mul NodeSep Sin mul } def
+} def
+%
+/InitCnode {
+ /r ED /Y ED /X ED
+ /NodePos { NodeSep r add dup Cos mul exch Sin mul } def
+} def
+%
+/GetRnodePos {
+ Cos 0 gt { /dx r NodeSep add def } { /dx l NodeSep sub def } ifelse
+ Sin 0 gt { /dy u NodeSep add def } { /dy d NodeSep sub def } ifelse
+ dx Sin mul abs dy
+ Cos mul abs gt { dy Cos mul Sin div dy } { dx dup Sin mul Cos Div } ifelse
+} def
+%
+/InitRnode {
+ /Y ED /X ED X sub /r ED /l X neg def Y add neg /d ED Y sub /u ED
+ /NodePos { GetRnodePos } def
+} def
+%
+/DiaNodePos {
+ w h mul w Sin mul abs h Cos mul abs add Div NodeSep add dup
+ Cos mul exch Sin mul
+} def
+%
+/TriNodePos {
+ Sin s lt
+ { d NodeSep sub dup Cos mul Sin Div exch }
+ { w h mul w Sin mul h Cos abs mul add Div
+ NodeSep add dup Cos mul exch Sin mul
+ } ifelse
+} def
+%
+/InitTriNode {
+ sub 2 div exch
+ 2 div exch
+ 2 copy T
+ 2 copy 4 index index /d ED
+ pop pop pop pop
+ -90 mul rotate
+ /NodeMtrx CM def
+ /X 0 def /Y 0 def
+ d sub abs neg /d ED
+ d add /h ED
+ 2 div h mul h d sub Div /w ED
+ /s d w Atan sin def
+ /NodePos { TriNodePos } def
+} def
+%
+/OvalNodePos {
+ /ww w NodeSep add def
+ /hh h NodeSep add def
+ Sin ww mul Cos hh mul Atan dup cos ww mul exch sin hh mul
+} def
+%
+/GetCenter { begin X Y NodeMtrx transform CM itransform end } def
+%
+/XYPos {
+ dup sin exch cos Do
+ /Cos ED /Sin ED /Dist ED
+ Cos 0 gt
+ { Dist Dist Sin mul Cos div }
+ { Cos 0 lt
+ { Dist neg Dist Sin mul Cos div neg }
+ { 0 Dist Sin mul } ifelse
+ } ifelse
+ Do
+} def
+%
+/GetEdge {
+ dup 0 eq
+ { pop begin 1 0 NodeMtrx dtransform
+ CM idtransform
+ exch atan sub
+ dup
+ sin /Sin ED
+ cos /Cos ED
+ /NodeSep ED
+ NodePos NodeMtrx dtransform CM idtransform end }
+ { 1 eq {{exch}} {{}} ifelse /Do ED pop XYPos } ifelse
+} def
+%
+/AddOffset {
+ 1 index 0 eq
+ { pop pop }
+ { 2 copy 5 2 roll cos mul add 4 1 roll sin mul sub exch } ifelse
+} def
+%
+/GetEdgeA {
+ NodeSepA AngleA NodeA NodeSepTypeA GetEdge
+ OffsetA AngleA AddOffset
+ yA add /yA1 ED
+ xA add /xA1 ED
+} def
+%
+/GetEdgeB {
+ NodeSepB AngleB NodeB NodeSepTypeB GetEdge
+ OffsetB AngleB AddOffset
+ yB add /yB1 ED
+ xB add /xB1 ED
+} def
+%
+/GetArmA {
+ ArmTypeA 0 eq
+ { /xA2 ArmA AngleA cos mul xA1 add def
+ /yA2 ArmA AngleA sin mul yA1 add def }
+ { ArmTypeA 1 eq {{exch}} {{}} ifelse
+ /Do ED
+ ArmA AngleA XYPos OffsetA AngleA AddOffset
+ yA add /yA2 ED
+ xA add /xA2 ED } ifelse
+} def
+%
+/GetArmB {
+ ArmTypeB 0 eq
+ { /xB2 ArmB AngleB cos mul xB1 add def
+ /yB2 ArmB AngleB sin mul yB1 add def }
+ { ArmTypeB 1 eq {{exch}} {{}} ifelse
+ /Do ED
+ ArmB AngleB XYPos OffsetB AngleB AddOffset
+ yB add /yB2 ED
+ xB add /xB2 ED } ifelse
+} def
+%
+/InitNC {
+ /b ED /a ED % second and first node
+ /NodeSepTypeB ED /NodeSepTypeA ED
+ /NodeSepB ED /NodeSepA ED
+ /OffsetB ED /OffsetA ED
+ tx@NodeDict a known tx@NodeDict b known and dup {
+ /NodeA a load def
+ /NodeB b load def
+ NodeA GetCenter /yA ED /xA ED
+ NodeB GetCenter /yB ED /xB ED } if
+} def
+%
+/LPutLine {
+ 4 copy
+ 3 -1 roll sub neg 3 1 roll sub Atan /NAngle ED
+ 1 t sub mul
+ 3 1 roll 1 t sub mul
+ 4 1 roll t mul add /Y ED
+ t mul add /X ED
+} def
+%
+/LPutLines {
+ mark LPutVar counttomark 2 div 1 sub /n ED
+% t floor dup n gt
+ t floor dup n ge % to allow npos<= hv 2008-08-14
+ { pop n 1 sub /t 1 def } { dup t sub neg /t ED } ifelse
+ cvi 2 mul { pop } repeat
+ LPutLine
+ cleartomark
+} def
+%
+/BezierMidpoint {
+ /y3 ED /x3 ED /y2 ED /x2 ED /y1 ED /x1 ED /y0 ED /x0 ED /t ED
+ /cx x1 x0 sub 3 mul def
+ /cy y1 y0 sub 3 mul def
+ /bx x2 x1 sub 3 mul cx sub def
+ /by y2 y1 sub 3 mul cy sub def
+ /ax x3 x0 sub cx sub bx sub def
+ /ay y3 y0 sub cy sub by sub def
+ ax t 3 exp mul bx t t mul mul add
+ cx t mul add x0 add ay t 3 exp mul
+ by t t mul mul add cy t mul add
+ y0 add 3 ay t t mul mul mul 2
+ by t mul mul add cy add 3 ax t t mul mul mul
+ 2 bx t mul mul add cx add atan /NAngle ED
+ /Y ED /X ED
+} def
+%
+/HPosBegin { yB yA ge { /t 1 t sub def } if /Y yB yA sub t mul yA add def
+} def
+/HPosEnd { /X Y yyA sub yyB yyA sub Div xxB xxA sub mul xxA add def
+/NAngle yyB yyA sub xxB xxA sub Atan def } def
+/HPutLine { HPosBegin /yyA ED /xxA ED /yyB ED /xxB ED HPosEnd } def
+/HPutLines { HPosBegin yB yA ge { /check { le } def } { /check { ge } def
+} ifelse /xxA xA def /yyA yA def mark xB yB LPutVar { dup Y check { exit
+} { /yyA ED /xxA ED } ifelse } loop /yyB ED /xxB ED cleartomark HPosEnd
+} def
+/VPosBegin { xB xA lt { /t 1 t sub def } if /X xB xA sub t mul xA add def
+} def
+/VPosEnd { /Y X xxA sub xxB xxA sub Div yyB yyA sub mul yyA add def
+/NAngle yyB yyA sub xxB xxA sub Atan def } def
+/VPutLine { VPosBegin /yyA ED /xxA ED /yyB ED /xxB ED VPosEnd } def
+/VPutLines { VPosBegin xB xA ge { /check { le } def } { /check { ge } def
+} ifelse /xxA xA def /yyA yA def mark xB yB LPutVar { 1 index X check {
+exit } { /yyA ED /xxA ED } ifelse } loop /yyB ED /xxB ED cleartomark
+VPosEnd } def
+/HPutCurve { gsave newpath /SaveLPutVar /LPutVar load def LPutVar 8 -2
+roll moveto curveto flattenpath /LPutVar [ {} {} {} {} pathforall ] cvx
+def grestore exec /LPutVar /SaveLPutVar load def } def
+
+/NCCoor {
+ /AngleA yB yA sub xB xA sub Atan def
+ /AngleB AngleA 180 add def
+ GetEdgeA GetEdgeB
+ /LPutVar [ xB1 yB1 xA1 yA1 ] cvx def
+ /LPutPos { LPutVar LPutLine } def
+ /HPutPos { LPutVar HPutLine } def
+ /VPutPos { LPutVar VPutLine } def
+ LPutVar
+} def
+%
+/NCLine {
+ NCCoor
+ tx@Dict begin
+ ArrowA CP 4 2 roll
+ ArrowB
+ lineto pop pop
+ end
+} def
+%
+/NCLines {
+ false NArray
+ n 0 eq
+ { NCLine }
+ { 2 copy yA sub exch xA sub Atan /AngleA ED
+ n 2 mul dup index exch index yB sub exch xB sub
+ Atan /AngleB ED
+ GetEdgeA GetEdgeB
+ /LPutVar [ xB1 yB1 n 2 mul 4 add 4 roll xA1 yA1 ] cvx def
+ mark LPutVar
+ tx@Dict begin false Line end
+ /LPutPos { LPutLines } def
+ /HPutPos { HPutLines } def
+ /VPutPos { VPutLines } def
+ } ifelse
+} def
+%
+/NCCurve {
+ GetEdgeA
+ GetEdgeB
+ xA1 xB1 sub yA1 yB1 sub Pyth 2 div dup 3 -1
+roll mul /ArmA ED mul /ArmB ED /ArmTypeA 0 def /ArmTypeB 0 def GetArmA
+GetArmB xA2 yA2 xA1 yA1 tx@Dict begin ArrowA end xB2 yB2 xB1 yB1 tx@Dict
+begin ArrowB end curveto /LPutVar [ xA1 yA1 xA2 yA2 xB2 yB2 xB1 yB1 ]
+cvx def /LPutPos { t LPutVar BezierMidpoint } def /HPutPos { { HPutLines
+} HPutCurve } def /VPutPos { { VPutLines } HPutCurve } def } def
+%
+/NCAngles {
+ GetEdgeA GetEdgeB GetArmA GetArmB
+ /mtrx AngleA matrix rotate def
+ xA2 yA2 mtrx transform pop
+ xB2 yB2 mtrx transform exch pop
+ mtrx itransform
+ /y0 ED /x0 ED
+ mark ArmB 0 ne { xB1 yB1 } if
+ xB2 yB2 x0 y0 xA2 yA2
+ ArmA 0 ne { xA1 yA1 } if
+ tx@Dict begin false Line end
+ /LPutVar [ xB1 yB1 xB2 yB2 x0 y0 xA2 yA2 xA1 yA1 ] cvx def
+ /LPutPos { LPutLines } def
+ /HPutPos { HPutLines } def
+ /VPutPos { VPutLines } def } def
+%
+/NCAngle {
+ GetEdgeA GetEdgeB GetArmB
+ /mtrx AngleA matrix rotate def
+ xB2 yB2 mtrx itransform pop xA1 yA1 mtrx itransform exch pop mtrx transform
+ /y0 ED /x0 ED
+ mark
+ ArmB 0 ne { xB1 yB1 } if
+ xB2 yB2 x0 y0 xA1 yA1
+ tx@Dict begin false Line end
+ /LPutVar [ xB1 yB1 xB2 yB2 x0 y0 xA1 yA1 ] cvx def
+ /LPutPos { LPutLines } def
+ /HPutPos { HPutLines } def
+ /VPutPos { VPutLines } def
+} def
+%
+/NCBar {
+ GetEdgeA GetEdgeB GetArmA GetArmB
+ /mtrx AngleA matrix rotate def
+ xA2 yA2 mtrx itransform pop
+ xB2 yB2 mtrx itransform pop
+ sub dup 0 mtrx transform
+ 3 -1 roll 0 gt
+ { /yB2 exch yB2 add def /xB2 exch xB2 add def }
+ { /yA2 exch neg yA2 add def /xA2 exch neg xA2 add def } ifelse
+ mark
+ ArmB 0 ne { xB1 yB1 } if
+ xB2 yB2 xA2 yA2 ArmA 0 ne { xA1 yA1 } if
+ tx@Dict begin false Line end
+ /LPutVar [ xB1 yB1 xB2 yB2 xA2 yA2 xA1 yA1 ] cvx def
+ /LPutPos { LPutLines } def
+ /HPutPos { HPutLines } def
+ /VPutPos { VPutLines } def
+} def
+%
+/NCDiag {
+ /lineAngle ED
+ GetEdgeA GetEdgeB GetArmA GetArmB mark
+ lineAngle abs 0 gt {
+ /xTemp xA2 10 add def
+ /yTemp yA2 lineAngle dup sin exch cos div 10 mul add def
+ /dY1 yTemp yA2 sub def
+ /dX1 xTemp xA2 sub def
+ /dY2 yB2 yB1 sub def
+ /dX2 xB2 xB1 sub def
+ dX1 abs 0.01 lt {
+ /m2 dY2 dX2 div def
+ /xB2 xA2 def
+ /yB2 xA2 xB1 sub m2 mul yB1 add def
+ }{
+ dX2 abs 0.01 lt {
+ /m1 dY1 dX1 div def
+ /xB2 xB1 def
+ /yB2 xB1 xA2 sub m1 mul yA2 add def
+ }{%
+ /m1 dY1 dX1 div def
+ /m2 dY2 dX2 div def
+ /xB2 m1 xA2 mul m2 xB1 mul sub yA2 sub yB1 add m1 m2 sub div def
+ /yB2 xB2 xA2 sub m1 mul yA2 add def
+ } ifelse
+ } ifelse
+ } if
+ ArmB 0 ne { xB1 yB1 } if
+ xB2 yB2 xA2 yA2
+ ArmA 0 ne { xA1 yA1 } if
+ tx@Dict begin false Line end
+ /LPutVar [ xB1 yB1 xB2 yB2 xA2 yA2 xA1 yA1 ] cvx def
+ /LPutPos { LPutLines } def
+ /HPutPos { HPutLines } def
+ /VPutPos { VPutLines } def
+%
+% GetEdgeA GetEdgeB GetArmA GetArmB mark
+% ArmB 0 ne { xB1 yB1 } if
+% xB2 yB2 xA2 yA2
+% ArmA 0 ne { xA1 yA1 } if
+% tx@Dict begin false Line end
+% /LPutVar [ xB1 yB1 xB2 yB2 xA2 yA2 xA1 yA1 ] cvx def
+% /LPutPos { LPutLines } def
+% /HPutPos { HPutLines } def
+% /VPutPos { VPutLines } def
+} def
+%
+/NCDiagg {
+ /lineAngle ED
+ GetEdgeA GetArmA
+ lineAngle abs 0 gt
+ { lineAngle }
+ { yB yA2 sub xB xA2 sub Atan 180 add } ifelse
+ /AngleB ED
+ GetEdgeB mark
+ lineAngle abs 0 gt {
+ /dY2 yA2 yA1 sub def
+ /dX2 xA2 xA1 sub def
+ lineAngle abs 90 eq {
+ /m2 dY2 dX2 div def
+ /yA2 xB xA2 sub m2 mul yA2 add def
+ /xA2 xB def
+ }{
+ /m1 lineAngle dup sin exch cos div def % tan alpha
+ dX2 abs 0.01 lt {
+ /yA2 xA1 xB sub m1 mul yB add def
+ /xA2 xA1 def
+ }{%
+ /m2 dY2 dX2 div def
+ /xA2 m1 xB mul m2 xA2 mul sub yA2 add yB sub m1 m2 sub div def
+ /yA2 xA2 xB sub m1 mul yB add def
+ } ifelse
+ } ifelse
+ } if
+ xB1 yB1 xA2 yA2
+ ArmA 0 ne { xA1 yA1 } if
+ tx@Dict begin false Line end
+ /LPutVar [ xB1 yB1 xA2 yA2 xA1 yA1 ] cvx def
+ /LPutPos { LPutLines } def
+ /HPutPos { HPutLines } def
+ /VPutPos { VPutLines } def
+%
+% GetEdgeA GetArmA
+% yB yA2 sub xB xA2 sub Atan 180 add /AngleB ED
+% GetEdgeB
+% mark
+% xB1 yB1 xA2 yA2
+% ArmA 0 ne { xA1 yA1 } if
+% tx@Dict begin false Line end
+% /LPutVar [ xB1 yB1 xA2 yA2 xA1 yA1 ] cvx def
+% /LPutPos { LPutLines } def
+% /HPutPos { HPutLines } def
+% /VPutPos { VPutLines } def
+} def
+%
+/NCLoop {
+ GetEdgeA GetEdgeB GetArmA GetArmB
+ /mtrx AngleA matrix rotate def
+ xA2 yA2 mtrx transform loopsize add /yA3 ED /xA3 ED
+ /xB3 xB2 yB2 mtrx transform pop def
+ xB3 yA3 mtrx itransform /yB3 ED /xB3 ED
+ xA3 yA3 mtrx itransform /yA3 ED /xA3 ED
+ mark ArmB 0 ne { xB1 yB1 } if
+ xB2 yB2 xB3 yB3 xA3 yA3 xA2 yA2 ArmA 0 ne { xA1 yA1 } if
+ tx@Dict begin false Line end
+ /LPutVar [ xB1 yB1 xB2 yB2 xB3 yB3 xA3 yA3 xA2 yA2 xA1 yA1 ] cvx def
+ /LPutPos { LPutLines } def
+ /HPutPos { HPutLines } def
+ /VPutPos { VPutLines } def
+} def
+%
+% DG/SR modification begin - May 9, 1997 - Patch 1
+%/NCCircle { 0 0 NodesepA nodeA \tx@GetEdge pop xA sub 2 div dup 2 exp r
+%r mul sub abs sqrt atan 2 mul /a ED r AngleA 90 add PtoC yA add exch xA add
+%exch 2 copy /LPutVar [ 4 2 roll r AngleA ] cvx def /LPutPos { LPutVar t 360
+%mul add dup 5 1 roll 90 sub \tx@PtoC 3 -1 roll add /Y ED add /X ED /NAngle ED
+%
+/NCCircle {
+ NodeSepA 0 NodeA 0 GetEdge pop
+ 2 div dup 2 exp r r mul sub abs sqrt
+ atan 2 mul /a ED
+ r AngleA 90 add PtoC yA add exch xA add
+ exch 2 copy
+ /LPutVar [ 4 2 roll r AngleA ] cvx def
+ /LPutPos {
+ LPutVar t 360 mul add dup 5 1 roll 90 sub PtoC
+ 3 -1 roll add
+ /Y ED add /X ED /NAngle ED
+% DG/SR modification end
+ } def
+ /HPutPos { LPutPos } def
+ /VPutPos { LPutPos } def
+ r AngleA 90 sub a add AngleA 270 add a sub
+ tx@Dict begin
+ /angleB ED /angleA ED /r ED
+ /c 57.2957 r Div def
+ /y ED /x ED
+} def
+%
+/NCBox {
+ /d ED /h ED
+ /AngleB yB yA sub xB xA sub Atan def
+ /AngleA AngleB 180 add def
+ GetEdgeA GetEdgeB
+ /dx d AngleB sin mul def
+ /dy d AngleB cos mul neg def
+ /hx h AngleB sin mul neg def
+ /hy h AngleB cos mul def
+ /LPutVar [
+ xA1 hx add yA1 hy add xB1 hx add yB1 hy add
+ xB1 dx add yB1 dy add xA1 dx add yA1 dy add ] cvx def
+ /LPutPos { LPutLines } def
+ /HPutPos { xB yB xA yA LPutLine } def
+ /VPutPos { HPutPos } def
+ mark
+ LPutVar tx@Dict begin false Polygon end
+} def
+%
+/NCArcBox {
+ /l ED neg /d ED /h ED /a ED
+ /AngleA yB yA sub xB xA sub Atan def
+ /AngleB AngleA 180 add def
+ /tA AngleA a sub 90 add def
+ /tB tA a 2 mul add def
+ /r xB xA sub tA cos tB cos sub Div dup 0 eq { pop 1 } if def
+ /x0 xA r tA cos mul add def
+ /y0 yA r tA sin mul add def
+ /c 57.2958 r div def
+ /AngleA AngleA a sub 180 add def
+ /AngleB AngleB a add 180 add def
+ GetEdgeA GetEdgeB
+ /AngleA tA 180 add yA yA1 sub xA xA1 sub Pyth c mul sub def
+ /AngleB tB 180 add yB yB1 sub xB xB1 sub Pyth c mul add def
+ l 0 eq {
+ x0 y0 r h add AngleA AngleB arc x0 y0 r d add AngleB AngleA arcn
+ }{
+ x0 y0 translate
+ /tA AngleA l c mul add def
+ /tB AngleB l c mul sub def
+ 0 0 r h add tA tB arc r h add
+ AngleB PtoC r d add
+ AngleB PtoC 2 copy
+ 6 2 roll l arcto 4 { pop } repeat
+ r d add tB PtoC l arcto 4 { pop } repeat
+ 0 0 r d add tB tA arcn r d add
+ AngleA PtoC r h add
+ AngleA PtoC 2 copy 6 2 roll
+ l arcto 4 { pop } repeat
+ r h add tA PtoC l arcto 4 { pop } repeat
+ } ifelse
+ closepath
+ /LPutVar [ x0 y0 r AngleA AngleB h d ] cvx def
+ /LPutPos {
+ LPutVar /d ED /h ED
+ /AngleB ED /AngleA ED
+ /r ED /y0 ED /x0 ED
+ t 1 le {
+ r h add AngleA 1 t sub mul AngleB t mul add dup 90 add /NAngle ED PtoC
+ }{t 2 lt {
+ /NAngle AngleB 180 add def r 2 t sub
+ h mul t 1 sub d mul add add AngleB PtoC
+ }{
+ t 3 lt {
+ r d add AngleB 3 t sub mul AngleA 2 t sub
+ mul add dup 90 sub /NAngle ED PtoC
+ }{
+ /NAngle AngleA 180 add def
+ r 4 t sub d mul t 3 sub h mul add add AngleA PtoC
+ } ifelse
+ } ifelse
+ } ifelse
+ y0 add /Y ED x0 add /X ED
+ } def
+ /HPutPos { LPutPos } def
+ /VPutPos { LPutPos } def
+} def
+%
+/Tfan { /AngleA yB yA sub xB xA sub Atan def GetEdgeA w xA1 xB sub yA1 yB
+sub Pyth Pyth w Div CLW 2 div mul 2 div dup AngleA sin mul yA1 add /yA1
+ED AngleA cos mul xA1 add /xA1 ED /LPutVar [ xA1 yA1 m { xB w add yB xB
+w sub yB } { xB yB w sub xB yB w add } ifelse xA1 yA1 ] cvx def /LPutPos
+{ LPutLines } def /VPutPos@ { LPutVar flag { 8 4 roll pop pop pop pop }
+{ pop pop pop pop 4 2 roll } ifelse } def /VPutPos { VPutPos@ VPutLine }
+def /HPutPos { VPutPos@ HPutLine } def mark LPutVar tx@Dict begin
+/ArrowA { moveto } def /ArrowB { } def false Line closepath end } def
+%
+/LPutCoor {
+ NAngle
+ tx@Dict begin /NAngle ED end
+ gsave
+ CM STV
+ CP Y sub neg exch X sub neg exch moveto
+ setmatrix CP
+ grestore
+} def
+%
+/LPut {
+ tx@NodeDict /LPutPos known
+ { LPutPos } { CP /Y ED /X ED /NAngle 0 def } ifelse
+ LPutCoor
+} def
+%
+/HPutAdjust {
+ Sin Cos mul 0 eq
+ { 0 }
+ { d Cos mul Sin div flag not { neg } if
+ h Cos mul Sin div flag { neg } if
+ 2 copy gt { pop } { exch pop } ifelse
+ } ifelse
+ s add flag { r add neg }{ l add } ifelse
+ X add /X ED
+} def
+%
+/VPutAdjust {
+ Sin Cos mul
+ 0 eq
+ { 0 }
+ { l Sin mul Cos div flag { neg } if
+ r Sin mul Cos div flag not { neg } if
+ 2 copy gt { pop } { exch pop } ifelse
+ } ifelse
+ s add flag { d add } { h add neg } ifelse
+ Y add /Y ED
+} def
+%
+%
+end
+%
+% END pst-node.pro
+
+%%EndProcSet
+%%BeginProcSet: pst-math.pro 0 0
+% -*- Mode: Postscript -*-
+% pst-math.pro --- PostScript header file pst-math.pro
+%
+% Author : Christophe JORSSEN
+% Author : Herbert Voß <hvoss@tug.org>
+% Created the : Sat 20 March 2004
+% Last Mod : $Date: 2010/10/02 $
+% Version : 0.62 $
+%
+/PI 3.14159265359 def
+/ENeperian 2.71828182846 def
+%
+/DegToRad {PI mul 180 div} bind def
+/RadToDeg {180 mul PI div} bind def
+%
+/COS {RadToDeg cos} bind def
+/SIN {RadToDeg sin} bind def
+/TAN {dup SIN exch COS Div} bind def
+/tan {dup sin exch cos Div} bind def
+/ATAN {neg -1 atan 180 sub DegToRad} bind def
+/ACOS {dup dup mul neg 1 add sqrt exch atan DegToRad} bind def
+/acos {dup dup mul neg 1 add sqrt exch atan} bind def
+/ASIN {neg dup dup mul neg 1 add sqrt neg atan 180 sub DegToRad} bind def
+/asin {neg dup dup mul neg 1 add sqrt neg atan 180 sub} bind def
+%
+/EXP {ENeperian exch exp} bind def
+%
+/COSH {dup EXP exch neg EXP add 2 div} bind def
+/SINH {dup EXP exch neg EXP sub 2 div} bind def
+/TANH {dup SINH exch COSH div} bind def
+/ACOSH {dup dup mul 1 sub sqrt add ln} bind def
+/ASINH {dup dup mul 1 add sqrt add ln} bind def
+/ATANH {dup 1 add exch neg 1 add Div ln 2 div} bind def
+%
+%/SINC {dup SIN exch Div} bind def
+/SINC { dup 0 eq { pop 1 } { dup SIN exch div } ifelse } bind def
+
+/GAUSS {dup mul 2 mul dup 4 -2 roll sub dup mul exch div neg EXP exch PI mul sqrt div} bind def
+%
+/GAMMA { 2 dict begin % hv 2007-08-30
+ /z exch def
+ 1.000000000190015 % p(0)
+ 0 1 5 { % on stack is 0 1 2 3 4 5
+ dup % n-1 n-1
+ [ 76.18009172947146
+ -86.50532032941677
+ 24.0140982483091
+ -1.231739572450155
+ 0.1208650973866179E-2
+ -0.5395239384953E-5 ] exch get exch % p(n) n-1
+ 1 add z add div % p(n)/(z+n)
+ add % build the sum
+ } for
+ Pi 2 mul sqrt z div mul
+ z 5.5 add z 0.5 add exp mul ENeperian z 5.5 add neg exp mul
+ end } bind def
+%
+/GAMMALN {dup dup dup 5.5 add dup ln 3 -1 roll .5 add mul sub neg 1.000000000190015
+ 0 1 5 {
+ [76.18009172947146 -86.50532032941677 24.0140982483091 -1.231739572450155
+ .1208650973866179E-2 -.5395239384953E-5 2.5066282746310005] exch get
+ 4 -1 roll 1 add dup 5 1 roll div add} for
+ 4 -1 roll div 2.5066282746310005 mul ln add exch pop} bind def
+/BETA {2 copy add GAMMALN neg exch GAMMALN 3 -1 roll GAMMALN EXP} bind def
+%
+/HORNER {aload length
+ dup 2 add -1 roll
+ exch 1 sub {
+ dup 4 1 roll
+ mul add exch
+ } repeat
+ pop
+} bind def
+%
+/BESSEL_J0 {dup abs 8 lt {
+ dup mul dup [57568490574 -13362590354 651619640.7 -11214424.18 77392.33017 -184.9052456] HORNER
+ exch [57568490411 1029532985 9494680.718 59272.64853 267.8532712 1] HORNER
+ Div}
+ {abs dup .636619772 exch div sqrt exch dup .785398164 sub exch 8 exch div dup dup mul dup
+ [1 -1.098628627E-2 .2734510407E-4 -.2073370639E-5 .2093887211E-6] HORNER
+ 3 index COS mul
+ exch [-.1562499995E-1 .1430488765E-3 -.6911147651E-5 .7621095161E-6 -.934945152E-7] HORNER
+ 4 -1 roll SIN mul 3 -1 roll mul neg add mul}
+ ifelse} bind def
+%
+/BESSEL_Y0 {dup 8 lt {
+ dup dup mul dup [-2957821389 7062834065 -512359803.6 10879881.29 -86327.92757 228.4622733] HORNER
+ exch [40076544269 745249964.8 7189466.438 47447.26470 226.1030244 1] HORNER
+ Div exch dup ln exch BESSEL_J0 .636619772 mul mul add}
+ {dup .636619772 exch div sqrt exch dup .785398164 sub exch 8 exch div dup dup mul dup
+ [1 -.1098628627E-2 .2734510407E-4 -.2073370639E-5 .2093887211E-6] HORNER
+ 3 index SIN mul
+ exch [-.1562499995E-1 .1430488765E-3 -.6911147651E-5 .7621095161E-6 -.934945152E-7] HORNER
+ 4 -1 roll COS mul 3 -1 roll mul add mul}
+ ifelse} bind def
+%
+/BESSEL_J1 {dup abs 8 lt {
+ dup dup mul dup 3 -2 roll [72362614232 -7895059235 242396853.1 -2972611.439 15704.48260 -30.16036606] HORNER mul
+ exch [144725228442 2300535178 18583304.74 99447.43394 376.9991397 1] HORNER
+ Div}
+ {dup abs dup .636619772 exch div sqrt exch dup 2.356194491 sub exch 8 exch div dup dup mul dup
+ [1 .183105E-2 -.3516396496E-4 .2457520174E-5 -.240337019E-6] HORNER
+ 3 index COS mul
+ exch [.04687499995 6.2002690873E-3 .8449199096E-5 -.88228987E-6 .105787412E-6] HORNER
+ 4 -1 roll SIN mul 3 -1 roll mul neg add mul exch dup abs Div mul}
+ ifelse} bind def
+%
+/BESSEL_Y1 {dup 8 lt {
+ dup dup dup mul dup [-.4900604943E13 .1275274390E13 -.5153428139E11 .7349264551E9 -.4237922726E7 .8511937935E4] HORNER
+ exch [.2499580570E14 .4244419664E12 .3733650367E10 .2245904002E8 .1020426050E6 .3549632885E3 1] HORNER
+ Div mul exch dup dup ln exch BESSEL_J1 mul exch 1 exch div sub .636619772 mul add}
+ {dup .636619772 exch div sqrt exch dup 2.356194491 sub exch 8 exch div dup dup mul dup
+ [1 .183105E-2 -.3516396496E-4 .2457520174E-5 -.240337019E-6] HORNER
+ 3 index SIN mul
+ exch [.04687499995 -.2002690873E-3 .8449199096E-5 6.88228987E-6 .105787412E-6] HORNER
+ 4 -1 roll COS mul 3 -1 roll mul add mul}
+ ifelse} bind def
+%
+% En cours...
+/BESSEL_Yn {dup 0 eq {pop BESSEL_Y0}{dup 1 eq {pop BESSEL_Y1}{
+ exch dup BESSEL_Y0 exch dup BESSEL_Y1 exch 2 exch Div {
+ mul 3 -1 roll mul 2 index sub pstack} for
+ } ifelse } ifelse } bind def
+%
+/SIMPSON { 1 dict begin %% on stack a b var f ierr Dominik Rodriguez
+ 3 index 5 index sub % compute h
+ 1 % a b var f ierr h n
+ 4 index 7 index def 3 index exec % a b var f ierr h n f(a)
+ 5 index 7 index def 4 index exec add % a b var f ierr h n f(a)+f(b)
+ 5 index 8 index 4 index 2 div add def 4 index exec % a b var f ierr h n f(a)+f(b) f(a+h/2)
+ exch 1 index 4 mul add 0 % a b var f ierr h n old=f(a+h/2) Estim=f(a)+f(b)+4f(a+h/2) NbLoop
+ { % a b var f ierr h n old Estim NbLoop
+ 5 -1 roll 2 div dup 6 1 roll % h<-h/2
+ 5 -1 roll 2 mul 5 1 roll % n<-2n
+ % a b var f ierr h n old Estim NbLoop h
+ 2 div 10 index add 0 % a b var f ierr h n old Estim NbLoop a+h/2 Cumul
+ 5 index {
+ 1 index 10 index exch def 8 index exec add exch 6 index add exch
+ } repeat % a b var f ierr h n old Estim NbLoop a+nh/2 Cumul
+ exch pop % a b var f ierr h n old Estim NbLoop New
+ 2 index 1 index 4 mul 6 -1 roll 2 mul sub sub % a b var f ierr h n Estim NbLoop New Diff
+ 4 -1 roll 2 mul 1 index sub 4 1 roll % a b var f ierr h n Estim NbLoop New Diff
+ exch 4 1 roll % a b var f ierr h n old Estim NbLoop Diff
+ 5 index 6 div mul abs 6 index lt { exit } if
+ 1 add dup 9 eq { exit } if
+ } loop % a b var f ierr h n old Estim NbLoop
+ exch 5 -1 roll 6 div mul mark 10 2 roll cleartomark
+end
+} def
+% ------------------------------------ math stuff ----------------------------------
+%
+% Matrix A in arrays of rows A[[row1][row2]...]
+% with [row1]=[a11 a12 ... b1]
+% returns on stack solution vector X=[x1 x2 ... xn]
+/SolveLinEqSystem { % on stack matrix M=[A,b] (A*x=b)
+ 10 dict begin % hold all ocal
+ /A exch def
+ /Rows A length def % Rows = number of rows
+ /Cols A 0 get length def % Cols = number of columns
+ /Index [ 0 1 Rows 1 sub { } for ] def % Index = [0 1 2 ... Rows-1]
+ /col 0 def
+ /row 0 def
+ /PR Rows array def % PR[c] = pivot row for row row
+ { % starts the loop, find pivot entry in row r
+ col Cols ge row Rows ge or { exit } if % col < Cols and row < Rows else exit
+ /pRow row def % pRow = pivot row
+ /max A row get col get abs def % get A[row[col]], first A[0,0]
+ row 1 add 1 Rows 1 sub { % starts for loop 1 1 Rows-1
+ /j exch def % index counter
+ /x A j get col get abs def % get A[j[r]]
+ x max gt { % x>max, then save position
+ /pRow j def
+ /max x def
+ } if
+ } for % now we have the row with biggest A[0,1]
+ % with pRow = the pivot row
+ max 0 gt { % swap entries pRow and row in i
+ /tmp Index row get def
+ Index row Index pRow get put
+ Index pRow tmp put % and columns pRow and row in A
+ /tmp A row get def
+ A row A pRow get put
+ A pRow tmp put % pivot
+ /row0 A row get def % the pivoting row
+ /p0 row0 col get def % the pivot value
+ row 1 add 1 Rows 1 sub { % start for loop
+ /j exch def
+ /c1 A j get def
+ /p c1 col get p0 div def
+ c1 col p put % subtract (p1/p0)*row[i] from row[j]
+ col 1 add 1 Cols 1 sub { % start for loop
+ /i exch def
+ c1 dup i exch % c1 i c1
+ i get row0 i get p mul sub put
+ } for
+ } for
+ PR row col put
+ /col col 1 add def
+ /row row 1 add def
+ }{ % all zero entries
+ /row row 1 add def % continue loop with same row
+ } ifelse
+ } loop
+ /X A def % solution vector
+ A Rows 1 sub get dup
+ Cols 1 sub get exch
+ Cols 2 sub get div
+ X Rows 1 sub 3 -1 roll put % X[n]
+ Rows 2 sub -1 0 { % for loop to calculate X[i]
+ /xi exch def % current index
+ A xi get % i-th row
+ /Axi exch def
+ /sum 0 def
+ Cols 2 sub -1 xi 1 add {
+ /n exch def
+ /sum sum Axi n get X n get mul add def
+ } for
+ Axi Cols 1 sub get % b=Axi[Cols-1]
+ sum sub % b-sum
+ Axi xi get div % b-sum / Axi[xi]
+ X xi 3 -1 roll put % X[xi]
+ } for
+ X
+ end
+} def
+%
+/c@_0 2.515517 def
+/c@_1 0.802853 def
+/c@_2 0.010328 def
+/d@_1 1.432788 def
+/d@_2 0.189269 def
+/d@_3 0.001308 def
+/norminv {
+ 5 dict begin
+ neg 1 add 1 exch div ln 2 mul sqrt
+ /t exch def
+ /t2 t dup mul def
+ /t3 t2 t mul def
+ c@_0 c@_1 t mul add c@_2 t2 mul add 1 d@_1 t mul add
+ d@_2 t2 mul add d@_3 t3 mul add div neg t add
+ end
+} def
+%end{norminv Michael Sharpe}
+%
+%
+% END pst-math.pro
+
+%%EndProcSet
+%%BeginProcSet: pst-3d.pro 0 0
+%% $Id: pst-3d.pro 247 2010-01-04 22:45:42Z herbert $
+% PostScript prologue for pst-3d.tex.
+% Version 0.01, 2010/01/01
+%
+/tx@3Ddict 300 dict def
+tx@3Ddict begin
+%
+/SetMatrixThreeD {
+ dup sin /e ED cos /f ED
+ /p3 ED /p2 ED /p1 ED
+ p1 0 eq
+ { /a 0 def /b p2 0 le { 1 } { -1 } ifelse def
+ p3 p2 abs
+ }
+ { p2 0 eq
+ { /a p1 0 lt { -1 } { 1 } ifelse def /b 0 def
+ p3 p1 abs
+ }
+ { p1 dup mul p2 dup mul add sqrt dup
+ p1 exch div /a ED
+ p2 exch div neg /b ED
+ p3 p1 a div
+ }
+ ifelse
+ }
+ ifelse
+ atan dup sin /c ED cos /d ED
+ /Matrix3D
+ [
+ b f mul c a mul e mul sub
+ a f mul c b mul e mul add
+ d e mul
+ b e mul neg c a mul f mul sub
+ a e mul neg c b mul f mul add
+ d f mul
+ ] def
+} def
+%
+/ProjThreeD {
+ /z ED /y ED /x ED
+ Matrix3D aload pop
+ z mul exch y mul add exch x mul add
+ 4 1 roll
+ z mul exch y mul add exch x mul add
+ exch
+} def
+%
+/SetMatrixEmbed {
+ SetMatrixThreeD
+ Matrix3D aload pop
+ /z3 ED /z2 ED /z1 ED /x3 ED /x2 ED /x1 ED
+ SetMatrixThreeD
+ [
+ Matrix3D aload pop
+ z3 mul exch z2 mul add exch z1 mul add 4 1 roll
+ z3 mul exch z2 mul add exch z1 mul add
+ Matrix3D aload pop
+ x3 mul exch x2 mul add exch x1 mul add 4 1 roll
+ x3 mul exch x2 mul add exch x1 mul add
+ 3 -1 roll 3 -1 roll 4 -1 roll 8 -3 roll 3 copy
+ x3 mul exch x2 mul add exch x1 mul add 4 1 roll
+ z3 mul exch z2 mul add exch z1 mul add
+ ]
+ concat
+} def
+%
+/TMSave {
+ tx@Dict /TMatrix known not { /TMatrix { } def /RAngle { 0 } def } if
+ /TMatrix [ TMatrix CM ] cvx def
+} def
+%
+/TMRestore { CP /TMatrix [ TMatrix setmatrix ] cvx def moveto } def
+%
+/TMChange {
+ TMSave
+ /cp [ currentpoint ] cvx def % ??? Check this later.
+ CM
+ CP T STV
+ CM matrix invertmatrix % Inv(M')
+ matrix concatmatrix % M Inv(M')
+ exch exec
+ concat cp moveto
+} def
+%
+end % of tx@3Ddict
+%%
+%% End of file `pst-3d.pro'.
+
+%%EndProcSet
+%%BeginProcSet: pstricks-add.pro 0 0
+%% $Id: pstricks-add.pro 328 2010-05-24 15:56:43Z herbert $
+% PostScript prologue for pstricks-add.tex.
+% Version 0.23, 2009/12/17
+%
+/tx@addDict 410 dict def tx@addDict begin
+%%
+realtime srand % set random generator
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+/GTriangle {
+ gsave
+ /mtrx CM def
+ /colorA ED /colorB ED /colorC ED % save the colors
+ /yA ED /xA ED % save the origin
+ xA yA translate
+ rotate % \psk@gangle
+ /yB ED /xB ED /yC ED /xC ED % save other coordinates
+ /ds [ % save data in a array
+ 0 0 0 colorA aload pop % fd x y xr xg xb
+ 0 xB xA sub yB yA sub colorB aload pop
+ 0 xC xA sub yC yA sub colorC aload pop
+% 1 xC xB add yB colorA aload pop % for use with 4 points ABCD
+ ] def
+ newpath
+ <<
+ /ShadingType 4 % single Gouraud
+ /ColorSpace [ /DeviceRGB ]
+ /DataSource ds
+ >>
+ shfill
+ closepath
+ mtrx
+ setmatrix grestore} def
+%
+/RGBtoCMYK { % on stack r g b -> C M Y K
+ 3 dict begin
+ /Blue ED /Green ED /Red ED
+ 1 Red sub % Cyan
+ 1 Green sub % Magenta
+ 1 Blue sub % Yellow
+ 0 % Black
+ end
+} def
+%
+/CMYKtoGRAY { % on stack c m y k -> gray
+ exch 0.11 mul add
+ exch 0.59 mul add
+ exch 0.3 mul add
+ dup 1 gt { pop 1 } if
+ neg 1 add
+} def
+%
+/RGBtoGRAY { % on stack r g b -> gray
+ 0.11 mul
+ exch 0.59 mul add
+ exch 0.3 mul add
+} def
+%
+/HSBtoGRAY {
+ 6 dict begin
+ /b exch def
+ /s exch def 6 mul dup cvi dup
+ /i exch def sub
+ /f exch def
+ /F [[0 1 f sub 1][f 0 1][1 0 1 f sub][1 f 0][1 f sub 1 0][0 1 f][0 1 1]] def
+ F i get { s mul neg 1 add b mul} forall
+ 0.11 mul
+ exch 0.59 mul add
+ exch 0.3 mul add
+ end
+} def
+%
+%% convertisseur longueur d'onde ->R,G,B Manuel Luque
+%% lambda max=780 nanometres
+%% lambda min=380 nanometres
+%% adaptation de :
+%% http://www.physics.sfasu.edu/astro/color.html
+%% www.efg2.com/lab
+%
+/Gamma 0.8 def
+/calculateRGB {
+ lambda 379 le {/Red 0 def /Green 0 def /Blue 0 def} if
+ lambda 781 ge {/Red 0 def /Green 0 def /Blue 0 def} if
+ lambda 380 ge {lambda 439 le {
+ /R {lambda 440 sub neg 440 380 sub div} def
+ /Red R factor mul Gamma exp def
+ /G 0 def
+ /Green G factor mul Gamma exp def
+ /B 1 def
+ /Blue B factor mul Gamma exp def} if
+ } if
+ lambda 440 ge { lambda 489 le {
+ /G {lambda 440 sub 490 440 sub div} def
+ /Green G factor mul Gamma exp def
+ /R 0 def /Red 0 def
+ /B 1 def
+ /Blue B factor mul Gamma exp def } if
+ } if
+ lambda 490 ge {lambda 509 le {
+ /B {lambda 510 sub neg 510 490 sub div} def
+ /Blue B factor mul Gamma exp def
+ /R 0 def /Red 0 def
+ /G 1 def
+ /Green G factor mul Gamma exp def } if
+ } if
+ lambda 510 ge {lambda 579 le {
+ /R {lambda 510 sub 580 510 sub div } def
+ /Red R factor mul Gamma exp def
+ /Blue 0 def
+ /G 1 def
+ /Green G factor mul Gamma exp def } if
+ } if
+ lambda 580 ge {lambda 644 le {
+ /G {lambda 645 sub neg 645 580 sub div } def
+ /Green G factor mul Gamma exp def
+ /Blue 0 def
+ /R 1 def
+ /Red R factor mul Gamma exp def } if
+ } if
+ lambda 645 ge { lambda 780 le {
+ /Red 1 factor mul Gamma exp def
+ /Blue 0 def
+ /Green 0 def } if
+ } if
+} def
+%
+/factor {
+ lambda 380 ge {lambda 419 le { 0.3 0.7 lambda 380 sub mul 420 380 sub div add} if } if
+ lambda 420 ge {lambda 700 le { 1 } if } if
+ lambda 701 ge {lambda 780 le { 0.3 0.7 780 lambda sub mul 780 700 sub div add} if } if
+} def
+%
+/wavelengthToRGB { % the wavelength in nm must be on top of the stack
+ cvi /lambda exch def % no floating point here
+ calculateRGB
+} def % now the colors are saved in Red Green Blue
+%
+/wavelengthToGRAY { % the wavelength in nm must be on top of the stack
+ cvi /lambda exch def % no floating point here
+ calculateRGB
+ Red Green Blue RGBtoGRAY
+} def % now the gray color is on the stack
+%
+/wavelengthToCMYK { % the wavelength in nm must be on top of the stack
+ cvi /lambda exch def % no floating point here
+ gsave
+ calculateRGB Red Green Blue RGBtoCMYK
+ /Black ED /Yellow ED /Magenta ED /Cyan ED
+ grestore
+} def % now the colors are saved in Cyan Magenta Yellow Black
+%
+/axfill {
+ 8 dict begin
+ /xw exch def /nl exch def
+ /C1 exch def /y1 exch def/x1 exch def
+ /C0 exch def /y0 exch def/x0 exch def
+ << /ShadingType 2
+ /ColorSpace /DeviceRGB
+ /Coords [ x0 y0 x1 y1 ]
+ /EmulatorHints [ xw 2 div dup ]
+ /Function <<
+ /FunctionType 2
+ /Domain [0 1]
+ /C0 C0
+ /C1 C1
+ /N 1
+ >>
+ >> shfill
+ end
+} bind def
+%
+%/amplHand {.8} def
+%/dtHand 2 def
+/varHand { rand sin amplHand mul add } def
+/MovetoByHand { moveto } def
+%/MovetoByHand { /y0 ED /x0 ED x0 y0 moveto } def
+/LinetoByHand { 4 dict begin
+ /y1 ED /x1 ED
+ currentpoint /y0 ED /x0 ED
+ x0 x1 sub dup mul y0 y1 sub dup mul add sqrt /dEnd ED
+ 0 dtHand dEnd { dup
+ x1 x0 sub mul dEnd div x0 add varHand exch
+ y1 y0 sub mul dEnd div y0 add varHand lineto
+ } for
+% /x0 x1 def /y0 y1 def
+ end
+} def
+%
+end
+%
+% END pstricks-add.pro
+
+%%EndProcSet
+%%BeginProcSet: pst-func.pro 0 0
+%% $Id: pst-func.pro 355 2010-06-21 10:02:44Z herbert $
+%%
+%% This is file `pst-func.pro',
+%%
+%% IMPORTANT NOTICE:
+%%
+%% Package `pst-func'
+%%
+%% Herbert Voss <hvoss@tug.org>
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%%
+%% DESCRIPTION:
+%% `pst-func' is a PSTricks package to plot special math functions
+%%
+%%
+%% version 0.13 / 2010-06-21 Herbert Voss
+%
+/tx@FuncDict 100 dict def
+tx@FuncDict begin
+%
+/eps1 1.0e-05 def
+/eps2 1.0e-04 def
+/eps8 1.0e-08 def
+/Pi2 1.57079632679489661925640 def
+/CEuler 0.5772156649 def % Euler-Mascheroni constant
+%
+/factorial { % n on stack, returns n!
+ dup 0 eq { 1 }{
+ dup 1 gt { dup 1 sub factorial mul } if }
+ ifelse } def
+%
+/MoverN { % m n on stack, returns the binomial coefficient m over n
+ 2 dict begin
+ /n exch def /m exch def
+ n 0 eq { 1 }{
+ m n eq { 1 }{
+ m factorial n factorial m n sub factorial mul div } ifelse } ifelse
+ end
+} def
+%
+/Pascal [
+ [ 1 ] % 0
+ [ 1 1 ] % 1
+ [ 1 2 1 ] % 2
+ [ 1 3 3 1 ] % 3
+ [ 1 4 6 4 1 ] % 4
+ [ 1 5 10 10 5 1 ] % 5
+ [ 1 6 15 20 15 6 1 ] % 6
+ [ 1 7 21 35 35 21 7 1 ] % 7
+ [ 1 8 28 56 70 56 28 8 1 ] % 8
+ [ 1 9 36 84 126 126 84 36 9 1 ] % 9
+] def
+%
+/GetBezierCoor { % t on stack
+ 10 dict begin % hold all local
+ /t ED
+ /t1 1 t sub def % t1=1-t
+ /Coeff Pascal BezierType get def % get the coefficients
+ 0 0 % initial values for x y
+ BezierType -1 0 { % BezierType,...,2,1,0
+ /I ED % I=BezierType,...,2,1,0
+ /J BezierType I sub def % J=0,1,2,...,BezierType
+ /T t I exp Coeff J get mul def % coeff(J)*t^I
+ /T1 t1 J exp def % t1^J
+ Points I dup add 1 add get % y(2*I+1)
+ T mul T1 mul add % the y coordinate
+ exch % y x
+ Points I dup add get % x(2*I)
+ T mul T1 mul add % the x coordinate
+ exch % x y
+ } for % x y on stack
+ end
+} def
+%
+/BezierCurve { % on stack [ coors psk@plotpoints BezierType
+% 10 dict begin
+ /BezierType ED
+ 1 exch div /epsilon ED
+ ] /Points ED % yi xi ... y3 x3 y2 x2 y1 x1 y0 x0
+ epsilon GetBezierCoor % next Bezier point
+ Points 0 get Points 1 get % starting point
+ ArrowA moveto
+ epsilon epsilon 1 {
+ /t ED
+ t GetBezierCoor
+ t 0.9999 lt { lineto }{ 1 epsilon sub GetBezierCoor 4 2 roll ArrowB pop pop pop pop } ifelse
+ } for
+% end
+} def
+%
+/Bernstein { % on stack tStart tEnd plotpoints i n
+ 12 dict begin % hold all local
+ /envelope ED % plot envelope?
+ /n ED
+ /i ED
+ /ni n i sub def
+ /epsilon ED % step=1/plotpoints
+ /tEnd ED
+ /tStart ED
+%
+% B_{i,n}(t)=\binom{n}{i}t^i(1-t)^{n-i} (Bernstein)
+% f_n(x)=\frac{1}{\sqrt{\pi n\cdot x(1-x)}} (envelope)
+%
+ n i MoverN /noveri ED % \binom{n}{i}
+ [ % for the array of points
+ tStart epsilon tEnd {
+ dup dup /t ED % leave one on stack
+ neg 1 add /t1 ED % t1=1-t
+ envelope
+ { t t1 mul 4 mul Pi2 mul n mul sqrt 1 exch Div } % envelope
+ { noveri t i exp mul t1 ni exp mul } ifelse % t f(t)
+ ScreenCoor % convert to screen coor
+ } for
+ end
+ false /Lineto /lineto load def Line
+} def
+%
+/Si { % integral sin from 0 to x (arg on stack)
+ /arg exch def
+ /Sum arg def
+ /sign -1 def
+ /index 3 def
+ {
+ arg index exp index div index factorial div sign mul
+ dup abs eps8 lt { pop exit } if
+ Sum add /Sum exch def
+ /sign sign neg def
+ /index index 2 add def
+ } loop
+ Sum
+} def
+/si { % integral sin from x to infty -> si(x)=Si(x)-pi/2
+ Si Pi2 sub
+} def
+/Ci { % integral cosin from x to infty (arg on stack)
+ abs /arg exch def
+ arg 0 eq { 0 } {
+ /argExp 1 def
+ /fact 1 def
+ /Sum CEuler arg ln add def
+ /sign -1 def
+ /index 2 def
+ {
+ /argExp argExp arg arg mul mul def
+ /fact fact index 1 sub index mul mul def
+ argExp index div fact div sign mul
+ dup abs exch Sum add /Sum exch def
+ eps8 lt { exit } if
+ /sign sign neg def
+ /index index 2 add def
+ } loop
+ Sum
+ } ifelse
+} def
+/ci { % integral cosin from x to infty -> ci(x)=-Ci(x)+ln(x)+CEuler
+ dup Ci neg exch abs ln add CEuler add
+} def
+%
+/MaxIter 255 def
+/func { coeff Derivation FuncValue } def
+/func' { coeff Derivation 1 add FuncValue } def
+/func'' { coeff Derivation 2 add FuncValue } def
+%
+/NewtonMehrfach {% the start value must be on top of the stack
+ /Nx exch def
+ /Iter 0 def
+ {
+ /Iter Iter 1 add def
+ Nx func /F exch def % f(Nx)
+ F abs eps2 lt { exit } if
+ Nx func' /FS exch def % f'(Nx)
+ FS 0 eq { /FS 1.0e-06 def } if
+ Nx func'' /F2S exch def % f''(Nx)
+ 1.0 1.0 F F2S mul FS dup mul div sub div /J exch def
+ J F mul FS div /Diff exch def
+ /Nx Nx Diff sub def
+ Diff abs eps1 lt Iter MaxIter gt or { exit } if
+ } loop
+ Nx % the returned value ist the zero point
+} def
+
+/Steffensen {% the start value must be on top of the stack
+ /y0 exch def % the start value
+ /Iter 0 def
+ {
+ y0 func /F exch def
+ F abs eps2 lt { exit } if
+ y0 F sub /Phi exch def
+ Phi func /F2 exch def
+ F2 abs eps2 le { exit }{
+ Phi y0 sub dup mul Phi F2 sub 2 Phi mul sub y0 add Div /Diff exch def
+ y0 Diff sub /y0 exch def
+ Diff abs eps1 le { exit } if
+ } ifelse
+ /Iter Iter 1 add def
+ Iter MaxIter gt { exit } if
+ } loop
+ y0 % the returned value ist the zero point
+} def
+%
+/Horner {% x [coeff] must be on top of the stack
+ aload length
+ dup 2 add -1 roll
+ exch 1 sub {
+ dup 4 1 roll
+ mul add exch
+ } repeat
+ pop % the y value is on top of the stack
+} def
+%
+/FuncValue {% x [coeff] Derivation must be on top of the stack
+ {
+ aload % a0 a1 a2 ... a(n-1) [array]
+ length % a0 a1 a2 ... a(n-1) n
+ 1 sub /grad exch def % a0 a1 a2 ... a(n-1)
+ grad -1 1 { % for n=grad step -1 until 1
+ /n exch def % Laufvariable speichern
+ n % a0 a1 a2 ... a(n-1) n
+ mul % a0 a1 a2 ... a(n-1)*n
+ grad 1 add % a0 a1 a2 ... a(n-1)*n grad+1
+ 1 roll % an*na0 a1 a2 ... a(n-2)
+ } for
+ pop % loesche a0
+ grad array astore % [ a1 a2 ... a(n-2)]
+ } repeat
+ Horner
+} def
+%
+/FindZeros { % dxN dxZ must be on top of the stack (x0..x1 the intervall) => []
+ 12 dict begin
+ /dxZ exch def /dxN exch def
+ /pstZeros [] def
+ x0 dxZ x1 { % suche Nullstellen
+ /xWert exch def
+ xWert NewtonMehrfach
+ %xWert Steffensen
+ /xNull exch def
+ pstZeros aload length /Laenge exch def % now test if value is a new one
+ Laenge 0 eq
+ { xNull 1 }
+ { /newZero true def
+ Laenge {
+ xNull sub abs dxN lt { /newZero false def } if
+ } repeat
+ pstZeros aload pop
+ newZero { xNull Laenge 1 add } { Laenge } ifelse } ifelse
+ array astore
+ /pstZeros exch def
+ } for
+ pstZeros % the end array is now on the stack
+ end
+} def
+%
+/Simpson { % on stack must be a b M --- simple version ---
+% /SFunc must be defined
+ /M ED /b ED /a ED
+ /h b a sub M 2 mul div def
+ /s1 0 def
+ /s2 0 def
+ 1 1 M {
+ /k exch def
+ /x k 2 mul 1 sub h mul a add def
+ /s1 s1 x SFunc add def
+ } for
+ 1 1 M 1 sub {
+ /k exch def
+ /x k 2 mul h mul a add def
+ /s2 s2 x SFunc add def
+ } for
+ /I a SFunc b SFunc add s1 4 mul add s2 2 mul add 3 div h mul def
+} def
+%
+/LogGamma { 5 dict begin % z on stack
+ /z ED
+ /sum 0 def
+ /k 1 def
+ {
+ z k div dup 1 add ln sub dup
+ abs eps8 lt { pop exit } if
+ sum add /sum exch def
+ /k k 1 add def
+ } loop
+ sum z ln sub CEuler z mul sub
+ end
+} def
+%
+/ChebyshevT { 5 dict begin % z on stack
+ /xtmp exch def
+ /n exch def
+ 0 0 1 n .5 mul floor {
+ /k exch def
+ xtmp xtmp mul 1 sub k exp
+ xtmp n 2 k mul sub exp mul
+ n 2 k mul MoverN mul
+ add
+ } for
+ end
+} def
+%
+/ChebyshevU {5 dict begin % z on stack
+ /xtmp exch def
+ /n exch def
+ 0 0 1 n .5 mul floor {
+ /k exch def
+ xtmp xtmp mul 1 sub k exp
+ xtmp n 2 k mul sub exp mul
+ n 1 add 2 k mul 1 add MoverN mul
+ add
+ } for
+ end
+} def
+%
+% subroutines for complex numbers, given as an array [a b]
+% which is a+bi = Real+i Imag
+%
+/cxadd { % [a1 b1] [a2 b2] = [a1+a2 b1+b2]
+ dup 0 get % [a1 b1] [a2 b2] a2
+ 3 -1 roll % [a2 b2] a2 [a1 b1]
+ dup 0 get % [a2 b2] a2 [a1 b1] a1
+ 3 -1 roll % [a2 b2] [a1 b1] a1 a2
+ add % [a2 b2] [a1 b1] a1+a2
+ 3 1 roll % a1+a2 [a2 b2] [a1 b1]
+ 1 get % a1+a2 [a2 b2] b1
+ exch 1 get % a1+a2 b1 b2
+ add 2 array astore
+} def
+%
+/cxneg { % [a b]
+ dup 1 get % [a b] b
+ exch 0 get % b a
+ neg exch neg % -a -b
+ 2 array astore
+} def
+%
+/cxsub { cxneg cxadd } def % same as negative addition
+%
+% [a1 b1][a2 b2] = [a1a2-b1b2 a1b2+b1a2] = [a3 b3]
+/cxmul { % [a1 b1] [a2 b2]
+ dup 0 get % [a1 b1] [a2 b2] a2
+ exch 1 get % [a1 b1] a2 b2
+ 3 -1 roll % a2 b2 [a1 b1]
+ dup 0 get % a2 b2 [a1 b1] a1
+ exch 1 get % a2 b2 a1 b1
+ dup % a2 b2 a1 b1 b1
+ 5 -1 roll dup % b2 a1 b1 b1 a2 a2
+ 3 1 roll mul % b2 a1 b1 a2 b1a2
+ 5 -2 roll dup % b1 a2 b1a2 b2 a1 a1
+ 3 -1 roll dup % b1 a2 b1a2 a1 a1 b2 b2
+ 3 1 roll mul % b1 a2 b1a2 a1 b2 a1b2
+ 4 -1 roll add % b1 a2 a1 b2 b3
+ 4 2 roll mul % b1 b2 b3 a1a2
+ 4 2 roll mul sub % b3 a3
+ exch 2 array astore
+} def
+%
+% [a b]^2 = [a^2-b^2 2ab] = [a2 b2]
+/cxsqr { % [a b] square root
+ dup 0 get exch 1 get % a b
+ dup dup mul % a b b^2
+ 3 -1 roll % b b^2 a
+ dup dup mul % b b^2 a a^2
+ 3 -1 roll sub % b a a2
+ 3 1 roll mul 2 mul % a2 b2
+ 2 array astore
+} def
+%
+/cxsqrt { % [a b]
+% dup cxnorm sqrt /r exch def
+% cxarg 2 div RadtoDeg dup cos r mul exch sin r mul cxmake2
+ cxlog % log[a b]
+ 2 cxrdiv % log[a b]/2
+ aload pop exch % b a
+ 2.781 exch exp % b exp(a)
+ exch cxconv exch % [Re +iIm] exp(a)
+ cxrmul %
+} def
+%
+/cxarg { % [a b]
+ aload pop % a b
+ exch atan % arctan b/a
+ DegtoRad % arg(z)=atan(b/a)
+} def
+%
+% log[a b] = [a^2-b^2 2ab] = [a2 b2]
+/cxlog { % [a b]
+ dup % [a b][a b]
+ cxnorm % [a b] |z|
+ log % [a b] log|z|
+ exch % log|z|[a b]
+ cxarg % log|z| Theta
+ cxmake2 % [log|z| Theta]
+} def
+%
+% square of magnitude of complex number
+/cxnorm2 { % [a b]
+ dup 0 get exch 1 get % a b
+ dup mul % a b^2
+ exch dup mul add % a^2+b^2
+} def
+%
+/cxnorm { % [a b]
+ cxnorm2 sqrt
+} def
+%
+/cxconj { % conjugent complex
+ dup 0 get exch 1 get % a b
+ neg 2 array astore % [a -b]
+} def
+%
+/cxre { 0 get } def % real value
+/cxim { 1 get } def % imag value
+%
+% 1/[a b] = ([a -b]/(a^2+b^2)
+/cxrecip { % [a b]
+ dup cxnorm2 exch % n2 [a b]
+ dup 0 get exch 1 get % n2 a b
+ 3 -1 roll % a b n2
+ dup % a b n2 n2
+ 4 -1 roll exch div % b n2 a/n2
+ 3 1 roll div % a/n2 b/n2
+ neg 2 array astore
+} def
+%
+/cxmake1 { 0 2 array astore } def % make a complex number, real given
+/cxmake2 { 2 array astore } def % dito, both given
+%
+/cxdiv { cxrecip cxmul } def
+%
+% multiplikation by a real number
+/cxrmul { % [a b] r
+ exch aload pop % r a b
+ 3 -1 roll dup % a b r r
+ 3 1 roll mul % a r b*r
+ 3 1 roll mul % b*r a*r
+ exch 2 array astore % [a*r b*r]
+} def
+%
+% division by a real number
+/cxrdiv { % [a b] r
+ 1 exch div % [a b] 1/r
+ cxrmul
+} def
+%
+% exp(i theta) = cos(theta)+i sin(theta) polar<->cartesian
+/cxconv { % theta
+ RadtoDeg dup sin exch cos cxmake2
+} def
+%
+end
+
+%%EndProcSet
+%%BeginProcSet: pst-3dplot.pro 0 0
+%% $Id: pst-3dplot.pro 236 2009-12-31 08:59:43Z herbert $
+%%
+%% This is file `pst-3dplot.pro',
+%%
+%% IMPORTANT NOTICE:
+%%
+%% Package `pst-3dplot.tex'
+%%
+%% Herbert Voss <voss _at_ PSTricks.de>
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%%
+%% DESCRIPTION:
+%% `pst-3dplot' is a PSTricks package to draw 3d curves and graphical objects
+%%
+%%
+%% version 0.30 / 2010-01-01 Herbert Voss <voss _at_ PSTricks.de>
+%% with contributions of Darrell Lamm <darrell.lamm _at_ gtri.gatech.edu<
+%%
+%
+/tx@3DPlotDict 200 dict def
+tx@3DPlotDict begin
+%
+/printDot { gsave 2 copy 2 0 360 arc fill stroke grestore } def
+%
+/saveCoor {
+ dzUnit mul /z ED
+ dyUnit mul /y ED
+ dxUnit mul /x ED
+} def
+%
+/ConvertTo2D {
+ RotatePoint
+ 1 { % dummy loop, will run only 1 time, allows exit
+ coorType 0 le { % the default |
+ /x2D x leftHanded not { neg } if Alpha cos mul y Alpha sin mul add def % /\ co system
+ /y2D x leftHanded { neg } if Alpha sin mul y Alpha cos mul add neg Beta sin mul z Beta cos mul add def
+ exit } if
+ coorType 1 le {
+ /x2D y x Alpha 90 sub sin mul sub def % |/_ co system, no shortened x axis
+ /y2D z x Alpha 90 sub cos mul sub def
+ exit } if
+ coorType 2 le { % coorType |/_ with a 1/sqrt(2) shortend x-axis and 135 degrees
+ /x2D y x 0.5 mul sub def
+ /y2D z x 0.5 mul sub def
+ exit } if
+ coorType 3 le { % coorType |/_ with a 1/sqrt(2) shortend x-axis and 135 degrees
+ /x2D y x -0.5 mul sub def
+ /y2D z x -0.5 mul sub def
+ exit } if
+ coorType 4 le { % Normalbild in Trimetrie Skalierung so, dass coorType2
+ /x2D x -0.5 mul y 1 mul add def
+ /y2D x -0.5 mul y -0.25 mul add z 1 mul add def
+ exit } if
+ } repeat
+} def
+%
+/Conv3D2D { /z ED /y ED /x ED ConvertTo2D x2D y2D } def
+%
+/ConvertToCartesian {
+ /latitude exch def
+ /longitude exch def
+ /Radius exch def
+ 1 { % dummy loop, will run only 1 time, allows exit
+ SphericalCoorType 0 le { % the default |
+ /z { Radius latitude sin mul } def
+ /x { Radius longitude cos mul latitude cos mul } def
+ /y { Radius longitude sin mul latitude cos mul } def
+ exit } if
+ SphericalCoorType 2 le {
+ /z { Radius longitude cos mul } def
+ /x { Radius longitude sin mul latitude cos mul} def
+ /y { Radius longitude sin mul latitude sin mul } def
+ exit } if
+ } repeat
+} def
+%
+/ConvCylToCartesian { % r phi h -> x y z
+ 3 1 roll % h r phi
+ /Phi ED
+ /Radius ED % h->z on stack
+ Radius Phi cos mul exch % x z
+ Radius Phi sin mul exch % x y z
+} def
+%
+/SphericalTo2D {
+ x y z ConvertToCartesian ConvertTo2D
+} def
+%
+/CylinderTo2D { % r phi h
+ x y z ConvCylToCartesian ConvertTo2D
+} def
+%
+/convertStackTo2D {
+ counttomark
+ /n ED /n3 n 3 div cvi def
+ n3 {
+ n -3 roll
+ SphericalCoor { ConvertToCartesian } { saveCoor } ifelse
+ ConvertTo2D
+ x2D xUnit y2D yUnit
+ /n n 1 sub def
+ } repeat
+} def
+%
+% the angle in the parameter equation for an ellipse is not proportional to the real angle!
+% phi=atan(b*tan(angle)/a)+floor(angle/180+0.5)*180
+%
+/getPhi { % on stack: vecA vecB angle
+ 3 dict begin
+ /angle exch def /vecB exch def /vecA exch def
+ angle cvi 90 mod 0 eq { angle } { vecA angle tan mul vecB atan
+ angle 180 div .5 add floor 180 mul add } ifelse
+ end
+} def
+%
+/RotSet (set ) def
+%
+/eulerRotation false def
+% Matrix multiplication procedure
+/matmul {
+
+ /M@tMulDict 20 dict def
+ M@tMulDict begin
+ /m2 ED
+ /m1 ED
+ m1 dup length 2 sub 2 getinterval aload pop
+ /col1max ED
+ /row1max ED
+ m2 dup length 2 sub 2 getinterval aload pop
+ /col2max ED
+ /row2max ED
+ /m3 row1max col2max mul 2 add array def
+ m3 dup length 2 sub row1max col2max 2 array astore putinterval
+ 0 1 row1max 1 sub {
+ /row ED
+ 0 1 col2max 1 sub {
+ /col ED
+ /sum 0 def
+ 0 1 col1max 1 sub{
+ /rowcol ED
+ sum
+ m1 row col1max mul rowcol add get
+ m2 rowcol col2max mul col add get
+ mul add
+ /sum ED
+ } for
+ m3 row col2max mul col add sum put
+ } for
+ } for
+ m3
+ end % end of M@tMulDict
+
+} def
+%
+/SetMQuaternion {
+
+ /MnewTOold 11 array def
+
+ /Qu@ternionDict 30 dict def
+ Qu@ternionDict begin
+
+ /normRotVec xRotVec yRotVec zRotVec 3 array astore VecNorm def
+ normRotVec 0 gt
+ {/xRotVecNorm xRotVec normRotVec div def
+ /yRotVecNorm yRotVec normRotVec div def
+ /zRotVecNorm zRotVec normRotVec div def
+ RotAngle}
+ {/xRotVecNorm 1 def
+ /yRotVecNorm 0 def
+ /zRotVecNorm 0 def
+ 0} ifelse
+
+ 2 div dup
+ /q0 exch cos def
+ sin dup dup
+ /q1 exch xRotVecNorm mul def
+ /q2 exch yRotVecNorm mul def
+ /q3 exch zRotVecNorm mul def
+
+ /q0q0 q0 q0 mul def
+ /q0q1 q0 q1 mul def
+ /q0q2 q0 q2 mul def
+ /q0q3 q0 q3 mul def
+
+ /q1q1 q1 q1 mul def
+ /q1q2 q1 q2 mul def
+ /q1q3 q1 q3 mul def
+
+ /q2q2 q2 q2 mul def
+ /q2q3 q2 q3 mul def
+
+ /q3q3 q3 q3 mul def
+
+ MnewTOold 0 q0q0 q1q1 add q2q2 sub q3q3 sub put
+ MnewTOold 1 q1q2 q0q3 sub 2 mul put
+ MnewTOold 2 q1q3 q0q2 add 2 mul put
+
+ MnewTOold 3 q1q2 q0q3 add 2 mul put
+ MnewTOold 4 q0q0 q1q1 sub q2q2 add q3q3 sub put
+ MnewTOold 5 q2q3 q0q1 sub 2 mul put
+
+ MnewTOold 6 q1q3 q0q2 sub 2 mul put
+ MnewTOold 7 q2q3 q0q1 add 2 mul put
+ MnewTOold 8 q0q0 q1q1 sub q2q2 sub q3q3 add put
+
+ MnewTOold 9 3 put
+ MnewTOold 10 3 put
+
+ end % end of Qu@ternionDict
+
+} def
+%
+/SetMxyz {
+ 1.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0 1.0 3 3 11 array astore /MnewTOold ED
+ RotSequence cvx exec % Now create a new MnewTOold using xyz, etc.
+} def
+%
+/ConcatMQuaternion {
+ MnewTOold % Push onto stack
+ SetMQuaternion % Uses [xyz]RotVec and RotAngle to make MnewToOld
+ MnewTOold matmul /MnewTOold ED
+} def
+%
+/ConcatMxyz {
+ MnewTOold % Push onto stack
+ SetMxyz % Uses RotX, etc. to set MnewTOold
+ MnewTOold matmul /MnewTOold ED
+} def
+%
+/RotatePoint{
+ MnewTOold x y z 3 1 5 array astore matmul
+ 0 3 getinterval aload pop
+ /z ED
+ /y ED
+ /x ED
+} def
+%
+/makeMoldTOnew {
+ /MoldTOnew 11 array def
+ MoldTOnew 0 MnewTOold 0 get put
+ MoldTOnew 1 MnewTOold 3 get put
+ MoldTOnew 2 MnewTOold 6 get put
+ MoldTOnew 3 MnewTOold 1 get put
+ MoldTOnew 4 MnewTOold 4 get put
+ MoldTOnew 5 MnewTOold 7 get put
+ MoldTOnew 6 MnewTOold 2 get put
+ MoldTOnew 7 MnewTOold 5 get put
+ MoldTOnew 8 MnewTOold 8 get put
+ MoldTOnew 9 3 put
+ MoldTOnew 10 3 put
+} def
+%
+/RotXaxis {
+ eulerRotation
+ {1 0 0}
+ {makeMoldTOnew MoldTOnew 1 0 0 3 1 5 array astore matmul
+ 0 3 getinterval aload pop} ifelse
+ /zRotVec ED
+ /yRotVec ED
+ /xRotVec ED
+ /RotAngle RotX def
+ ConcatMQuaternion
+} def
+/RotYaxis {
+ eulerRotation
+ {0 1 0}
+ {makeMoldTOnew MoldTOnew 0 1 0 3 1 5 array astore matmul
+ 0 3 getinterval aload pop} ifelse
+ /zRotVec ED
+ /yRotVec ED
+ /xRotVec ED
+ /RotAngle RotY def
+ ConcatMQuaternion
+} def
+/RotZaxis {
+ eulerRotation
+ {0 0 1}
+ {makeMoldTOnew MoldTOnew 0 0 1 3 1 5 array astore matmul
+ 0 3 getinterval aload pop} ifelse
+ /zRotVec ED
+ /yRotVec ED
+ /xRotVec ED
+ /RotAngle RotZ def
+ ConcatMQuaternion
+} def
+/xyz { RotXaxis RotYaxis RotZaxis } def
+/yxz { RotYaxis RotXaxis RotZaxis } def
+/yzx { RotYaxis RotZaxis RotXaxis } def
+/xzy { RotXaxis RotZaxis RotYaxis } def
+/zxy { RotZaxis RotXaxis RotYaxis } def
+/zyx { RotZaxis RotYaxis RotXaxis } def
+/quaternion { } def % Null
+%
+/VecNorm { 0 exch { dup mul add } forall sqrt } def
+%
+/UnitVec { % on stack is [a]; returns a vector with [a][a]/|a|=1
+ dup VecNorm /norm ED
+ norm 0 lt {/norm 0 def} if
+ { norm div } forall 3 array astore } def
+%
+/AxB { % on the stack are the two vectors [a][b]
+ aload pop /b3 ED /b2 ED /b1 ED
+ aload pop /a3 ED /a2 ED /a1 ED
+ a2 b3 mul a3 b2 mul sub
+ a3 b1 mul a1 b3 mul sub
+ a1 b2 mul a2 b1 mul sub
+ 3 array astore } def
+%
+/AaddB { % on the stack are the two vectors [a][b]
+ aload pop /b3 ED /b2 ED /b1 ED
+ aload pop /a3 ED /a2 ED /a1 ED
+ a1 b1 add a2 b2 add a3 b3 add
+ 3 array astore } def
+%
+/AmulC { % on stack is [a] and c; returns [a] mul c
+ /factor ED { factor mul } forall 3 array astore } def
+%
+%
+/setColorLight { % expects 7 values on stack C M Y K xL yL zL
+% les rayons de lumi�re
+ xLight dup mul yLight dup mul zLight dup mul add add sqrt /NormeLight ED
+% the color values
+ /K ED
+ /Yellow ED
+ /Magenta ED
+ /Cyan ED
+} def
+%
+/facetteSphere {
+ newpath
+ /Xpoint Rsphere theta cos mul phi cos mul CX add def
+ /Ypoint Rsphere theta sin mul phi cos mul CY add def
+ /Zpoint Rsphere phi sin mul CZ add def
+ Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end moveto
+ theta 1 theta increment add {%
+ /theta1 ED
+ /Xpoint Rsphere theta1 cos mul phi cos mul CX add def
+ /Ypoint Rsphere theta1 sin mul phi cos mul CY add def
+ /Zpoint Rsphere phi sin mul CZ add def
+ Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
+ } for
+ phi 1 phi increment add {
+ /phi1 ED
+ /Xpoint Rsphere theta increment add cos mul phi1 cos mul CX add def
+ /Ypoint Rsphere theta increment add sin mul phi1 cos mul CY add def
+ /Zpoint Rsphere phi1 sin mul CZ add def
+ Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
+ } for
+ theta increment add -1 theta {%
+ /theta1 ED
+ /Xpoint Rsphere theta1 cos mul phi increment add cos mul CX add def
+ /Ypoint Rsphere theta1 sin mul phi increment add cos mul CY add def
+ /Zpoint Rsphere phi increment add sin mul CZ add def
+ Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
+ } for
+ phi increment add -1 phi {
+ /phi1 ED
+ /Xpoint Rsphere theta cos mul phi1 cos mul CX add def
+ /Ypoint Rsphere theta sin mul phi1 cos mul CY add def
+ /Zpoint Rsphere phi1 sin mul CZ add def
+ Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
+ } for
+ closepath
+} def
+%
+/MaillageSphere {
+% on stack must be x y z Radius increment C M Y K
+ setColorLight
+ /increment ED
+ /Rsphere ED
+ /CZ ED
+ /CY ED
+ /CX ED
+ /StartTheta 0 def
+ /condition { PSfacetteSphere 0 ge } def
+ -90 increment 90 increment sub {%
+ /phi ED
+ StartTheta increment 360 StartTheta add increment sub {%
+ /theta ED
+ % Centre de la facette
+ /Xpoint Rsphere theta increment 2 div add cos mul phi increment 2 div add cos mul CX add def
+ /Ypoint Rsphere theta increment 2 div add sin mul phi increment 2 div add cos mul CY add def
+ /Zpoint Rsphere phi increment 2 div add sin mul CZ add def
+ % normale � la facette
+ /nXfacette Xpoint CX sub def
+ /nYfacette Ypoint CY sub def
+ /nZfacette Zpoint CZ sub def
+ % test de visibilit�
+ /PSfacetteSphere
+ vX nXfacette mul
+ vY nYfacette mul add
+ vZ nZfacette mul add
+ def
+ condition {
+ gsave
+ facetteSphere
+ /cosV { 1 xLight nXfacette mul
+ yLight nYfacette mul
+ zLight nZfacette mul
+ add add
+ NormeLight
+ nXfacette dup mul
+ nYfacette dup mul
+ nZfacette dup mul
+ add add sqrt mul div sub } bind def
+ Cyan cosV mul Magenta cosV mul Yellow cosV mul K cosV mul setcmykcolor fill
+ grestore
+% 0 setgray
+ showgrid { facetteSphere stroke } if
+ } if
+ } for
+ % /StartTheta StartTheta increment 2 div add def
+ } for
+} def
+%
+%---------------------- Cylinder ---------------------------
+%
+/PlanCoupeCylinder { %
+ /TableauxPoints [
+ 0 1 359 {
+ /phi ED
+ [ Radius phi Height ConvCyl2d ] % on décrit le cercle
+ } for
+ ] def
+ newpath
+ TableauxPoints 0 get aload pop moveto
+ 1 1 359 { TableauxPoints exch get aload pop lineto } for
+ closepath
+} def
+%
+/facetteCylinder { %
+ newpath
+ Radius phi currentHeight ConvCyl2d moveto
+ phi 1 phi dAngle add { % loop variable on stack
+ Radius exch currentHeight ConvCyl2d lineto
+ } for
+ phi dAngle add -1 phi { % fill dHeight
+ Radius exch currentHeight dHeight add ConvCyl2d lineto
+ } for
+ closepath
+ } def % facette
+%
+/MaillageCylinder { % on stack true or false for saving values
+ { setColorLight % expects 4 values on stack C M Y K
+ /dHeight ED /dAngle ED /Height ED /Radius ED
+ /CZ ED /CY ED /CX ED } if
+%
+ 0 dHeight Height dHeight sub {
+ /currentHeight ED
+ 0 dAngle 360 dAngle sub {
+ /phi ED
+% Normal vector of the center
+ /nXfacetteCylinder Radius phi dAngle 2 div add cos mul CX add def
+ /nYfacetteCylinder Radius phi dAngle 2 div add sin mul CY add def
+ /nZfacetteCylinder currentHeight dHeight 2 div add CZ add def
+ /NormeN
+ nXfacetteCylinder dup mul
+ nYfacetteCylinder dup mul
+ nZfacetteCylinder dup mul
+ add add sqrt def
+ NormeN 0 eq { /NormeN 1e-10 def } if
+% test de visibilité
+ /PSfacetteCylinder
+ vX nXfacetteCylinder mul
+ vY nYfacetteCylinder mul add
+ vZ nZfacetteCylinder mul add def
+ condition {
+ facetteCylinder
+ /cosV
+ 1 xLight nXfacetteCylinder mul
+ yLight nYfacetteCylinder mul
+ zLight nZfacetteCylinder mul
+ add add
+ NormeLight NormeN mul div sub def
+ Cyan Magenta Yellow K
+ cosV mul 4 1 roll cosV mul 4 1 roll
+ cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
+ setcmykcolor fill
+ showgrid {
+ 0 setgray
+ facetteCylinder % drawing the segments
+ stroke } if
+ } if
+ } for
+ } for
+} def
+%
+%------------------------ Cylinder type II -----------------------
+%
+/MoveTo { Conv3D2D moveto } def
+/LineTo { Conv3D2D lineto } def
+
+/IIIDEllipse { % x y z rA rB startAngle endAngle Wedge
+ /dAngle 1 def
+ /isWedge ED
+ /endAngle ED
+ /startAngle ED
+ /radiusB ED
+ /radiusA ED
+ startAngle cos radiusA mul startAngle sin radiusB mul 0
+ isWedge { 0 0 moveto LineTo }{ MoveTo } ifelse
+ /Angle startAngle def
+ startAngle dAngle endAngle {
+ /Angle ED
+ Angle cos radiusA mul Angle sin radiusB mul 0 LineTo
+ } for
+ isWedge { 0 0 lineto } if
+} def
+
+/IIIDCircle { % x y z r startAngle endAngle Wedge
+ 7 3 roll % startAngle endAngle Wedge x y z r
+ dup % startAngle endAngle Wedge x y z r r
+ 8 -3 roll
+ IIIDEllipse
+} def
+
+/IIIDWedge { % x y z r startAngle endAngle
+ true IIIDCircle
+} def
+
+/IIIDCylinder {% x y z r h start end wedge
+ /isWedge ED
+ /increment ED
+ /endAngle ED
+ /startAngle ED
+ /height ED
+ /radius ED
+ startAngle increment endAngle {
+ /Angle ED
+ radius Angle 0 ConvCylToCartesian MoveTo
+ radius Angle height ConvCylToCartesian LineTo
+ } for
+ stroke
+} def
+%
+%---------------------- Box ---------------------------
+%
+/PlanCoupeBox { % x y z
+ /TableauxPoints [
+ [ CX CY CZ Height add ConvBox2d ] % top or bottom
+ [ CX CY Depth add CZ Height add ConvBox2d ]
+ [ CX Width add CY Depth add CZ Height add ConvBox2d ]
+ [ CX Width add CY CZ Height add ConvBox2d ]
+ [ CX CY CZ Height add ConvBox2d ] % bottom
+ ] def
+ newpath
+ TableauxPoints 0 get aload pop moveto
+ 0 1 3 {
+ TableauxPoints exch get aload pop
+ lineto } for
+ closepath
+} def
+%
+/facetteBox { %
+ newpath
+ dup
+ 1 eq { % back
+ CX CY CZ ConvBox2d moveto
+ CX CY CZ Height add ConvBox2d lineto
+ CX Width add CY CZ Height add ConvBox2d lineto
+ CX Width add CY CZ ConvBox2d lineto
+ CX CY CZ ConvBox2d lineto
+ } if
+ dup
+ 2 eq { % right
+ CX CY CZ ConvBox2d moveto
+ CX CY CZ Height add ConvBox2d lineto
+ CX CY Depth add CZ Height add ConvBox2d lineto
+ CX CY Depth add CZ ConvBox2d lineto
+ CX CY CZ ConvBox2d lineto
+ } if
+ dup
+ 3 eq { % left
+ CX Width add CY CZ ConvBox2d moveto
+ CX Width add CY Depth add CZ ConvBox2d lineto
+ CX Width add CY Depth add CZ Height add ConvBox2d lineto
+ CX Width add CY CZ Height add ConvBox2d lineto
+ CX Width add CY CZ ConvBox2d lineto
+ } if
+ 4 eq { % front
+ CX CY Depth add CZ ConvBox2d moveto
+ CX CY Depth add CZ Height add ConvBox2d lineto
+ CX Width add CY Depth add CZ Height add ConvBox2d lineto
+ CX Width add CY Depth add CZ ConvBox2d lineto
+ CX CY Depth add CZ ConvBox2d lineto
+ } if
+ closepath
+ } def % facette
+%
+/TestPlane { % on stack x y z of the plane center and # of plane
+ /nZfacetteBox ED /nYfacetteBox ED /nXfacetteBox ED
+ /Plane ED
+ /NormeN
+ nXfacetteBox dup mul
+ nYfacetteBox dup mul
+ nZfacetteBox dup mul
+ add add sqrt def
+ NormeN 0 eq { /NormeN 1e-10 def } if
+% test de visibilit�
+ /PSfacetteBox
+ vX nXfacetteBox mul
+ vY nYfacetteBox mul add
+ vZ nZfacetteBox mul add def
+ condition {
+ Plane facetteBox
+ /cosV
+ 1 xLight nXfacetteBox mul
+ yLight nYfacetteBox mul
+ zLight nZfacetteBox mul
+ add add
+ NormeLight NormeN mul div sub def
+ Cyan Magenta Yellow K
+ cosV mul 4 1 roll cosV mul 4 1 roll
+ cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
+ setcmykcolor fill
+ 0 setgray
+ Plane facetteBox % drawing the segments
+ stroke
+ } if
+} def
+%
+/MaillageBox { % on stack true or false for saving values
+ { setColorLight % expects 4 values on stack C M Y K
+ /Depth ED /Height ED /Width ED
+ /CZ ED /CY ED /CX ED } if
+%
+% Normal vector of the box center
+ /PlaneSet [
+ [ Width 2 div CX add
+ CY
+ Height 2 div CZ add ] % normal back
+ [ CX
+ Depth 2 div CY add
+ Height 2 div CZ add ] % normal right
+ [ Width CX add
+ Depth 2 div CY add
+ Height 2 div CZ add ] % normal left
+ [ Width 2 div CX add
+ Depth CY add
+ Height 2 div CZ add ] % normal front
+ ] def
+ PlaneSequence length 0 eq { % user defined?
+ Alpha abs cvi 360 mod /iAlpha ED
+ iAlpha 90 lt { [ 1 2 3 4 ]
+ }{ iAlpha 180 lt { [ 2 4 1 3 ]
+ }{ iAlpha 270 lt { [ 3 4 1 2 ] }{ [ 3 1 4 2] } ifelse } ifelse } ifelse
+ }{ PlaneSequence } ifelse
+ { dup 1 sub PlaneSet exch get aload pop TestPlane } forall
+} def
+%
+%--------------------------- Paraboloid -----------------------------
+/PlanCoupeParaboloid {
+ /Z height store
+ /V {Z sqrt} bind def
+ /TableauxPoints [
+ 0 1 359 {
+ /U ED [ U U Z V calculate2DPoint ] % on d�crit le cercle
+ } for
+ ] def
+ newpath
+ TableauxPoints 0 get aload pop moveto
+ 0 1 359 {
+ /compteur ED
+ TableauxPoints compteur get aload pop
+ lineto } for
+ closepath
+} def
+%
+/facetteParaboloid{
+ newpath
+ U U Z V calculate2DPoint moveto
+ U 1 U increment add {%
+ /U1 ED
+ U1 U1 Z V calculate2DPoint lineto
+ } for
+ Z pas10 Z pas add pas10 add{
+ /Z1 ED
+ /V {Z1 sqrt} bind def
+ U1 U1 Z1 V calculate2DPoint lineto
+ } for
+ U increment add -1 U {%
+ /U2 ED
+ U2 U2 Z pas add V calculate2DPoint lineto
+ } for
+ Z pas add pas10 sub pas10 neg Z pas10 sub {
+ /Z2 ED
+ /V Z2 abs sqrt def
+ U U Z2 V calculate2DPoint lineto
+ } for
+ closepath
+} def % facette
+%
+/MaillageParaboloid {
+ % on stack true or false for saving values
+ { setColorLight % expects 7 values on stack C M Y K xL yL zL
+% /CZ ED /CY ED /CX ED
+ } if
+ 0 pas height pas sub {%
+ /Z ED
+ /V Z sqrt def
+ 0 increment 360 increment sub {%
+ /U ED
+% Centre de la facette
+ /Ucentre U increment 2 div add def
+ /Vcentre Z pas 2 div add sqrt def
+% normale à la facette
+ /nXfacetteParaboloid 2 Vcentre dup mul mul Ucentre cos mul radius mul def
+ /nYfacetteParaboloid 2 Vcentre dup mul mul Ucentre sin mul radius mul def
+ /nZfacetteParaboloid Vcentre neg radius dup mul mul def
+ /NormeN {
+ nXfacetteParaboloid dup mul
+ nYfacetteParaboloid dup mul
+ nZfacetteParaboloid dup mul
+ add add sqrt} bind def
+ NormeN 0 eq {/NormeN 1e-10 def} if
+% test de visibilit�
+ /PSfacetteParaboloid vX nXfacetteParaboloid mul
+ vY nYfacetteParaboloid mul add
+ vZ nZfacetteParaboloid mul add def
+ condition {
+ facetteParaboloid
+ /cosV 1 xLight nXfacetteParaboloid mul
+ yLight nYfacetteParaboloid mul
+ zLight nZfacetteParaboloid mul
+ add add
+ NormeLight
+ NormeN mul div sub def
+ Cyan Magenta Yellow K
+ cosV mul 4 1 roll cosV mul 4 1 roll cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
+ setcmykcolor fill
+ showgrid {
+ 0 setgray
+ facetteParaboloid
+ stroke } if
+ } if
+ } for
+ } for
+} def
+%
+% ------------------------------------ math stuff ----------------------------------
+%
+% Matrix A in arrays of rows A[[row1][row2]...]
+% with [row1]=[a11 a12 ... b1]
+% returns on stack solution vector X=[x1 x2 ... xn]
+/SolveLinEqSystem { % on stack matrix M=[A,b] (A*x=b)
+ 10 dict begin % hold all ocal
+ /A exch def
+ /Rows A length def % Rows = number of rows
+ /Cols A 0 get length def % Cols = number of columns
+ /Index [ 0 1 Rows 1 sub { } for ] def % Index = [0 1 2 ... Rows-1]
+ /col 0 def
+ /row 0 def
+ /PR Rows array def % PR[c] = pivot row for row row
+ { % starts the loop, find pivot entry in row r
+ col Cols ge row Rows ge or { exit } if % col < Cols and row < Rows else exit
+ /pRow row def % pRow = pivot row
+ /max A row get col get abs def % get A[row[col]], first A[0,0]
+ row 1 add 1 Rows 1 sub { % starts for loop 1 1 Rows-1
+ /j exch def % index counter
+ /x A j get col get abs def % get A[j[r]]
+ x max gt { % x>max, then save position
+ /pRow j def
+ /max x def
+ } if
+ } for % now we have the row with biggest A[0,1]
+ % with pRow = the pivot row
+ max 0 gt { % swap entries pRow and row in i
+ /tmp Index row get def
+ Index row Index pRow get put
+ Index pRow tmp put % and columns pRow and row in A
+ /tmp A row get def
+ A row A pRow get put
+ A pRow tmp put % pivot
+ /row0 A row get def % the pivoting row
+ /p0 row0 col get def % the pivot value
+ row 1 add 1 Rows 1 sub { % start for loop
+ /j exch def
+ /c1 A j get def
+ /p c1 col get p0 div def
+ c1 col p put % subtract (p1/p0)*row[i] from row[j]
+ col 1 add 1 Cols 1 sub { % start for loop
+ /i exch def
+ c1 dup i exch % c1 i c1
+ i get row0 i get p mul sub put
+ } for
+ } for
+ PR row col put
+ /col col 1 add def
+ /row row 1 add def
+ }{ % all zero entries
+ /row row 1 add def % continue loop with same row
+ } ifelse
+ } loop
+ /X A def % solution vector
+ A Rows 1 sub get dup
+ Cols 1 sub get exch
+ Cols 2 sub get div
+ X Rows 1 sub 3 -1 roll put % X[n]
+ Rows 2 sub -1 0 { % for loop to calculate X[i]
+ /xi exch def % current index
+ A xi get % i-th row
+ /Axi exch def
+ /sum 0 def
+ Cols 2 sub -1 xi 1 add {
+ /n exch def
+ /sum sum Axi n get X n get mul add def
+ } for
+ Axi Cols 1 sub get % b=Axi[Cols-1]
+ sum sub % b-sum
+ Axi xi get div % b-sum / Axi[xi]
+ X xi 3 -1 roll put % X[xi]
+ } for
+ X
+ end
+} def
+%
+% u -> e_u with |e_u|=1
+/vector-unit { 1 dict begin
+ dup vector-length 1 exch div
+ vector-scale
+ end
+} def
+%
+% u v -> u+v
+/vector-add { 1 dict begin
+ /v exch def
+ [ exch
+ 0 % u i
+ exch { % i u[i]
+ v % i u[i] v
+ 2 index get add % i u[i]+v[i]
+ exch 1 add % i
+ } forall
+ pop
+ ]
+ end
+} def
+%
+% u v -> u-v
+/vector-sub { 1 dict begin
+ /v exch def
+ [ exch
+ 0 % u i
+ exch { % i u[i]
+ v % i u[i] v
+ 2 index get sub % i u[i]+v[i]
+ exch 1 add % i
+ } forall
+ pop
+ ]
+end } def
+%
+% [v] c -> [c.v]
+/vector-scale { 1 dict begin
+ /c exch def
+ [ exch
+ { % s i u[i]
+ c mul % s i u[i] v
+ } forall
+ ]
+ end } def
+%
+%
+% [u] [v] -> [u x v]
+/vector-prod { %% x1 y1 z1 x2 y2 z2
+6 dict begin
+ aload pop
+ /zp exch def /yp exch def /xp exch def
+ aload pop
+ /z exch def /y exch def /x exch def
+ [ y zp mul z yp mul sub
+ z xp mul x zp mul sub
+ x yp mul y xp mul sub ]
+end
+} def
+%
+% [u] [v] -> u.v
+/vector-mul { %% x1 y1 z1 x2 y2 z2
+6 dict begin
+ aload pop
+ /zp exch def /yp exch def /xp exch def
+ aload pop
+ /z exch def /y exch def /x exch def
+ x xp mul y yp mul add z zp mul add
+end
+} def
+%
+% [x y z ... ] -> r
+% watch out for overflow
+/vector-length { 1 dict begin
+dup
+% find maximum entry
+/max 0 def
+{ % max
+ abs dup max gt {
+ % if abs gt max
+ /max exch def
+ } {
+ pop
+ } ifelse
+} forall
+max 0 ne {
+ 0 exch
+ { % 0 v[i]
+ max div dup mul add
+ } forall
+ sqrt
+ max mul
+} {
+ pop 0
+} ifelse
+end } def
+%
+end % tx@3DPlotDict
+
+
+%%EndProcSet
+%%BeginProcSet: special.pro 0 0
+%!
+TeXDict begin/SDict 200 dict N SDict begin/@SpecialDefaults{/hs 612 N
+/vs 792 N/ho 0 N/vo 0 N/hsc 1 N/vsc 1 N/ang 0 N/CLIP 0 N/rwiSeen false N
+/rhiSeen false N/letter{}N/note{}N/a4{}N/legal{}N}B/@scaleunit 100 N
+/@hscale{@scaleunit div/hsc X}B/@vscale{@scaleunit div/vsc X}B/@hsize{
+/hs X/CLIP 1 N}B/@vsize{/vs X/CLIP 1 N}B/@clip{/CLIP 2 N}B/@hoffset{/ho
+X}B/@voffset{/vo X}B/@angle{/ang X}B/@rwi{10 div/rwi X/rwiSeen true N}B
+/@rhi{10 div/rhi X/rhiSeen true N}B/@llx{/llx X}B/@lly{/lly X}B/@urx{
+/urx X}B/@ury{/ury X}B/magscale true def end/@MacSetUp{userdict/md known
+{userdict/md get type/dicttype eq{userdict begin md length 10 add md
+maxlength ge{/md md dup length 20 add dict copy def}if end md begin
+/letter{}N/note{}N/legal{}N/od{txpose 1 0 mtx defaultmatrix dtransform S
+atan/pa X newpath clippath mark{transform{itransform moveto}}{transform{
+itransform lineto}}{6 -2 roll transform 6 -2 roll transform 6 -2 roll
+transform{itransform 6 2 roll itransform 6 2 roll itransform 6 2 roll
+curveto}}{{closepath}}pathforall newpath counttomark array astore/gc xdf
+pop ct 39 0 put 10 fz 0 fs 2 F/|______Courier fnt invertflag{PaintBlack}
+if}N/txpose{pxs pys scale ppr aload pop por{noflips{pop S neg S TR pop 1
+-1 scale}if xflip yflip and{pop S neg S TR 180 rotate 1 -1 scale ppr 3
+get ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg TR}if xflip
+yflip not and{pop S neg S TR pop 180 rotate ppr 3 get ppr 1 get neg sub
+neg 0 TR}if yflip xflip not and{ppr 1 get neg ppr 0 get neg TR}if}{
+noflips{TR pop pop 270 rotate 1 -1 scale}if xflip yflip and{TR pop pop
+90 rotate 1 -1 scale ppr 3 get ppr 1 get neg sub neg ppr 2 get ppr 0 get
+neg sub neg TR}if xflip yflip not and{TR pop pop 90 rotate ppr 3 get ppr
+1 get neg sub neg 0 TR}if yflip xflip not and{TR pop pop 270 rotate ppr
+2 get ppr 0 get neg sub neg 0 S TR}if}ifelse scaleby96{ppr aload pop 4
+-1 roll add 2 div 3 1 roll add 2 div 2 copy TR .96 dup scale neg S neg S
+TR}if}N/cp{pop pop showpage pm restore}N end}if}if}N/normalscale{
+Resolution 72 div VResolution 72 div neg scale magscale{DVImag dup scale
+}if 0 setgray}N/psfts{S 65781.76 div N}N/startTexFig{/psf$SavedState
+save N userdict maxlength dict begin/magscale true def normalscale
+currentpoint TR/psf$ury psfts/psf$urx psfts/psf$lly psfts/psf$llx psfts
+/psf$y psfts/psf$x psfts currentpoint/psf$cy X/psf$cx X/psf$sx psf$x
+psf$urx psf$llx sub div N/psf$sy psf$y psf$ury psf$lly sub div N psf$sx
+psf$sy scale psf$cx psf$sx div psf$llx sub psf$cy psf$sy div psf$ury sub
+TR/showpage{}N/erasepage{}N/copypage{}N/p 3 def @MacSetUp}N/doclip{
+psf$llx psf$lly psf$urx psf$ury currentpoint 6 2 roll newpath 4 copy 4 2
+roll moveto 6 -1 roll S lineto S lineto S lineto closepath clip newpath
+moveto}N/endTexFig{end psf$SavedState restore}N/@beginspecial{SDict
+begin/SpecialSave save N gsave normalscale currentpoint TR
+@SpecialDefaults count/ocount X/dcount countdictstack N}N/@setspecial{
+CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs neg 0 rlineto
+closepath clip}if ho vo TR hsc vsc scale ang rotate rwiSeen{rwi urx llx
+sub div rhiSeen{rhi ury lly sub div}{dup}ifelse scale llx neg lly neg TR
+}{rhiSeen{rhi ury lly sub div dup scale llx neg lly neg TR}if}ifelse
+CLIP 2 eq{newpath llx lly moveto urx lly lineto urx ury lineto llx ury
+lineto closepath clip}if/showpage{}N/erasepage{}N/copypage{}N newpath}N
+/@endspecial{count ocount sub{pop}repeat countdictstack dcount sub{end}
+repeat grestore SpecialSave restore end}N/@defspecial{SDict begin}N
+/@fedspecial{end}B/li{lineto}B/rl{rlineto}B/rc{rcurveto}B/np{/SaveX
+currentpoint/SaveY X N 1 setlinecap newpath}N/st{stroke SaveX SaveY
+moveto}N/fil{fill SaveX SaveY moveto}N/ellipse{/endangle X/startangle X
+/yrad X/xrad X/savematrix matrix currentmatrix N TR xrad yrad scale 0 0
+1 startangle endangle arc savematrix setmatrix}N end
+
+%%EndProcSet
+%%BeginProcSet: color.pro 0 0
+%!
+TeXDict begin/setcmykcolor where{pop}{/setcmykcolor{dup 10 eq{pop
+setrgbcolor}{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll
+}repeat setrgbcolor pop}ifelse}B}ifelse/TeXcolorcmyk{setcmykcolor}def
+/TeXcolorrgb{setrgbcolor}def/TeXcolorgrey{setgray}def/TeXcolorgray{
+setgray}def/TeXcolorhsb{sethsbcolor}def/currentcmykcolor where{pop}{
+/currentcmykcolor{currentrgbcolor 10}B}ifelse/DC{exch dup userdict exch
+known{pop pop}{X}ifelse}B/GreenYellow{0.15 0 0.69 0 setcmykcolor}DC
+/Yellow{0 0 1 0 setcmykcolor}DC/Goldenrod{0 0.10 0.84 0 setcmykcolor}DC
+/Dandelion{0 0.29 0.84 0 setcmykcolor}DC/Apricot{0 0.32 0.52 0
+setcmykcolor}DC/Peach{0 0.50 0.70 0 setcmykcolor}DC/Melon{0 0.46 0.50 0
+setcmykcolor}DC/YellowOrange{0 0.42 1 0 setcmykcolor}DC/Orange{0 0.61
+0.87 0 setcmykcolor}DC/BurntOrange{0 0.51 1 0 setcmykcolor}DC
+/Bittersweet{0 0.75 1 0.24 setcmykcolor}DC/RedOrange{0 0.77 0.87 0
+setcmykcolor}DC/Mahogany{0 0.85 0.87 0.35 setcmykcolor}DC/Maroon{0 0.87
+0.68 0.32 setcmykcolor}DC/BrickRed{0 0.89 0.94 0.28 setcmykcolor}DC/Red{
+0 1 1 0 setcmykcolor}DC/OrangeRed{0 1 0.50 0 setcmykcolor}DC/RubineRed{
+0 1 0.13 0 setcmykcolor}DC/WildStrawberry{0 0.96 0.39 0 setcmykcolor}DC
+/Salmon{0 0.53 0.38 0 setcmykcolor}DC/CarnationPink{0 0.63 0 0
+setcmykcolor}DC/Magenta{0 1 0 0 setcmykcolor}DC/VioletRed{0 0.81 0 0
+setcmykcolor}DC/Rhodamine{0 0.82 0 0 setcmykcolor}DC/Mulberry{0.34 0.90
+0 0.02 setcmykcolor}DC/RedViolet{0.07 0.90 0 0.34 setcmykcolor}DC
+/Fuchsia{0.47 0.91 0 0.08 setcmykcolor}DC/Lavender{0 0.48 0 0
+setcmykcolor}DC/Thistle{0.12 0.59 0 0 setcmykcolor}DC/Orchid{0.32 0.64 0
+0 setcmykcolor}DC/DarkOrchid{0.40 0.80 0.20 0 setcmykcolor}DC/Purple{
+0.45 0.86 0 0 setcmykcolor}DC/Plum{0.50 1 0 0 setcmykcolor}DC/Violet{
+0.79 0.88 0 0 setcmykcolor}DC/RoyalPurple{0.75 0.90 0 0 setcmykcolor}DC
+/BlueViolet{0.86 0.91 0 0.04 setcmykcolor}DC/Periwinkle{0.57 0.55 0 0
+setcmykcolor}DC/CadetBlue{0.62 0.57 0.23 0 setcmykcolor}DC
+/CornflowerBlue{0.65 0.13 0 0 setcmykcolor}DC/MidnightBlue{0.98 0.13 0
+0.43 setcmykcolor}DC/NavyBlue{0.94 0.54 0 0 setcmykcolor}DC/RoyalBlue{1
+0.50 0 0 setcmykcolor}DC/Blue{1 1 0 0 setcmykcolor}DC/Cerulean{0.94 0.11
+0 0 setcmykcolor}DC/Cyan{1 0 0 0 setcmykcolor}DC/ProcessBlue{0.96 0 0 0
+setcmykcolor}DC/SkyBlue{0.62 0 0.12 0 setcmykcolor}DC/Turquoise{0.85 0
+0.20 0 setcmykcolor}DC/TealBlue{0.86 0 0.34 0.02 setcmykcolor}DC
+/Aquamarine{0.82 0 0.30 0 setcmykcolor}DC/BlueGreen{0.85 0 0.33 0
+setcmykcolor}DC/Emerald{1 0 0.50 0 setcmykcolor}DC/JungleGreen{0.99 0
+0.52 0 setcmykcolor}DC/SeaGreen{0.69 0 0.50 0 setcmykcolor}DC/Green{1 0
+1 0 setcmykcolor}DC/ForestGreen{0.91 0 0.88 0.12 setcmykcolor}DC
+/PineGreen{0.92 0 0.59 0.25 setcmykcolor}DC/LimeGreen{0.50 0 1 0
+setcmykcolor}DC/YellowGreen{0.44 0 0.74 0 setcmykcolor}DC/SpringGreen{
+0.26 0 0.76 0 setcmykcolor}DC/OliveGreen{0.64 0 0.95 0.40 setcmykcolor}
+DC/RawSienna{0 0.72 1 0.45 setcmykcolor}DC/Sepia{0 0.83 1 0.70
+setcmykcolor}DC/Brown{0 0.81 1 0.60 setcmykcolor}DC/Tan{0.14 0.42 0.56 0
+setcmykcolor}DC/Gray{0 0 0 0.50 setcmykcolor}DC/Black{0 0 0 1
+setcmykcolor}DC/White{0 0 0 0 setcmykcolor}DC end
+
+%%EndProcSet
+TeXDict begin 40258437 52099151 1000 600 600 (testps-fig1.dvi)
+@start end
+%%EndProlog
+%%BeginSetup
+%%Feature: *Resolution 600dpi
+TeXDict begin
+ end
+%%EndSetup
+%%Page: 1 1
+TeXDict begin 1 0 bop 0 TeXcolorgray Black 165 192 a
+tx@Dict begin gsave STV CP T /ps@rot 0 def grestore end
+
+165 192 a 165 192 a
+tx@Dict begin gsave STV CP T /ps@refangle 0. def grestore end
+ 165 192 a 0 TeXcolorgray 165 192
+a
+tx@Dict begin gsave STV CP T /ps@rot 0 def grestore end
+ 165 192 a 290 1373 a @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.5 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def /t 0 def /t1 0.5 def /dt t1 t sub 199
+div def /F@pstplot ((1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0-1.5)*(2.0)+15*t^2*(1-t)^4*(2.0+2)*(2.0)+
+20*t^3*(1-t)^3*(2.0+6)*(2.0)+15*t^4*(1-t)^2*(2.0+5)*(2.0)+6*t^5*(1-t)*(2.0+1.5)*(2.0)+t^6*(2.0)*(2.0)|(1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0+2)*(2.0)+15*t^2*(1-t)^4*(2.0+5)*(2.0)+
+20*t^3*(1-t)^3*(2.0+3)*(2.0)+15*t^4*(1-t)^2*(2.0-1)*(2.0)+6*t^5*(1-t)*(2.0-2)*(2.0)+t^6*(2.0)*(2.0))
+ tx@AlgToPs begin AlgToPs end cvx def /xy { F@pstplot 12.0 mul exch
+12.0 mul exch } def /ps@Exit false def xy moveto 199 1 sub { /t t
+dt add def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0 mul
+lt { moveto }{ L } ifelse } ifelse ps@Exit { exit } if } repeat ps@Exit
+not { /t t1 def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0
+mul lt { moveto }{ L } ifelse } ifelse } if gsave 0 0 0.9 0 setcmykcolor
+ 1. .setopacityalpha fill grestore gsave 0.5 SLW 0 setgray 1. .setopacityalpha
+ 1 setlinejoin 0 setlinecap stroke grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.5 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def /t 0.5 def /t1 1 def /dt t1 t sub 199
+div def /F@pstplot ((1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0-1.5)*(2.0)+15*t^2*(1-t)^4*(2.0+2)*(2.0)+
+20*t^3*(1-t)^3*(2.0+6)*(2.0)+15*t^4*(1-t)^2*(2.0+5)*(2.0)+6*t^5*(1-t)*(2.0+1.5)*(2.0)+t^6*(2.0)*(2.0)|(1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0+2)*(2.0)+15*t^2*(1-t)^4*(2.0+5)*(2.0)+
+20*t^3*(1-t)^3*(2.0+3)*(2.0)+15*t^4*(1-t)^2*(2.0-1)*(2.0)+6*t^5*(1-t)*(2.0-2)*(2.0)+t^6*(2.0)*(2.0))
+ tx@AlgToPs begin AlgToPs end cvx def /xy { F@pstplot 12.0 mul exch
+12.0 mul exch } def /ps@Exit false def xy moveto 199 1 sub { /t t
+dt add def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0 mul
+lt { moveto }{ L } ifelse } ifelse ps@Exit { exit } if } repeat ps@Exit
+not { /t t1 def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0
+mul lt { moveto }{ L } ifelse } ifelse } if gsave 0 0 0.9 0 setcmykcolor
+ 1. .setopacityalpha fill grestore gsave 0.5 SLW 0 setgray 1. .setopacityalpha
+ 1 setlinejoin 0 setlinecap stroke grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66608 47.99945 46.66608
+55.99933 55.33264 55.99933 55.33264 47.99945 46.66608 47.99945 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66608 47.99945 46.66608
+55.99933 55.33264 55.99933 55.33264 47.99945 46.66608 47.99945 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99951 47.99945 37.99951
+55.99933 46.66608 55.99933 46.66608 47.99945 37.99951 47.99945 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99951 47.99945 37.99951
+55.99933 46.66608 55.99933 46.66608 47.99945 37.99951 47.99945 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99951 47.99945 37.99951
+55.99933 46.66608 55.99933 46.66608 47.99945 37.99951 47.99945 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99951 47.99945 37.99951
+55.99933 46.66608 55.99933 46.66608 47.99945 37.99951 47.99945 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99951 55.99951 37.99951
+63.99939 46.66608 63.99939 46.66608 55.99951 37.99951 55.99951 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99951 55.99951 37.99951
+63.99939 46.66608 63.99939 46.66608 55.99951 37.99951 55.99951 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99951 55.99951 37.99951
+63.99939 46.66608 63.99939 46.66608 55.99951 37.99951 55.99951 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99951 55.99951 37.99951
+63.99939 46.66608 63.99939 46.66608 55.99951 37.99951 55.99951 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99951 55.99951 37.99951
+63.99939 46.66608 63.99939 46.66608 55.99951 37.99951 55.99951 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99951 63.99939 37.99951
+71.99927 46.66608 71.99927 46.66608 63.99939 37.99951 63.99939 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99951 63.99939 37.99951
+71.99927 46.66608 71.99927 46.66608 63.99939 37.99951 63.99939 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99951 63.99939 37.99951
+71.99927 46.66608 71.99927 46.66608 63.99939 37.99951 63.99939 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99951 63.99939 37.99951
+71.99927 46.66608 71.99927 46.66608 63.99939 37.99951 63.99939 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99951 63.99939 37.99951
+71.99927 46.66608 71.99927 46.66608 63.99939 37.99951 63.99939 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99951 63.99939 37.99951
+71.99927 46.66608 71.99927 46.66608 63.99939 37.99951 63.99939 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99951 71.99927 37.99951
+79.99915 46.66608 79.99915 46.66608 71.99927 37.99951 71.99927 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99951 71.99927 37.99951
+79.99915 46.66608 79.99915 46.66608 71.99927 37.99951 71.99927 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99951 71.99927 37.99951
+79.99915 46.66608 79.99915 46.66608 71.99927 37.99951 71.99927 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99951 71.99927 37.99951
+79.99915 46.66608 79.99915 46.66608 71.99927 37.99951 71.99927 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99951 71.99927 37.99951
+79.99915 46.66608 79.99915 46.66608 71.99927 37.99951 71.99927 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99951 79.99915 37.99951
+87.99902 46.66608 87.99902 46.66608 79.99915 37.99951 79.99915 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99951 79.99915 37.99951
+87.99902 46.66608 87.99902 46.66608 79.99915 37.99951 79.99915 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99951 79.99915 37.99951
+87.99902 46.66608 87.99902 46.66608 79.99915 37.99951 79.99915 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99951 79.99915 37.99951
+87.99902 46.66608 87.99902 46.66608 79.99915 37.99951 79.99915 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99951 79.99915 37.99951
+87.99902 46.66608 87.99902 46.66608 79.99915 37.99951 79.99915 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99951 79.99915 37.99951
+87.99902 46.66608 87.99902 46.66608 79.99915 37.99951 79.99915 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66608 87.9992 46.66608
+95.99908 55.33264 95.99908 55.33264 87.9992 46.66608 87.9992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66608 87.9992 46.66608
+95.99908 55.33264 95.99908 55.33264 87.9992 46.66608 87.9992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66608 87.9992 46.66608
+95.99908 55.33264 95.99908 55.33264 87.9992 46.66608 87.9992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66608 87.9992 46.66608
+95.99908 55.33264 95.99908 55.33264 87.9992 46.66608 87.9992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66608 87.9992 46.66608
+95.99908 55.33264 95.99908 55.33264 87.9992 46.66608 87.9992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66608 87.9992 46.66608
+95.99908 55.33264 95.99908 55.33264 87.9992 46.66608 87.9992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66608 87.9992 46.66608
+95.99908 55.33264 95.99908 55.33264 87.9992 46.66608 87.9992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66608 95.99908 46.66608
+103.99896 55.33264 103.99896 55.33264 95.99908 46.66608 95.99908
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66608 95.99908 46.66608
+103.99896 55.33264 103.99896 55.33264 95.99908 46.66608 95.99908
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 55.33264 95.99908 55.33264
+103.99896 63.9992 103.99896 63.9992 95.99908 55.33264 95.99908 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 55.33264 95.99908 55.33264
+103.99896 63.9992 103.99896 63.9992 95.99908 55.33264 95.99908 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 55.33264 95.99908 55.33264
+103.99896 63.9992 103.99896 63.9992 95.99908 55.33264 95.99908 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 55.33264 95.99908 55.33264
+103.99896 63.9992 103.99896 63.9992 95.99908 55.33264 95.99908 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 55.33264 95.99908 55.33264
+103.99896 63.9992 103.99896 63.9992 95.99908 55.33264 95.99908 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 55.33264 95.99908 55.33264
+103.99896 63.9992 103.99896 63.9992 95.99908 55.33264 95.99908 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 55.33264 103.99896 55.33264
+111.99884 63.9992 111.99884 63.9992 103.99896 55.33264 103.99896
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.9992 103.99896 63.9992
+111.99884 72.66577 111.99884 72.66577 103.99896 63.9992 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.9992 103.99896 63.9992
+111.99884 72.66577 111.99884 72.66577 103.99896 63.9992 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.9992 103.99896 63.9992
+111.99884 72.66577 111.99884 72.66577 103.99896 63.9992 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.9992 103.99896 63.9992
+111.99884 72.66577 111.99884 72.66577 103.99896 63.9992 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.9992 103.99896 63.9992
+111.99884 72.66577 111.99884 72.66577 103.99896 63.9992 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.9992 103.99896 63.9992
+111.99884 72.66577 111.99884 72.66577 103.99896 63.9992 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.9992 103.99896 63.9992
+111.99884 72.66577 111.99884 72.66577 103.99896 63.9992 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 72.66559 103.99896 72.66559
+111.99884 81.33215 111.99884 81.33215 103.99896 72.66559 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 72.66559 103.99896 72.66559
+111.99884 81.33215 111.99884 81.33215 103.99896 72.66559 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 72.66559 103.99896 72.66559
+111.99884 81.33215 111.99884 81.33215 103.99896 72.66559 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 72.66559 103.99896 72.66559
+111.99884 81.33215 111.99884 81.33215 103.99896 72.66559 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 72.66559 103.99896 72.66559
+111.99884 81.33215 111.99884 81.33215 103.99896 72.66559 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 72.66559 103.99896 72.66559
+111.99884 81.33215 111.99884 81.33215 103.99896 72.66559 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33215 111.99884 81.33215
+119.99872 89.99872 119.99872 89.99872 111.99884 81.33215 111.99884
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33215 111.99884 81.33215
+119.99872 89.99872 119.99872 89.99872 111.99884 81.33215 111.99884
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33215 111.99884 81.33215
+119.99872 89.99872 119.99872 89.99872 111.99884 81.33215 111.99884
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33215 111.99884 81.33215
+119.99872 89.99872 119.99872 89.99872 111.99884 81.33215 111.99884
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33215 111.99884 81.33215
+119.99872 89.99872 119.99872 89.99872 111.99884 81.33215 111.99884
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33215 111.99884 81.33215
+119.99872 89.99872 119.99872 89.99872 111.99884 81.33215 111.99884
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 89.99872 111.99884 89.99872
+119.99872 98.66528 119.99872 98.66528 111.99884 89.99872 111.99884
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 89.99872 111.99884 89.99872
+119.99872 98.66528 119.99872 98.66528 111.99884 89.99872 111.99884
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 89.99872 111.99884 89.99872
+119.99872 98.66528 119.99872 98.66528 111.99884 89.99872 111.99884
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 89.99872 111.99884 89.99872
+119.99872 98.66528 119.99872 98.66528 111.99884 89.99872 111.99884
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 89.99872 111.99884 89.99872
+119.99872 98.66528 119.99872 98.66528 111.99884 89.99872 111.99884
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 89.99872 111.99884 89.99872
+119.99872 98.66528 119.99872 98.66528 111.99884 89.99872 111.99884
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66528 111.99884 98.66528
+119.99872 107.33185 119.99872 107.33185 111.99884 98.66528 111.99884
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66528 111.99884 98.66528
+119.99872 107.33185 119.99872 107.33185 111.99884 98.66528 111.99884
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66528 111.99884 98.66528
+119.99872 107.33185 119.99872 107.33185 111.99884 98.66528 111.99884
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66528 111.99884 98.66528
+119.99872 107.33185 119.99872 107.33185 111.99884 98.66528 111.99884
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66528 103.99896 98.66528
+111.99884 107.33185 111.99884 107.33185 103.99896 98.66528 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66528 103.99896 98.66528
+111.99884 107.33185 111.99884 107.33185 103.99896 98.66528 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 107.33167 103.99896 107.33167
+111.99884 115.99823 111.99884 115.99823 103.99896 107.33167 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 107.33167 103.99896 107.33167
+111.99884 115.99823 111.99884 115.99823 103.99896 107.33167 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 107.33167 103.99896 107.33167
+111.99884 115.99823 111.99884 115.99823 103.99896 107.33167 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 107.33167 103.99896 107.33167
+111.99884 115.99823 111.99884 115.99823 103.99896 107.33167 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 107.33167 103.99896 107.33167
+111.99884 115.99823 111.99884 115.99823 103.99896 107.33167 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 107.33167 103.99896 107.33167
+111.99884 115.99823 111.99884 115.99823 103.99896 107.33167 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 107.33167 103.99896 107.33167
+111.99884 115.99823 111.99884 115.99823 103.99896 107.33167 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.99823 103.99896 115.99823
+111.99884 124.6648 111.99884 124.6648 103.99896 115.99823 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.99823 103.99896 115.99823
+111.99884 124.6648 111.99884 124.6648 103.99896 115.99823 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.99823 103.99896 115.99823
+111.99884 124.6648 111.99884 124.6648 103.99896 115.99823 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.99823 103.99896 115.99823
+111.99884 124.6648 111.99884 124.6648 103.99896 115.99823 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.99823 103.99896 115.99823
+111.99884 124.6648 111.99884 124.6648 103.99896 115.99823 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.99823 103.99896 115.99823
+111.99884 124.6648 111.99884 124.6648 103.99896 115.99823 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.99823 95.99908 115.99823
+103.99896 124.6648 103.99896 124.6648 95.99908 115.99823 95.99908
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.99823 95.99908 115.99823
+103.99896 124.6648 103.99896 124.6648 95.99908 115.99823 95.99908
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.99823 95.99908 115.99823
+103.99896 124.6648 103.99896 124.6648 95.99908 115.99823 95.99908
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.6648 95.99908 124.6648
+103.99896 133.33136 103.99896 133.33136 95.99908 124.6648 95.99908
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.6648 95.99908 124.6648
+103.99896 133.33136 103.99896 133.33136 95.99908 124.6648 95.99908
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.6648 95.99908 124.6648
+103.99896 133.33136 103.99896 133.33136 95.99908 124.6648 95.99908
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.6648 95.99908 124.6648
+103.99896 133.33136 103.99896 133.33136 95.99908 124.6648 95.99908
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.6648 95.99908 124.6648
+103.99896 133.33136 103.99896 133.33136 95.99908 124.6648 95.99908
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.6648 95.99908 124.6648
+103.99896 133.33136 103.99896 133.33136 95.99908 124.6648 95.99908
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.6648 87.9992 124.6648
+95.99908 133.33136 95.99908 133.33136 87.9992 124.6648 87.9992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.6648 87.9992 124.6648
+95.99908 133.33136 95.99908 133.33136 87.9992 124.6648 87.9992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.6648 87.9992 124.6648
+95.99908 133.33136 95.99908 133.33136 87.9992 124.6648 87.9992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.6648 87.9992 124.6648
+95.99908 133.33136 95.99908 133.33136 87.9992 124.6648 87.9992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.6648 87.9992 124.6648
+95.99908 133.33136 95.99908 133.33136 87.9992 124.6648 87.9992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.33136 87.9992 133.33136
+95.99908 141.99792 95.99908 141.99792 87.9992 133.33136 87.9992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.33136 87.9992 133.33136
+95.99908 141.99792 95.99908 141.99792 87.9992 133.33136 87.9992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.33136 87.9992 133.33136
+95.99908 141.99792 95.99908 141.99792 87.9992 133.33136 87.9992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.33136 79.99915 133.33136
+87.99902 141.99792 87.99902 141.99792 79.99915 133.33136 79.99915
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.33136 79.99915 133.33136
+87.99902 141.99792 87.99902 141.99792 79.99915 133.33136 79.99915
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.33136 79.99915 133.33136
+87.99902 141.99792 87.99902 141.99792 79.99915 133.33136 79.99915
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.33136 79.99915 133.33136
+87.99902 141.99792 87.99902 141.99792 79.99915 133.33136 79.99915
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.33136 79.99915 133.33136
+87.99902 141.99792 87.99902 141.99792 79.99915 133.33136 79.99915
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.33136 79.99915 133.33136
+87.99902 141.99792 87.99902 141.99792 79.99915 133.33136 79.99915
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.33136 79.99915 133.33136
+87.99902 141.99792 87.99902 141.99792 79.99915 133.33136 79.99915
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.33136 71.99927 133.33136
+79.99915 141.99792 79.99915 141.99792 71.99927 133.33136 71.99927
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.33136 71.99927 133.33136
+79.99915 141.99792 79.99915 141.99792 71.99927 133.33136 71.99927
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.33136 71.99927 133.33136
+79.99915 141.99792 79.99915 141.99792 71.99927 133.33136 71.99927
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.33136 71.99927 133.33136
+79.99915 141.99792 79.99915 141.99792 71.99927 133.33136 71.99927
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.33136 71.99927 133.33136
+79.99915 141.99792 79.99915 141.99792 71.99927 133.33136 71.99927
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.33136 71.99927 133.33136
+79.99915 141.99792 79.99915 141.99792 71.99927 133.33136 71.99927
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.33136 71.99927 133.33136
+79.99915 141.99792 79.99915 141.99792 71.99927 133.33136 71.99927
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.33136 63.99939 133.33136
+71.99927 141.99792 71.99927 141.99792 63.99939 133.33136 63.99939
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.33136 63.99939 133.33136
+71.99927 141.99792 71.99927 141.99792 63.99939 133.33136 63.99939
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.33136 63.99939 133.33136
+71.99927 141.99792 71.99927 141.99792 63.99939 133.33136 63.99939
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.33136 63.99939 133.33136
+71.99927 141.99792 71.99927 141.99792 63.99939 133.33136 63.99939
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.33136 63.99939 133.33136
+71.99927 141.99792 71.99927 141.99792 63.99939 133.33136 63.99939
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.33136 63.99939 133.33136
+71.99927 141.99792 71.99927 141.99792 63.99939 133.33136 63.99939
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.33136 55.99951 133.33136
+63.99939 141.99792 63.99939 141.99792 55.99951 133.33136 55.99951
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.33136 55.99951 133.33136
+63.99939 141.99792 63.99939 141.99792 55.99951 133.33136 55.99951
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.33136 55.99951 133.33136
+63.99939 141.99792 63.99939 141.99792 55.99951 133.33136 55.99951
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.33136 55.99951 133.33136
+63.99939 141.99792 63.99939 141.99792 55.99951 133.33136 55.99951
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.33136 55.99951 133.33136
+63.99939 141.99792 63.99939 141.99792 55.99951 133.33136 55.99951
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.33136 55.99951 133.33136
+63.99939 141.99792 63.99939 141.99792 55.99951 133.33136 55.99951
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.6648 55.99951 124.6648
+63.99939 133.33136 63.99939 133.33136 55.99951 124.6648 55.99951
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.6648 47.99945 124.6648
+55.99933 133.33136 55.99933 133.33136 47.99945 124.6648 47.99945
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.6648 47.99945 124.6648
+55.99933 133.33136 55.99933 133.33136 47.99945 124.6648 47.99945
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.6648 47.99945 124.6648
+55.99933 133.33136 55.99933 133.33136 47.99945 124.6648 47.99945
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.6648 47.99945 124.6648
+55.99933 133.33136 55.99933 133.33136 47.99945 124.6648 47.99945
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.6648 47.99945 124.6648
+55.99933 133.33136 55.99933 133.33136 47.99945 124.6648 47.99945
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.6648 47.99945 124.6648
+55.99933 133.33136 55.99933 133.33136 47.99945 124.6648 47.99945
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.6648 47.99945 124.6648
+55.99933 133.33136 55.99933 133.33136 47.99945 124.6648 47.99945
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.6648 39.99957 124.6648
+47.99945 133.33136 47.99945 133.33136 39.99957 124.6648 39.99957
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.6648 39.99957 124.6648
+47.99945 133.33136 47.99945 133.33136 39.99957 124.6648 39.99957
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.6648 39.99957 124.6648
+47.99945 133.33136 47.99945 133.33136 39.99957 124.6648 39.99957
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.6648 39.99957 124.6648
+47.99945 133.33136 47.99945 133.33136 39.99957 124.6648 39.99957
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.99823 39.99957 115.99823
+47.99945 124.6648 47.99945 124.6648 39.99957 115.99823 39.99957 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.99823 39.99957 115.99823
+47.99945 124.6648 47.99945 124.6648 39.99957 115.99823 39.99957 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.99823 39.99957 115.99823
+47.99945 124.6648 47.99945 124.6648 39.99957 115.99823 39.99957 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.99823 39.99957 115.99823
+47.99945 124.6648 47.99945 124.6648 39.99957 115.99823 39.99957 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.99823 31.9997 115.99823
+39.99957 124.6648 39.99957 124.6648 31.9997 115.99823 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.99823 31.9997 115.99823
+39.99957 124.6648 39.99957 124.6648 31.9997 115.99823 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.99823 31.9997 115.99823
+39.99957 124.6648 39.99957 124.6648 31.9997 115.99823 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.99823 31.9997 115.99823
+39.99957 124.6648 39.99957 124.6648 31.9997 115.99823 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 107.33167 31.9997 107.33167
+39.99957 115.99823 39.99957 115.99823 31.9997 107.33167 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 107.33167 31.9997 107.33167
+39.99957 115.99823 39.99957 115.99823 31.9997 107.33167 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 107.33167 31.9997 107.33167
+39.99957 115.99823 39.99957 115.99823 31.9997 107.33167 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 107.33167 31.9997 107.33167
+39.99957 115.99823 39.99957 115.99823 31.9997 107.33167 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 107.33167 31.9997 107.33167
+39.99957 115.99823 39.99957 115.99823 31.9997 107.33167 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 107.33167 31.9997 107.33167
+39.99957 115.99823 39.99957 115.99823 31.9997 107.33167 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 107.33167 31.9997 107.33167
+39.99957 115.99823 39.99957 115.99823 31.9997 107.33167 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66528 31.9997 98.66528
+39.99957 107.33185 39.99957 107.33185 31.9997 98.66528 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66528 23.99982 98.66528
+31.9997 107.33185 31.9997 107.33185 23.99982 98.66528 23.99982 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66528 23.99982 98.66528
+31.9997 107.33185 31.9997 107.33185 23.99982 98.66528 23.99982 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66528 23.99982 98.66528
+31.9997 107.33185 31.9997 107.33185 23.99982 98.66528 23.99982 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66528 23.99982 98.66528
+31.9997 107.33185 31.9997 107.33185 23.99982 98.66528 23.99982 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66528 23.99982 98.66528
+31.9997 107.33185 31.9997 107.33185 23.99982 98.66528 23.99982 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 89.99872 23.99982 89.99872
+31.9997 98.66528 31.9997 98.66528 23.99982 89.99872 23.99982 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 89.99872 23.99982 89.99872
+31.9997 98.66528 31.9997 98.66528 23.99982 89.99872 23.99982 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 89.99872 23.99982 89.99872
+31.9997 98.66528 31.9997 98.66528 23.99982 89.99872 23.99982 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 89.99872 23.99982 89.99872
+31.9997 98.66528 31.9997 98.66528 23.99982 89.99872 23.99982 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 89.99872 23.99982 89.99872
+31.9997 98.66528 31.9997 98.66528 23.99982 89.99872 23.99982 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 89.99872 23.99982 89.99872
+31.9997 98.66528 31.9997 98.66528 23.99982 89.99872 23.99982 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33215 23.99982 81.33215
+31.9997 89.99872 31.9997 89.99872 23.99982 81.33215 23.99982 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33215 23.99982 81.33215
+31.9997 89.99872 31.9997 89.99872 23.99982 81.33215 23.99982 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33215 23.99982 81.33215
+31.9997 89.99872 31.9997 89.99872 23.99982 81.33215 23.99982 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33215 23.99982 81.33215
+31.9997 89.99872 31.9997 89.99872 23.99982 81.33215 23.99982 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33215 23.99982 81.33215
+31.9997 89.99872 31.9997 89.99872 23.99982 81.33215 23.99982 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33215 23.99982 81.33215
+31.9997 89.99872 31.9997 89.99872 23.99982 81.33215 23.99982 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 72.66559 23.99982 72.66559
+31.9997 81.33215 31.9997 81.33215 23.99982 72.66559 23.99982 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 72.66559 23.99982 72.66559
+31.9997 81.33215 31.9997 81.33215 23.99982 72.66559 23.99982 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 72.66559 23.99982 72.66559
+31.9997 81.33215 31.9997 81.33215 23.99982 72.66559 23.99982 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 72.66559 23.99982 72.66559
+31.9997 81.33215 31.9997 81.33215 23.99982 72.66559 23.99982 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 72.66559 23.99982 72.66559
+31.9997 81.33215 31.9997 81.33215 23.99982 72.66559 23.99982 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 72.66559 23.99982 72.66559
+31.9997 81.33215 31.9997 81.33215 23.99982 72.66559 23.99982 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.9992 23.99982 63.9992
+31.9997 72.66577 31.9997 72.66577 23.99982 63.9992 23.99982 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.9992 23.99982 63.9992
+31.9997 72.66577 31.9997 72.66577 23.99982 63.9992 23.99982 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.9992 23.99982 63.9992
+31.9997 72.66577 31.9997 72.66577 23.99982 63.9992 23.99982 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.9992 31.9997 63.9992
+39.99957 72.66577 39.99957 72.66577 31.9997 63.9992 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.9992 31.9997 63.9992
+39.99957 72.66577 39.99957 72.66577 31.9997 63.9992 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.9992 31.9997 63.9992
+39.99957 72.66577 39.99957 72.66577 31.9997 63.9992 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 55.33264 31.9997 55.33264
+39.99957 63.9992 39.99957 63.9992 31.9997 55.33264 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 55.33264 31.9997 55.33264
+39.99957 63.9992 39.99957 63.9992 31.9997 55.33264 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 55.33264 31.9997 55.33264
+39.99957 63.9992 39.99957 63.9992 31.9997 55.33264 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 55.33264 31.9997 55.33264
+39.99957 63.9992 39.99957 63.9992 31.9997 55.33264 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 55.33264 31.9997 55.33264
+39.99957 63.9992 39.99957 63.9992 31.9997 55.33264 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 55.33264 31.9997 55.33264
+39.99957 63.9992 39.99957 63.9992 31.9997 55.33264 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66608 39.99957 46.66608
+47.99945 55.33264 47.99945 55.33264 39.99957 46.66608 39.99957 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66608 39.99957 46.66608
+47.99945 55.33264 47.99945 55.33264 39.99957 46.66608 39.99957 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66608 39.99957 46.66608
+47.99945 55.33264 47.99945 55.33264 39.99957 46.66608 39.99957 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66608 39.99957 46.66608
+47.99945 55.33264 47.99945 55.33264 39.99957 46.66608 39.99957 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66608 39.99957 46.66608
+47.99945 55.33264 47.99945 55.33264 39.99957 46.66608 39.99957 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66608 39.99957 46.66608
+47.99945 55.33264 47.99945 55.33264 39.99957 46.66608 39.99957 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 12.0 0.0 12.0 144.0 /Lineto /lineto
+load def 1 setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n
+2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4
+mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED
+/Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 20.66656 0.0 20.66656 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 29.33313 0.0 29.33313 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 37.99951 0.0 37.99951 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 46.66608 0.0 46.66608 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 55.33264 0.0 55.33264 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 63.9992 0.0 63.9992 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 72.66559 0.0 72.66559 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 81.33215 0.0 81.33215 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 89.99872 0.0 89.99872 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 98.66528 0.0 98.66528 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 107.33167 0.0 107.33167 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 115.99823 0.0 115.99823 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 124.6648 0.0 124.6648 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 133.33136 0.0 133.33136 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 141.99774 0.0 141.99774 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 150.6643 0.0 150.6643 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 159.33087 0.0 159.33087 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 167.99744 0.0 167.99744 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 0.0 12.0 0.0 /Lineto /lineto
+load def 1 setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n
+2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4
+mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED
+/Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 7.99988 12.0 7.99988 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 15.99976 12.0 15.99976 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 23.99982 12.0 23.99982 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 31.9997 12.0 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 39.99957 12.0 39.99957 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 47.99945 12.0 47.99945 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 55.99951 12.0 55.99951 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 63.99939 12.0 63.99939 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 71.99927 12.0 71.99927 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 79.99915 12.0 79.99915 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 87.9992 12.0 87.9992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 95.99908 12.0 95.99908 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 103.99896 12.0 103.99896 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 111.99884 12.0 111.99884 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 119.99872 12.0 119.99872 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 127.99878 12.0 127.99878 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 135.99866 12.0 135.99866 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 143.99854 12.0 143.99854 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.5 SLW 1 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def /t 0 def /t1 0.5 def /dt t1 t sub 199
+div def /F@pstplot ((1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0-1.5)*(2.0)+15*t^2*(1-t)^4*(2.0+2)*(2.0)+
+20*t^3*(1-t)^3*(2.0+6)*(2.0)+15*t^4*(1-t)^2*(2.0+5)*(2.0)+6*t^5*(1-t)*(2.0+1.5)*(2.0)+t^6*(2.0)*(2.0)|(1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0+2)*(2.0)+15*t^2*(1-t)^4*(2.0+5)*(2.0)+
+20*t^3*(1-t)^3*(2.0+3)*(2.0)+15*t^4*(1-t)^2*(2.0-1)*(2.0)+6*t^5*(1-t)*(2.0-2)*(2.0)+t^6*(2.0)*(2.0))
+ tx@AlgToPs begin AlgToPs end cvx def /xy { F@pstplot 12.0 mul exch
+12.0 mul exch } def /ps@Exit false def xy moveto 199 1 sub { /t t
+dt add def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0 mul
+lt { moveto }{ L } ifelse } ifelse ps@Exit { exit } if } repeat ps@Exit
+not { /t t1 def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0
+mul lt { moveto }{ L } ifelse } ifelse } if gsave 0.5 SLW 1 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.5 SLW 1 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def /t 0.5 def /t1 1 def /dt t1 t sub 199
+div def /F@pstplot ((1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0-1.5)*(2.0)+15*t^2*(1-t)^4*(2.0+2)*(2.0)+
+20*t^3*(1-t)^3*(2.0+6)*(2.0)+15*t^4*(1-t)^2*(2.0+5)*(2.0)+6*t^5*(1-t)*(2.0+1.5)*(2.0)+t^6*(2.0)*(2.0)|(1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0+2)*(2.0)+15*t^2*(1-t)^4*(2.0+5)*(2.0)+
+20*t^3*(1-t)^3*(2.0+3)*(2.0)+15*t^4*(1-t)^2*(2.0-1)*(2.0)+6*t^5*(1-t)*(2.0-2)*(2.0)+t^6*(2.0)*(2.0))
+ tx@AlgToPs begin AlgToPs end cvx def /xy { F@pstplot 12.0 mul exch
+12.0 mul exch } def /ps@Exit false def xy moveto 199 1 sub { /t t
+dt add def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0 mul
+lt { moveto }{ L } ifelse } ifelse ps@Exit { exit } if } repeat ps@Exit
+not { /t t1 def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0
+mul lt { moveto }{ L } ifelse } ifelse } if gsave 0.5 SLW 1 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial 0 TeXcolorgray
+0 TeXcolorgray eop end
+%%Trailer
+
+userdict /end-hook known{end-hook}if
+%%EOF
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/b6of2.eps b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/b6of2.eps
new file mode 100644
index 00000000000..ecedf7235f0
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/b6of2.eps
@@ -0,0 +1,11891 @@
+%!PS-Adobe-3.0 EPSF-3.0
+%%Creator: dvips(k) 5.992 Copyright 2012 Radical Eye Software
+%%Title: testps-fig1.dvi
+%%CreationDate: Wed Nov 27 16:17:35 2013
+%%Pages: 1
+%%PageOrder: Ascend
+%%BoundingBox: 117 554 275 700
+%%DocumentPaperSizes: Letter
+%%EndComments
+%DVIPSWebPage: (www.radicaleye.com)
+%DVIPSCommandLine: DVIPS.EXE testps-fig1
+%DVIPSParameters: dpi=600
+%DVIPSSource: TeX output 2013.11.27:1617
+%%BeginProcSet: tex.pro 0 0
+%!
+/TeXDict 300 dict def TeXDict begin/N{def}def/B{bind def}N/S{exch}N/X{S
+N}B/A{dup}B/TR{translate}N/isls false N/vsize 11 72 mul N/hsize 8.5 72
+mul N/landplus90{false}def/@rigin{isls{[0 landplus90{1 -1}{-1 1}ifelse 0
+0 0]concat}if 72 Resolution div 72 VResolution div neg scale isls{
+landplus90{VResolution 72 div vsize mul 0 exch}{Resolution -72 div hsize
+mul 0}ifelse TR}if Resolution VResolution vsize -72 div 1 add mul TR[
+matrix currentmatrix{A A round sub abs 0.00001 lt{round}if}forall round
+exch round exch]setmatrix}N/@landscape{/isls true N}B/@manualfeed{
+statusdict/manualfeed true put}B/@copies{/#copies X}B/FMat[1 0 0 -1 0 0]
+N/FBB[0 0 0 0]N/nn 0 N/IEn 0 N/ctr 0 N/df-tail{/nn 8 dict N nn begin
+/FontType 3 N/FontMatrix fntrx N/FontBBox FBB N string/base X array
+/BitMaps X/BuildChar{CharBuilder}N/Encoding IEn N end A{/foo setfont}2
+array copy cvx N load 0 nn put/ctr 0 N[}B/sf 0 N/df{/sf 1 N/fntrx FMat N
+df-tail}B/dfs{div/sf X/fntrx[sf 0 0 sf neg 0 0]N df-tail}B/E{pop nn A
+definefont setfont}B/Cw{Cd A length 5 sub get}B/Ch{Cd A length 4 sub get
+}B/Cx{128 Cd A length 3 sub get sub}B/Cy{Cd A length 2 sub get 127 sub}
+B/Cdx{Cd A length 1 sub get}B/Ci{Cd A type/stringtype ne{ctr get/ctr ctr
+1 add N}if}B/CharBuilder{save 3 1 roll S A/base get 2 index get S
+/BitMaps get S get/Cd X pop/ctr 0 N Cdx 0 Cx Cy Ch sub Cx Cw add Cy
+setcachedevice Cw Ch true[1 0 0 -1 -.1 Cx sub Cy .1 sub]{Ci}imagemask
+restore}B/D{/cc X A type/stringtype ne{]}if nn/base get cc ctr put nn
+/BitMaps get S ctr S sf 1 ne{A A length 1 sub A 2 index S get sf div put
+}if put/ctr ctr 1 add N}B/I{cc 1 add D}B/bop{userdict/bop-hook known{
+bop-hook}if/SI save N @rigin 0 0 moveto/V matrix currentmatrix A 1 get A
+mul exch 0 get A mul add .99 lt{/QV}{/RV}ifelse load def pop pop}N/eop{
+SI restore userdict/eop-hook known{eop-hook}if showpage}N/@start{
+userdict/start-hook known{start-hook}if pop/VResolution X/Resolution X
+1000 div/DVImag X/IEn 256 array N 2 string 0 1 255{IEn S A 360 add 36 4
+index cvrs cvn put}for pop 65781.76 div/vsize X 65781.76 div/hsize X}N
+/p{show}N/RMat[1 0 0 -1 0 0]N/BDot 260 string N/Rx 0 N/Ry 0 N/V{}B/RV/v{
+/Ry X/Rx X V}B statusdict begin/product where{pop false[(Display)(NeXT)
+(LaserWriter 16/600)]{A length product length le{A length product exch 0
+exch getinterval eq{pop true exit}if}{pop}ifelse}forall}{false}ifelse
+end{{gsave TR -.1 .1 TR 1 1 scale Rx Ry false RMat{BDot}imagemask
+grestore}}{{gsave TR -.1 .1 TR Rx Ry scale 1 1 false RMat{BDot}
+imagemask grestore}}ifelse B/QV{gsave newpath transform round exch round
+exch itransform moveto Rx 0 rlineto 0 Ry neg rlineto Rx neg 0 rlineto
+fill grestore}B/a{moveto}B/delta 0 N/tail{A/delta X 0 rmoveto}B/M{S p
+delta add tail}B/b{S p tail}B/c{-4 M}B/d{-3 M}B/e{-2 M}B/f{-1 M}B/g{0 M}
+B/h{1 M}B/i{2 M}B/j{3 M}B/k{4 M}B/w{0 rmoveto}B/l{p -4 w}B/m{p -3 w}B/n{
+p -2 w}B/o{p -1 w}B/q{p 1 w}B/r{p 2 w}B/s{p 3 w}B/t{p 4 w}B/x{0 S
+rmoveto}B/y{3 2 roll p a}B/bos{/SS save N}B/eos{SS restore}B end
+
+%%EndProcSet
+%%BeginProcSet: pstricks.pro 0 0
+% $Id: pstricks.pro 801 2013-07-09 18:10:41Z herbert $
+%
+%% PostScript prologue for pstricks.tex.
+%% Version 1.17, 2013/07/08
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%
+%
+% Define the follwing gs-functions if not known, eg when using distiller
+%
+systemdict /.setopacityalpha known not {/.setopacityalpha { pop } def } if
+systemdict /.setblendmode known not {/.setblendmode { pop } def } if
+systemdict /.setshapealpha known not {/.setshapealpha { pop } def } if
+%
+/tx@Dict 200 dict def % the main PSTricks dictionary
+tx@Dict begin
+/ADict 25 dict def % The arrow dictionary
+/CM { matrix currentmatrix } bind def
+/SLW /setlinewidth load def
+/CLW /currentlinewidth load def
+/CP /currentpoint load def
+/ED { exch def } bind def
+/L /lineto load def
+/T /translate load def
+/TMatrix { } def
+/RAngle { 0 } def
+/Sqrt { dup 0 lt { pop 0 } { sqrt } ifelse } def % return 0 for negative arguments
+/Atan { /atan load stopped { pop pop 0 } if } def % return 0 if atan not known
+/ATAN1 {neg -1 atan 180 sub } def % atan(x) (only one parameter)
+/Div { dup 0 eq { pop } { div } ifelse } def % control the division
+/tan { dup cos abs 1.e-10 lt
+ { pop 1.e10 } % return 1.e10 as infinit
+ { dup sin exch cos div } ifelse % default sin/cos
+} def
+/Tan { dup sin exch cos Div } def % sin(x)/cos(x) x in degrees
+/Acos {dup dup mul neg 1 add dup 0 lt { % arc cos, returns 0 when negative root
+ pop pop 0 }{ sqrt exch atan} ifelse } def
+/Acos2 { 2 dict begin
+ /x ED /y ED
+ y abs 1.0e-20 lt { 1.0e30 } if
+ x y div
+ dup dup mul neg 1 add dup 0 lt { % arc cos needs two values x,y
+ pop pop 0 }{ sqrt exch atan} ifelse
+ y 0 lt { 180 add } if
+} def
+/NET { neg exch neg exch T } def % change coordinate system to the negative one
+/Pyth { dup mul exch dup mul add sqrt } def % Pythagoras, expects 2 parameter
+/Pyth2 { % Pythagoras, xA yA xB yB
+ 3 -1 roll % xA xB yB yA
+ sub % xA xB yB-yA
+ 3 1 roll % yB-yA xA xB
+ sub % yB-yA xA-xB
+ Pyth } def
+/PtoC { 2 copy cos mul 3 1 roll sin mul } def % Polar to Cartesian
+/Rand { rand 4294967295 div } def % a real random number
+%----------------- hv added 20050516 ---------------
+/PiDiv2 1.57079632680 def
+/Pi 3.14159265359 def
+/TwoPi 6.28318530718 def
+/Euler 2.71828182846 def
+%/e Euler bind def
+%
+/RadtoDeg { 180 mul Pi div } bind def % convert from radian to degrees
+/DegtoRad { Pi mul 180 div } bind def % viceversa
+%
+/startGlobal { true setglobal globaldict begin } bind def
+/endGlobal { end false setglobal } bind def
+/pssetRGBcolor /setrgbcolor load def
+/pssetCMYKcolor /setcmykcolor load def
+/pssetGraycolor /setgray load def
+%
+%----------------- hv end---------------------------
+/PathLength@ { /z z y y1 sub x x1 sub Pyth add def /y1 y def /x1 x def } def
+%
+/PathLength {
+ flattenpath /z 0 def
+ { /y1 ED /x1 ED /y2 y1 def /x2 x1 def }
+ { /y ED /x ED PathLength@ }
+ {}
+ { /y y2 def /x x2 def PathLength@ }
+ /pathforall load stopped { pop pop pop pop } if
+ z
+} def
+%
+/STP { .996264 dup scale } def % BP/PT scaling
+/STV { SDict begin normalscale end STP } def %
+%
+/DashLine {
+ dup 0 gt
+ { /a .5 def PathLength exch div }
+ { pop /a 1 def PathLength } ifelse
+ /b ED % pattern should fit evenly in b
+ dup /X ED % pattern array
+ 0 get /y ED % length of first black segment
+ /z 0 X {add} forall def % length of the full pattern
+ %% Computation of the scaling factor as described by van Zandt:
+ b a .5 sub 2 mul y mul sub z Div round
+ z mul a .5 sub 2 mul y mul add b exch Div
+ %%%% scaling factor on stack.
+ /z ED %% now, z is the scaling factor
+ false % for the length test below
+ X { z mul } forall X astore %% modification TN 04-08-07
+ %%% Checking whether at least one dash in X has positive length:
+ {0 gt or} forall
+ { X 1 a sub y mul }
+ { [ 1 0 ] 0 }
+ ifelse
+ setdash stroke
+} def
+%
+/DotLine {
+ /b PathLength def
+ /a ED /z ED /y CLW def
+ /z y z add def
+ a 0 gt {
+ /b b a div def
+ }{
+ a 0 eq {
+ /b b y sub def
+ }{ a -3 eq {
+ /b b y add def } if
+ } ifelse
+ } ifelse
+ [ 0 b b z Div round Div dup 0 le { pop 1 } if ]
+ a 0 gt { 0 }{ y 2 div a -2 gt { neg }if } ifelse
+ setdash 1 setlinecap stroke
+} def
+%
+/SymbolLine { % on stack [ x y x y ...
+ counttomark % number of elements
+ 2 div cvi /n ED % n pairs
+ /YA ED /XA ED % the start point
+ n 1 sub {
+ /YB ED /XB ED
+ /XLength XB XA sub def
+ /YLength YB YA sub def
+ /PAngle YLength XLength Atan def
+ /XYLength XLength YLength Pyth def
+
+ %% for negative SymStep we calculate the distance
+ SymStep 0 lt
+ { %XYLength SymStep div abs cvi
+ /nSym SymStep abs cvi def }
+ { /nSym XYLength SymStep div cvi def }
+ ifelse
+ 0.5 setflat
+ /Shift Symbol stringwidth pop 2 div def
+ /deltaX XLength nSym div def
+ /deltaY YLength nSym div def
+ curveticks
+ { XA YA moveto }
+ { XA Shift sub YA Shift sub moveto }
+ ifelse
+ nSym {
+ gsave
+ curveticks
+ { PAngle 180 sub CorrAngle sub tickAngle add /rotAngle ED
+ currentpoint translate rotAngle rotate
+ 0 SymbolWidth 2 div moveto 0 SymbolWidth 2 div neg lineto
+ SymbolLinewidth setlinewidth stroke
+ }
+ {
+ rotateSymbol { PAngle 180 sub CorrAngle sub rotate } if
+ Symbol show
+ }
+ ifelse
+ grestore
+ deltaX deltaY rmoveto
+ } repeat
+ /YA YB def /XA XB def
+ } repeat
+ curveticks
+ { XA YA moveto }
+ { XA Shift sub YA Shift sub moveto }
+ ifelse
+ gsave
+ curveticks
+ { PAngle 180 sub CorrAngle sub tickAngle add /rotAngle ED
+ XA YA translate rotAngle rotate
+ 0 SymbolWidth 2 div moveto 0 SymbolWidth 2 div neg lineto
+ SymbolLinewidth setlinewidth stroke
+ }
+ {
+ rotateSymbol { PAngle 180 sub CorrAngle sub rotate } if
+ Symbol show
+ }
+ ifelse
+ grestore
+ pop % delete the mark symbol
+} def
+%
+/LineFill { % hv ------------ patch 7 -------------
+ gsave
+ abs /hatchWidthInc ED
+ abs /hatchSepInc ED
+ abs CLW add /a ED
+ a 0 dtransform round exch round exch
+ 2 copy idtransform
+ exch Atan rotate
+ idtransform pop /a ED
+ .25 .25 itransform pathbbox
+ /y2 ED
+ a Div ceiling cvi /x2 ED /y1 ED
+ a Div cvi /x1 ED /y2 y2 y1 sub def
+ clipType % must be defined in pstricks.tex: clip -- eoclip
+ newpath
+ 2 setlinecap
+ systemdict
+ /setstrokeadjust known { true setstrokeadjust } if
+ x2 x1 sub 1 add {
+ x1 a mul y1 moveto 0 y2 rlineto stroke
+ /x1 x1 1 add
+ hatchWidthInc 0 gt { CLW add } if
+ def
+ hatchSepInc 0 gt hatchWidthInc 0 gt or {
+ /a a hatchSepInc add def
+ CLW hatchWidthInc add SLW
+ } if
+ } repeat
+ grestore
+ pop pop } def
+%
+/DotFill {% on stack: dot radius
+ /dotRadius ED
+ abs CLW add /a ED
+ a 0 dtransform round exch round exch
+ 2 copy idtransform
+ exch Atan rotate
+ idtransform pop /a ED
+ .25 .25 itransform
+ pathbbox % llx lly urx ury of smallest bounding box
+ /y2 ED /x2 ED /y1 ED /x1 ED
+ y2 y1 sub a div 2 add cvi /Ny ED
+ x2 x1 sub a div 2 add cvi /Nx ED
+ clipType % must be defined in pstricks.tex: clip -- eoclip
+ newpath
+ /yA y1 dotRadius add CLW add def
+ /xA0 x1 dotRadius add CLW add def
+ Ny {
+ /xA xA0 def
+ Nx {
+ newpath
+ xA yA dotRadius 0 360 arc
+ SolidDot { gsave fill grestore } if
+ stroke
+ xA a add /xA ED
+ } repeat
+ yA a add /yA ED
+ } repeat
+ grestore
+} def
+%
+/PenroseFill {% on stack: scaling factor
+ /Scale ED
+% 1 exch div round /penroseFactor ED
+% a 0 dtransform round exch round exch
+% 2 copy idtransform
+% exch Atan rotate
+% idtransform pop /a ED
+% .25 .25 itransform pathbbox
+% /y2 ED
+% a Div ceiling cvi /x2 ED /y1 ED
+% a Div cvi /x1 ED /y2 y2 y1 sub def
+ clip
+ newpath
+gsave
+ 220 150 translate
+ Scale dup scale
+ systemdict /setstrokeadjust known { true setstrokeadjust } if
+ /I/S/L/W/G/+/Z/F/E/D[/def/exch/for{E D}/add{s E get mul}
+ { Z -36.2001 1 33 }{25 E S rlineto}{/q Z dup q G E q 1 + G}{Z 2 2}]{cvx def}forall
+ [0 72 1008 {dup sin E cos }F ]1 setlinejoin/s W{/a W{/b I 10{/i I 4{/m I moveto
+ i m +/j I 10{/l Z b m l + G a l G sub s m get div .2 + floor .3 + 25
+ mul j l + S rmoveto}F i L j L stroke }F}F}F}F
+ grestore
+% pop pop
+} def
+%
+/PenroseFillA {% on stack: scaling factor, border color, kite color, dart color
+ /Scale ED
+ Scale dup scale
+ /border_colour ED
+ /kite_colour ED
+ /dart_colour ED
+ clip
+
+ newpath
+ gsave
+ 100 100 translate
+ 6
+ Scale 1 lt { 1 Scale dup add div mul cvi } if %%%% Number of iterations
+ 10 %%%% Long side length in millimeters
+ /border_width { L 0.06 mul }def %%%% Choose the scalefactor for the borders
+ /L exch 25.4 div 72 mul def %%%% Conversion: mm -> inches -> points
+ /f{-1 5 sqrt add 2 div}bind def %%%% The reciprocal of the golden ratio
+ /l{L f mul}bind def %%%% Short side length l = L*f
+ /Ll{L l add}bind def %%%% Ll = L + l
+ /c{36 cos L mul}bind def %%%% c = L*cos(36)
+ /s{36 sin L mul}bind def %%%% s = L*sin(36)
+ /draw_tile { 0 0 moveto c s lineto 0 lineto gsave closepath gsave fill grestore
+ 0 setlinewidth stroke grestore border_colour stroke } bind def
+ /half_kite { dup dup 0 gt{ 1 sub gsave f f neg scale -36 rotate half_dart
+ Ll 0 translate 144 rotate kite grestore }
+ { kite_colour L draw_tile }ifelse
+ pop } bind def
+ /half_dart { dup dup 0 gt{ 1 sub gsave f f scale half_kite
+ -144 rotate Ll neg 0 translate half_dart grestore }
+ { dart_colour l draw_tile }ifelse
+ pop } bind def
+ /kite{ gsave half_kite 1 -1 scale half_kite grestore }bind def
+ border_width setlinewidth 1 setlinejoin 1 setlinecap
+% 450 0 translate
+ dup f exch neg exp dup scale
+ 5 {kite 72 rotate } repeat stroke
+ grestore
+} def
+%
+%
+/TruchetFill { % on stack: scaling factor
+ 10 dict begin
+ dup dup scale
+ 1 exch div round /penroseFactor ED
+ a 0 dtransform round exch round exch
+ 2 copy idtransform
+ exch Atan rotate
+ idtransform pop /a ED
+ .25 .25 itransform pathbbox
+ /y2 ED
+ a Div ceiling cvi /x2 ED /y1 ED
+ a Div cvi /x1 ED /y2 y2 y1 sub def
+ clip
+ newpath
+ systemdict
+ /setstrokeadjust known { true setstrokeadjust } if
+ /ma a neg def
+ /ha a 2 div def
+ /mha ha neg def
+ /tile {
+ rand dup 2 idiv 2 mul eq { 90 rotate } if
+ mha mha moveto ha mha lineto
+ ha ha lineto mha ha lineto
+% closepath .1 setlinewidth stroke
+ contents
+ } def
+ /contents{
+ 0 ha moveto ha 0 lineto
+ 0 mha moveto mha 0 lineto
+% 1 setlinewidth stroke
+ } def
+ /dotiling {
+ f ma mul a f a mul {
+ /i exch def
+ f ma mul a f a mul {
+ /j exch def
+ gsave i j translate
+ tile stroke grestore
+ } for
+ } for
+ } def
+%
+ /f 3 def
+ 5 srand dotiling
+ end % local user dict
+} def
+%
+/BeginArrow {
+ ADict begin % hold it local, for end see EndArrow
+ /@mtrx CM def
+ gsave
+ 2 copy T
+ 2 index sub neg exch
+ 3 index sub exch Atan
+ rotate newpath
+} def
+%
+/EndArrow { @mtrx setmatrix CP grestore end } def % end the ADict
+%
+/Arrow {
+ CLW mul add dup
+ 2 div /w ED
+ mul dup /h ED
+ mul /a ED
+ { 0 h T 1 -1 scale } if
+ w neg h moveto
+ 0 0 L w h L w neg a neg rlineto
+ gsave fill grestore
+} def
+%
+/ArrowD { % the sides are drawn as curves (hv 20071211)
+ CLW mul add dup
+ 2 div /w ED
+ mul dup /h ED
+ mul /Inset ED
+ { 0 h T 1 -1 scale } if % changes the direction
+% we use y=w/h^2 * x^2 as equation for the control points
+% for the coordinates the arrow is seen from top to bottom
+% the bottom (tip) is (0;0)
+ w neg h moveto % lower left of >
+ w 9 div 4 mul neg h 3 div 2 mul
+ w 9 div neg h 3 div
+ 0 0 curveto % tip of >
+ w 9 div h 3 div
+ w 9 div 4 mul h 3 div 2 mul
+ w h curveto % upper left of >
+ w neg Inset neg rlineto % move to x=0 and inset
+ gsave fill grestore
+} def
+%
+/Tbar {
+ CLW mul add /z ED
+ z -2 div CLW 2 div moveto
+ z 0 rlineto stroke
+ 0 CLW moveto
+} def
+%
+/Bracket {
+ CLW mul add dup CLW sub 2 div
+ /x ED mul CLW add /y ED /z CLW 2 div def
+ x neg y moveto
+ x neg CLW 2 div L x CLW 2 div L x y L stroke
+ 0 CLW moveto
+} def
+%
+/RoundBracket {
+ CLW mul add dup 2 div
+ /x ED mul /y ED /mtrx CM def
+ 0 CLW 2 div T x y mul 0 ne { x y scale } if
+ 1 1 moveto
+ .85 .5 .35 0 0 0 curveto
+ -.35 0 -.85 .5 -1 1 curveto
+ mtrx setmatrix stroke 0 CLW moveto
+} def
+%
+/SD { 0 360 arc fill } def
+%
+/EndDot { % DS is the dot size
+ { /z DS def } { /z 0 def } ifelse % outer or inner dimen
+ /b ED % the color definition
+ 0 z DS SD
+ b { 0 z DS CLW sub SD } if
+ 0 DS z add CLW 4 div sub
+ moveto
+} def
+%
+/Shadow { [ { /moveto load } { /lineto load } { /curveto load } {
+ /closepath load } /pathforall load stopped { pop pop pop pop CP /moveto
+ load } if ] cvx newpath 3 1 roll T exec } def
+%
+/NArray { % holds the coordinates and on top of stack the showpoints boolean
+ /showpoints ED
+ counttomark 2 div dup cvi /n ED % n 2 div on stack
+ n eq not { exch pop } if % even numbers of points? delete one
+ ] aload /Points ED
+ showpoints not { Points aload pop } if
+% { ] aload /Points ED }
+% { n 2 mul 1 add -1 roll pop } ifelse % delete the mark symbol
+} def
+%
+/Line {
+ NArray n 0 eq not
+ { n 1 eq { 0 0 /n 2 def } if ArrowA /n n 2 sub def
+ n { Lineto } repeat
+ CP 4 2 roll ArrowB L pop pop
+ } if
+} def
+%
+/LineToYAxis {
+ /Ox ED % Save the x origin value
+ NArray % all x-y pairs on stack
+ n { 2 copy moveto % go to current point
+ Ox exch Lineto % line to y-axis
+ pop % delete old x-value
+ } repeat
+} def
+%
+/LineToXAxis{
+ /Oy ED % Save the y origin value
+ NArray % all x-y pairs on stack
+ n 0 eq not
+ { n 1 eq { 0 0 /n 2 def } if
+ ArrowA
+ /n n 2 sub def
+ CP 2 copy moveto pop Oy Lineto
+ n { 2 copy moveto pop Oy Lineto } repeat
+ CP
+ 4 2 roll
+ ArrowB
+ 2 copy moveto pop Oy
+ L
+ pop pop } if
+} def
+%
+/Arcto {
+ /a [ 6 -2 roll ] cvx def
+ a r
+ /arcto load stopped { 5 } { 4 } ifelse { pop } repeat
+ a
+} def
+%
+/CheckClosed {
+ dup n 2 mul 1 sub index eq 2 index n 2 mul 1 add index eq
+ and { pop pop /n n 1 sub def } if
+} def
+%
+/Polygon {
+ NArray n 2 eq { 0 0 /n 3 def } if
+ n 3 lt
+ { n { pop pop } repeat }
+ { n 3 gt { CheckClosed } if
+ n 2 mul -2 roll
+ /y0 ED /x0 ED /y1 ED /x1 ED
+ x1 y1
+ /x1 x0 x1 add 2 div def
+ /y1 y0 y1 add 2 div def
+ x1 y1 moveto
+ /n n 2 sub def
+ n { Lineto } repeat
+ x1 y1 x0 y0 6 4 roll Lineto
+ Lineto pop pop closepath } ifelse
+} def
+%
+/SymbolPolygon { % on stack [ x y x y ...
+ counttomark % number of elements
+ 2 add /m ED
+ 2 copy m 2 roll % copy last two
+ m 2 div cvi /n ED % n pairs
+ /YA ED /XA ED % the start point
+ n 1 sub {
+ /YB ED /XB ED
+ /XLength XB XA sub def
+ /YLength YB YA sub def
+ /PAngle YLength XLength Atan def
+ /XYLength XLength YLength Pyth def
+ /nSym XYLength SymStep Div cvi def
+ /Shift Symbol stringwidth pop 2 Div def
+ /deltaX XLength nSym Div def
+ /deltaY YLength nSym Div def
+ XA Shift sub YA Shift sub moveto
+ nSym {
+ gsave rotateSymbol { PAngle 180 sub CorrAngle sub rotate } if
+ Symbol show
+ grestore
+ deltaX deltaY rmoveto
+ } repeat
+% XB Shift sub YB Shift sub moveto Symbol show
+ /YA YB def /XA XB def
+ } repeat
+ pop % delete the mark symbol
+} def
+%
+/Diamond {
+ /mtrx CM def
+ T rotate
+ /h ED
+ /w ED
+ dup 0 eq { pop } { CLW mul neg
+ /d ED
+ /a w h Atan def
+ /h d a sin Div h add def
+ /w d a cos Div w add def } ifelse
+ mark w 2 div h 2 div w 0 0 h neg w neg 0 0 h w 2 div h 2 div
+ /ArrowA { moveto } def
+ /ArrowB { } def
+ false Line
+ closepath mtrx setmatrix } def
+%
+/Triangle {
+ /mtrx CM def
+ translate
+ rotate /h ED 2 div /w ED
+ dup CLW mul /d ED
+ /h h d w h Atan sin Div sub def
+ /w w d h w Atan 2 div dup cos exch sin Div mul sub def
+ mark
+ 0 d w neg d 0 h w d 0 d
+ /ArrowA { moveto } def
+ /ArrowB { } def
+ false
+ Line
+ closepath
+ mtrx
+% DG/SR modification begin - Jun. 1, 1998 - Patch 3 (from Michael Vulis)
+% setmatrix } def
+ setmatrix pop
+} def
+% DG/SR modification end
+%
+/CCA {
+ /y ED /x ED
+ 2 copy y sub /dy1 ED
+ x sub /dx1 ED
+ /l1 dx1 dy1 Pyth def
+} def
+%
+/CC {
+ /l0 l1 def
+ /x1 x dx sub def
+ /y1 y dy sub def
+ /dx0 dx1 def
+ /dy0 dy1 def
+ CCA
+ /dx dx0 l1 c exp mul dx1 l0 c exp mul add def
+ /dy dy0 l1 c exp mul dy1 l0 c exp mul add def
+ /m dx0 dy0 Atan dx1 dy1 Atan sub 2 div cos abs b exp a mul dx dy Pyth Div 2 div def
+ /x2 x l0 dx mul m mul sub def
+ /y2 y l0 dy mul m mul sub def
+ /dx l1 dx mul m mul neg def
+ /dy l1 dy mul m mul neg def
+} def
+%
+/IC {
+ /c c 1 add def
+ c 0 lt { /c 0 def } { c 3 gt { /c 3 def } if } ifelse
+ /a a 2 mul 3 div 45 cos b exp div def
+ CCA
+ /dx 0 def
+ /dy 0 def
+} def
+%
+/BOC { IC CC x2 y2 x1 y1 ArrowA CP 4 2 roll x y curveto } def
+/NC { CC x1 y1 x2 y2 x y curveto } def
+/EOC { x dx sub y dy sub 4 2 roll ArrowB 2 copy curveto } def
+/BAC { IC CC x y moveto CC x1 y1 CP ArrowA } def
+/NAC { x2 y2 x y curveto CC x1 y1 } def
+/EAC { x2 y2 x y ArrowB curveto pop pop } def
+%
+/OpenCurve {
+ NArray n 3 lt
+ { n { pop pop } repeat }
+ { BOC /n n 3 sub def n { NC } repeat EOC } ifelse
+} def
+%
+/CurvePath {
+ %% for negative SymStep we calculate the distance
+ SymStep 0 lt { gsave PathLength SymStep div abs /SymStep ED grestore } if
+ 0.5 setflat
+ flattenpath /z 0 def /z0 0 def
+ { /y1 ED /x1 ED /y2 y1 def /x2 x1 def
+ x1 Shift sub y1 Shift sub moveto
+ gsave
+ curveticks
+ { x1 y1 translate startAngle rotate
+ 0 SymbolWidth 2 div moveto 0 SymbolWidth 2 div neg lineto
+ SymbolLinewidth setlinewidth stroke
+ }
+ { startAngle rotate Symbol show }
+ ifelse
+ grestore /z0 z def }
+ { /y ED /x ED PathLength@ z z0 sub SymStep ge {
+ x Shift sub y Shift sub moveto
+ gsave
+ curveticks
+ { y yOld sub x xOld sub Atan 180 sub CorrAngle sub /rotAngle ED
+ x y translate rotAngle rotate
+ 0 SymbolWidth 2 div moveto 0 SymbolWidth 2 div neg lineto
+ SymbolLinewidth setlinewidth stroke
+ }
+ {
+ rotateSymbol { y yOld sub x xOld sub Atan 180 sub CorrAngle sub rotate } if
+ Symbol show
+ }
+ ifelse
+ grestore /z0 z def } if
+ /yOld y def /xOld x def }
+ {} %% the lineto part
+ { /y y2 def /x x2 def PathLength@
+ x Shift sub y Shift sub moveto
+ gsave
+ curveticks
+ { y yOld sub x xOld sub Atan 180 sub /rotAngle ED
+ x y translate rotAngle rotate
+ 0 SymbolWidth 2 div moveto 0 SymbolWidth 2 div neg lineto
+ SymbolLinewidth setlinewidth stroke
+ }
+ {
+ x Shift sub y Shift sub moveto
+ rotateSymbol { y yOld sub x xOld sub Atan 180 sub CorrAngle sub rotate } if
+ Symbol show
+ }
+ ifelse
+ grestore
+ }
+ pathforall
+% curveticks
+% { gsave
+% x y translate rotAngle rotate
+% 0 SymbolWidth 2 div moveto 0 SymbolWidth 2 div neg lineto
+% SymbolLinewidth setlinewidth stroke grestore
+% } if
+ z
+} def
+%
+/OpenSymbolCurve {
+ OpenCurve
+ 0.1 setflat
+ /Shift Symbol stringwidth pop 2 div def
+ CurvePath
+} def
+%
+/AltCurve {
+ { false NArray n 2 mul 2 roll
+ [ n 2 mul 3 sub 1 roll ] aload
+ /Points ED
+ n 2 mul -2 roll }
+ { false NArray } ifelse
+ n 4 lt { n { pop pop } repeat } { BAC /n n 4 sub def n { NAC } repeat EAC } ifelse
+} def
+%
+/AltOpenSymbolCurve {
+ AltCurve
+ 0.1 setflat
+ /Shift Symbol stringwidth pop 2 div def
+ CurvePath
+} def
+%
+/ClosedCurve {
+ NArray n 3 lt
+ { n { pop pop } repeat }
+ { n 3 gt { CheckClosed } if
+ 6 copy n 2 mul 6 add 6 roll
+ IC CC x y moveto n { NC } repeat
+ closepath pop pop
+ } ifelse
+} def
+%
+/ClosedSymbolCurve {
+ ClosedCurve
+ 0.1 setflat
+ /Shift Symbol stringwidth pop 2 div def
+ CurvePath
+} def
+%
+/SQ { /r ED r r moveto r r neg L r neg r neg L r neg r L fill } def
+/ST { /y ED /x ED x y moveto x neg y L 0 x L fill } def
+/SP { /r ED gsave 0 r moveto 4 { 72 rotate 0 r L } repeat fill grestore } def
+%
+/FontDot {
+ DS 2 mul dup
+ matrix scale matrix concatmatrix exch matrix
+ rotate matrix concatmatrix exch
+ findfont exch makefont setfont
+} def
+%
+/Rect {
+ x1 y1 y2 add 2 div moveto
+ x1 y2 lineto
+ x2 y2 lineto
+ x2 y1 lineto
+ x1 y1 lineto
+ closepath
+} def
+%
+/OvalFrame {
+ x1 x2 eq y1 y2 eq or
+ { pop pop x1 y1 moveto x2 y2 L }
+ { y1 y2 sub abs x1 x2 sub abs 2 copy gt
+ { exch pop } { pop } ifelse
+ 2 div exch { dup 3 1 roll mul exch } if
+ 2 copy lt { pop } { exch pop } ifelse
+ /b ED
+ x1 y1 y2 add 2 div moveto
+ x1 y2 x2 y2 b arcto
+ x2 y2 x2 y1 b arcto
+ x2 y1 x1 y1 b arcto
+ x1 y1 x1 y2 b arcto
+ 16 { pop } repeat
+ closepath
+ } ifelse
+} def
+%
+/Frame {
+ CLW mul /a ED
+ 3 -1 roll
+ 2 copy gt { exch } if
+ a sub /y2 ED
+ a add /y1 ED
+ 2 copy gt { exch } if
+ a sub /x2 ED
+ a add /x1 ED
+ 1 index 0 eq { pop pop Rect } { OvalFrame } ifelse
+} def
+%
+/BezierNArray {
+ /f ED
+ counttomark 2 div dup cvi /n ED
+ n eq not { exch pop } if
+ n 1 sub neg 3 mod 3 add 3 mod { 0 0 /n n 1 add def } repeat
+ f { ] aload /Points ED } { n 2 mul 1 add -1 roll pop } ifelse
+} def
+%
+/OpenBezier {
+ BezierNArray
+ n 1 eq
+ { pop pop }
+ { ArrowA n 4 sub 3 idiv
+ { 6 2 roll 4 2 roll curveto } repeat
+ 6 2 roll 4 2 roll ArrowB curveto } ifelse
+} def
+%
+/OpenSymbolBezier {
+ OpenBezier
+ 0.1 setflat
+ /Shift Symbol stringwidth pop 2 div def
+ CurvePath
+} def
+%
+/ClosedBezier {
+ BezierNArray
+ n 1 eq
+ { pop pop }
+ { moveto n 1 sub 3 idiv
+ { 6 2 roll 4 2 roll curveto } repeat
+ closepath } ifelse
+} def
+%
+/ClosedSymbolBezier {
+ /f ED % save showpoints value
+ 2 copy /yEnd ED /xEnd ED
+ counttomark -2 roll 2 copy /yStart ED /xStart ED
+ counttomark 2 roll
+ f
+ ClosedBezier
+ 0.1 setflat
+ /Shift Symbol stringwidth pop 2 div def
+ CurvePath
+ [ xEnd yEnd xStart yStart SymbolLine
+} def
+%
+/BezierShowPoints {
+ gsave
+ Points aload length 2 div cvi /n ED
+ moveto
+ n 1 sub { lineto } repeat
+ CLW 2 div SLW [ 4 4 ] 0 setdash stroke
+ grestore
+} def
+%
+/Parab {
+ /y0 ED /x0 ED /y1 ED /x1 ED
+ /dx x0 x1 sub 3 div def
+ /dy y0 y1 sub 3 div def
+ x0 dx sub y0 dy add x1 y1 ArrowA
+ x0 dx add y0 dy add x0 2 mul x1 sub y1 ArrowB
+ curveto
+ /Points [ x1 y1 x0 y0 x0 2 mul x1 sub y1 ] def
+} def
+%
+/Parab1 { % 1 end | 0 SP
+ /ySP ED /xSP ED /y1 ED /x1 ED
+ /dx xSP x1 sub 3 div def
+ /dy ySP y1 sub 3 div def
+ newpath x1 y1 moveto xSP y1 lineto xSP ySP lineto
+ x1 ySP lineto closepath clip
+ currentpoint
+ newpath moveto
+ xSP dx sub ySP dy add x1 y1 ArrowA
+ xSP dx add ySP dy add xSP 2 mul x1 sub y1 ArrowB
+ curveto
+ /Points [ x1 y1 xSP ySP xSP 2 mul x1 sub y1 ] def
+} def
+%
+/Grid {
+ newpath
+ /a 4 string def
+ /b ED % psk@gridlabels in pt
+ /c ED % { \pst@usecolor\psgridlabelcolor }
+ /n ED % psk@griddots
+ cvi dup 1 lt { pop 1 } if
+ /s ED % \psk@subgriddiv
+ s div dup 0 eq { pop 1 } if
+ /dy ED s div dup 0 eq { pop 1 } if % \pst@number\psyunit abs
+ /dx ED dy div round dy mul % \pst@number\psxunit abs
+ /y0 ED dx div round dx mul
+ /x0 ED dy div round cvi
+ /y2 ED dx div round cvi
+ /x2 ED dy div round cvi
+ /y1 ED dx div round cvi
+ /x1 ED
+ /h y2 y1 sub 0 gt { 1 } { -1 } ifelse def
+ /w x2 x1 sub 0 gt { 1 } { -1 } ifelse def
+ b 0 gt {
+ /z1 b 4 div CLW 2 div add def
+% /Helvetica findfont b scalefont setfont
+ /b b .95 mul CLW 2 div add def } if
+ systemdict /setstrokeadjust known
+ { true setstrokeadjust /t { } def }
+ { /t { transform 0.25 sub round 0.25 add exch 0.25 sub round 0.25 add
+ exch itransform } bind def } ifelse
+ gsave n 0 gt { 1 setlinecap [ 0 dy n div ] dy n div 2 div setdash } { 2 setlinecap } ifelse
+ /i x1 def
+ /f y1 dy mul n 0 gt { dy n div 2 div h mul sub } if def
+ /g y2 dy mul n 0 gt { dy n div 2 div h mul add } if def
+ x2 x1 sub w mul 1 add dup 1000 gt { pop 1000 } if
+ { i dx mul dup y0 moveto
+ b 0 gt
+ { gsave c i a cvs dup stringwidth pop
+ /z2 ED w 0 gt {z1} {z1 z2 add neg} ifelse
+ h 0 gt {b neg}{z1} ifelse
+ rmoveto show grestore } if
+ dup t f moveto
+ g t L stroke
+ /i i w add def
+ } repeat
+ grestore
+ gsave
+ n 0 gt
+ % DG/SR modification begin - Nov. 7, 1997 - Patch 1
+ %{ 1 setlinecap [ 0 dx n div ] dy n div 2 div setdash }
+ { 1 setlinecap [ 0 dx n div ] dx n div 2 div setdash }
+ % DG/SR modification end
+ { 2 setlinecap } ifelse
+ /i y1 def
+ /f x1 dx mul n 0 gt { dx n div 2 div w mul sub } if def
+ /g x2 dx mul n 0 gt { dx n div 2 div w mul add } if def
+ y2 y1 sub h mul 1 add dup 1000 gt { pop 1000 } if
+ { newpath i dy mul dup x0 exch moveto
+ b 0 gt { gsave c i a cvs dup stringwidth pop
+ /z2 ED
+ w 0 gt {z1 z2 add neg} {z1} ifelse
+ h 0 gt {z1} {b neg} ifelse
+ rmoveto show grestore } if
+ dup f exch t moveto
+ g exch t L stroke
+ /i i h add def
+ } repeat
+ grestore
+} def
+%
+/ArcArrow {
+ /d ED /b ED /a ED
+ gsave
+ newpath 0 -1000 moveto clip
+ newpath
+ 0 1 0 0 b
+ grestore
+ c mul
+ /e ED
+ pop pop pop r a e d PtoC y add exch x add
+ exch r a PtoC y add exch x add exch b pop pop pop pop a e d CLW 8 div c
+ mul neg d
+} def
+%
+/Ellipse {
+ /rotAngle ED
+ /mtrx CM def
+ T
+ rotAngle rotate
+ scale 0 0 1 5 3 roll arc
+ mtrx setmatrix
+} def
+%
+/ArcAdjust { %%%% Vincent Guirardel
+% given a target length (targetLength) and an initial angle (angle0) [in the stack],
+% let M(angle0)=(rx*cos(angle0),ry*sin(angle0))=(x0,y0).
+% This computes an angle t such that (x0,y0) is at distance
+% targetLength from the point M(t)=(rx*cos(t),ry*sin(t)).
+% NOTE: this an absolute angle, it does not have to be added or substracted to angle0
+% contrary to TvZ's code.
+% To achieve, this, one iterates the following process: start with some angle t,
+% compute the point M' at distance targetLength of (x0,y0) on the semi-line [(x0,y0) M(t)].
+% Now take t' (= new angle) so that (0,0) M(t') and M' are aligned.
+%
+% Another difference with TvZ's code is that we need d (=add/sub) to be defined.
+% the value of d = add/sub is used to know on which side we have to move.
+% It is only used in the initialisation of the angle before the iteration.
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Input stack: 1: target length 2: initial angle
+% variables used : rx, ry, d (=add/sub)
+%
+ /targetLength ED /angle0 ED
+ /x0 rx angle0 cos mul def
+ /y0 ry angle0 sin mul def
+% we are looking for an angle t such that (x0,y0) is at distance targetLength
+% from the point M(t)=(rx*cos(t),ry*sin(t)))
+%initialisation of angle (using 1st order approx = TvZ's code)
+ targetLength 57.2958 mul
+ angle0 sin rx mul dup mul
+ angle0 cos ry mul dup mul
+ add sqrt div
+% if initialisation angle is two large (more than 90 degrees) set it to 90 degrees
+% (if the ellipse is very curved at the point where we draw the arrow, %
+% the value can be much more than 360 degrees !)
+% this should avoid going on the wrong side (more than 180 degrees) or go near
+% a bad attractive point (at 180 degrees)
+ dup 90 ge { pop 90 } if
+ angle0 exch d % add or sub
+% maximum number of times to iterate the iterative procedure:
+% iterative procedure: takes an angle t on top of stack, computes a
+% better angle (and put it on top of stack)
+ 30 { dup
+% compute distance D between (x0,y0) and M(t)
+ dup cos rx mul x0 sub dup mul exch sin ry mul y0 sub dup mul add sqrt
+% if D almost equals targetLength, we stop
+ dup targetLength sub abs 1e-5 le { pop exit } if
+% stack now contains D t
+% compute the point M(t') at distance targetLength of (x0,y0) on the semi-line [(x0,y0) M(t)]:
+% M(t')= ( (x(t)-x0)*targetLength/d+x0 , (y(t)-y0)*targetLength/d+y0 )
+ exch dup cos rx mul x0 sub exch sin ry mul y0 sub
+% stack contains: y(t)-y0, x(t)-x0, d
+ 2 index Div targetLength mul y0 add ry Div exch
+ 2 index Div targetLength mul x0 add rx Div
+% stack contains x(t')/rx , y(t')/ry , d
+% now compute t', and remove D from stack
+ atan exch pop
+ } repeat
+% we don't look at what happened... in particular, if targetLength is greater
+% than the diameter of the ellipse...
+% the final angle will be around /angle0 + 180. maybe we should treat this pathological case...
+% after iteration, stack contains an angle t such that M(t) is the tail of the arrow
+% to give back the result as a an angle relative to angle0 we could add the following line:
+% angle0 sub 0 exch d
+%
+% begin bug fix 2006-01-11
+% we want to adjust the new angle t' by a multiple of 360 so that | t'-angle0 | <= 180
+%(we don't want to make the ellipse turn more or less than it should)...
+dup angle0 sub dup abs 180 gt { 180 add 360 div floor 360 mul sub } { pop } ifelse
+% end bug fix
+} def
+%
+/EllipticArcArrow {
+ /d ED % is add or sub
+ /b ED % arrow procedure
+ /a1 ED % angle
+ gsave
+ newpath
+ 0 -1000 moveto
+ clip % Set clippath far from arrow.
+ newpath
+ 0 1 0 0 b % Draw arrow to determine length.
+ grestore
+% Length of arrow is on top of stack. Next 3 numbers are junk.
+%
+ a1 exch ArcAdjust % Angular position of base of arrow.
+ /a2 ED
+ pop pop pop
+ a2 cos rx mul xOrig add % hv 2007-08-29 x->xOrig
+ a2 sin ry mul yOrig add % hv 2007-08-29 y->yOrig
+ a1 cos rx mul xOrig add %
+ a1 sin ry mul yOrig add %
+% Now arrow tip coor and base coor are on stack.
+ b pop pop pop pop % Draw arrow, and discard coordinates.
+ a2 CLW 8 div
+% change value of d (test it by looking if `` 1 1 d '' gives 2 or not )
+ 1 1 d 2 eq { /d { sub } def } { /d { add } def } ifelse
+ ArcAdjust
+% resets original value of d
+ 1 1 d 2 eq { /d { sub } def } { /d { add } def } ifelse % Adjust angle to give overlap.
+} def
+%%------------------ tvz/DG/hv (2004-05-10) end -------------------%%
+%
+/Rot { CP CP translate 3 -1 roll neg rotate NET } def
+%
+/RotBegin {
+ tx@Dict /TMatrix known not { /TMatrix { } def /RAngle { 0 } def } if
+ /TMatrix [ TMatrix CM ] cvx def
+ /a ED
+ a Rot /RAngle [ RAngle dup a add ] cvx def
+} def
+%
+/RotEnd {
+ /TMatrix [ TMatrix setmatrix ] cvx def
+ /RAngle [ RAngle pop ] cvx def
+} def
+%
+/PutCoor { gsave CP T CM STV exch exec moveto setmatrix CP grestore } def
+/PutBegin { /TMatrix [ TMatrix CM ] cvx def CP 4 2 roll T moveto } def
+/PutEnd { CP /TMatrix [ TMatrix setmatrix ] cvx def moveto } def
+%
+/Uput {
+ /a ED
+ add 2 div /h ED 2
+ div /w ED
+ /s a sin def
+ /c a cos def
+ /b s abs c abs 2 copy gt dup
+ /q ED
+ { pop } { exch pop } ifelse def
+ /w1 c b div w mul def
+ /h1 s b div h mul def
+ q { w1 abs w sub dup c mul abs }{ h1 abs h sub dup s mul abs } ifelse
+} def
+%
+/UUput {
+ /z ED
+ abs /y ED
+ /x ED
+ q { x s div c mul abs y gt }{ x c div s mul abs y gt } ifelse
+ { x x mul y y mul sub z z mul add sqrt z add }
+ { q { x s div } { x c div } ifelse abs
+ } ifelse
+ a PtoC
+ h1 add exch
+ w1 add exch
+} def
+%
+/BeginOL {
+ dup (all) eq exch TheOL eq or
+ { IfVisible not { Visible /IfVisible true def } if }
+ { IfVisible { Invisible /IfVisible false def } if } ifelse
+} def
+%
+/InitOL {
+ /OLUnit [ 3000 3000 matrix defaultmatrix dtransform ] cvx def
+ /Visible { CP OLUnit idtransform T moveto } def
+ /Invisible { CP OLUnit neg exch neg exch idtransform T moveto } def
+ /BOL { BeginOL } def
+ /IfVisible true def
+} def
+%
+end
+%-----------------------------------------------------------------------------%
+%
+% END pstricks.pro
+
+%%EndProcSet
+%%BeginProcSet: pst-algparser.pro 0 0
+% $Id: pst-algparser.pro 801 2013-07-09 18:10:41Z herbert $
+%%
+%% PostScript prologue for PSTricks algorithm parser
+%% Version 0.04, 2011/10/21
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%%
+%%-----------------------------------------------------------------------------%
+%
+/AlgParser { tx@AlgToPs begin AlgToPs end } def % Dominique Rodriguez
+%
+/tx@CoreAnalyzerDict 100 dict def tx@CoreAnalyzerDict begin
+%
+% PS ANALYZER FOR ALGEBRAIC EXPRESSION V1.13
+%
+% 09/2011 DR factorial with ! added
+%
+% E->T|E+T
+% T->FS|T*FS
+% FS -> F | +FS | -FS
+% F->P|F^SF|P!
+% P->(E)|literal
+% literal->number|var|var[E]|func(params)
+% params->E|E,param
+% number->TOBEFINISHED
+%
+%% E expression, T term, SF signed factor, F factor, P power
+%
+%% parser
+%
+%% str
+%
+%% C->E<condition_operators>E
+%% STR index -> STR index+lenExpr
+/AnalyzeCond { AnalyzeExpr ReadCondOp AnalyzeExpr EvalCondOp } def
+%
+%% analyze Expression List (separator , or | )
+%% STR index -> STR index+lenExpr
+%% /AnalyzeListOfE {
+%% { NextNonBlankChar pop AnalyzeExpr%%dup Strlen eq { exit } if NextNonBlankChar
+%% NextNonBlankChar dup 0 eq { pop exit } if
+%% dup 44 ne 1 index 124 ne and { dup 41 ne { PROBLEMCONTACTBILLOU } { pop exit } ifelse } if
+%% pop NextNonBlankChar dup 0 eq { exit } if 124 ne { PROBLEMCONTACTBILLOU } if 1 add NextNonBlankChar 0 eq {toto} if } loop
+%% AnalyzeListOfEPostHook
+%% } def
+/AnalyzeListOfE {
+ /NotFirst false def
+ { NextNonBlankChar pop AnalyzeExpr
+ NotFirst { EvalListOfExpr } { /NotFirst true def } ifelse
+ dup Strlen eq { exit } if NextNonBlankChar
+ dup 44 ne 1 index 124 ne and
+ { dup 41 ne { PROBLEMCONTACTBILLOU } { pop exit } ifelse }
+ if pop 1 add } loop
+ AnalyzeListOfEPostHook
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% E->T|E+T
+%% STR index -> STR index+lenExpr
+/AnalyzeExpr {
+ AnalyzePreHook AnalyzeTerm IsEndingExpr
+ { dup 0 ne { 32 eq { NextNonBlankChar } if } { pop } ifelse }
+ { { RollOp 1 add NextNonBlankChar pop AnalyzeTerm PreEvalHook EvalAddSub IsEndingExpr { pop exit } if } loop }
+ ifelse
+ AnalyzePostHook
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% T->FS|T*FS
+%% STR index
+/AnalyzeTerm {
+ AnalyzePreHook AnalyzeSignedFactor IsEndingTerm
+ { dup 0 ne { 32 eq { NextNonBlankChar } if } { pop } ifelse }
+ { { RollOp 1 add NextNonBlankChar pop AnalyzeSignedFactor PreEvalHook EvalMulDiv IsEndingTerm { pop exit } if} loop }
+ ifelse
+ AnalyzePostHook
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% FS -> F | +FS | -FS
+%% STR index
+/AnalyzeSignedFactor {
+ AnalyzePreHook 2 copy get dup IsUnaryOp
+ { RollOp 1 add NextNonBlankChar pop AnalyzeSignedFactor EvalUnaryOp }
+ { pop AnalyzeFactor }
+ ifelse AnalyzePostHook
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% F->P|F^P|P!
+%% STR index
+/AnalyzeFactor {
+ AnalyzePreHook AnalyzePower IsEndingFactor
+ { dup 0 ne { 32 eq { NextNonBlankChar } if } { pop } ifelse }
+ { { dup 33 eq%% is there a ! DR 09/2011
+ { pop 1 add NextNonBlankChar pop EvalFactorial }
+ { RollOp 1 add NextNonBlankChar pop AnalyzePower PreEvalHook EvalPower }
+ ifelse
+ IsEndingFactor { pop exit } if } loop }
+ ifelse AnalyzePostHook
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% P->(E)|literal
+%% STR index
+/AnalyzePower {
+ %% depending of first char either a number, or a literal
+ 2 copy get dup 40 eq%%an open par
+ { pop 1 add NextNonBlankChar pop AnalyzeExpr 1 add NextNonBlankChar pop }
+ { AnalyzeLiteral }
+ ifelse
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% STR index STR[index] -> STR index
+%/AnalyzeLiteral { IsNumber { EvalNumber } { EvalLiteral } ifelse } def
+/AnalyzeLiteral { dup IsUnaryOp exch IsNumber or { EvalNumber } { EvalLiteral } ifelse } def%%dr 09102006
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% recognize + or -
+%% chr -> T/F
+/IsUnaryOp { dup 43 eq exch 45 eq or } bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% a number can contain only : 0123456789.
+%% chr -> T/F
+/IsNumber { dup 48 ge exch dup 57 le 3 -1 roll and exch 46 eq or } bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% STR index -> STR index number
+%% a number can be of the form [0-9]*.[0-9]*\([eE][+-]?[0-9]+\)?
+%% STR index -> STR index' number
+/ReadNumber {
+ exch dup 3 -1 roll dup 3 1 roll
+ %%read mantissa
+ { 1 add 2 copy dup Strlen eq { pop pop 0 exit } if get dup IsNumber not { exit } if pop } loop
+ dup 101 eq exch 69 eq or
+ %%% there is a "e" or "E" -> read exponant
+ { 1 add 2 copy get dup IsUnaryOp
+ { pop 1 add 2 copy get } if
+ { IsNumber not { exit } if 1 add 2 copy get } loop }
+ if
+ dup 4 1 roll
+ 3 -1 roll exch 1 index sub getinterval
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% a number can contain only : 0123456789.
+%% chr -> T/F
+/IsCondOp { dup 30 eq exch dup 60 ge exch 62 le and or } bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% STR index -> STR index number
+%% a number can be of the form [0-9]*.[0-9]*\([eE][+-]?[0-9]+\)?
+%% STR index -> STR index' number
+/ReadCondOp {
+ NextNonBlankChar 1 index 4 1 roll
+ { IsCondOp not { exit } if 1 add 2 copy get } loop
+ 2 copy 5 -1 roll
+ exch 1 index sub getinterval 3 1 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% a literal can contain only : 0123456789.
+%% chr -> T/F
+/IsLiteral {%
+ dup 48 ge exch dup 57 le 3 -1 roll and exch
+ dup 65 ge exch dup 90 le 3 -1 roll and 3 -1 roll or exch
+ dup 97 ge exch 122 le and or } bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% a literal can be of the form [a-zA-Z][a-zA-Z0-9]*\(\((Expression)\)|\(\[Expression\]\)\)?
+%% STR index -> literal STR index' nextchr
+/ReadLiteral {
+ exch dup 3 -1 roll dup 3 1 roll
+ %%read literal core
+ { 2 copy dup Strlen eq { pop pop 0 exit } if get dup IsLiteral not { exit } if pop 1 add } loop
+ 4 1 roll dup 5 1 roll 3 -1 roll exch 1 index sub getinterval 4 1 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% expr is ended by end of str or a clpar
+%% STR index -> STR index STR[index] T/F
+/IsEndingExpr {%
+ 2 copy dup Strlen eq
+ %% if end of str is reached -> end !
+ { pop pop 0 true }
+ %% ending chr -> clpar, comma, |, <, >, =, !,
+ {get dup dup 41 eq
+ exch dup 124 eq
+ exch dup 93 eq
+ exch dup 44 eq
+ exch dup 30 eq
+ exch dup 60 ge exch 62 le and or or or or or}
+ ifelse } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% expr is ended by end of str or a +-
+%% STR index -> STR index STR[index] T/F
+/IsEndingTerm { IsEndingExpr { true } { dup dup 43 eq exch 45 eq or } ifelse } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% expr is ended by end of str or */
+%% STR index -> STR index STR[index] T/F
+/IsEndingFactor { IsEndingTerm { true } { dup dup 42 eq exch 47 eq or } ifelse } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% expr is ended by end of str or ^
+%% STR index -> STR index STR[index] T/F
+/IsEndingPower { IsEndingFactor { true } { dup 94 eq } ifelse } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% STR index -> STR index STR[index]
+/NextNonBlankChar { { dup Strlen eq { 0 exit } if 2 copy get dup neBlkChar { exit } if pop 1 add } loop } bind def
+/neBlkChar { dup 32 ne exch dup 10 ne exch 9 ne and and } bind def
+%%%%%%%%%%%%%%%%%%%%%%%%
+%% DEBUG
+/BRK {false} def
+/BRKtrue {/BRK true def} def
+/BRKStop {BRK {BRKtoto} if } def
+/BRKEvalStop {BRK exch if } def
+/BRKBRK2true {BRK {BRK2true} if } def
+/BRK2 {false} def
+/BRK2true {/BRK2 true def} def
+/BRK2Stop {BRK2 {BRK2toto} if } def/BRK {false} def
+end
+%
+%-------------------------------------------------------------------------------%
+%
+/tx@AlgToPs 12 dict def tx@AlgToPs begin
+%
+%% algExpr -> PSVector
+/AlgToPs { tx@CoreAnalyzerDict begin InitParser AnalyzeListOfE pop pop EndingSequence end } def
+/EndingSequence { ExpressionVector aload length /end cvx exch 1 add array astore } def
+/InitParser { /ExpressionVector [ /tx@AddMathFunc cvx /begin cvx ] def dup length /Strlen exch def 0 } def
+/Strlen 0 def
+/EvalListOfExpr {} def%
+/EvalNumber {%
+ ReadNumber cvr /ExpressionVector ExpressionVector aload length dup 3 add -1 roll cvx
+ exch 1 add array astore def NextNonBlankChar pop } def
+/EvalAddSub {%
+ /ExpressionVector ExpressionVector aload length dup 5 add -1 roll
+ 43 eq { /add } { /sub } ifelse cvx exch 1 add array astore def
+} def
+/EvalMulDiv {%
+ /ExpressionVector ExpressionVector aload length dup 5 add -1 roll
+ 42 eq { /mul } { /div } ifelse cvx exch 1 add array astore def
+} def
+/EvalPower {%
+ /ExpressionVector ExpressionVector aload length dup 5 add -1 roll
+ pop /exp cvx exch 1 add array astore def
+} def
+/EvalFactorial {% DR 09/2011
+ /ExpressionVector ExpressionVector aload length
+ /fact cvx exch 1 add array astore def
+} def
+/EvalLiteral {%
+ ReadLiteral
+ dup 40 eq%%% there is an open par -> function call
+ { pop 2 index
+ dup (Sum) eq { EvalSum }
+ { dup (IfTE) eq { EvalCond }
+ { dup (Derive) eq { pop EvalDerive }
+ { pop 1 add NextNonBlankChar pop AnalyzeListOfE 2 index TrigoFunc
+ /ExpressionVector ExpressionVector aload length dup 5 add -1 roll cvn cvx
+ exch 1 add array astore def 1 add NextNonBlankChar pop } ifelse } ifelse} ifelse }
+ { /ExpressionVector ExpressionVector aload length dup 6 add -1 roll cvn cvx exch 1 add array astore def
+ dup 91 eq%%% there is an open bracket -> vector element
+ { pop 1 add NextNonBlankChar pop AnalyzeExpr
+ /ExpressionVector ExpressionVector aload length /cvi cvx exch /get cvx exch 2 add array astore def 1 add }
+ { pop NextNonBlankChar pop }
+ ifelse}
+ ifelse
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% the derive function : Derive(n,f(x))
+%% firstparindex lastparindex ->
+/EvalDerive {
+ %% manage the function descripiton
+ 1 add ReadNumber 3 1 roll NextNonBlankChar
+ 44 ne { ANALYZER_ERROR_missing_second_comma_in_Sum } if
+ 1 add NextNonBlankChar pop
+ 3 -1 roll cvi
+ dup 0 eq
+ { pop AnalyzeExpr 3 -1 roll pop 1 add }
+ { 1 sub 3 1 roll (x) exch tx@Derive begin DeriveIndexed end 4 -1 roll
+ { (x) tx@Derive begin Derive end } repeat
+ ExpressionVector exch /ExpressionVector [] def
+ AlgToPs aload length
+ /ExpressionVector 1 index 3 add -1 roll aload length dup 3 add -1 roll /l2 exch def /l1 exch def
+ l1 l2 add 1 add l2 neg roll l1 l2 add array astore def 3 -1 roll pop 1 add
+ 1 index length /Strlen exch def } ifelse
+} def
+/EvalSum {%
+ pop 1 add NextNonBlankChar pop
+ %% read the variable name
+ ReadLiteral pop NextNonBlankChar
+ 44 ne { ANALYZER_ERROR_missing_first_comma_in_Sum } if
+ %% read the initial value
+ 1 add NextNonBlankChar pop ReadNumber cvi 3 1 roll
+ 2 copy get 44 ne { ANALYZER_ERROR_missing_second_comma_in_Sum } if
+ %% read the increment value
+ 1 add NextNonBlankChar pop ReadNumber cvi 3 1 roll
+ 2 copy get 44 ne { ANALYZER_ERROR_missing_second_comma_in_Sum } if
+ %% read the limit value
+ 1 add NextNonBlankChar pop ReadNumber cvi 3 1 roll
+ 2 copy get 44 ne { ANALYZER_ERROR_missing_second_comma_in_Sum } if
+ /ExpressionVector ExpressionVector aload length dup 7 add -3 roll 0 4 1 roll
+ 5 -1 roll 4 add array astore def
+ %% keep ExpressionVector for later and create a new one for internal Sum computation
+ ExpressionVector 3 1 roll /ExpressionVector [ 6 -1 roll cvn /exch cvx /def cvx ] def
+ 1 add NextNonBlankChar pop AnalyzeExpr
+ %% add each term
+ /ExpressionVector ExpressionVector aload length 1 add /add cvx exch array astore def
+ /ExpressionVector 4 -1 roll aload length ExpressionVector cvx /for cvx 3 -1 roll 2 add
+ array astore def 3 -1 roll pop 1 add
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Convert to radians if trigo function call
+%% (name) ->
+/TrigoFunc {
+ dup (cos) eq 1 index (sin) eq or exch (tan) eq or
+ { /ExpressionVector ExpressionVector aload length Pi /div cvx 180 /mul cvx 5 -1 roll 4 add
+ array astore def
+ } if
+} def
+/EvalCond {%
+ pop 1 add AnalyzeCond NextNonBlankChar
+ 44 ne { ANALYZER_ERROR_missing_first_comma_in_IfTE } if
+ ExpressionVector 3 1 roll /ExpressionVector [] def
+ 1 add AnalyzeExpr ExpressionVector 3 1 roll /ExpressionVector [] def
+ NextNonBlankChar 44 ne { ANALYZER_ERROR_missing_second_comma_in_IfTE } if
+ 1 add AnalyzeExpr
+ NextNonBlankChar 41 ne { ANALYZER_ERROR_missing_ending parenthesis_in_IfTE } if
+ ExpressionVector
+ /ExpressionVector 6 -1 roll aload length dup
+ 6 add -1 roll cvx exch dup 4 add -1 roll cvx /ifelse cvx 3 -1 roll 3 add array astore def
+ 1 add 3 -1 roll pop
+} def
+%% CondOp STR index
+/EvalCondOp {%
+ 3 -1 roll
+ dup (=) eq { /eq } {%
+ dup (<) eq { /lt } {%
+ dup (>) eq { /gt } {%
+ dup (>=) eq { /ge } {%
+ dup (<=) eq { /ge } {%
+ dup (!=) eq { /ne } { ERROR_non_valid_conditional_operator }
+ ifelse } ifelse } ifelse } ifelse } ifelse } ifelse
+ cvx exch pop
+ /ExpressionVector ExpressionVector aload length dup 3 add -1 roll exch 1 add array astore def } def
+/EvalUnaryOp {
+ 3 -1 roll 45 eq { /ExpressionVector ExpressionVector aload length /neg cvx exch 1 add array astore def } if
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% H O O K S
+/AnalyzePreHook {} bind def
+/PreEvalHook {} bind def
+/AnalyzeListOfEPostHook {} bind def
+/AnalyzePostHook {} def
+/RollOp { 3 1 roll } bind def
+end %tx@CoreAnalyzerDict
+%
+%--------------------------------------------------------------------%
+%
+/tx@Derive 41 dict def tx@Derive begin
+%%increase ^^ for each function added
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% algExpr variable -> PSVector
+/Derive {%
+ 10240 string 3 1 roll 0 3 1 roll
+ /Variable exch def
+ tx@CoreAnalyzerDict begin InitParser AnalyzeListOfE end
+} def
+/Strlen 0 def
+/InitParser { dup length /Strlen exch def 0 } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% algExpr variable index -> PSVector
+/DeriveIndexed {%
+ 3 1 roll 10240 string 3 1 roll 0 3 1 roll
+ /Variable exch def
+ tx@CoreAnalyzerDict begin InitParser pop 4 -1 roll AnalyzeExpr 4 -2 roll pop pop 4 -2 roll exch pop end
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (u,v)'=-(u',v')
+/EvalListOfExpr {%
+ 4 2 roll 2 copy 9 -1 roll dup length 4 1 roll putinterval add AddPipe
+ 2 copy 7 -1 roll dup length 4 1 roll putinterval add
+ 6 -2 roll pop pop
+ 2 copy pop 0 6 2 roll GetIntervalNewStr 5 1 roll 2 copy 0 exch getinterval 6 1 roll } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (-u)'=-(u')
+/EvalUnaryOp {
+ 4 -2 roll 4 index (0) eq
+ { (0) StrConcat 7 -1 roll pop }
+ { 7 -1 roll 45 eq
+ { AddSub AddOpPar true } { false } ifelse
+ 3 1 roll 5 index StrConcat 3 -1 roll { AddClPar } if } ifelse
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ 7 -2 roll pop pop 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (number)'=0
+/EvalNumber { ReadNumber (0) 6 2 roll } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (u+v)'=u'+v'
+/EvalAddSub {%
+ 7 index dup (0) eq
+ { pop true }%% du=0 nothing added
+ { dup length exch 5 index 5 index 3 -1 roll putinterval 4 -1 roll add 3 1 roll false }
+ ifelse
+ 5 index dup (0) eq
+ { pop { (0) } { 4 -2 roll 2 copy pop 0 6 2 roll GetIntervalNewStr } ifelse }%%dv=0
+ { exch
+ { 5 -2 roll 7 index 45 eq { AddSub } if false } %%nothing yet added
+ { 5 -2 roll 7 index 43 eq%%something yet added
+ { AddAdd false } { AddSub AddOpPar true } ifelse }
+ ifelse 11 1 roll
+ 3 -1 roll StrConcat 10 -1 roll { AddClPar } if
+ 2 copy pop 0 6 2 roll GetIntervalNewStr }
+ ifelse
+ mark 11 -5 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (u*v)' or (u/v)'
+/EvalMulDiv { 6 index 42 eq {EvalMul} {EvalDiv} ifelse } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (u*v)'=u'*v+u*v'
+/EvalMul {%
+ 4 -2 roll 7 index dup (0) eq
+ { pop false }%%du=0
+ { (1) eq%%du=1
+ { false }
+ { AddOpPar 7 index StrConcat AddClPar AddMul AddOpPar true } ifelse
+ 3 1 roll 6 index StrConcat 3 -1 roll { AddClPar } if
+ true }%%du!=0
+ ifelse
+ 5 1 roll 5 index (0) eq
+ { 5 -1 roll not { (0) StrConcat } if }%%dv=0
+ { 5 -1 roll { AddAdd } if
+ 4 index (1) eq
+ { 8 index StrConcat }
+ { AddOpPar 8 index StrConcat AddClPar AddMul AddOpPar 4 index StrConcat AddClPar }
+ ifelse
+ }%%dv!=0
+ ifelse
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ mark 11 -5 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (u/v)'=(u'*v-u*v')/v^2
+/EvalDiv {%
+ 4 -2 roll
+ 4 index (0) eq%%dv=0 -> u'/v
+ { 7 index (0) eq { (0) StrConcat } { AddOpPar 7 index StrConcat AddClPar AddDiv 5 index StrConcat } ifelse }
+ { 7 index dup (0) eq
+ { pop }%%du=0
+ { (1) eq%%du=1
+ { false }
+ { AddOpPar 7 index StrConcat AddClPar AddMul AddOpPar true } ifelse
+ 3 1 roll 6 index StrConcat 3 -1 roll { AddClPar } if}%%du!=0
+ ifelse
+ AddSub
+ 4 index (1) eq
+ { 8 index StrConcat }
+ { AddOpPar 8 index StrConcat AddClPar AddMul AddOpPar 4 index StrConcat AddClPar }
+ ifelse
+ %}%%dv!=0
+ 2 copy GetIntervalNewStr 3 1 roll pop 0 AddOpPar 3 -1 roll StrConcat AddClPar
+ AddDiv AddOpPar 5 index StrConcat AddClPar 2 copy (^2) putinterval 2 add }
+ ifelse
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ mark 11 -5 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% str1 index str2 -> str1 index
+/StrConcat { dup length 4 2 roll 2 copy 6 -1 roll putinterval 3 -1 roll add } bind def
+/GetIntervalNewStr { 0 exch getinterval dup length string copy } bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (u^v)'=(u^v)'=u'vu^(v-1)+v'u^(v)ln(u)
+/EvalPower {%
+ 4 -2 roll 7 index (0) eq
+ {%%if du=0 then (u^v)'=v'ln(u)u^v
+ 4 index (0) eq
+ { (0) StrConcat }%%if dv=0 then (u^v)'=0
+ { 4 index (1) ne { AddOpPar 4 index StrConcat (\)*) StrConcat } if
+ 8 index (e) ne { (ln\() StrConcat 8 index StrConcat (\)*) StrConcat } if
+ AddOpPar 8 index StrConcat (\)^\() StrConcat 5 index StrConcat AddClPar } ifelse
+ }
+ {%%du!=0
+ 4 index (0) eq
+ {%%if dv=0 then (u^v)'=vu'u^(v-1)
+ 5 index dup IsStrNumber
+ { dup (0) eq
+ { StrConcat }
+ { dup dup (1) eq exch (1.0) eq or
+ { StrConcat }
+ { StrConcat
+ 7 index dup (1) ne exch (1.0) ne and%%%dr 09102006 insert du if <> 1
+ { (*\() StrConcat 7 index StrConcat (\)) StrConcat } if%%%dr 09102006
+ (*\() StrConcat 8 index StrConcat (\)) StrConcat
+ 5 index dup dup (2) eq exch (2.0) eq or
+ { pop } { cvr 1 sub 20 string cvs 3 1 roll (^) StrConcat 3 -1 roll StrConcat } ifelse } ifelse } ifelse }
+ { pop AddOpPar 5 index StrConcat (\)*\() StrConcat 8 index StrConcat (\)^\() StrConcat
+ 5 index StrConcat (-1\)) StrConcat } ifelse
+ }
+ {%%if dv!=0 and du!=0 then (u^v)'=u'vu^(v-1)+v'u^(v)ln(u)
+ 7 index (1) ne { AddOpPar 7 index StrConcat (\)*) StrConcat } if
+ AddOpPar 5 index StrConcat (\)*\() StrConcat
+ 8 index StrConcat (\)^\() StrConcat
+ 5 index StrConcat (-1\)+\() StrConcat
+ 4 index (1) ne { 4 index StrConcat (\)*\() StrConcat } if
+ 8 index StrConcat (\)^\() StrConcat
+ 5 index StrConcat (\)*ln\() StrConcat
+ 8 index StrConcat AddClPar
+ } ifelse
+ } ifelse
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ mark 11 -5 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% No derivative for factorial ! only cst => null derivative
+/EvalFactorial {% DR 09/2011
+ 4 index (0) eq
+ { (0) mark 8 -2 roll cleartomark 2 index 7 index dup 4 index exch sub getinterval exch 6 2 roll }
+ { DERIVATIVE_ENGINE_ERROR_no_variable_in_factorial } ifelse
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% str -> true/false
+/IsStrNumber {%
+ true exch
+ { dup 48 lt exch dup 57 gt 3 -1 roll or
+ exch dup 46 ne%%.
+ exch dup 43 ne%%+
+ exch 45 ne%%-
+ and and and { pop false } if } forall
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% literal switch -> func call, vector, variables
+/EvalLiteral {%
+ ReadLiteral dup 40 eq%%% there is an open par -> function call
+ { pop (EvalFunc_ ) 9 4 index StrConcat 0 exch getinterval cvn cvx exec }
+ { dup 91 eq%%% there is an open bracket -> vector element
+ { DERIVATIVE_ENGINE_ERROR_vector_not_yet_implemented }
+ { pop EvalVariable }
+ ifelse }
+ ifelse
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% first last parpos Expr[first:parpos-1] ->
+/EvalVariable { 2 index Variable eq { (1) } { (0) } ifelse 4 -1 roll exch 6 2 roll } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (f(u))'=u'f'(u)
+/EvalFunc {
+ 4 2 roll 4 index (1) ne
+ { AddOpPar 4 index StrConcat (\)*) StrConcat } if
+ (Eval ) 4 8 index StrConcat 0 exch getinterval cvn cvx exec
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ mark 9 -3 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Func derivative -> Eval<func>
+/EvalFunc_sin {%
+ PreCommonFunc
+ { (cos\() StrConcat 5 index StrConcat AddClPar } if
+ PostCommonFunc } def
+/EvalFunc_cos {%
+ PreCommonFunc
+ { (\(-sin\() StrConcat 5 index StrConcat (\)\)) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_tan {%
+ PreCommonFunc
+ { dup 0 eq { (1) StrConcat } { 1 sub } ifelse (/cos\() StrConcat 5 index StrConcat (\)^2) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_asin {%
+ PreCommonFunc
+ { (1/sqrt\(1-\() StrConcat 5 index StrConcat (\)^2\)\)) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_acos {%
+ PreCommonFunc
+ { (-1/sqrt\(1-\() StrConcat 5 index StrConcat (\)^2\)\)) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_atg {%
+ PreCommonFunc
+ { (1/\(1+\() StrConcat 5 index StrConcat (\)^2\)\)) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_ln {%
+ PreCommonFunc
+ { dup 0 eq { (1) StrConcat } { 1 sub } ifelse (/\() StrConcat 5 index StrConcat AddClPar } if
+ PostCommonFunc } def
+/EvalFunc_exp {%
+ PreCommonFunc
+ { (exp\() StrConcat 5 index StrConcat AddClPar } if
+ PostCommonFunc } def
+/EvalFunc_EXP {%
+ PreCommonFunc
+ { (EXP\() StrConcat 5 index StrConcat AddClPar } if
+ PostCommonFunc } def
+/EvalFunc_sqrt {%
+ PreCommonFunc
+ { dup 0 eq { (1) StrConcat } { 1 sub } ifelse (/\(2*sqrt\() StrConcat 5 index StrConcat (\)\)) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_Fact {%
+ PreCommonFunc { DERIVATIVE_ENGINE_ERROR_no_variable_expression_in_Fact } if
+ PostCommonFunc } def
+/EvalFunc_sh {%
+ PreCommonFunc
+ { (ch\() StrConcat 5 index StrConcat AddClPar } if
+ PostCommonFunc } def
+/EvalFunc_ch {%
+ PreCommonFunc
+ { (sh\() StrConcat 5 index StrConcat AddClPar } if
+ PostCommonFunc } def
+/EvalFunc_th {%
+ PreCommonFunc
+ { dup 0 eq { (1) StrConcat } { 1 sub } ifelse (/ch\() StrConcat 5 index StrConcat (\)^2) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_Argsh {%
+ PreCommonFunc
+ { (1/sqrt\(1+\() StrConcat 5 index StrConcat (\)^2\)\)) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_Argch {%
+ PreCommonFunc
+ { (1/sqrt\(\() StrConcat 5 index StrConcat (\)^2-1\)\)) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_Argth {%
+ PreCommonFunc
+ { (1/\(1-\() StrConcat 5 index StrConcat (\)^2\)\)) StrConcat } if
+ PostCommonFunc } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+/PreCommonFunc {
+ 1 add NextNonBlankChar pop 3 -1 roll 5 1 roll AnalyzeExpr 1 add NextNonBlankChar pop
+ 4 2 roll 4 index (0) eq
+ { (0) StrConcat false }
+ { 4 index (1) ne { AddOpPar 4 index StrConcat (\)*) StrConcat } if true } ifelse
+} def
+/PostCommonFunc {
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ mark 9 -3 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+/EvalFunc_Derive {%
+ 1 add ReadNumber cvi 1 add dup cvr log 1 add cvi string cvs
+ 4 -1 roll pop 5 1 roll 1 add NextNonBlankChar pop AnalyzeExpr 1 add
+ 4 -2 roll (Derive\() StrConcat 7 -1 roll StrConcat (,) StrConcat 6 -1 roll StrConcat AddClPar
+ 2 copy pop 0 6 2 roll GetIntervalNewStr 6 -1 roll pop 2 index 6 index dup 4 index exch sub getinterval
+ exch 6 2 roll } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% literal switch -> func call, vector, variables
+/EvalFunc_Sum {%
+ 1 add NextNonBlankChar pop
+ %% read the variable name
+ ReadLiteral pop 3 -1 roll pop NextNonBlankChar
+ 44 ne { ANALYZER_ERROR_missing_first_comma_in_Sum } if
+ %% read the initial value
+ 1 add NextNonBlankChar pop ReadNumber pop
+ 2 copy get 44 ne { ANALYZER_ERROR_missing_second_comma_in_Sum } if
+ %% read the increment value
+ 1 add NextNonBlankChar pop ReadNumber pop
+ 2 copy get 44 ne { ANALYZER_ERROR_missing_third_comma_in_Sum } if
+ %% read the limit value
+ 1 add NextNonBlankChar pop ReadNumber pop
+ 2 copy get 44 ne { ANALYZER_ERROR_missing_fourth_comma_in_Sum } if
+ 1 add NextNonBlankChar pop dup 6 1 roll 3 -1 roll pop AnalyzeExpr 1 add NextNonBlankChar pop
+ 4 -2 roll 3 index 8 index dup 9 index exch sub getinterval StrConcat
+ 4 index StrConcat AddClPar
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ mark 9 -3 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% literal switch -> func call, vector, variables
+/EvalFunc_IfTE {%
+ 3 -1 roll pop 1 add NextNonBlankChar pop SkipCond
+ NextNonBlankChar
+ 44 ne { ANALYZER_ERROR_missing_first_comma_in_IfTE } if
+ 1 add NextNonBlankChar pop dup 5 1 roll
+ AnalyzeExpr NextNonBlankChar
+ 44 ne { ANALYZER_ERROR_missing_second_comma_in_IfTE } if
+ 1 add NextNonBlankChar pop
+ AnalyzeExpr 1 add NextNonBlankChar pop
+ 4 -2 roll 3 index 10 index dup 11 index exch sub getinterval StrConcat
+ 6 index StrConcat (,) StrConcat 4 index StrConcat AddClPar
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ mark 11 -5 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% advance in str until a comma is found (no error detection!)
+%% str index -> str index'
+/SkipCond { { 1 add 2 copy get 44 eq {exit } if } loop } bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Convert to radians if trigo function call
+%% (name) ->
+/TrigoFunc {
+ dup (cos) eq 1 index (sin) eq or exch (tan) eq or
+ { /ExpressionVector ExpressionVector aload length Pi /div cvx 180 /mul cvx 5 -1 roll 4 add
+ array astore def
+ } if
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% No derivative for condition....
+/EvalCondOp { 3 -1 roll pop } bind def
+/PutIntervalOneAdd {putinterval 1 add} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add open parenthesis in string at the given index
+%% str index -> str index+1
+/AddOpPar {2 copy (\() PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add close parenthesis in string at the given index
+%% str index -> str index+1
+/AddClPar {2 copy (\)) PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add 0 in string at the given index
+%% str index -> str index+1
+/AddZero {2 copy (0) PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add open parenthesis in string at the given index
+%% str index -> str index+1
+/AddMul {2 copy (*) PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add open parenthesis in string at the given index
+%% str index -> str index+1
+/AddDiv {2 copy (/) PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add a plus sign in string at the given index
+%% str index -> str index+1
+/AddAdd {2 copy (+) PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add a minus sign in string at the given index
+%% str index -> str index+1
+/AddSub {2 copy (-) PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add a pipe sign in string at the given index
+%% str index -> str index+1
+/AddPipe {2 copy (|) PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% H O O K S
+/AnalyzePreHook { dup 5 1 roll } bind def
+/PreEvalHook {} def
+/AnalyzePostHook { 7 -1 roll pop } bind def
+/AnalyzeListOfEPostHook { 6 -1 roll mark 6 1 roll cleartomark } bind def
+/RollOp { 5 1 roll } bind def
+end%%%tx@CoreAnalyzerDict
+/tx@AddMathFunc 12 dict def tx@AddMathFunc begin
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% NEW FUNC
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% function arcsine in radians asin(x)=atan(x/sqrt(1-x^2))
+%% x -> theta
+/asin {%
+ dup abs 1 gt { EQDFasinrangeerror } if
+ dup dup dup mul 1 exch sub sqrt atan exch 0 lt { 360 sub } if DegtoRad
+} def
+%% function arccosine in radians acos(x)=atan(sqrt(1-x^2)/x)
+%% x -> theta
+/acos {%
+ dup abs 1 gt { EQDFacosrangeerror } if
+ dup dup mul 1 exch sub sqrt exch atan DegtoRad
+} def
+%% function arctangent in radians
+%% x -> theta
+/atg { 1 atan dup 90 gt { 360 sub } if DegtoRad } bind def
+%% HYPERBOLIC FUNCTIONS
+/sh { dup Ex exch neg Ex sub 2 div } def
+/ch { dup Ex exch neg Ex add 2 div } def
+/th { dup sh exch ch div } def
+/Argsh { dup dup mul 1 add sqrt add ln } def
+/Argch { dup dup mul 1 sub sqrt add ln } def
+/Argth { dup 1 add exch 1 exch sub div ln 2 div } def
+%% modified exponential funtion for 0
+%% x n -> x^n
+/Exp { dup 0 eq { pop pop 1 } { exp } ifelse } bind def
+%% modified exponential funtion for 0
+%% x -> e^x
+/Ex { Euler exch exp } bind def
+%%
+%% factorial function
+%% n -> n!
+/Fact { 1 exch 2 exch 1 exch { mul } for } bind def
+/fact { Fact } bind def
+/! { Fact } bind def
+end
+%
+% END pst-algparser.pro
+
+%%EndProcSet
+%%BeginProcSet: pst-tools.pro 0 0
+% $Id: pst-tools.pro 713 2012-10-16 14:25:00Z herbert $
+%
+%% PostScript tools prologue for pstricks.tex.
+%% Version 0.03, 2012/10/16
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%
+%
+/Pi2 1.57079632679489661925640 def
+/factorial { % n on stack, returns n!
+ dup 0 eq { 1 }{
+ dup 1 gt { dup 1 sub factorial mul } if }
+ ifelse } def
+%
+/MoverN { % m n on stack, returns the binomial coefficient m over n
+ 2 dict begin
+ /n exch def /m exch def
+ n 0 eq { 1 }{
+ m n eq { 1 }{
+ m factorial n factorial m n sub factorial mul div } ifelse } ifelse
+ end
+} def
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% subroutines for complex numbers, given as an array [a b]
+% which is a+bi = Real+i Imag
+%
+/cxadd { % [a1 b1] [a2 b2] = [a1+a2 b1+b2]
+ dup 0 get % [a1 b1] [a2 b2] a2
+ 3 -1 roll % [a2 b2] a2 [a1 b1]
+ dup 0 get % [a2 b2] a2 [a1 b1] a1
+ 3 -1 roll % [a2 b2] [a1 b1] a1 a2
+ add % [a2 b2] [a1 b1] a1+a2
+ 3 1 roll % a1+a2 [a2 b2] [a1 b1]
+ 1 get % a1+a2 [a2 b2] b1
+ exch 1 get % a1+a2 b1 b2
+ add 2 array astore
+} def
+%
+/cxneg { % [a b]
+ dup 1 get % [a b] b
+ exch 0 get % b a
+ neg exch neg % -a -b
+ 2 array astore
+} def
+%
+/cxsub { cxneg cxadd } def % same as negative addition
+%
+% [a1 b1][a2 b2] = [a1a2-b1b2 a1b2+b1a2] = [a3 b3]
+/cxmul { % [a1 b1] [a2 b2]
+ dup 0 get % [a1 b1] [a2 b2] a2
+ exch 1 get % [a1 b1] a2 b2
+ 3 -1 roll % a2 b2 [a1 b1]
+ dup 0 get % a2 b2 [a1 b1] a1
+ exch 1 get % a2 b2 a1 b1
+ dup % a2 b2 a1 b1 b1
+ 5 -1 roll dup % b2 a1 b1 b1 a2 a2
+ 3 1 roll mul % b2 a1 b1 a2 b1a2
+ 5 -2 roll dup % b1 a2 b1a2 b2 a1 a1
+ 3 -1 roll dup % b1 a2 b1a2 a1 a1 b2 b2
+ 3 1 roll mul % b1 a2 b1a2 a1 b2 a1b2
+ 4 -1 roll add % b1 a2 a1 b2 b3
+ 4 2 roll mul % b1 b2 b3 a1a2
+ 4 2 roll mul sub % b3 a3
+ exch 2 array astore
+} def
+%
+% [a b]^2 = [a^2-b^2 2ab] = [a2 b2]
+/cxsqr { % [a b] square root
+ dup 0 get exch 1 get % a b
+ dup dup mul % a b b^2
+ 3 -1 roll % b b^2 a
+ dup dup mul % b b^2 a a^2
+ 3 -1 roll sub % b a a2
+ 3 1 roll mul 2 mul % a2 b2
+ 2 array astore
+} def
+%
+/cxsqrt { % [a b]
+% dup cxnorm sqrt /r exch def
+% cxarg 2 div RadtoDeg dup cos r mul exch sin r mul cxmake2
+ cxlog % log[a b]
+ 2 cxrdiv % log[a b]/2
+ aload pop exch % b a
+ 2.781 exch exp % b exp(a)
+ exch cxconv exch % [Re +iIm] exp(a)
+ cxrmul %
+} def
+%
+/cxarg { % [a b]
+ aload pop % a b
+ exch atan % arctan b/a
+ DegtoRad % arg(z)=atan(b/a)
+} def
+%
+% log[a b] = [a^2-b^2 2ab] = [a2 b2]
+/cxlog { % [a b]
+ dup % [a b][a b]
+ cxnorm % [a b] |z|
+ log % [a b] log|z|
+ exch % log|z|[a b]
+ cxarg % log|z| Theta
+ cxmake2 % [log|z| Theta]
+} def
+%
+% square of magnitude of complex number
+/cxnorm2 { % [a b]
+ dup 0 get exch 1 get % a b
+ dup mul % a b^2
+ exch dup mul add % a^2+b^2
+} def
+%
+/cxnorm { % [a b]
+ cxnorm2 sqrt
+} def
+%
+/cxconj { % conjugent complex
+ dup 0 get exch 1 get % a b
+ neg 2 array astore % [a -b]
+} def
+%
+/cxre { 0 get } def % real value
+/cxim { 1 get } def % imag value
+%
+% 1/[a b] = ([a -b]/(a^2+b^2)
+/cxrecip { % [a b]
+ dup cxnorm2 exch % n2 [a b]
+ dup 0 get exch 1 get % n2 a b
+ 3 -1 roll % a b n2
+ dup % a b n2 n2
+ 4 -1 roll exch div % b n2 a/n2
+ 3 1 roll div % a/n2 b/n2
+ neg 2 array astore
+} def
+%
+/cxmake1 { 0 2 array astore } def % make a complex number, real given
+/cxmake2 { 2 array astore } def % dito, both given
+%
+/cxdiv { cxrecip cxmul } def
+%
+% multiplikation by a real number
+/cxrmul { % [a b] r
+ exch aload pop % r a b
+ 3 -1 roll dup % a b r r
+ 3 1 roll mul % a r b*r
+ 3 1 roll mul % b*r a*r
+ exch 2 array astore % [a*r b*r]
+} def
+%
+% division by a real number
+/cxrdiv { % [a b] r
+ 1 exch div % [a b] 1/r
+ cxrmul
+} def
+%
+% exp(i theta) = cos(theta)+i sin(theta) polar<->cartesian
+/cxconv { % theta
+ RadtoDeg dup sin exch cos cxmake2
+} def
+
+%%%%% ### bubblesort ###
+%% syntax : array bubblesort --> array2 trie par ordre croissant
+%% code de Bill Casselman
+%% http://www.math.ubc.ca/people/faculty/cass/graphics/text/www/
+/bubblesort { % on stack must be an array [ ... ]
+4 dict begin
+ /a exch def
+ /n a length 1 sub def
+ n 0 gt {
+ % at this point only the n+1 items in the bottom of a remain to
+ % the sorted largest item in that blocks is to be moved up into
+ % position n
+ n {
+ 0 1 n 1 sub {
+ /i exch def
+ a i get a i 1 add get gt {
+ % if a[i] > a[i+1] swap a[i] and a[i+1]
+ a i 1 add
+ a i get
+ a i a i 1 add get
+ % set new a[i] = old a[i+1]
+ put
+ % set new a[i+1] = old a[i]
+ put
+ } if
+ } for
+ /n n 1 sub def
+ } repeat
+ } if
+ a % return the sorted array
+end
+} def
+%
+/concatstringarray{ % [(a) (b) ... (z)] --> (ab...z) 20100422
+ 0 1 index { length add } forall
+ string
+ 0 3 2 roll
+ { 3 copy putinterval length add }forall
+ pop
+} bind def
+%
+/dot2comma {% on stack a string (...)
+ 2 dict begin
+ /Output exch def
+ 0 1 Output length 1 sub {
+ /Index exch def
+ Output Index get 46 eq { Output Index 44 put } if
+ } for
+ Output
+ end
+} def
+%
+/rightTrim {
+ dup
+ length 1 sub -1 0 {
+ /i exch def dup i get 32 ne { exit } if
+ } for
+ 0 i 1 add getinterval
+ dup length string copy
+} bind def
+
+/psStringwidth /stringwidth load def
+/psShow /show load def
+
+%/stringwidth{ rightTrim psStringwidth } bind def
+
+%/show { rightTrim psShow } bind def
+%-----------------------------------------------------------------------------%
+% END pst-tools.pro
+
+%%EndProcSet
+%%BeginProcSet: pst-dots.pro 0 0
+% $Id: pst-dots.pro 801 2013-07-09 18:10:41Z herbert $
+%
+%% PostScript prologue for pstricks.tex.
+%% Version 2.02, 2009/06/16
+%%
+%% For distribution, see pstricks.tex.
+%%
+%% Timothy Van Zandt <tvz@Princeton.EDU>
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%%
+%% Modified by Etienne Riga - Dec. 16, 1999
+%% Modified by Etienne Riga - 2005/01/01 (er)
+%% to add /Diamond, /SolidDiamond and /BoldDiamond
+%% Modified by Herbert Voss (hv) - 2008/04/17
+%
+10 dict dup begin % hold local
+ /FontType 3 def
+ /FontMatrix [.001 0 0 .001 0 0] def
+% /FontBBox [-571.5 -742.5 571.5 742.5] def % changed to next line 20060616 hv
+ /FontBBox [-1000 -1000 1000 1000] def % See end of file in /BuildGlyph
+ /Encoding 256 array def
+ 0 1 255 {Encoding exch /.notdef put} for % fill the array with /.notdef
+ Encoding % replace with given dot names
+ dup (b) 0 get /Bullet put % get the numerical position of b in ASCII
+% % and save /Bullet at this place in Encoding
+ dup (c) 0 get /Circle put
+ dup (C) 0 get /BoldCircle put % 67
+ dup (u) 0 get /SolidTriangle put
+ dup (t) 0 get /Triangle put
+ dup (T) 0 get /BoldTriangle put
+ dup (r) 0 get /SolidSquare put
+ dup (s) 0 get /Square put
+ dup (S) 0 get /BoldSquare put
+ dup (q) 0 get /SolidPentagon put
+ dup (p) 0 get /Pentagon put
+ dup (P) 0 get /BoldPentagon put
+%%%
+ dup (k) 0 get /Asterisk put
+ dup (K) 0 get /BoldAsterisk put
+ dup (J) 0 get /SolidAsterisk put
+ dup (h) 0 get /Hexagon put
+ dup (H) 0 get /BoldHexagon put
+ dup (G) 0 get /SolidHexagon put
+ dup (f) 0 get /Octogon put % 2008-04-18 hv
+ dup (F) 0 get /BoldOctogon put % 2008-04-18 hv
+ dup (g) 0 get /SolidOctogon put % 2008-04-18 hv
+ dup (a) 0 get /Add put
+ dup (A) 0 get /BoldAdd put % 65
+ dup (x) 0 get /Mul put
+ dup (X) 0 get /BoldMul put
+ dup (m) 0 get /Oplus put
+ dup (M) 0 get /BOplus put
+ dup (e) 0 get /SolidOplus put
+ dup (n) 0 get /Otimes put
+ dup (N) 0 get /BOtimes put
+ dup (E) 0 get /SolidOtimes put
+ dup (i) 0 get /Bar put
+ dup (I) 0 get /BoldBar put
+ dup (l) 0 get /SolidDiamond put
+ dup (d) 0 get /Diamond put
+ (D) 0 get /BoldDiamond put
+%%%
+/CharProcs 47 dict def
+CharProcs begin
+ /CirclePath {0 0 500 0 360 arc closepath} def
+ /Bullet {CirclePath fill} def
+ /Circle {CirclePath .9 .9 scale CirclePath eofill} def
+ /BoldCircle {CirclePath .8 .8 scale CirclePath eofill} def
+ /TrianglePath {0 660 moveto -571.5 -330 lineto 571.5 -330 lineto closepath} def
+ /SolidTriangle {TrianglePath fill} def
+ /Triangle {TrianglePath .85 .85 scale TrianglePath eofill} def
+ /BoldTriangle {TrianglePath .7 .7 scale TrianglePath eofill} def
+ /SquarePath {-450 450 moveto 450 450 lineto 450 -450 lineto -450 -450 lineto closepath} def
+ /SolidSquare {SquarePath fill} def
+ /Square {SquarePath .89 .89 scale SquarePath eofill} def
+ /BoldSquare {SquarePath .78 .78 scale SquarePath eofill} def
+ /PentagonPath {
+ -337.8 -465 moveto 337.8 -465 lineto 546.6 177.6 lineto
+ 0 574.7 lineto -546.6 177.6 lineto closepath
+ } def
+ /SolidPentagon {PentagonPath fill} def
+ /Pentagon {PentagonPath .89 .89 scale PentagonPath eofill} def
+ /BoldPentagon {PentagonPath .78 .78 scale PentagonPath eofill} def
+%-------------- hv begin 2004/07/25 from: er 2003/03/24
+ /HexagonPath {
+ 0 550 moveto -476 275 lineto -476 -275 lineto
+ 0 -550 lineto 476 -275 lineto 476 275 lineto closepath
+ } def
+ /SolidHexagon {HexagonPath fill} def
+ /Hexagon {HexagonPath .89 .89 scale HexagonPath eofill} def
+ /BoldHexagon {HexagonPath .79 .79 scale HexagonPath eofill} def
+% 2008-04-18 hv
+ /OctogonPath {
+ 550 dup 22.5 tan mul dup neg dup add /xMove exch def
+ exch moveto 7 { xMove 0 rlineto 45 rotate } repeat closepath } def
+ /SolidOctogon { OctogonPath fill } def
+ /Octogon { OctogonPath .89 .89 scale OctogonPath eofill } def
+ /BoldOctogon { OctogonPath .79 .79 scale OctogonPath eofill } def
+%
+ /AsteriskPath {
+ 20 0 moveto 10 250 180 500 0 500 curveto
+ -180 500 -10 250 -20 0 curveto closepath
+ } def
+ /Asterisk {
+ AsteriskPath 60 rotate AsteriskPath 60 rotate AsteriskPath
+ 60 rotate AsteriskPath 60 rotate AsteriskPath 60 rotate AsteriskPath fill
+ } def
+%
+ /Basterp {50 250 220 500 0 500 curveto -220 500 -50 250 -50 30 cos 100 mul curveto} def
+ /BoldAsteriskPath {
+ 50 30 cos 100 mul moveto Basterp
+ 60 rotate Basterp 60 rotate Basterp
+ 60 rotate Basterp 60 rotate Basterp
+ 60 rotate Basterp closepath
+ } def
+ /BoldAsterisk {BoldAsteriskPath fill} def
+ /SolidAsterisk {CirclePath .9 .9 scale BoldAsteriskPath eofill} def
+ /CrossPath {
+ 40 550 moveto -40 550 lineto -40 40 lineto -550 40 lineto
+ -550 -40 lineto -40 -40 lineto -40 -550 lineto 40 -550 lineto
+ 40 -40 lineto 550 -40 lineto 550 40 lineto 40 40 lineto closepath
+ } def
+ /BoldCrossPath {80 550 moveto -80 550 lineto -80 80 lineto -550 80 lineto
+ -550 -80 lineto -80 -80 lineto -80 -550 lineto 80 -550 lineto
+ 80 -80 lineto 550 -80 lineto 550 80 lineto 80 80 lineto closepath
+ } def
+ /Add {CrossPath fill} def
+ /Mul {45 rotate CrossPath fill} def
+ /BoldAdd {BoldCrossPath fill} def
+ /BoldMul {45 rotate BoldCrossPath fill} def
+ /Oplus {CirclePath .9 .9 scale CirclePath eofill .775 .775 scale CrossPath fill } def
+ /SolidOplus {CirclePath .775 .775 scale BoldCrossPath eofill} def
+ /BOplus {CirclePath .8 .8 scale CirclePath eofill .775 .775 scale BoldCrossPath fill} def
+ /Otimes {CirclePath .9 .9 scale CirclePath eofill 45 rotate .775 .775 scale CrossPath fill} def
+ /BOtimes {CirclePath .8 .8 scale CirclePath eofill 45 rotate .775 .775 scale BoldCrossPath fill } def
+ /SolidOtimes {CirclePath 45 rotate .775 .775 scale BoldCrossPath eofill} def
+ /BarPath {40 660 moveto -40 660 lineto -40 -660 lineto 40 -660 lineto closepath} def
+ /Bar {BarPath fill} def
+ /BoldBarPath {80 660 moveto -80 660 lineto -80 -660 lineto 80 -660 lineto closepath} def
+ /BoldBar {BoldBarPath fill} def
+ /DiamondPath {0 742.5 moveto -428.5 0 lineto 0 -742.5 lineto 428.5 0 lineto closepath} def
+ /SolidDiamond {DiamondPath fill} def
+ /Diamond {DiamondPath .865 .865 scale DiamondPath eofill} def
+ /BoldDiamond {DiamondPath .73 .73 scale DiamondPath eofill} def
+%%%
+ /.notdef { } def
+end
+%
+/BuildGlyph {
+ exch
+ begin
+% Metrics 1 index get exec 0
+ 0 0
+% BBoxes 3 index get exec
+ -1000 -1000 1000 1000
+% -571.5 -742.5 571.5 742.5
+ setcachedevice
+ CharProcs begin load exec end
+ end
+} def
+%
+/BuildChar {
+ 1 index /Encoding get exch get
+ 1 index /BuildGlyph get exec
+} bind def
+%
+end
+/PSTricksDotFont exch definefont pop
+%
+%% end
+
+%%EndProcSet
+%%BeginProcSet: pst-coil.pro 0 0
+%!ps
+% PostScript prologue for pst-coil.tex.
+% Version 1.03, 2010/02/01
+% For distribution, see pstricks.tex.
+%
+/tx@CoilDict 40 dict def tx@CoilDict begin
+/CoilLoop {
+ /t ED
+ t sin AspectSin mul t 180 div AspectCos mul add t cos lineto } def
+/Coil {
+ /Inc ED
+ dup sin /AspectSin ED
+ cos /AspectCos ED
+ /ArmB ED
+ /ArmA ED
+ /h ED /w ED /y1 ED /x1 ED /y0 ED /x0 ED
+ x0 y0 translate y1 y0 sub x1 x0 sub 2 copy Pyth
+ /TotalLength ED
+ Atan rotate
+ /BeginAngle ArmA AspectCos Div w h mul Div 360 mul def
+ /EndAngle TotalLength ArmB sub AspectCos Div
+ w h mul Div 360 mul def
+ 1 0 0 0 ArrowA ArmA 0 lineto
+ /mtrx CM def
+ w h mul 2 Div w 2 Div scale BeginAngle Inc
+ EndAngle { CoilLoop } for
+ EndAngle CoilLoop mtrx setmatrix TotalLength ArmB sub 0 lineto CP
+% DG/SR modification begin - Jun. 2, 1998 - Patch 1 (from Michael Vulis)
+% TotalLength 0 ArrowB lineto } def
+ TotalLength 0 ArrowB lineto
+ pop pop pop pop } def
+% DG/SR modification end
+%
+/Sin {
+ /Func ED
+ /PointsPerPeriod ED
+ /ArmB ED
+ /ArmA ED
+ /Amplitude ED
+ /roundValue ED
+ /relativePeriod ED
+ /Periods ED
+ /y1 ED /x1 ED /y0 ED /x0 ED
+ x0 y0 translate y1 y0 sub x1 x0 sub 2 copy Pyth
+ dup /TotalLength ED
+ ArmA sub ArmB sub /SinLength ED
+ Atan rotate
+ 1 0 0 0 ArrowA ArmA 0 lineto
+ /mtrx CM def
+ relativePeriod
+ {}
+ { SinLength Periods div roundValue { cvi } if
+ /Periods ED } ifelse
+ /dxStep SinLength 360 div def % the default step for x pos
+ /xStep 360 PointsPerPeriod div def % the step for the for loop
+ 1 xStep 360 { % PointsPerPeriod times
+ dup dxStep mul ArmA add exch % x pos and value for the func
+ Periods mul Func Amplitude mul lineto
+ } for
+ mtrx setmatrix TotalLength ArmB sub 0 lineto CP
+ TotalLength 0 ArrowB lineto
+ pop pop pop pop
+} def
+%
+/AltCoil {
+ /Inc ED
+ dup sin /AspectSin ED
+ cos /AspectCos ED /h ED /w ED /EndAngle ED /BeginAngle ED
+ /mtrx CM def
+ w h mul 2 Div w 2 Div scale BeginAngle sin AspectSin mul
+ BeginAngle 180 div AspectCos mul add BeginAngle cos
+ /lineto load stopped { moveto } if
+ BeginAngle Inc EndAngle { CoilLoop } for
+ EndAngle CoilLoop mtrx setmatrix } def
+/ZigZag {
+ /ArmB ED /ArmA ED
+ 2 div /w ED
+ w mul /h ED /y1 ED /x1 ED /y0 ED /x0 ED
+ x1 y1 translate y0 y1 sub x0 x1 sub 2 copy Pyth
+ /TotalLength ED
+ Atan rotate TotalLength ArmA sub ArmB sub dup h div cvi /n ED n h mul
+ sub 2 div dup ArmA add
+ /ArmA ED ArmB add
+ /ArmB ED
+ /x ArmB h 2 div add def
+ mark 0 0 ArmB 0
+ n { x w /w w neg def /x x h add def } repeat
+ TotalLength ArmA sub 0 TotalLength 0 } def
+%
+end
+% END pst-coil.pro
+
+%%EndProcSet
+%%BeginProcSet: pst-node.pro 0 0
+% $Id: pst-node.pro 805 2013-07-11 13:18:11Z herbert $
+%%
+%% PostScript prologue for pst-node.tex.
+%% Version 1.14, 2012/09/18.
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%
+tx@Dict begin % from main pstricks dict
+ /T /translate load def
+ /CP /currentpoint load def
+% /startGlobal { true setglobal globaldict begin } bind def
+% /endGlobal { end false setglobal } bind def
+end
+/tx@NodeDict 400 dict def tx@NodeDict begin
+/NewNode { % on stack: { x y } boolean N@name type InitXnode
+ gsave
+ NodeScale % a bugfix for xelatex, it's empty for dvips
+ /next exch def % { x y } boolean N@name type
+ dict dup % { x y } boolean N@name dict dict
+ 3 1 roll def % { x y } boolean dict N@name dict def
+ exch { dup 3 1 roll def } if % { x y } dict boolean
+ begin % { x y } dict begin
+ tx@Dict begin
+ STV CP T exec % set scaling
+ end
+ /NodeMtrx CM def % save CM
+ next % InitXNode
+ end
+ grestore
+} def
+%
+/InitPnode {
+ /Y ED /X ED
+ /NodePos { NodeSep Cos mul NodeSep Sin mul } def
+} def
+%
+/InitCnode {
+ /r ED /Y ED /X ED
+ /NodePos { NodeSep r add dup Cos mul exch Sin mul } def
+} def
+%
+/GetRnodePos {
+ Cos 0 gt { /dx r NodeSep add def } { /dx l NodeSep sub def } ifelse
+ Sin 0 gt { /dy u NodeSep add def } { /dy d NodeSep sub def } ifelse
+ dx Sin mul abs dy
+ Cos mul abs gt { dy Cos mul Sin div dy } { dx dup Sin mul Cos Div } ifelse
+} def
+%
+/InitRnode {
+ /Y ED /X ED X sub /r ED /l X neg def Y add neg /d ED Y sub /u ED
+ /NodePos { GetRnodePos } def
+} def
+%
+/DiaNodePos {
+ w h mul w Sin mul abs h Cos mul abs add Div NodeSep add dup
+ Cos mul exch Sin mul
+} def
+%
+/TriNodePos {
+ Sin s lt
+ { d NodeSep sub dup Cos mul Sin Div exch }
+ { w h mul w Sin mul h Cos abs mul add Div
+ NodeSep add dup Cos mul exch Sin mul
+ } ifelse
+} def
+%
+/InitTriNode {
+ sub 2 div exch
+ 2 div exch
+ 2 copy T
+ 2 copy 4 index index /d ED
+ pop pop pop pop
+ -90 mul rotate
+ /NodeMtrx CM def
+ /X 0 def /Y 0 def
+ d sub abs neg /d ED
+ d add /h ED
+ 2 div h mul h d sub Div /w ED
+ /s d w Atan sin def
+ /NodePos { TriNodePos } def
+} def
+%
+/OvalNodePos {
+ /ww w NodeSep add def
+ /hh h NodeSep add def
+ Sin ww mul Cos hh mul Atan dup cos ww mul exch sin hh mul
+} def
+%
+/GetCenter { begin X Y NodeMtrx transform CM itransform end } def
+%
+/XYPos {
+ dup sin exch cos Do
+ /Cos ED /Sin ED /Dist ED
+ Cos 0 gt
+ { Dist Dist Sin mul Cos div }
+ { Cos 0 lt
+ { Dist neg Dist Sin mul Cos div neg }
+ { 0 Dist Sin mul } ifelse
+ } ifelse
+ Do
+} def
+%
+/GetEdge {
+ dup 0 eq
+ { pop begin 1 0 NodeMtrx dtransform
+ CM idtransform
+ exch atan sub
+ dup
+ sin /Sin ED
+ cos /Cos ED
+ /NodeSep ED
+ NodePos NodeMtrx dtransform CM idtransform end }
+ { 1 eq {{exch}} {{}} ifelse /Do ED pop XYPos } ifelse
+} def
+%
+/AddOffset {
+ 1 index 0 eq
+ { pop pop }
+ { 2 copy 5 2 roll cos mul add 4 1 roll sin mul sub exch } ifelse
+} def
+%
+/GetEdgeA {
+ NodeSepA AngleA NodeA NodeSepTypeA GetEdge
+ OffsetA AngleA AddOffset
+ yA add /yA1 ED
+ xA add /xA1 ED
+} def
+%
+/GetEdgeB {
+ NodeSepB AngleB NodeB NodeSepTypeB GetEdge
+ OffsetB AngleB AddOffset
+ yB add /yB1 ED
+ xB add /xB1 ED
+} def
+%
+/GetArmA {
+ ArmTypeA 0 eq
+ { /xA2 ArmA AngleA cos mul xA1 add def
+ /yA2 ArmA AngleA sin mul yA1 add def }
+ { ArmTypeA 1 eq {{exch}} {{}} ifelse
+ /Do ED
+ ArmA AngleA XYPos OffsetA AngleA AddOffset
+ yA add /yA2 ED
+ xA add /xA2 ED } ifelse
+} def
+%
+/GetArmB {
+ ArmTypeB 0 eq
+ { /xB2 ArmB AngleB cos mul xB1 add def
+ /yB2 ArmB AngleB sin mul yB1 add def }
+ { ArmTypeB 1 eq {{exch}} {{}} ifelse
+ /Do ED
+ ArmB AngleB XYPos OffsetB AngleB AddOffset
+ yB add /yB2 ED
+ xB add /xB2 ED } ifelse
+} def
+%
+/InitNC {
+ /b ED /a ED % second and first node
+ /NodeSepTypeB ED /NodeSepTypeA ED
+ /NodeSepB ED /NodeSepA ED
+ /OffsetB ED /OffsetA ED
+ tx@NodeDict a known tx@NodeDict b known and dup {
+ /NodeA a load def
+ /NodeB b load def
+ NodeA GetCenter /yA ED /xA ED
+ NodeB GetCenter /yB ED /xB ED } if
+} def
+%
+/LPutLine {
+ 4 copy
+ 3 -1 roll sub neg 3 1 roll sub Atan /NAngle ED
+ 1 t sub mul
+ 3 1 roll 1 t sub mul
+ 4 1 roll t mul add /Y ED
+ t mul add /X ED
+} def
+%
+/LPutLines {
+ mark LPutVar counttomark 2 div 1 sub /n ED
+% t floor dup n gt
+ t floor dup n ge % to allow npos<= hv 2008-08-14
+ { pop n 1 sub /t 1 def } { dup t sub neg /t ED } ifelse
+ cvi 2 mul { pop } repeat
+ LPutLine
+ cleartomark
+} def
+%
+/BezierMidpoint {
+ /y3 ED /x3 ED /y2 ED /x2 ED /y1 ED /x1 ED /y0 ED /x0 ED /t ED
+ /cx x1 x0 sub 3 mul def
+ /cy y1 y0 sub 3 mul def
+ /bx x2 x1 sub 3 mul cx sub def
+ /by y2 y1 sub 3 mul cy sub def
+ /ax x3 x0 sub cx sub bx sub def
+ /ay y3 y0 sub cy sub by sub def
+ ax t 3 exp mul bx t t mul mul add
+ cx t mul add x0 add ay t 3 exp mul
+ by t t mul mul add cy t mul add
+ y0 add 3 ay t t mul mul mul 2
+ by t mul mul add cy add 3 ax t t mul mul mul
+ 2 bx t mul mul add cx add atan /NAngle ED
+ /Y ED /X ED
+} def
+%
+/HPosBegin { yB yA ge { /t 1 t sub def } if /Y yB yA sub t mul yA add def
+} def
+/HPosEnd { /X Y yyA sub yyB yyA sub Div xxB xxA sub mul xxA add def
+/NAngle yyB yyA sub xxB xxA sub Atan def } def
+/HPutLine { HPosBegin /yyA ED /xxA ED /yyB ED /xxB ED HPosEnd } def
+/HPutLines { HPosBegin yB yA ge { /check { le } def } { /check { ge } def
+} ifelse /xxA xA def /yyA yA def mark xB yB LPutVar { dup Y check { exit
+} { /yyA ED /xxA ED } ifelse } loop /yyB ED /xxB ED cleartomark HPosEnd
+} def
+/VPosBegin { xB xA lt { /t 1 t sub def } if /X xB xA sub t mul xA add def
+} def
+/VPosEnd { /Y X xxA sub xxB xxA sub Div yyB yyA sub mul yyA add def
+/NAngle yyB yyA sub xxB xxA sub Atan def } def
+/VPutLine { VPosBegin /yyA ED /xxA ED /yyB ED /xxB ED VPosEnd } def
+/VPutLines { VPosBegin xB xA ge { /check { le } def } { /check { ge } def
+} ifelse /xxA xA def /yyA yA def mark xB yB LPutVar { 1 index X check {
+exit } { /yyA ED /xxA ED } ifelse } loop /yyB ED /xxB ED cleartomark
+VPosEnd } def
+/HPutCurve { gsave newpath /SaveLPutVar /LPutVar load def LPutVar 8 -2
+roll moveto curveto flattenpath /LPutVar [ {} {} {} {} pathforall ] cvx
+def grestore exec /LPutVar /SaveLPutVar load def } def
+
+/NCCoor {
+ /AngleA yB yA sub xB xA sub Atan def
+ /AngleB AngleA 180 add def
+ GetEdgeA GetEdgeB
+ /LPutVar [ xB1 yB1 xA1 yA1 ] cvx def
+ /LPutPos { LPutVar LPutLine } def
+ /HPutPos { LPutVar HPutLine } def
+ /VPutPos { LPutVar VPutLine } def
+ LPutVar
+} def
+%
+/NCLine {
+ NCCoor
+ tx@Dict begin
+ ArrowA CP 4 2 roll
+ ArrowB
+ lineto pop pop
+ end
+} def
+%
+/NCLines {
+ false NArray
+ n 0 eq
+ { NCLine }
+ { 2 copy yA sub exch xA sub Atan /AngleA ED
+ n 2 mul dup index exch index yB sub exch xB sub
+ Atan /AngleB ED
+ GetEdgeA GetEdgeB
+ /LPutVar [ xB1 yB1 n 2 mul 4 add 4 roll xA1 yA1 ] cvx def
+ mark LPutVar
+ tx@Dict begin false Line end
+ /LPutPos { LPutLines } def
+ /HPutPos { HPutLines } def
+ /VPutPos { VPutLines } def
+ } ifelse
+} def
+%
+/NCCurve {
+ GetEdgeA
+ GetEdgeB
+ xA1 xB1 sub yA1 yB1 sub Pyth 2 div dup 3 -1
+roll mul /ArmA ED mul /ArmB ED /ArmTypeA 0 def /ArmTypeB 0 def GetArmA
+GetArmB xA2 yA2 xA1 yA1 tx@Dict begin ArrowA end xB2 yB2 xB1 yB1 tx@Dict
+begin ArrowB end curveto /LPutVar [ xA1 yA1 xA2 yA2 xB2 yB2 xB1 yB1 ]
+cvx def /LPutPos { t LPutVar BezierMidpoint } def /HPutPos { { HPutLines
+} HPutCurve } def /VPutPos { { VPutLines } HPutCurve } def } def
+%
+/NCAngles {
+ GetEdgeA GetEdgeB GetArmA GetArmB
+ /mtrx AngleA matrix rotate def
+ xA2 yA2 mtrx transform pop
+ xB2 yB2 mtrx transform exch pop
+ mtrx itransform
+ /y0 ED /x0 ED
+ mark ArmB 0 ne { xB1 yB1 } if
+ xB2 yB2 x0 y0 xA2 yA2
+ ArmA 0 ne { xA1 yA1 } if
+ tx@Dict begin false Line end
+ /LPutVar [ xB1 yB1 xB2 yB2 x0 y0 xA2 yA2 xA1 yA1 ] cvx def
+ /LPutPos { LPutLines } def
+ /HPutPos { HPutLines } def
+ /VPutPos { VPutLines } def } def
+%
+/NCAngle {
+ GetEdgeA GetEdgeB GetArmB
+ /mtrx AngleA matrix rotate def
+ xB2 yB2 mtrx itransform pop xA1 yA1 mtrx itransform exch pop mtrx transform
+ /y0 ED /x0 ED
+ mark
+ ArmB 0 ne { xB1 yB1 } if
+ xB2 yB2 x0 y0 xA1 yA1
+ tx@Dict begin false Line end
+ /LPutVar [ xB1 yB1 xB2 yB2 x0 y0 xA1 yA1 ] cvx def
+ /LPutPos { LPutLines } def
+ /HPutPos { HPutLines } def
+ /VPutPos { VPutLines } def
+} def
+%
+/NCBar {
+ GetEdgeA GetEdgeB GetArmA GetArmB
+ /mtrx AngleA matrix rotate def
+ xA2 yA2 mtrx itransform pop
+ xB2 yB2 mtrx itransform pop
+ sub dup 0 mtrx transform
+ 3 -1 roll 0 gt
+ { /yB2 exch yB2 add def /xB2 exch xB2 add def }
+ { /yA2 exch neg yA2 add def /xA2 exch neg xA2 add def } ifelse
+ mark
+ ArmB 0 ne { xB1 yB1 } if
+ xB2 yB2 xA2 yA2 ArmA 0 ne { xA1 yA1 } if
+ tx@Dict begin false Line end
+ /LPutVar [ xB1 yB1 xB2 yB2 xA2 yA2 xA1 yA1 ] cvx def
+ /LPutPos { LPutLines } def
+ /HPutPos { HPutLines } def
+ /VPutPos { VPutLines } def
+} def
+%
+/NCDiag {
+ /lineAngle ED
+ GetEdgeA GetEdgeB GetArmA GetArmB mark
+ lineAngle abs 0 gt {
+ /xTemp xA2 10 add def
+ /yTemp yA2 lineAngle dup sin exch cos div 10 mul add def
+ /dY1 yTemp yA2 sub def
+ /dX1 xTemp xA2 sub def
+ /dY2 yB2 yB1 sub def
+ /dX2 xB2 xB1 sub def
+ dX1 abs 0.01 lt {
+ /m2 dY2 dX2 div def
+ /xB2 xA2 def
+ /yB2 xA2 xB1 sub m2 mul yB1 add def
+ }{
+ dX2 abs 0.01 lt {
+ /m1 dY1 dX1 div def
+ /xB2 xB1 def
+ /yB2 xB1 xA2 sub m1 mul yA2 add def
+ }{%
+ /m1 dY1 dX1 div def
+ /m2 dY2 dX2 div def
+ /xB2 m1 xA2 mul m2 xB1 mul sub yA2 sub yB1 add m1 m2 sub div def
+ /yB2 xB2 xA2 sub m1 mul yA2 add def
+ } ifelse
+ } ifelse
+ } if
+ ArmB 0 ne { xB1 yB1 } if
+ xB2 yB2 xA2 yA2
+ ArmA 0 ne { xA1 yA1 } if
+ tx@Dict begin false Line end
+ /LPutVar [ xB1 yB1 xB2 yB2 xA2 yA2 xA1 yA1 ] cvx def
+ /LPutPos { LPutLines } def
+ /HPutPos { HPutLines } def
+ /VPutPos { VPutLines } def
+%
+% GetEdgeA GetEdgeB GetArmA GetArmB mark
+% ArmB 0 ne { xB1 yB1 } if
+% xB2 yB2 xA2 yA2
+% ArmA 0 ne { xA1 yA1 } if
+% tx@Dict begin false Line end
+% /LPutVar [ xB1 yB1 xB2 yB2 xA2 yA2 xA1 yA1 ] cvx def
+% /LPutPos { LPutLines } def
+% /HPutPos { HPutLines } def
+% /VPutPos { VPutLines } def
+} def
+%
+/NCDiagg {
+ /lineAngle ED
+ GetEdgeA GetArmA
+ lineAngle abs 0 gt
+ { lineAngle }
+ { yB yA2 sub xB xA2 sub Atan 180 add } ifelse
+ /AngleB ED
+ GetEdgeB mark
+ lineAngle abs 0 gt {
+ /dY2 yA2 yA1 sub def
+ /dX2 xA2 xA1 sub def
+ lineAngle abs 90 eq {
+ /m2 dY2 dX2 div def
+ /yA2 xB xA2 sub m2 mul yA2 add def
+ /xA2 xB def
+ }{
+ /m1 lineAngle dup sin exch cos div def % tan alpha
+ dX2 abs 0.01 lt {
+ /yA2 xA1 xB sub m1 mul yB add def
+ /xA2 xA1 def
+ }{%
+ /m2 dY2 dX2 div def
+ /xA2 m1 xB mul m2 xA2 mul sub yA2 add yB sub m1 m2 sub div def
+ /yA2 xA2 xB sub m1 mul yB add def
+ } ifelse
+ } ifelse
+ } if
+ xB1 yB1 xA2 yA2
+ ArmA 0 ne { xA1 yA1 } if
+ tx@Dict begin false Line end
+ /LPutVar [ xB1 yB1 xA2 yA2 xA1 yA1 ] cvx def
+ /LPutPos { LPutLines } def
+ /HPutPos { HPutLines } def
+ /VPutPos { VPutLines } def
+%
+% GetEdgeA GetArmA
+% yB yA2 sub xB xA2 sub Atan 180 add /AngleB ED
+% GetEdgeB
+% mark
+% xB1 yB1 xA2 yA2
+% ArmA 0 ne { xA1 yA1 } if
+% tx@Dict begin false Line end
+% /LPutVar [ xB1 yB1 xA2 yA2 xA1 yA1 ] cvx def
+% /LPutPos { LPutLines } def
+% /HPutPos { HPutLines } def
+% /VPutPos { VPutLines } def
+} def
+%
+/NCLoop {
+ GetEdgeA GetEdgeB GetArmA GetArmB
+ /mtrx AngleA matrix rotate def
+ xA2 yA2 mtrx transform loopsize add /yA3 ED /xA3 ED
+ /xB3 xB2 yB2 mtrx transform pop def
+ xB3 yA3 mtrx itransform /yB3 ED /xB3 ED
+ xA3 yA3 mtrx itransform /yA3 ED /xA3 ED
+ mark ArmB 0 ne { xB1 yB1 } if
+ xB2 yB2 xB3 yB3 xA3 yA3 xA2 yA2 ArmA 0 ne { xA1 yA1 } if
+ tx@Dict begin false Line end
+ /LPutVar [ xB1 yB1 xB2 yB2 xB3 yB3 xA3 yA3 xA2 yA2 xA1 yA1 ] cvx def
+ /LPutPos { LPutLines } def
+ /HPutPos { HPutLines } def
+ /VPutPos { VPutLines } def
+} def
+%
+% DG/SR modification begin - May 9, 1997 - Patch 1
+%/NCCircle { 0 0 NodesepA nodeA \tx@GetEdge pop xA sub 2 div dup 2 exp r
+%r mul sub abs sqrt atan 2 mul /a ED r AngleA 90 add PtoC yA add exch xA add
+%exch 2 copy /LPutVar [ 4 2 roll r AngleA ] cvx def /LPutPos { LPutVar t 360
+%mul add dup 5 1 roll 90 sub \tx@PtoC 3 -1 roll add /Y ED add /X ED /NAngle ED
+%
+/NCCircle {
+ NodeSepA 0 NodeA 0 GetEdge pop
+ 2 div dup 2 exp r r mul sub abs sqrt
+ atan 2 mul /a ED
+ r AngleA 90 add PtoC yA add exch xA add
+ exch 2 copy
+ /LPutVar [ 4 2 roll r AngleA ] cvx def
+ /LPutPos {
+ LPutVar t 360 mul add dup 5 1 roll 90 sub PtoC
+ 3 -1 roll add
+ /Y ED add /X ED /NAngle ED
+% DG/SR modification end
+ } def
+ /HPutPos { LPutPos } def
+ /VPutPos { LPutPos } def
+ r AngleA 90 sub a add AngleA 270 add a sub
+ tx@Dict begin
+ /angleB ED /angleA ED /r ED
+ /c 57.2957 r Div def
+ /y ED /x ED
+} def
+%
+/NCBox {
+ /d ED /h ED
+ /AngleB yB yA sub xB xA sub Atan def
+ /AngleA AngleB 180 add def
+ GetEdgeA GetEdgeB
+ /dx d AngleB sin mul def
+ /dy d AngleB cos mul neg def
+ /hx h AngleB sin mul neg def
+ /hy h AngleB cos mul def
+ /LPutVar [
+ xA1 hx add yA1 hy add xB1 hx add yB1 hy add
+ xB1 dx add yB1 dy add xA1 dx add yA1 dy add ] cvx def
+ /LPutPos { LPutLines } def
+ /HPutPos { xB yB xA yA LPutLine } def
+ /VPutPos { HPutPos } def
+ mark
+ LPutVar tx@Dict begin false Polygon end
+} def
+%
+/NCArcBox {
+ /l ED neg /d ED /h ED /a ED
+ /AngleA yB yA sub xB xA sub Atan def
+ /AngleB AngleA 180 add def
+ /tA AngleA a sub 90 add def
+ /tB tA a 2 mul add def
+ /r xB xA sub tA cos tB cos sub Div dup 0 eq { pop 1 } if def
+ /x0 xA r tA cos mul add def
+ /y0 yA r tA sin mul add def
+ /c 57.2958 r div def
+ /AngleA AngleA a sub 180 add def
+ /AngleB AngleB a add 180 add def
+ GetEdgeA GetEdgeB
+ /AngleA tA 180 add yA yA1 sub xA xA1 sub Pyth c mul sub def
+ /AngleB tB 180 add yB yB1 sub xB xB1 sub Pyth c mul add def
+ l 0 eq {
+ x0 y0 r h add AngleA AngleB arc x0 y0 r d add AngleB AngleA arcn
+ }{
+ x0 y0 translate
+ /tA AngleA l c mul add def
+ /tB AngleB l c mul sub def
+ 0 0 r h add tA tB arc r h add
+ AngleB PtoC r d add
+ AngleB PtoC 2 copy
+ 6 2 roll l arcto 4 { pop } repeat
+ r d add tB PtoC l arcto 4 { pop } repeat
+ 0 0 r d add tB tA arcn r d add
+ AngleA PtoC r h add
+ AngleA PtoC 2 copy 6 2 roll
+ l arcto 4 { pop } repeat
+ r h add tA PtoC l arcto 4 { pop } repeat
+ } ifelse
+ closepath
+ /LPutVar [ x0 y0 r AngleA AngleB h d ] cvx def
+ /LPutPos {
+ LPutVar /d ED /h ED
+ /AngleB ED /AngleA ED
+ /r ED /y0 ED /x0 ED
+ t 1 le {
+ r h add AngleA 1 t sub mul AngleB t mul add dup 90 add /NAngle ED PtoC
+ }{t 2 lt {
+ /NAngle AngleB 180 add def r 2 t sub
+ h mul t 1 sub d mul add add AngleB PtoC
+ }{
+ t 3 lt {
+ r d add AngleB 3 t sub mul AngleA 2 t sub
+ mul add dup 90 sub /NAngle ED PtoC
+ }{
+ /NAngle AngleA 180 add def
+ r 4 t sub d mul t 3 sub h mul add add AngleA PtoC
+ } ifelse
+ } ifelse
+ } ifelse
+ y0 add /Y ED x0 add /X ED
+ } def
+ /HPutPos { LPutPos } def
+ /VPutPos { LPutPos } def
+} def
+%
+/Tfan { /AngleA yB yA sub xB xA sub Atan def GetEdgeA w xA1 xB sub yA1 yB
+sub Pyth Pyth w Div CLW 2 div mul 2 div dup AngleA sin mul yA1 add /yA1
+ED AngleA cos mul xA1 add /xA1 ED /LPutVar [ xA1 yA1 m { xB w add yB xB
+w sub yB } { xB yB w sub xB yB w add } ifelse xA1 yA1 ] cvx def /LPutPos
+{ LPutLines } def /VPutPos@ { LPutVar flag { 8 4 roll pop pop pop pop }
+{ pop pop pop pop 4 2 roll } ifelse } def /VPutPos { VPutPos@ VPutLine }
+def /HPutPos { VPutPos@ HPutLine } def mark LPutVar tx@Dict begin
+/ArrowA { moveto } def /ArrowB { } def false Line closepath end } def
+%
+/LPutCoor {
+ NAngle
+ tx@Dict begin /NAngle ED end
+ gsave
+ CM STV
+ CP Y sub neg exch X sub neg exch moveto
+ setmatrix CP
+ grestore
+} def
+%
+/LPut {
+ tx@NodeDict /LPutPos known
+ { LPutPos } { CP /Y ED /X ED /NAngle 0 def } ifelse
+ LPutCoor
+} def
+%
+/HPutAdjust {
+ Sin Cos mul 0 eq
+ { 0 }
+ { d Cos mul Sin div flag not { neg } if
+ h Cos mul Sin div flag { neg } if
+ 2 copy gt { pop } { exch pop } ifelse
+ } ifelse
+ s add flag { r add neg }{ l add } ifelse
+ X add /X ED
+} def
+%
+/VPutAdjust {
+ Sin Cos mul
+ 0 eq
+ { 0 }
+ { l Sin mul Cos div flag { neg } if
+ r Sin mul Cos div flag not { neg } if
+ 2 copy gt { pop } { exch pop } ifelse
+ } ifelse
+ s add flag { d add } { h add neg } ifelse
+ Y add /Y ED
+} def
+%
+%
+end
+%
+% END pst-node.pro
+
+%%EndProcSet
+%%BeginProcSet: pst-math.pro 0 0
+% -*- Mode: Postscript -*-
+% pst-math.pro --- PostScript header file pst-math.pro
+%
+% Author : Christophe JORSSEN
+% Author : Herbert Voß <hvoss@tug.org>
+% Created the : Sat 20 March 2004
+% Last Mod : $Date: 2010/10/02 $
+% Version : 0.62 $
+%
+/PI 3.14159265359 def
+/ENeperian 2.71828182846 def
+%
+/DegToRad {PI mul 180 div} bind def
+/RadToDeg {180 mul PI div} bind def
+%
+/COS {RadToDeg cos} bind def
+/SIN {RadToDeg sin} bind def
+/TAN {dup SIN exch COS Div} bind def
+/tan {dup sin exch cos Div} bind def
+/ATAN {neg -1 atan 180 sub DegToRad} bind def
+/ACOS {dup dup mul neg 1 add sqrt exch atan DegToRad} bind def
+/acos {dup dup mul neg 1 add sqrt exch atan} bind def
+/ASIN {neg dup dup mul neg 1 add sqrt neg atan 180 sub DegToRad} bind def
+/asin {neg dup dup mul neg 1 add sqrt neg atan 180 sub} bind def
+%
+/EXP {ENeperian exch exp} bind def
+%
+/COSH {dup EXP exch neg EXP add 2 div} bind def
+/SINH {dup EXP exch neg EXP sub 2 div} bind def
+/TANH {dup SINH exch COSH div} bind def
+/ACOSH {dup dup mul 1 sub sqrt add ln} bind def
+/ASINH {dup dup mul 1 add sqrt add ln} bind def
+/ATANH {dup 1 add exch neg 1 add Div ln 2 div} bind def
+%
+%/SINC {dup SIN exch Div} bind def
+/SINC { dup 0 eq { pop 1 } { dup SIN exch div } ifelse } bind def
+
+/GAUSS {dup mul 2 mul dup 4 -2 roll sub dup mul exch div neg EXP exch PI mul sqrt div} bind def
+%
+/GAMMA { 2 dict begin % hv 2007-08-30
+ /z exch def
+ 1.000000000190015 % p(0)
+ 0 1 5 { % on stack is 0 1 2 3 4 5
+ dup % n-1 n-1
+ [ 76.18009172947146
+ -86.50532032941677
+ 24.0140982483091
+ -1.231739572450155
+ 0.1208650973866179E-2
+ -0.5395239384953E-5 ] exch get exch % p(n) n-1
+ 1 add z add div % p(n)/(z+n)
+ add % build the sum
+ } for
+ Pi 2 mul sqrt z div mul
+ z 5.5 add z 0.5 add exp mul ENeperian z 5.5 add neg exp mul
+ end } bind def
+%
+/GAMMALN {dup dup dup 5.5 add dup ln 3 -1 roll .5 add mul sub neg 1.000000000190015
+ 0 1 5 {
+ [76.18009172947146 -86.50532032941677 24.0140982483091 -1.231739572450155
+ .1208650973866179E-2 -.5395239384953E-5 2.5066282746310005] exch get
+ 4 -1 roll 1 add dup 5 1 roll div add} for
+ 4 -1 roll div 2.5066282746310005 mul ln add exch pop} bind def
+/BETA {2 copy add GAMMALN neg exch GAMMALN 3 -1 roll GAMMALN EXP} bind def
+%
+/HORNER {aload length
+ dup 2 add -1 roll
+ exch 1 sub {
+ dup 4 1 roll
+ mul add exch
+ } repeat
+ pop
+} bind def
+%
+/BESSEL_J0 {dup abs 8 lt {
+ dup mul dup [57568490574 -13362590354 651619640.7 -11214424.18 77392.33017 -184.9052456] HORNER
+ exch [57568490411 1029532985 9494680.718 59272.64853 267.8532712 1] HORNER
+ Div}
+ {abs dup .636619772 exch div sqrt exch dup .785398164 sub exch 8 exch div dup dup mul dup
+ [1 -1.098628627E-2 .2734510407E-4 -.2073370639E-5 .2093887211E-6] HORNER
+ 3 index COS mul
+ exch [-.1562499995E-1 .1430488765E-3 -.6911147651E-5 .7621095161E-6 -.934945152E-7] HORNER
+ 4 -1 roll SIN mul 3 -1 roll mul neg add mul}
+ ifelse} bind def
+%
+/BESSEL_Y0 {dup 8 lt {
+ dup dup mul dup [-2957821389 7062834065 -512359803.6 10879881.29 -86327.92757 228.4622733] HORNER
+ exch [40076544269 745249964.8 7189466.438 47447.26470 226.1030244 1] HORNER
+ Div exch dup ln exch BESSEL_J0 .636619772 mul mul add}
+ {dup .636619772 exch div sqrt exch dup .785398164 sub exch 8 exch div dup dup mul dup
+ [1 -.1098628627E-2 .2734510407E-4 -.2073370639E-5 .2093887211E-6] HORNER
+ 3 index SIN mul
+ exch [-.1562499995E-1 .1430488765E-3 -.6911147651E-5 .7621095161E-6 -.934945152E-7] HORNER
+ 4 -1 roll COS mul 3 -1 roll mul add mul}
+ ifelse} bind def
+%
+/BESSEL_J1 {dup abs 8 lt {
+ dup dup mul dup 3 -2 roll [72362614232 -7895059235 242396853.1 -2972611.439 15704.48260 -30.16036606] HORNER mul
+ exch [144725228442 2300535178 18583304.74 99447.43394 376.9991397 1] HORNER
+ Div}
+ {dup abs dup .636619772 exch div sqrt exch dup 2.356194491 sub exch 8 exch div dup dup mul dup
+ [1 .183105E-2 -.3516396496E-4 .2457520174E-5 -.240337019E-6] HORNER
+ 3 index COS mul
+ exch [.04687499995 6.2002690873E-3 .8449199096E-5 -.88228987E-6 .105787412E-6] HORNER
+ 4 -1 roll SIN mul 3 -1 roll mul neg add mul exch dup abs Div mul}
+ ifelse} bind def
+%
+/BESSEL_Y1 {dup 8 lt {
+ dup dup dup mul dup [-.4900604943E13 .1275274390E13 -.5153428139E11 .7349264551E9 -.4237922726E7 .8511937935E4] HORNER
+ exch [.2499580570E14 .4244419664E12 .3733650367E10 .2245904002E8 .1020426050E6 .3549632885E3 1] HORNER
+ Div mul exch dup dup ln exch BESSEL_J1 mul exch 1 exch div sub .636619772 mul add}
+ {dup .636619772 exch div sqrt exch dup 2.356194491 sub exch 8 exch div dup dup mul dup
+ [1 .183105E-2 -.3516396496E-4 .2457520174E-5 -.240337019E-6] HORNER
+ 3 index SIN mul
+ exch [.04687499995 -.2002690873E-3 .8449199096E-5 6.88228987E-6 .105787412E-6] HORNER
+ 4 -1 roll COS mul 3 -1 roll mul add mul}
+ ifelse} bind def
+%
+% En cours...
+/BESSEL_Yn {dup 0 eq {pop BESSEL_Y0}{dup 1 eq {pop BESSEL_Y1}{
+ exch dup BESSEL_Y0 exch dup BESSEL_Y1 exch 2 exch Div {
+ mul 3 -1 roll mul 2 index sub pstack} for
+ } ifelse } ifelse } bind def
+%
+/SIMPSON { 1 dict begin %% on stack a b var f ierr Dominik Rodriguez
+ 3 index 5 index sub % compute h
+ 1 % a b var f ierr h n
+ 4 index 7 index def 3 index exec % a b var f ierr h n f(a)
+ 5 index 7 index def 4 index exec add % a b var f ierr h n f(a)+f(b)
+ 5 index 8 index 4 index 2 div add def 4 index exec % a b var f ierr h n f(a)+f(b) f(a+h/2)
+ exch 1 index 4 mul add 0 % a b var f ierr h n old=f(a+h/2) Estim=f(a)+f(b)+4f(a+h/2) NbLoop
+ { % a b var f ierr h n old Estim NbLoop
+ 5 -1 roll 2 div dup 6 1 roll % h<-h/2
+ 5 -1 roll 2 mul 5 1 roll % n<-2n
+ % a b var f ierr h n old Estim NbLoop h
+ 2 div 10 index add 0 % a b var f ierr h n old Estim NbLoop a+h/2 Cumul
+ 5 index {
+ 1 index 10 index exch def 8 index exec add exch 6 index add exch
+ } repeat % a b var f ierr h n old Estim NbLoop a+nh/2 Cumul
+ exch pop % a b var f ierr h n old Estim NbLoop New
+ 2 index 1 index 4 mul 6 -1 roll 2 mul sub sub % a b var f ierr h n Estim NbLoop New Diff
+ 4 -1 roll 2 mul 1 index sub 4 1 roll % a b var f ierr h n Estim NbLoop New Diff
+ exch 4 1 roll % a b var f ierr h n old Estim NbLoop Diff
+ 5 index 6 div mul abs 6 index lt { exit } if
+ 1 add dup 9 eq { exit } if
+ } loop % a b var f ierr h n old Estim NbLoop
+ exch 5 -1 roll 6 div mul mark 10 2 roll cleartomark
+end
+} def
+% ------------------------------------ math stuff ----------------------------------
+%
+% Matrix A in arrays of rows A[[row1][row2]...]
+% with [row1]=[a11 a12 ... b1]
+% returns on stack solution vector X=[x1 x2 ... xn]
+/SolveLinEqSystem { % on stack matrix M=[A,b] (A*x=b)
+ 10 dict begin % hold all ocal
+ /A exch def
+ /Rows A length def % Rows = number of rows
+ /Cols A 0 get length def % Cols = number of columns
+ /Index [ 0 1 Rows 1 sub { } for ] def % Index = [0 1 2 ... Rows-1]
+ /col 0 def
+ /row 0 def
+ /PR Rows array def % PR[c] = pivot row for row row
+ { % starts the loop, find pivot entry in row r
+ col Cols ge row Rows ge or { exit } if % col < Cols and row < Rows else exit
+ /pRow row def % pRow = pivot row
+ /max A row get col get abs def % get A[row[col]], first A[0,0]
+ row 1 add 1 Rows 1 sub { % starts for loop 1 1 Rows-1
+ /j exch def % index counter
+ /x A j get col get abs def % get A[j[r]]
+ x max gt { % x>max, then save position
+ /pRow j def
+ /max x def
+ } if
+ } for % now we have the row with biggest A[0,1]
+ % with pRow = the pivot row
+ max 0 gt { % swap entries pRow and row in i
+ /tmp Index row get def
+ Index row Index pRow get put
+ Index pRow tmp put % and columns pRow and row in A
+ /tmp A row get def
+ A row A pRow get put
+ A pRow tmp put % pivot
+ /row0 A row get def % the pivoting row
+ /p0 row0 col get def % the pivot value
+ row 1 add 1 Rows 1 sub { % start for loop
+ /j exch def
+ /c1 A j get def
+ /p c1 col get p0 div def
+ c1 col p put % subtract (p1/p0)*row[i] from row[j]
+ col 1 add 1 Cols 1 sub { % start for loop
+ /i exch def
+ c1 dup i exch % c1 i c1
+ i get row0 i get p mul sub put
+ } for
+ } for
+ PR row col put
+ /col col 1 add def
+ /row row 1 add def
+ }{ % all zero entries
+ /row row 1 add def % continue loop with same row
+ } ifelse
+ } loop
+ /X A def % solution vector
+ A Rows 1 sub get dup
+ Cols 1 sub get exch
+ Cols 2 sub get div
+ X Rows 1 sub 3 -1 roll put % X[n]
+ Rows 2 sub -1 0 { % for loop to calculate X[i]
+ /xi exch def % current index
+ A xi get % i-th row
+ /Axi exch def
+ /sum 0 def
+ Cols 2 sub -1 xi 1 add {
+ /n exch def
+ /sum sum Axi n get X n get mul add def
+ } for
+ Axi Cols 1 sub get % b=Axi[Cols-1]
+ sum sub % b-sum
+ Axi xi get div % b-sum / Axi[xi]
+ X xi 3 -1 roll put % X[xi]
+ } for
+ X
+ end
+} def
+%
+/c@_0 2.515517 def
+/c@_1 0.802853 def
+/c@_2 0.010328 def
+/d@_1 1.432788 def
+/d@_2 0.189269 def
+/d@_3 0.001308 def
+/norminv {
+ 5 dict begin
+ neg 1 add 1 exch div ln 2 mul sqrt
+ /t exch def
+ /t2 t dup mul def
+ /t3 t2 t mul def
+ c@_0 c@_1 t mul add c@_2 t2 mul add 1 d@_1 t mul add
+ d@_2 t2 mul add d@_3 t3 mul add div neg t add
+ end
+} def
+%end{norminv Michael Sharpe}
+%
+%
+% END pst-math.pro
+
+%%EndProcSet
+%%BeginProcSet: pst-3d.pro 0 0
+%% $Id: pst-3d.pro 247 2010-01-04 22:45:42Z herbert $
+% PostScript prologue for pst-3d.tex.
+% Version 0.01, 2010/01/01
+%
+/tx@3Ddict 300 dict def
+tx@3Ddict begin
+%
+/SetMatrixThreeD {
+ dup sin /e ED cos /f ED
+ /p3 ED /p2 ED /p1 ED
+ p1 0 eq
+ { /a 0 def /b p2 0 le { 1 } { -1 } ifelse def
+ p3 p2 abs
+ }
+ { p2 0 eq
+ { /a p1 0 lt { -1 } { 1 } ifelse def /b 0 def
+ p3 p1 abs
+ }
+ { p1 dup mul p2 dup mul add sqrt dup
+ p1 exch div /a ED
+ p2 exch div neg /b ED
+ p3 p1 a div
+ }
+ ifelse
+ }
+ ifelse
+ atan dup sin /c ED cos /d ED
+ /Matrix3D
+ [
+ b f mul c a mul e mul sub
+ a f mul c b mul e mul add
+ d e mul
+ b e mul neg c a mul f mul sub
+ a e mul neg c b mul f mul add
+ d f mul
+ ] def
+} def
+%
+/ProjThreeD {
+ /z ED /y ED /x ED
+ Matrix3D aload pop
+ z mul exch y mul add exch x mul add
+ 4 1 roll
+ z mul exch y mul add exch x mul add
+ exch
+} def
+%
+/SetMatrixEmbed {
+ SetMatrixThreeD
+ Matrix3D aload pop
+ /z3 ED /z2 ED /z1 ED /x3 ED /x2 ED /x1 ED
+ SetMatrixThreeD
+ [
+ Matrix3D aload pop
+ z3 mul exch z2 mul add exch z1 mul add 4 1 roll
+ z3 mul exch z2 mul add exch z1 mul add
+ Matrix3D aload pop
+ x3 mul exch x2 mul add exch x1 mul add 4 1 roll
+ x3 mul exch x2 mul add exch x1 mul add
+ 3 -1 roll 3 -1 roll 4 -1 roll 8 -3 roll 3 copy
+ x3 mul exch x2 mul add exch x1 mul add 4 1 roll
+ z3 mul exch z2 mul add exch z1 mul add
+ ]
+ concat
+} def
+%
+/TMSave {
+ tx@Dict /TMatrix known not { /TMatrix { } def /RAngle { 0 } def } if
+ /TMatrix [ TMatrix CM ] cvx def
+} def
+%
+/TMRestore { CP /TMatrix [ TMatrix setmatrix ] cvx def moveto } def
+%
+/TMChange {
+ TMSave
+ /cp [ currentpoint ] cvx def % ??? Check this later.
+ CM
+ CP T STV
+ CM matrix invertmatrix % Inv(M')
+ matrix concatmatrix % M Inv(M')
+ exch exec
+ concat cp moveto
+} def
+%
+end % of tx@3Ddict
+%%
+%% End of file `pst-3d.pro'.
+
+%%EndProcSet
+%%BeginProcSet: pstricks-add.pro 0 0
+%% $Id: pstricks-add.pro 328 2010-05-24 15:56:43Z herbert $
+% PostScript prologue for pstricks-add.tex.
+% Version 0.23, 2009/12/17
+%
+/tx@addDict 410 dict def tx@addDict begin
+%%
+realtime srand % set random generator
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+/GTriangle {
+ gsave
+ /mtrx CM def
+ /colorA ED /colorB ED /colorC ED % save the colors
+ /yA ED /xA ED % save the origin
+ xA yA translate
+ rotate % \psk@gangle
+ /yB ED /xB ED /yC ED /xC ED % save other coordinates
+ /ds [ % save data in a array
+ 0 0 0 colorA aload pop % fd x y xr xg xb
+ 0 xB xA sub yB yA sub colorB aload pop
+ 0 xC xA sub yC yA sub colorC aload pop
+% 1 xC xB add yB colorA aload pop % for use with 4 points ABCD
+ ] def
+ newpath
+ <<
+ /ShadingType 4 % single Gouraud
+ /ColorSpace [ /DeviceRGB ]
+ /DataSource ds
+ >>
+ shfill
+ closepath
+ mtrx
+ setmatrix grestore} def
+%
+/RGBtoCMYK { % on stack r g b -> C M Y K
+ 3 dict begin
+ /Blue ED /Green ED /Red ED
+ 1 Red sub % Cyan
+ 1 Green sub % Magenta
+ 1 Blue sub % Yellow
+ 0 % Black
+ end
+} def
+%
+/CMYKtoGRAY { % on stack c m y k -> gray
+ exch 0.11 mul add
+ exch 0.59 mul add
+ exch 0.3 mul add
+ dup 1 gt { pop 1 } if
+ neg 1 add
+} def
+%
+/RGBtoGRAY { % on stack r g b -> gray
+ 0.11 mul
+ exch 0.59 mul add
+ exch 0.3 mul add
+} def
+%
+/HSBtoGRAY {
+ 6 dict begin
+ /b exch def
+ /s exch def 6 mul dup cvi dup
+ /i exch def sub
+ /f exch def
+ /F [[0 1 f sub 1][f 0 1][1 0 1 f sub][1 f 0][1 f sub 1 0][0 1 f][0 1 1]] def
+ F i get { s mul neg 1 add b mul} forall
+ 0.11 mul
+ exch 0.59 mul add
+ exch 0.3 mul add
+ end
+} def
+%
+%% convertisseur longueur d'onde ->R,G,B Manuel Luque
+%% lambda max=780 nanometres
+%% lambda min=380 nanometres
+%% adaptation de :
+%% http://www.physics.sfasu.edu/astro/color.html
+%% www.efg2.com/lab
+%
+/Gamma 0.8 def
+/calculateRGB {
+ lambda 379 le {/Red 0 def /Green 0 def /Blue 0 def} if
+ lambda 781 ge {/Red 0 def /Green 0 def /Blue 0 def} if
+ lambda 380 ge {lambda 439 le {
+ /R {lambda 440 sub neg 440 380 sub div} def
+ /Red R factor mul Gamma exp def
+ /G 0 def
+ /Green G factor mul Gamma exp def
+ /B 1 def
+ /Blue B factor mul Gamma exp def} if
+ } if
+ lambda 440 ge { lambda 489 le {
+ /G {lambda 440 sub 490 440 sub div} def
+ /Green G factor mul Gamma exp def
+ /R 0 def /Red 0 def
+ /B 1 def
+ /Blue B factor mul Gamma exp def } if
+ } if
+ lambda 490 ge {lambda 509 le {
+ /B {lambda 510 sub neg 510 490 sub div} def
+ /Blue B factor mul Gamma exp def
+ /R 0 def /Red 0 def
+ /G 1 def
+ /Green G factor mul Gamma exp def } if
+ } if
+ lambda 510 ge {lambda 579 le {
+ /R {lambda 510 sub 580 510 sub div } def
+ /Red R factor mul Gamma exp def
+ /Blue 0 def
+ /G 1 def
+ /Green G factor mul Gamma exp def } if
+ } if
+ lambda 580 ge {lambda 644 le {
+ /G {lambda 645 sub neg 645 580 sub div } def
+ /Green G factor mul Gamma exp def
+ /Blue 0 def
+ /R 1 def
+ /Red R factor mul Gamma exp def } if
+ } if
+ lambda 645 ge { lambda 780 le {
+ /Red 1 factor mul Gamma exp def
+ /Blue 0 def
+ /Green 0 def } if
+ } if
+} def
+%
+/factor {
+ lambda 380 ge {lambda 419 le { 0.3 0.7 lambda 380 sub mul 420 380 sub div add} if } if
+ lambda 420 ge {lambda 700 le { 1 } if } if
+ lambda 701 ge {lambda 780 le { 0.3 0.7 780 lambda sub mul 780 700 sub div add} if } if
+} def
+%
+/wavelengthToRGB { % the wavelength in nm must be on top of the stack
+ cvi /lambda exch def % no floating point here
+ calculateRGB
+} def % now the colors are saved in Red Green Blue
+%
+/wavelengthToGRAY { % the wavelength in nm must be on top of the stack
+ cvi /lambda exch def % no floating point here
+ calculateRGB
+ Red Green Blue RGBtoGRAY
+} def % now the gray color is on the stack
+%
+/wavelengthToCMYK { % the wavelength in nm must be on top of the stack
+ cvi /lambda exch def % no floating point here
+ gsave
+ calculateRGB Red Green Blue RGBtoCMYK
+ /Black ED /Yellow ED /Magenta ED /Cyan ED
+ grestore
+} def % now the colors are saved in Cyan Magenta Yellow Black
+%
+/axfill {
+ 8 dict begin
+ /xw exch def /nl exch def
+ /C1 exch def /y1 exch def/x1 exch def
+ /C0 exch def /y0 exch def/x0 exch def
+ << /ShadingType 2
+ /ColorSpace /DeviceRGB
+ /Coords [ x0 y0 x1 y1 ]
+ /EmulatorHints [ xw 2 div dup ]
+ /Function <<
+ /FunctionType 2
+ /Domain [0 1]
+ /C0 C0
+ /C1 C1
+ /N 1
+ >>
+ >> shfill
+ end
+} bind def
+%
+%/amplHand {.8} def
+%/dtHand 2 def
+/varHand { rand sin amplHand mul add } def
+/MovetoByHand { moveto } def
+%/MovetoByHand { /y0 ED /x0 ED x0 y0 moveto } def
+/LinetoByHand { 4 dict begin
+ /y1 ED /x1 ED
+ currentpoint /y0 ED /x0 ED
+ x0 x1 sub dup mul y0 y1 sub dup mul add sqrt /dEnd ED
+ 0 dtHand dEnd { dup
+ x1 x0 sub mul dEnd div x0 add varHand exch
+ y1 y0 sub mul dEnd div y0 add varHand lineto
+ } for
+% /x0 x1 def /y0 y1 def
+ end
+} def
+%
+end
+%
+% END pstricks-add.pro
+
+%%EndProcSet
+%%BeginProcSet: pst-func.pro 0 0
+%% $Id: pst-func.pro 355 2010-06-21 10:02:44Z herbert $
+%%
+%% This is file `pst-func.pro',
+%%
+%% IMPORTANT NOTICE:
+%%
+%% Package `pst-func'
+%%
+%% Herbert Voss <hvoss@tug.org>
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%%
+%% DESCRIPTION:
+%% `pst-func' is a PSTricks package to plot special math functions
+%%
+%%
+%% version 0.13 / 2010-06-21 Herbert Voss
+%
+/tx@FuncDict 100 dict def
+tx@FuncDict begin
+%
+/eps1 1.0e-05 def
+/eps2 1.0e-04 def
+/eps8 1.0e-08 def
+/Pi2 1.57079632679489661925640 def
+/CEuler 0.5772156649 def % Euler-Mascheroni constant
+%
+/factorial { % n on stack, returns n!
+ dup 0 eq { 1 }{
+ dup 1 gt { dup 1 sub factorial mul } if }
+ ifelse } def
+%
+/MoverN { % m n on stack, returns the binomial coefficient m over n
+ 2 dict begin
+ /n exch def /m exch def
+ n 0 eq { 1 }{
+ m n eq { 1 }{
+ m factorial n factorial m n sub factorial mul div } ifelse } ifelse
+ end
+} def
+%
+/Pascal [
+ [ 1 ] % 0
+ [ 1 1 ] % 1
+ [ 1 2 1 ] % 2
+ [ 1 3 3 1 ] % 3
+ [ 1 4 6 4 1 ] % 4
+ [ 1 5 10 10 5 1 ] % 5
+ [ 1 6 15 20 15 6 1 ] % 6
+ [ 1 7 21 35 35 21 7 1 ] % 7
+ [ 1 8 28 56 70 56 28 8 1 ] % 8
+ [ 1 9 36 84 126 126 84 36 9 1 ] % 9
+] def
+%
+/GetBezierCoor { % t on stack
+ 10 dict begin % hold all local
+ /t ED
+ /t1 1 t sub def % t1=1-t
+ /Coeff Pascal BezierType get def % get the coefficients
+ 0 0 % initial values for x y
+ BezierType -1 0 { % BezierType,...,2,1,0
+ /I ED % I=BezierType,...,2,1,0
+ /J BezierType I sub def % J=0,1,2,...,BezierType
+ /T t I exp Coeff J get mul def % coeff(J)*t^I
+ /T1 t1 J exp def % t1^J
+ Points I dup add 1 add get % y(2*I+1)
+ T mul T1 mul add % the y coordinate
+ exch % y x
+ Points I dup add get % x(2*I)
+ T mul T1 mul add % the x coordinate
+ exch % x y
+ } for % x y on stack
+ end
+} def
+%
+/BezierCurve { % on stack [ coors psk@plotpoints BezierType
+% 10 dict begin
+ /BezierType ED
+ 1 exch div /epsilon ED
+ ] /Points ED % yi xi ... y3 x3 y2 x2 y1 x1 y0 x0
+ epsilon GetBezierCoor % next Bezier point
+ Points 0 get Points 1 get % starting point
+ ArrowA moveto
+ epsilon epsilon 1 {
+ /t ED
+ t GetBezierCoor
+ t 0.9999 lt { lineto }{ 1 epsilon sub GetBezierCoor 4 2 roll ArrowB pop pop pop pop } ifelse
+ } for
+% end
+} def
+%
+/Bernstein { % on stack tStart tEnd plotpoints i n
+ 12 dict begin % hold all local
+ /envelope ED % plot envelope?
+ /n ED
+ /i ED
+ /ni n i sub def
+ /epsilon ED % step=1/plotpoints
+ /tEnd ED
+ /tStart ED
+%
+% B_{i,n}(t)=\binom{n}{i}t^i(1-t)^{n-i} (Bernstein)
+% f_n(x)=\frac{1}{\sqrt{\pi n\cdot x(1-x)}} (envelope)
+%
+ n i MoverN /noveri ED % \binom{n}{i}
+ [ % for the array of points
+ tStart epsilon tEnd {
+ dup dup /t ED % leave one on stack
+ neg 1 add /t1 ED % t1=1-t
+ envelope
+ { t t1 mul 4 mul Pi2 mul n mul sqrt 1 exch Div } % envelope
+ { noveri t i exp mul t1 ni exp mul } ifelse % t f(t)
+ ScreenCoor % convert to screen coor
+ } for
+ end
+ false /Lineto /lineto load def Line
+} def
+%
+/Si { % integral sin from 0 to x (arg on stack)
+ /arg exch def
+ /Sum arg def
+ /sign -1 def
+ /index 3 def
+ {
+ arg index exp index div index factorial div sign mul
+ dup abs eps8 lt { pop exit } if
+ Sum add /Sum exch def
+ /sign sign neg def
+ /index index 2 add def
+ } loop
+ Sum
+} def
+/si { % integral sin from x to infty -> si(x)=Si(x)-pi/2
+ Si Pi2 sub
+} def
+/Ci { % integral cosin from x to infty (arg on stack)
+ abs /arg exch def
+ arg 0 eq { 0 } {
+ /argExp 1 def
+ /fact 1 def
+ /Sum CEuler arg ln add def
+ /sign -1 def
+ /index 2 def
+ {
+ /argExp argExp arg arg mul mul def
+ /fact fact index 1 sub index mul mul def
+ argExp index div fact div sign mul
+ dup abs exch Sum add /Sum exch def
+ eps8 lt { exit } if
+ /sign sign neg def
+ /index index 2 add def
+ } loop
+ Sum
+ } ifelse
+} def
+/ci { % integral cosin from x to infty -> ci(x)=-Ci(x)+ln(x)+CEuler
+ dup Ci neg exch abs ln add CEuler add
+} def
+%
+/MaxIter 255 def
+/func { coeff Derivation FuncValue } def
+/func' { coeff Derivation 1 add FuncValue } def
+/func'' { coeff Derivation 2 add FuncValue } def
+%
+/NewtonMehrfach {% the start value must be on top of the stack
+ /Nx exch def
+ /Iter 0 def
+ {
+ /Iter Iter 1 add def
+ Nx func /F exch def % f(Nx)
+ F abs eps2 lt { exit } if
+ Nx func' /FS exch def % f'(Nx)
+ FS 0 eq { /FS 1.0e-06 def } if
+ Nx func'' /F2S exch def % f''(Nx)
+ 1.0 1.0 F F2S mul FS dup mul div sub div /J exch def
+ J F mul FS div /Diff exch def
+ /Nx Nx Diff sub def
+ Diff abs eps1 lt Iter MaxIter gt or { exit } if
+ } loop
+ Nx % the returned value ist the zero point
+} def
+
+/Steffensen {% the start value must be on top of the stack
+ /y0 exch def % the start value
+ /Iter 0 def
+ {
+ y0 func /F exch def
+ F abs eps2 lt { exit } if
+ y0 F sub /Phi exch def
+ Phi func /F2 exch def
+ F2 abs eps2 le { exit }{
+ Phi y0 sub dup mul Phi F2 sub 2 Phi mul sub y0 add Div /Diff exch def
+ y0 Diff sub /y0 exch def
+ Diff abs eps1 le { exit } if
+ } ifelse
+ /Iter Iter 1 add def
+ Iter MaxIter gt { exit } if
+ } loop
+ y0 % the returned value ist the zero point
+} def
+%
+/Horner {% x [coeff] must be on top of the stack
+ aload length
+ dup 2 add -1 roll
+ exch 1 sub {
+ dup 4 1 roll
+ mul add exch
+ } repeat
+ pop % the y value is on top of the stack
+} def
+%
+/FuncValue {% x [coeff] Derivation must be on top of the stack
+ {
+ aload % a0 a1 a2 ... a(n-1) [array]
+ length % a0 a1 a2 ... a(n-1) n
+ 1 sub /grad exch def % a0 a1 a2 ... a(n-1)
+ grad -1 1 { % for n=grad step -1 until 1
+ /n exch def % Laufvariable speichern
+ n % a0 a1 a2 ... a(n-1) n
+ mul % a0 a1 a2 ... a(n-1)*n
+ grad 1 add % a0 a1 a2 ... a(n-1)*n grad+1
+ 1 roll % an*na0 a1 a2 ... a(n-2)
+ } for
+ pop % loesche a0
+ grad array astore % [ a1 a2 ... a(n-2)]
+ } repeat
+ Horner
+} def
+%
+/FindZeros { % dxN dxZ must be on top of the stack (x0..x1 the intervall) => []
+ 12 dict begin
+ /dxZ exch def /dxN exch def
+ /pstZeros [] def
+ x0 dxZ x1 { % suche Nullstellen
+ /xWert exch def
+ xWert NewtonMehrfach
+ %xWert Steffensen
+ /xNull exch def
+ pstZeros aload length /Laenge exch def % now test if value is a new one
+ Laenge 0 eq
+ { xNull 1 }
+ { /newZero true def
+ Laenge {
+ xNull sub abs dxN lt { /newZero false def } if
+ } repeat
+ pstZeros aload pop
+ newZero { xNull Laenge 1 add } { Laenge } ifelse } ifelse
+ array astore
+ /pstZeros exch def
+ } for
+ pstZeros % the end array is now on the stack
+ end
+} def
+%
+/Simpson { % on stack must be a b M --- simple version ---
+% /SFunc must be defined
+ /M ED /b ED /a ED
+ /h b a sub M 2 mul div def
+ /s1 0 def
+ /s2 0 def
+ 1 1 M {
+ /k exch def
+ /x k 2 mul 1 sub h mul a add def
+ /s1 s1 x SFunc add def
+ } for
+ 1 1 M 1 sub {
+ /k exch def
+ /x k 2 mul h mul a add def
+ /s2 s2 x SFunc add def
+ } for
+ /I a SFunc b SFunc add s1 4 mul add s2 2 mul add 3 div h mul def
+} def
+%
+/LogGamma { 5 dict begin % z on stack
+ /z ED
+ /sum 0 def
+ /k 1 def
+ {
+ z k div dup 1 add ln sub dup
+ abs eps8 lt { pop exit } if
+ sum add /sum exch def
+ /k k 1 add def
+ } loop
+ sum z ln sub CEuler z mul sub
+ end
+} def
+%
+/ChebyshevT { 5 dict begin % z on stack
+ /xtmp exch def
+ /n exch def
+ 0 0 1 n .5 mul floor {
+ /k exch def
+ xtmp xtmp mul 1 sub k exp
+ xtmp n 2 k mul sub exp mul
+ n 2 k mul MoverN mul
+ add
+ } for
+ end
+} def
+%
+/ChebyshevU {5 dict begin % z on stack
+ /xtmp exch def
+ /n exch def
+ 0 0 1 n .5 mul floor {
+ /k exch def
+ xtmp xtmp mul 1 sub k exp
+ xtmp n 2 k mul sub exp mul
+ n 1 add 2 k mul 1 add MoverN mul
+ add
+ } for
+ end
+} def
+%
+% subroutines for complex numbers, given as an array [a b]
+% which is a+bi = Real+i Imag
+%
+/cxadd { % [a1 b1] [a2 b2] = [a1+a2 b1+b2]
+ dup 0 get % [a1 b1] [a2 b2] a2
+ 3 -1 roll % [a2 b2] a2 [a1 b1]
+ dup 0 get % [a2 b2] a2 [a1 b1] a1
+ 3 -1 roll % [a2 b2] [a1 b1] a1 a2
+ add % [a2 b2] [a1 b1] a1+a2
+ 3 1 roll % a1+a2 [a2 b2] [a1 b1]
+ 1 get % a1+a2 [a2 b2] b1
+ exch 1 get % a1+a2 b1 b2
+ add 2 array astore
+} def
+%
+/cxneg { % [a b]
+ dup 1 get % [a b] b
+ exch 0 get % b a
+ neg exch neg % -a -b
+ 2 array astore
+} def
+%
+/cxsub { cxneg cxadd } def % same as negative addition
+%
+% [a1 b1][a2 b2] = [a1a2-b1b2 a1b2+b1a2] = [a3 b3]
+/cxmul { % [a1 b1] [a2 b2]
+ dup 0 get % [a1 b1] [a2 b2] a2
+ exch 1 get % [a1 b1] a2 b2
+ 3 -1 roll % a2 b2 [a1 b1]
+ dup 0 get % a2 b2 [a1 b1] a1
+ exch 1 get % a2 b2 a1 b1
+ dup % a2 b2 a1 b1 b1
+ 5 -1 roll dup % b2 a1 b1 b1 a2 a2
+ 3 1 roll mul % b2 a1 b1 a2 b1a2
+ 5 -2 roll dup % b1 a2 b1a2 b2 a1 a1
+ 3 -1 roll dup % b1 a2 b1a2 a1 a1 b2 b2
+ 3 1 roll mul % b1 a2 b1a2 a1 b2 a1b2
+ 4 -1 roll add % b1 a2 a1 b2 b3
+ 4 2 roll mul % b1 b2 b3 a1a2
+ 4 2 roll mul sub % b3 a3
+ exch 2 array astore
+} def
+%
+% [a b]^2 = [a^2-b^2 2ab] = [a2 b2]
+/cxsqr { % [a b] square root
+ dup 0 get exch 1 get % a b
+ dup dup mul % a b b^2
+ 3 -1 roll % b b^2 a
+ dup dup mul % b b^2 a a^2
+ 3 -1 roll sub % b a a2
+ 3 1 roll mul 2 mul % a2 b2
+ 2 array astore
+} def
+%
+/cxsqrt { % [a b]
+% dup cxnorm sqrt /r exch def
+% cxarg 2 div RadtoDeg dup cos r mul exch sin r mul cxmake2
+ cxlog % log[a b]
+ 2 cxrdiv % log[a b]/2
+ aload pop exch % b a
+ 2.781 exch exp % b exp(a)
+ exch cxconv exch % [Re +iIm] exp(a)
+ cxrmul %
+} def
+%
+/cxarg { % [a b]
+ aload pop % a b
+ exch atan % arctan b/a
+ DegtoRad % arg(z)=atan(b/a)
+} def
+%
+% log[a b] = [a^2-b^2 2ab] = [a2 b2]
+/cxlog { % [a b]
+ dup % [a b][a b]
+ cxnorm % [a b] |z|
+ log % [a b] log|z|
+ exch % log|z|[a b]
+ cxarg % log|z| Theta
+ cxmake2 % [log|z| Theta]
+} def
+%
+% square of magnitude of complex number
+/cxnorm2 { % [a b]
+ dup 0 get exch 1 get % a b
+ dup mul % a b^2
+ exch dup mul add % a^2+b^2
+} def
+%
+/cxnorm { % [a b]
+ cxnorm2 sqrt
+} def
+%
+/cxconj { % conjugent complex
+ dup 0 get exch 1 get % a b
+ neg 2 array astore % [a -b]
+} def
+%
+/cxre { 0 get } def % real value
+/cxim { 1 get } def % imag value
+%
+% 1/[a b] = ([a -b]/(a^2+b^2)
+/cxrecip { % [a b]
+ dup cxnorm2 exch % n2 [a b]
+ dup 0 get exch 1 get % n2 a b
+ 3 -1 roll % a b n2
+ dup % a b n2 n2
+ 4 -1 roll exch div % b n2 a/n2
+ 3 1 roll div % a/n2 b/n2
+ neg 2 array astore
+} def
+%
+/cxmake1 { 0 2 array astore } def % make a complex number, real given
+/cxmake2 { 2 array astore } def % dito, both given
+%
+/cxdiv { cxrecip cxmul } def
+%
+% multiplikation by a real number
+/cxrmul { % [a b] r
+ exch aload pop % r a b
+ 3 -1 roll dup % a b r r
+ 3 1 roll mul % a r b*r
+ 3 1 roll mul % b*r a*r
+ exch 2 array astore % [a*r b*r]
+} def
+%
+% division by a real number
+/cxrdiv { % [a b] r
+ 1 exch div % [a b] 1/r
+ cxrmul
+} def
+%
+% exp(i theta) = cos(theta)+i sin(theta) polar<->cartesian
+/cxconv { % theta
+ RadtoDeg dup sin exch cos cxmake2
+} def
+%
+end
+
+%%EndProcSet
+%%BeginProcSet: pst-3dplot.pro 0 0
+%% $Id: pst-3dplot.pro 236 2009-12-31 08:59:43Z herbert $
+%%
+%% This is file `pst-3dplot.pro',
+%%
+%% IMPORTANT NOTICE:
+%%
+%% Package `pst-3dplot.tex'
+%%
+%% Herbert Voss <voss _at_ PSTricks.de>
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%%
+%% DESCRIPTION:
+%% `pst-3dplot' is a PSTricks package to draw 3d curves and graphical objects
+%%
+%%
+%% version 0.30 / 2010-01-01 Herbert Voss <voss _at_ PSTricks.de>
+%% with contributions of Darrell Lamm <darrell.lamm _at_ gtri.gatech.edu<
+%%
+%
+/tx@3DPlotDict 200 dict def
+tx@3DPlotDict begin
+%
+/printDot { gsave 2 copy 2 0 360 arc fill stroke grestore } def
+%
+/saveCoor {
+ dzUnit mul /z ED
+ dyUnit mul /y ED
+ dxUnit mul /x ED
+} def
+%
+/ConvertTo2D {
+ RotatePoint
+ 1 { % dummy loop, will run only 1 time, allows exit
+ coorType 0 le { % the default |
+ /x2D x leftHanded not { neg } if Alpha cos mul y Alpha sin mul add def % /\ co system
+ /y2D x leftHanded { neg } if Alpha sin mul y Alpha cos mul add neg Beta sin mul z Beta cos mul add def
+ exit } if
+ coorType 1 le {
+ /x2D y x Alpha 90 sub sin mul sub def % |/_ co system, no shortened x axis
+ /y2D z x Alpha 90 sub cos mul sub def
+ exit } if
+ coorType 2 le { % coorType |/_ with a 1/sqrt(2) shortend x-axis and 135 degrees
+ /x2D y x 0.5 mul sub def
+ /y2D z x 0.5 mul sub def
+ exit } if
+ coorType 3 le { % coorType |/_ with a 1/sqrt(2) shortend x-axis and 135 degrees
+ /x2D y x -0.5 mul sub def
+ /y2D z x -0.5 mul sub def
+ exit } if
+ coorType 4 le { % Normalbild in Trimetrie Skalierung so, dass coorType2
+ /x2D x -0.5 mul y 1 mul add def
+ /y2D x -0.5 mul y -0.25 mul add z 1 mul add def
+ exit } if
+ } repeat
+} def
+%
+/Conv3D2D { /z ED /y ED /x ED ConvertTo2D x2D y2D } def
+%
+/ConvertToCartesian {
+ /latitude exch def
+ /longitude exch def
+ /Radius exch def
+ 1 { % dummy loop, will run only 1 time, allows exit
+ SphericalCoorType 0 le { % the default |
+ /z { Radius latitude sin mul } def
+ /x { Radius longitude cos mul latitude cos mul } def
+ /y { Radius longitude sin mul latitude cos mul } def
+ exit } if
+ SphericalCoorType 2 le {
+ /z { Radius longitude cos mul } def
+ /x { Radius longitude sin mul latitude cos mul} def
+ /y { Radius longitude sin mul latitude sin mul } def
+ exit } if
+ } repeat
+} def
+%
+/ConvCylToCartesian { % r phi h -> x y z
+ 3 1 roll % h r phi
+ /Phi ED
+ /Radius ED % h->z on stack
+ Radius Phi cos mul exch % x z
+ Radius Phi sin mul exch % x y z
+} def
+%
+/SphericalTo2D {
+ x y z ConvertToCartesian ConvertTo2D
+} def
+%
+/CylinderTo2D { % r phi h
+ x y z ConvCylToCartesian ConvertTo2D
+} def
+%
+/convertStackTo2D {
+ counttomark
+ /n ED /n3 n 3 div cvi def
+ n3 {
+ n -3 roll
+ SphericalCoor { ConvertToCartesian } { saveCoor } ifelse
+ ConvertTo2D
+ x2D xUnit y2D yUnit
+ /n n 1 sub def
+ } repeat
+} def
+%
+% the angle in the parameter equation for an ellipse is not proportional to the real angle!
+% phi=atan(b*tan(angle)/a)+floor(angle/180+0.5)*180
+%
+/getPhi { % on stack: vecA vecB angle
+ 3 dict begin
+ /angle exch def /vecB exch def /vecA exch def
+ angle cvi 90 mod 0 eq { angle } { vecA angle tan mul vecB atan
+ angle 180 div .5 add floor 180 mul add } ifelse
+ end
+} def
+%
+/RotSet (set ) def
+%
+/eulerRotation false def
+% Matrix multiplication procedure
+/matmul {
+
+ /M@tMulDict 20 dict def
+ M@tMulDict begin
+ /m2 ED
+ /m1 ED
+ m1 dup length 2 sub 2 getinterval aload pop
+ /col1max ED
+ /row1max ED
+ m2 dup length 2 sub 2 getinterval aload pop
+ /col2max ED
+ /row2max ED
+ /m3 row1max col2max mul 2 add array def
+ m3 dup length 2 sub row1max col2max 2 array astore putinterval
+ 0 1 row1max 1 sub {
+ /row ED
+ 0 1 col2max 1 sub {
+ /col ED
+ /sum 0 def
+ 0 1 col1max 1 sub{
+ /rowcol ED
+ sum
+ m1 row col1max mul rowcol add get
+ m2 rowcol col2max mul col add get
+ mul add
+ /sum ED
+ } for
+ m3 row col2max mul col add sum put
+ } for
+ } for
+ m3
+ end % end of M@tMulDict
+
+} def
+%
+/SetMQuaternion {
+
+ /MnewTOold 11 array def
+
+ /Qu@ternionDict 30 dict def
+ Qu@ternionDict begin
+
+ /normRotVec xRotVec yRotVec zRotVec 3 array astore VecNorm def
+ normRotVec 0 gt
+ {/xRotVecNorm xRotVec normRotVec div def
+ /yRotVecNorm yRotVec normRotVec div def
+ /zRotVecNorm zRotVec normRotVec div def
+ RotAngle}
+ {/xRotVecNorm 1 def
+ /yRotVecNorm 0 def
+ /zRotVecNorm 0 def
+ 0} ifelse
+
+ 2 div dup
+ /q0 exch cos def
+ sin dup dup
+ /q1 exch xRotVecNorm mul def
+ /q2 exch yRotVecNorm mul def
+ /q3 exch zRotVecNorm mul def
+
+ /q0q0 q0 q0 mul def
+ /q0q1 q0 q1 mul def
+ /q0q2 q0 q2 mul def
+ /q0q3 q0 q3 mul def
+
+ /q1q1 q1 q1 mul def
+ /q1q2 q1 q2 mul def
+ /q1q3 q1 q3 mul def
+
+ /q2q2 q2 q2 mul def
+ /q2q3 q2 q3 mul def
+
+ /q3q3 q3 q3 mul def
+
+ MnewTOold 0 q0q0 q1q1 add q2q2 sub q3q3 sub put
+ MnewTOold 1 q1q2 q0q3 sub 2 mul put
+ MnewTOold 2 q1q3 q0q2 add 2 mul put
+
+ MnewTOold 3 q1q2 q0q3 add 2 mul put
+ MnewTOold 4 q0q0 q1q1 sub q2q2 add q3q3 sub put
+ MnewTOold 5 q2q3 q0q1 sub 2 mul put
+
+ MnewTOold 6 q1q3 q0q2 sub 2 mul put
+ MnewTOold 7 q2q3 q0q1 add 2 mul put
+ MnewTOold 8 q0q0 q1q1 sub q2q2 sub q3q3 add put
+
+ MnewTOold 9 3 put
+ MnewTOold 10 3 put
+
+ end % end of Qu@ternionDict
+
+} def
+%
+/SetMxyz {
+ 1.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0 1.0 3 3 11 array astore /MnewTOold ED
+ RotSequence cvx exec % Now create a new MnewTOold using xyz, etc.
+} def
+%
+/ConcatMQuaternion {
+ MnewTOold % Push onto stack
+ SetMQuaternion % Uses [xyz]RotVec and RotAngle to make MnewToOld
+ MnewTOold matmul /MnewTOold ED
+} def
+%
+/ConcatMxyz {
+ MnewTOold % Push onto stack
+ SetMxyz % Uses RotX, etc. to set MnewTOold
+ MnewTOold matmul /MnewTOold ED
+} def
+%
+/RotatePoint{
+ MnewTOold x y z 3 1 5 array astore matmul
+ 0 3 getinterval aload pop
+ /z ED
+ /y ED
+ /x ED
+} def
+%
+/makeMoldTOnew {
+ /MoldTOnew 11 array def
+ MoldTOnew 0 MnewTOold 0 get put
+ MoldTOnew 1 MnewTOold 3 get put
+ MoldTOnew 2 MnewTOold 6 get put
+ MoldTOnew 3 MnewTOold 1 get put
+ MoldTOnew 4 MnewTOold 4 get put
+ MoldTOnew 5 MnewTOold 7 get put
+ MoldTOnew 6 MnewTOold 2 get put
+ MoldTOnew 7 MnewTOold 5 get put
+ MoldTOnew 8 MnewTOold 8 get put
+ MoldTOnew 9 3 put
+ MoldTOnew 10 3 put
+} def
+%
+/RotXaxis {
+ eulerRotation
+ {1 0 0}
+ {makeMoldTOnew MoldTOnew 1 0 0 3 1 5 array astore matmul
+ 0 3 getinterval aload pop} ifelse
+ /zRotVec ED
+ /yRotVec ED
+ /xRotVec ED
+ /RotAngle RotX def
+ ConcatMQuaternion
+} def
+/RotYaxis {
+ eulerRotation
+ {0 1 0}
+ {makeMoldTOnew MoldTOnew 0 1 0 3 1 5 array astore matmul
+ 0 3 getinterval aload pop} ifelse
+ /zRotVec ED
+ /yRotVec ED
+ /xRotVec ED
+ /RotAngle RotY def
+ ConcatMQuaternion
+} def
+/RotZaxis {
+ eulerRotation
+ {0 0 1}
+ {makeMoldTOnew MoldTOnew 0 0 1 3 1 5 array astore matmul
+ 0 3 getinterval aload pop} ifelse
+ /zRotVec ED
+ /yRotVec ED
+ /xRotVec ED
+ /RotAngle RotZ def
+ ConcatMQuaternion
+} def
+/xyz { RotXaxis RotYaxis RotZaxis } def
+/yxz { RotYaxis RotXaxis RotZaxis } def
+/yzx { RotYaxis RotZaxis RotXaxis } def
+/xzy { RotXaxis RotZaxis RotYaxis } def
+/zxy { RotZaxis RotXaxis RotYaxis } def
+/zyx { RotZaxis RotYaxis RotXaxis } def
+/quaternion { } def % Null
+%
+/VecNorm { 0 exch { dup mul add } forall sqrt } def
+%
+/UnitVec { % on stack is [a]; returns a vector with [a][a]/|a|=1
+ dup VecNorm /norm ED
+ norm 0 lt {/norm 0 def} if
+ { norm div } forall 3 array astore } def
+%
+/AxB { % on the stack are the two vectors [a][b]
+ aload pop /b3 ED /b2 ED /b1 ED
+ aload pop /a3 ED /a2 ED /a1 ED
+ a2 b3 mul a3 b2 mul sub
+ a3 b1 mul a1 b3 mul sub
+ a1 b2 mul a2 b1 mul sub
+ 3 array astore } def
+%
+/AaddB { % on the stack are the two vectors [a][b]
+ aload pop /b3 ED /b2 ED /b1 ED
+ aload pop /a3 ED /a2 ED /a1 ED
+ a1 b1 add a2 b2 add a3 b3 add
+ 3 array astore } def
+%
+/AmulC { % on stack is [a] and c; returns [a] mul c
+ /factor ED { factor mul } forall 3 array astore } def
+%
+%
+/setColorLight { % expects 7 values on stack C M Y K xL yL zL
+% les rayons de lumi�re
+ xLight dup mul yLight dup mul zLight dup mul add add sqrt /NormeLight ED
+% the color values
+ /K ED
+ /Yellow ED
+ /Magenta ED
+ /Cyan ED
+} def
+%
+/facetteSphere {
+ newpath
+ /Xpoint Rsphere theta cos mul phi cos mul CX add def
+ /Ypoint Rsphere theta sin mul phi cos mul CY add def
+ /Zpoint Rsphere phi sin mul CZ add def
+ Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end moveto
+ theta 1 theta increment add {%
+ /theta1 ED
+ /Xpoint Rsphere theta1 cos mul phi cos mul CX add def
+ /Ypoint Rsphere theta1 sin mul phi cos mul CY add def
+ /Zpoint Rsphere phi sin mul CZ add def
+ Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
+ } for
+ phi 1 phi increment add {
+ /phi1 ED
+ /Xpoint Rsphere theta increment add cos mul phi1 cos mul CX add def
+ /Ypoint Rsphere theta increment add sin mul phi1 cos mul CY add def
+ /Zpoint Rsphere phi1 sin mul CZ add def
+ Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
+ } for
+ theta increment add -1 theta {%
+ /theta1 ED
+ /Xpoint Rsphere theta1 cos mul phi increment add cos mul CX add def
+ /Ypoint Rsphere theta1 sin mul phi increment add cos mul CY add def
+ /Zpoint Rsphere phi increment add sin mul CZ add def
+ Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
+ } for
+ phi increment add -1 phi {
+ /phi1 ED
+ /Xpoint Rsphere theta cos mul phi1 cos mul CX add def
+ /Ypoint Rsphere theta sin mul phi1 cos mul CY add def
+ /Zpoint Rsphere phi1 sin mul CZ add def
+ Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
+ } for
+ closepath
+} def
+%
+/MaillageSphere {
+% on stack must be x y z Radius increment C M Y K
+ setColorLight
+ /increment ED
+ /Rsphere ED
+ /CZ ED
+ /CY ED
+ /CX ED
+ /StartTheta 0 def
+ /condition { PSfacetteSphere 0 ge } def
+ -90 increment 90 increment sub {%
+ /phi ED
+ StartTheta increment 360 StartTheta add increment sub {%
+ /theta ED
+ % Centre de la facette
+ /Xpoint Rsphere theta increment 2 div add cos mul phi increment 2 div add cos mul CX add def
+ /Ypoint Rsphere theta increment 2 div add sin mul phi increment 2 div add cos mul CY add def
+ /Zpoint Rsphere phi increment 2 div add sin mul CZ add def
+ % normale � la facette
+ /nXfacette Xpoint CX sub def
+ /nYfacette Ypoint CY sub def
+ /nZfacette Zpoint CZ sub def
+ % test de visibilit�
+ /PSfacetteSphere
+ vX nXfacette mul
+ vY nYfacette mul add
+ vZ nZfacette mul add
+ def
+ condition {
+ gsave
+ facetteSphere
+ /cosV { 1 xLight nXfacette mul
+ yLight nYfacette mul
+ zLight nZfacette mul
+ add add
+ NormeLight
+ nXfacette dup mul
+ nYfacette dup mul
+ nZfacette dup mul
+ add add sqrt mul div sub } bind def
+ Cyan cosV mul Magenta cosV mul Yellow cosV mul K cosV mul setcmykcolor fill
+ grestore
+% 0 setgray
+ showgrid { facetteSphere stroke } if
+ } if
+ } for
+ % /StartTheta StartTheta increment 2 div add def
+ } for
+} def
+%
+%---------------------- Cylinder ---------------------------
+%
+/PlanCoupeCylinder { %
+ /TableauxPoints [
+ 0 1 359 {
+ /phi ED
+ [ Radius phi Height ConvCyl2d ] % on décrit le cercle
+ } for
+ ] def
+ newpath
+ TableauxPoints 0 get aload pop moveto
+ 1 1 359 { TableauxPoints exch get aload pop lineto } for
+ closepath
+} def
+%
+/facetteCylinder { %
+ newpath
+ Radius phi currentHeight ConvCyl2d moveto
+ phi 1 phi dAngle add { % loop variable on stack
+ Radius exch currentHeight ConvCyl2d lineto
+ } for
+ phi dAngle add -1 phi { % fill dHeight
+ Radius exch currentHeight dHeight add ConvCyl2d lineto
+ } for
+ closepath
+ } def % facette
+%
+/MaillageCylinder { % on stack true or false for saving values
+ { setColorLight % expects 4 values on stack C M Y K
+ /dHeight ED /dAngle ED /Height ED /Radius ED
+ /CZ ED /CY ED /CX ED } if
+%
+ 0 dHeight Height dHeight sub {
+ /currentHeight ED
+ 0 dAngle 360 dAngle sub {
+ /phi ED
+% Normal vector of the center
+ /nXfacetteCylinder Radius phi dAngle 2 div add cos mul CX add def
+ /nYfacetteCylinder Radius phi dAngle 2 div add sin mul CY add def
+ /nZfacetteCylinder currentHeight dHeight 2 div add CZ add def
+ /NormeN
+ nXfacetteCylinder dup mul
+ nYfacetteCylinder dup mul
+ nZfacetteCylinder dup mul
+ add add sqrt def
+ NormeN 0 eq { /NormeN 1e-10 def } if
+% test de visibilité
+ /PSfacetteCylinder
+ vX nXfacetteCylinder mul
+ vY nYfacetteCylinder mul add
+ vZ nZfacetteCylinder mul add def
+ condition {
+ facetteCylinder
+ /cosV
+ 1 xLight nXfacetteCylinder mul
+ yLight nYfacetteCylinder mul
+ zLight nZfacetteCylinder mul
+ add add
+ NormeLight NormeN mul div sub def
+ Cyan Magenta Yellow K
+ cosV mul 4 1 roll cosV mul 4 1 roll
+ cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
+ setcmykcolor fill
+ showgrid {
+ 0 setgray
+ facetteCylinder % drawing the segments
+ stroke } if
+ } if
+ } for
+ } for
+} def
+%
+%------------------------ Cylinder type II -----------------------
+%
+/MoveTo { Conv3D2D moveto } def
+/LineTo { Conv3D2D lineto } def
+
+/IIIDEllipse { % x y z rA rB startAngle endAngle Wedge
+ /dAngle 1 def
+ /isWedge ED
+ /endAngle ED
+ /startAngle ED
+ /radiusB ED
+ /radiusA ED
+ startAngle cos radiusA mul startAngle sin radiusB mul 0
+ isWedge { 0 0 moveto LineTo }{ MoveTo } ifelse
+ /Angle startAngle def
+ startAngle dAngle endAngle {
+ /Angle ED
+ Angle cos radiusA mul Angle sin radiusB mul 0 LineTo
+ } for
+ isWedge { 0 0 lineto } if
+} def
+
+/IIIDCircle { % x y z r startAngle endAngle Wedge
+ 7 3 roll % startAngle endAngle Wedge x y z r
+ dup % startAngle endAngle Wedge x y z r r
+ 8 -3 roll
+ IIIDEllipse
+} def
+
+/IIIDWedge { % x y z r startAngle endAngle
+ true IIIDCircle
+} def
+
+/IIIDCylinder {% x y z r h start end wedge
+ /isWedge ED
+ /increment ED
+ /endAngle ED
+ /startAngle ED
+ /height ED
+ /radius ED
+ startAngle increment endAngle {
+ /Angle ED
+ radius Angle 0 ConvCylToCartesian MoveTo
+ radius Angle height ConvCylToCartesian LineTo
+ } for
+ stroke
+} def
+%
+%---------------------- Box ---------------------------
+%
+/PlanCoupeBox { % x y z
+ /TableauxPoints [
+ [ CX CY CZ Height add ConvBox2d ] % top or bottom
+ [ CX CY Depth add CZ Height add ConvBox2d ]
+ [ CX Width add CY Depth add CZ Height add ConvBox2d ]
+ [ CX Width add CY CZ Height add ConvBox2d ]
+ [ CX CY CZ Height add ConvBox2d ] % bottom
+ ] def
+ newpath
+ TableauxPoints 0 get aload pop moveto
+ 0 1 3 {
+ TableauxPoints exch get aload pop
+ lineto } for
+ closepath
+} def
+%
+/facetteBox { %
+ newpath
+ dup
+ 1 eq { % back
+ CX CY CZ ConvBox2d moveto
+ CX CY CZ Height add ConvBox2d lineto
+ CX Width add CY CZ Height add ConvBox2d lineto
+ CX Width add CY CZ ConvBox2d lineto
+ CX CY CZ ConvBox2d lineto
+ } if
+ dup
+ 2 eq { % right
+ CX CY CZ ConvBox2d moveto
+ CX CY CZ Height add ConvBox2d lineto
+ CX CY Depth add CZ Height add ConvBox2d lineto
+ CX CY Depth add CZ ConvBox2d lineto
+ CX CY CZ ConvBox2d lineto
+ } if
+ dup
+ 3 eq { % left
+ CX Width add CY CZ ConvBox2d moveto
+ CX Width add CY Depth add CZ ConvBox2d lineto
+ CX Width add CY Depth add CZ Height add ConvBox2d lineto
+ CX Width add CY CZ Height add ConvBox2d lineto
+ CX Width add CY CZ ConvBox2d lineto
+ } if
+ 4 eq { % front
+ CX CY Depth add CZ ConvBox2d moveto
+ CX CY Depth add CZ Height add ConvBox2d lineto
+ CX Width add CY Depth add CZ Height add ConvBox2d lineto
+ CX Width add CY Depth add CZ ConvBox2d lineto
+ CX CY Depth add CZ ConvBox2d lineto
+ } if
+ closepath
+ } def % facette
+%
+/TestPlane { % on stack x y z of the plane center and # of plane
+ /nZfacetteBox ED /nYfacetteBox ED /nXfacetteBox ED
+ /Plane ED
+ /NormeN
+ nXfacetteBox dup mul
+ nYfacetteBox dup mul
+ nZfacetteBox dup mul
+ add add sqrt def
+ NormeN 0 eq { /NormeN 1e-10 def } if
+% test de visibilit�
+ /PSfacetteBox
+ vX nXfacetteBox mul
+ vY nYfacetteBox mul add
+ vZ nZfacetteBox mul add def
+ condition {
+ Plane facetteBox
+ /cosV
+ 1 xLight nXfacetteBox mul
+ yLight nYfacetteBox mul
+ zLight nZfacetteBox mul
+ add add
+ NormeLight NormeN mul div sub def
+ Cyan Magenta Yellow K
+ cosV mul 4 1 roll cosV mul 4 1 roll
+ cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
+ setcmykcolor fill
+ 0 setgray
+ Plane facetteBox % drawing the segments
+ stroke
+ } if
+} def
+%
+/MaillageBox { % on stack true or false for saving values
+ { setColorLight % expects 4 values on stack C M Y K
+ /Depth ED /Height ED /Width ED
+ /CZ ED /CY ED /CX ED } if
+%
+% Normal vector of the box center
+ /PlaneSet [
+ [ Width 2 div CX add
+ CY
+ Height 2 div CZ add ] % normal back
+ [ CX
+ Depth 2 div CY add
+ Height 2 div CZ add ] % normal right
+ [ Width CX add
+ Depth 2 div CY add
+ Height 2 div CZ add ] % normal left
+ [ Width 2 div CX add
+ Depth CY add
+ Height 2 div CZ add ] % normal front
+ ] def
+ PlaneSequence length 0 eq { % user defined?
+ Alpha abs cvi 360 mod /iAlpha ED
+ iAlpha 90 lt { [ 1 2 3 4 ]
+ }{ iAlpha 180 lt { [ 2 4 1 3 ]
+ }{ iAlpha 270 lt { [ 3 4 1 2 ] }{ [ 3 1 4 2] } ifelse } ifelse } ifelse
+ }{ PlaneSequence } ifelse
+ { dup 1 sub PlaneSet exch get aload pop TestPlane } forall
+} def
+%
+%--------------------------- Paraboloid -----------------------------
+/PlanCoupeParaboloid {
+ /Z height store
+ /V {Z sqrt} bind def
+ /TableauxPoints [
+ 0 1 359 {
+ /U ED [ U U Z V calculate2DPoint ] % on d�crit le cercle
+ } for
+ ] def
+ newpath
+ TableauxPoints 0 get aload pop moveto
+ 0 1 359 {
+ /compteur ED
+ TableauxPoints compteur get aload pop
+ lineto } for
+ closepath
+} def
+%
+/facetteParaboloid{
+ newpath
+ U U Z V calculate2DPoint moveto
+ U 1 U increment add {%
+ /U1 ED
+ U1 U1 Z V calculate2DPoint lineto
+ } for
+ Z pas10 Z pas add pas10 add{
+ /Z1 ED
+ /V {Z1 sqrt} bind def
+ U1 U1 Z1 V calculate2DPoint lineto
+ } for
+ U increment add -1 U {%
+ /U2 ED
+ U2 U2 Z pas add V calculate2DPoint lineto
+ } for
+ Z pas add pas10 sub pas10 neg Z pas10 sub {
+ /Z2 ED
+ /V Z2 abs sqrt def
+ U U Z2 V calculate2DPoint lineto
+ } for
+ closepath
+} def % facette
+%
+/MaillageParaboloid {
+ % on stack true or false for saving values
+ { setColorLight % expects 7 values on stack C M Y K xL yL zL
+% /CZ ED /CY ED /CX ED
+ } if
+ 0 pas height pas sub {%
+ /Z ED
+ /V Z sqrt def
+ 0 increment 360 increment sub {%
+ /U ED
+% Centre de la facette
+ /Ucentre U increment 2 div add def
+ /Vcentre Z pas 2 div add sqrt def
+% normale à la facette
+ /nXfacetteParaboloid 2 Vcentre dup mul mul Ucentre cos mul radius mul def
+ /nYfacetteParaboloid 2 Vcentre dup mul mul Ucentre sin mul radius mul def
+ /nZfacetteParaboloid Vcentre neg radius dup mul mul def
+ /NormeN {
+ nXfacetteParaboloid dup mul
+ nYfacetteParaboloid dup mul
+ nZfacetteParaboloid dup mul
+ add add sqrt} bind def
+ NormeN 0 eq {/NormeN 1e-10 def} if
+% test de visibilit�
+ /PSfacetteParaboloid vX nXfacetteParaboloid mul
+ vY nYfacetteParaboloid mul add
+ vZ nZfacetteParaboloid mul add def
+ condition {
+ facetteParaboloid
+ /cosV 1 xLight nXfacetteParaboloid mul
+ yLight nYfacetteParaboloid mul
+ zLight nZfacetteParaboloid mul
+ add add
+ NormeLight
+ NormeN mul div sub def
+ Cyan Magenta Yellow K
+ cosV mul 4 1 roll cosV mul 4 1 roll cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
+ setcmykcolor fill
+ showgrid {
+ 0 setgray
+ facetteParaboloid
+ stroke } if
+ } if
+ } for
+ } for
+} def
+%
+% ------------------------------------ math stuff ----------------------------------
+%
+% Matrix A in arrays of rows A[[row1][row2]...]
+% with [row1]=[a11 a12 ... b1]
+% returns on stack solution vector X=[x1 x2 ... xn]
+/SolveLinEqSystem { % on stack matrix M=[A,b] (A*x=b)
+ 10 dict begin % hold all ocal
+ /A exch def
+ /Rows A length def % Rows = number of rows
+ /Cols A 0 get length def % Cols = number of columns
+ /Index [ 0 1 Rows 1 sub { } for ] def % Index = [0 1 2 ... Rows-1]
+ /col 0 def
+ /row 0 def
+ /PR Rows array def % PR[c] = pivot row for row row
+ { % starts the loop, find pivot entry in row r
+ col Cols ge row Rows ge or { exit } if % col < Cols and row < Rows else exit
+ /pRow row def % pRow = pivot row
+ /max A row get col get abs def % get A[row[col]], first A[0,0]
+ row 1 add 1 Rows 1 sub { % starts for loop 1 1 Rows-1
+ /j exch def % index counter
+ /x A j get col get abs def % get A[j[r]]
+ x max gt { % x>max, then save position
+ /pRow j def
+ /max x def
+ } if
+ } for % now we have the row with biggest A[0,1]
+ % with pRow = the pivot row
+ max 0 gt { % swap entries pRow and row in i
+ /tmp Index row get def
+ Index row Index pRow get put
+ Index pRow tmp put % and columns pRow and row in A
+ /tmp A row get def
+ A row A pRow get put
+ A pRow tmp put % pivot
+ /row0 A row get def % the pivoting row
+ /p0 row0 col get def % the pivot value
+ row 1 add 1 Rows 1 sub { % start for loop
+ /j exch def
+ /c1 A j get def
+ /p c1 col get p0 div def
+ c1 col p put % subtract (p1/p0)*row[i] from row[j]
+ col 1 add 1 Cols 1 sub { % start for loop
+ /i exch def
+ c1 dup i exch % c1 i c1
+ i get row0 i get p mul sub put
+ } for
+ } for
+ PR row col put
+ /col col 1 add def
+ /row row 1 add def
+ }{ % all zero entries
+ /row row 1 add def % continue loop with same row
+ } ifelse
+ } loop
+ /X A def % solution vector
+ A Rows 1 sub get dup
+ Cols 1 sub get exch
+ Cols 2 sub get div
+ X Rows 1 sub 3 -1 roll put % X[n]
+ Rows 2 sub -1 0 { % for loop to calculate X[i]
+ /xi exch def % current index
+ A xi get % i-th row
+ /Axi exch def
+ /sum 0 def
+ Cols 2 sub -1 xi 1 add {
+ /n exch def
+ /sum sum Axi n get X n get mul add def
+ } for
+ Axi Cols 1 sub get % b=Axi[Cols-1]
+ sum sub % b-sum
+ Axi xi get div % b-sum / Axi[xi]
+ X xi 3 -1 roll put % X[xi]
+ } for
+ X
+ end
+} def
+%
+% u -> e_u with |e_u|=1
+/vector-unit { 1 dict begin
+ dup vector-length 1 exch div
+ vector-scale
+ end
+} def
+%
+% u v -> u+v
+/vector-add { 1 dict begin
+ /v exch def
+ [ exch
+ 0 % u i
+ exch { % i u[i]
+ v % i u[i] v
+ 2 index get add % i u[i]+v[i]
+ exch 1 add % i
+ } forall
+ pop
+ ]
+ end
+} def
+%
+% u v -> u-v
+/vector-sub { 1 dict begin
+ /v exch def
+ [ exch
+ 0 % u i
+ exch { % i u[i]
+ v % i u[i] v
+ 2 index get sub % i u[i]+v[i]
+ exch 1 add % i
+ } forall
+ pop
+ ]
+end } def
+%
+% [v] c -> [c.v]
+/vector-scale { 1 dict begin
+ /c exch def
+ [ exch
+ { % s i u[i]
+ c mul % s i u[i] v
+ } forall
+ ]
+ end } def
+%
+%
+% [u] [v] -> [u x v]
+/vector-prod { %% x1 y1 z1 x2 y2 z2
+6 dict begin
+ aload pop
+ /zp exch def /yp exch def /xp exch def
+ aload pop
+ /z exch def /y exch def /x exch def
+ [ y zp mul z yp mul sub
+ z xp mul x zp mul sub
+ x yp mul y xp mul sub ]
+end
+} def
+%
+% [u] [v] -> u.v
+/vector-mul { %% x1 y1 z1 x2 y2 z2
+6 dict begin
+ aload pop
+ /zp exch def /yp exch def /xp exch def
+ aload pop
+ /z exch def /y exch def /x exch def
+ x xp mul y yp mul add z zp mul add
+end
+} def
+%
+% [x y z ... ] -> r
+% watch out for overflow
+/vector-length { 1 dict begin
+dup
+% find maximum entry
+/max 0 def
+{ % max
+ abs dup max gt {
+ % if abs gt max
+ /max exch def
+ } {
+ pop
+ } ifelse
+} forall
+max 0 ne {
+ 0 exch
+ { % 0 v[i]
+ max div dup mul add
+ } forall
+ sqrt
+ max mul
+} {
+ pop 0
+} ifelse
+end } def
+%
+end % tx@3DPlotDict
+
+
+%%EndProcSet
+%%BeginProcSet: special.pro 0 0
+%!
+TeXDict begin/SDict 200 dict N SDict begin/@SpecialDefaults{/hs 612 N
+/vs 792 N/ho 0 N/vo 0 N/hsc 1 N/vsc 1 N/ang 0 N/CLIP 0 N/rwiSeen false N
+/rhiSeen false N/letter{}N/note{}N/a4{}N/legal{}N}B/@scaleunit 100 N
+/@hscale{@scaleunit div/hsc X}B/@vscale{@scaleunit div/vsc X}B/@hsize{
+/hs X/CLIP 1 N}B/@vsize{/vs X/CLIP 1 N}B/@clip{/CLIP 2 N}B/@hoffset{/ho
+X}B/@voffset{/vo X}B/@angle{/ang X}B/@rwi{10 div/rwi X/rwiSeen true N}B
+/@rhi{10 div/rhi X/rhiSeen true N}B/@llx{/llx X}B/@lly{/lly X}B/@urx{
+/urx X}B/@ury{/ury X}B/magscale true def end/@MacSetUp{userdict/md known
+{userdict/md get type/dicttype eq{userdict begin md length 10 add md
+maxlength ge{/md md dup length 20 add dict copy def}if end md begin
+/letter{}N/note{}N/legal{}N/od{txpose 1 0 mtx defaultmatrix dtransform S
+atan/pa X newpath clippath mark{transform{itransform moveto}}{transform{
+itransform lineto}}{6 -2 roll transform 6 -2 roll transform 6 -2 roll
+transform{itransform 6 2 roll itransform 6 2 roll itransform 6 2 roll
+curveto}}{{closepath}}pathforall newpath counttomark array astore/gc xdf
+pop ct 39 0 put 10 fz 0 fs 2 F/|______Courier fnt invertflag{PaintBlack}
+if}N/txpose{pxs pys scale ppr aload pop por{noflips{pop S neg S TR pop 1
+-1 scale}if xflip yflip and{pop S neg S TR 180 rotate 1 -1 scale ppr 3
+get ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg TR}if xflip
+yflip not and{pop S neg S TR pop 180 rotate ppr 3 get ppr 1 get neg sub
+neg 0 TR}if yflip xflip not and{ppr 1 get neg ppr 0 get neg TR}if}{
+noflips{TR pop pop 270 rotate 1 -1 scale}if xflip yflip and{TR pop pop
+90 rotate 1 -1 scale ppr 3 get ppr 1 get neg sub neg ppr 2 get ppr 0 get
+neg sub neg TR}if xflip yflip not and{TR pop pop 90 rotate ppr 3 get ppr
+1 get neg sub neg 0 TR}if yflip xflip not and{TR pop pop 270 rotate ppr
+2 get ppr 0 get neg sub neg 0 S TR}if}ifelse scaleby96{ppr aload pop 4
+-1 roll add 2 div 3 1 roll add 2 div 2 copy TR .96 dup scale neg S neg S
+TR}if}N/cp{pop pop showpage pm restore}N end}if}if}N/normalscale{
+Resolution 72 div VResolution 72 div neg scale magscale{DVImag dup scale
+}if 0 setgray}N/psfts{S 65781.76 div N}N/startTexFig{/psf$SavedState
+save N userdict maxlength dict begin/magscale true def normalscale
+currentpoint TR/psf$ury psfts/psf$urx psfts/psf$lly psfts/psf$llx psfts
+/psf$y psfts/psf$x psfts currentpoint/psf$cy X/psf$cx X/psf$sx psf$x
+psf$urx psf$llx sub div N/psf$sy psf$y psf$ury psf$lly sub div N psf$sx
+psf$sy scale psf$cx psf$sx div psf$llx sub psf$cy psf$sy div psf$ury sub
+TR/showpage{}N/erasepage{}N/copypage{}N/p 3 def @MacSetUp}N/doclip{
+psf$llx psf$lly psf$urx psf$ury currentpoint 6 2 roll newpath 4 copy 4 2
+roll moveto 6 -1 roll S lineto S lineto S lineto closepath clip newpath
+moveto}N/endTexFig{end psf$SavedState restore}N/@beginspecial{SDict
+begin/SpecialSave save N gsave normalscale currentpoint TR
+@SpecialDefaults count/ocount X/dcount countdictstack N}N/@setspecial{
+CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs neg 0 rlineto
+closepath clip}if ho vo TR hsc vsc scale ang rotate rwiSeen{rwi urx llx
+sub div rhiSeen{rhi ury lly sub div}{dup}ifelse scale llx neg lly neg TR
+}{rhiSeen{rhi ury lly sub div dup scale llx neg lly neg TR}if}ifelse
+CLIP 2 eq{newpath llx lly moveto urx lly lineto urx ury lineto llx ury
+lineto closepath clip}if/showpage{}N/erasepage{}N/copypage{}N newpath}N
+/@endspecial{count ocount sub{pop}repeat countdictstack dcount sub{end}
+repeat grestore SpecialSave restore end}N/@defspecial{SDict begin}N
+/@fedspecial{end}B/li{lineto}B/rl{rlineto}B/rc{rcurveto}B/np{/SaveX
+currentpoint/SaveY X N 1 setlinecap newpath}N/st{stroke SaveX SaveY
+moveto}N/fil{fill SaveX SaveY moveto}N/ellipse{/endangle X/startangle X
+/yrad X/xrad X/savematrix matrix currentmatrix N TR xrad yrad scale 0 0
+1 startangle endangle arc savematrix setmatrix}N end
+
+%%EndProcSet
+%%BeginProcSet: color.pro 0 0
+%!
+TeXDict begin/setcmykcolor where{pop}{/setcmykcolor{dup 10 eq{pop
+setrgbcolor}{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll
+}repeat setrgbcolor pop}ifelse}B}ifelse/TeXcolorcmyk{setcmykcolor}def
+/TeXcolorrgb{setrgbcolor}def/TeXcolorgrey{setgray}def/TeXcolorgray{
+setgray}def/TeXcolorhsb{sethsbcolor}def/currentcmykcolor where{pop}{
+/currentcmykcolor{currentrgbcolor 10}B}ifelse/DC{exch dup userdict exch
+known{pop pop}{X}ifelse}B/GreenYellow{0.15 0 0.69 0 setcmykcolor}DC
+/Yellow{0 0 1 0 setcmykcolor}DC/Goldenrod{0 0.10 0.84 0 setcmykcolor}DC
+/Dandelion{0 0.29 0.84 0 setcmykcolor}DC/Apricot{0 0.32 0.52 0
+setcmykcolor}DC/Peach{0 0.50 0.70 0 setcmykcolor}DC/Melon{0 0.46 0.50 0
+setcmykcolor}DC/YellowOrange{0 0.42 1 0 setcmykcolor}DC/Orange{0 0.61
+0.87 0 setcmykcolor}DC/BurntOrange{0 0.51 1 0 setcmykcolor}DC
+/Bittersweet{0 0.75 1 0.24 setcmykcolor}DC/RedOrange{0 0.77 0.87 0
+setcmykcolor}DC/Mahogany{0 0.85 0.87 0.35 setcmykcolor}DC/Maroon{0 0.87
+0.68 0.32 setcmykcolor}DC/BrickRed{0 0.89 0.94 0.28 setcmykcolor}DC/Red{
+0 1 1 0 setcmykcolor}DC/OrangeRed{0 1 0.50 0 setcmykcolor}DC/RubineRed{
+0 1 0.13 0 setcmykcolor}DC/WildStrawberry{0 0.96 0.39 0 setcmykcolor}DC
+/Salmon{0 0.53 0.38 0 setcmykcolor}DC/CarnationPink{0 0.63 0 0
+setcmykcolor}DC/Magenta{0 1 0 0 setcmykcolor}DC/VioletRed{0 0.81 0 0
+setcmykcolor}DC/Rhodamine{0 0.82 0 0 setcmykcolor}DC/Mulberry{0.34 0.90
+0 0.02 setcmykcolor}DC/RedViolet{0.07 0.90 0 0.34 setcmykcolor}DC
+/Fuchsia{0.47 0.91 0 0.08 setcmykcolor}DC/Lavender{0 0.48 0 0
+setcmykcolor}DC/Thistle{0.12 0.59 0 0 setcmykcolor}DC/Orchid{0.32 0.64 0
+0 setcmykcolor}DC/DarkOrchid{0.40 0.80 0.20 0 setcmykcolor}DC/Purple{
+0.45 0.86 0 0 setcmykcolor}DC/Plum{0.50 1 0 0 setcmykcolor}DC/Violet{
+0.79 0.88 0 0 setcmykcolor}DC/RoyalPurple{0.75 0.90 0 0 setcmykcolor}DC
+/BlueViolet{0.86 0.91 0 0.04 setcmykcolor}DC/Periwinkle{0.57 0.55 0 0
+setcmykcolor}DC/CadetBlue{0.62 0.57 0.23 0 setcmykcolor}DC
+/CornflowerBlue{0.65 0.13 0 0 setcmykcolor}DC/MidnightBlue{0.98 0.13 0
+0.43 setcmykcolor}DC/NavyBlue{0.94 0.54 0 0 setcmykcolor}DC/RoyalBlue{1
+0.50 0 0 setcmykcolor}DC/Blue{1 1 0 0 setcmykcolor}DC/Cerulean{0.94 0.11
+0 0 setcmykcolor}DC/Cyan{1 0 0 0 setcmykcolor}DC/ProcessBlue{0.96 0 0 0
+setcmykcolor}DC/SkyBlue{0.62 0 0.12 0 setcmykcolor}DC/Turquoise{0.85 0
+0.20 0 setcmykcolor}DC/TealBlue{0.86 0 0.34 0.02 setcmykcolor}DC
+/Aquamarine{0.82 0 0.30 0 setcmykcolor}DC/BlueGreen{0.85 0 0.33 0
+setcmykcolor}DC/Emerald{1 0 0.50 0 setcmykcolor}DC/JungleGreen{0.99 0
+0.52 0 setcmykcolor}DC/SeaGreen{0.69 0 0.50 0 setcmykcolor}DC/Green{1 0
+1 0 setcmykcolor}DC/ForestGreen{0.91 0 0.88 0.12 setcmykcolor}DC
+/PineGreen{0.92 0 0.59 0.25 setcmykcolor}DC/LimeGreen{0.50 0 1 0
+setcmykcolor}DC/YellowGreen{0.44 0 0.74 0 setcmykcolor}DC/SpringGreen{
+0.26 0 0.76 0 setcmykcolor}DC/OliveGreen{0.64 0 0.95 0.40 setcmykcolor}
+DC/RawSienna{0 0.72 1 0.45 setcmykcolor}DC/Sepia{0 0.83 1 0.70
+setcmykcolor}DC/Brown{0 0.81 1 0.60 setcmykcolor}DC/Tan{0.14 0.42 0.56 0
+setcmykcolor}DC/Gray{0 0 0 0.50 setcmykcolor}DC/Black{0 0 0 1
+setcmykcolor}DC/White{0 0 0 0 setcmykcolor}DC end
+
+%%EndProcSet
+TeXDict begin 40258437 52099151 1000 600 600 (testps-fig1.dvi)
+@start end
+%%EndProlog
+%%BeginSetup
+%%Feature: *Resolution 600dpi
+TeXDict begin
+ end
+%%EndSetup
+%%Page: 1 1
+TeXDict begin 1 0 bop 0 TeXcolorgray Black 165 192 a
+tx@Dict begin gsave STV CP T /ps@rot 0 def grestore end
+
+165 192 a 165 192 a
+tx@Dict begin gsave STV CP T /ps@refangle 0. def grestore end
+ 165 192 a 0 TeXcolorgray 165 192
+a
+tx@Dict begin gsave STV CP T /ps@rot 0 def grestore end
+ 165 192 a 290 1373 a @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.5 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def /t 0 def /t1 0.5 def /dt t1 t sub 199
+div def /F@pstplot ((1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0-1.5)*(2.0)+15*t^2*(1-t)^4*(2.0+2)*(2.0)+
+20*t^3*(1-t)^3*(2.0+6)*(2.0)+15*t^4*(1-t)^2*(2.0+5)*(2.0)+6*t^5*(1-t)*(2.0+1.5)*(2.0)+t^6*(2.0)*(2.0)|(1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0+2)*(2.0)+15*t^2*(1-t)^4*(2.0+5)*(2.0)+
+20*t^3*(1-t)^3*(2.0+3)*(2.0)+15*t^4*(1-t)^2*(2.0-1)*(2.0)+6*t^5*(1-t)*(2.0-2)*(2.0)+t^6*(2.0)*(2.0))
+ tx@AlgToPs begin AlgToPs end cvx def /xy { F@pstplot 12.0 mul exch
+12.0 mul exch } def /ps@Exit false def xy moveto 199 1 sub { /t t
+dt add def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0 mul
+lt { moveto }{ L } ifelse } ifelse ps@Exit { exit } if } repeat ps@Exit
+not { /t t1 def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0
+mul lt { moveto }{ L } ifelse } ifelse } if gsave 0 0 0.9 0 setcmykcolor
+ 1. .setopacityalpha fill grestore gsave 0.5 SLW 0 setgray 1. .setopacityalpha
+ 1 setlinejoin 0 setlinecap stroke grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.5 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def /t 0.5 def /t1 1 def /dt t1 t sub 199
+div def /F@pstplot ((1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0-1.5)*(2.0)+15*t^2*(1-t)^4*(2.0+2)*(2.0)+
+20*t^3*(1-t)^3*(2.0+6)*(2.0)+15*t^4*(1-t)^2*(2.0+5)*(2.0)+6*t^5*(1-t)*(2.0+1.5)*(2.0)+t^6*(2.0)*(2.0)|(1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0+2)*(2.0)+15*t^2*(1-t)^4*(2.0+5)*(2.0)+
+20*t^3*(1-t)^3*(2.0+3)*(2.0)+15*t^4*(1-t)^2*(2.0-1)*(2.0)+6*t^5*(1-t)*(2.0-2)*(2.0)+t^6*(2.0)*(2.0))
+ tx@AlgToPs begin AlgToPs end cvx def /xy { F@pstplot 12.0 mul exch
+12.0 mul exch } def /ps@Exit false def xy moveto 199 1 sub { /t t
+dt add def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0 mul
+lt { moveto }{ L } ifelse } ifelse ps@Exit { exit } if } repeat ps@Exit
+not { /t t1 def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0
+mul lt { moveto }{ L } ifelse } ifelse } if gsave 0 0 0.9 0 setcmykcolor
+ 1. .setopacityalpha fill grestore gsave 0.5 SLW 0 setgray 1. .setopacityalpha
+ 1 setlinejoin 0 setlinecap stroke grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66553 47.99945 46.66553
+51.99939 50.99872 51.99939 50.99872 47.99945 46.66553 47.99945 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66553 47.99945 46.66553
+51.99939 50.99872 51.99939 50.99872 47.99945 46.66553 47.99945 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 42.33234 47.99945 42.33234
+51.99939 46.66553 51.99939 46.66553 47.99945 42.33234 47.99945 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 42.33234 51.99939 42.33234
+55.99933 46.66553 55.99933 46.66553 51.99939 42.33234 51.99939 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 42.33234 51.99939 42.33234
+55.99933 46.66553 55.99933 46.66553 51.99939 42.33234 51.99939 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 42.33234 51.99939 42.33234
+55.99933 46.66553 55.99933 46.66553 51.99939 42.33234 51.99939 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 42.33234 55.99951 42.33234
+59.99945 46.66553 59.99945 46.66553 55.99951 42.33234 55.99951 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 42.33234 55.99951 42.33234
+59.99945 46.66553 59.99945 46.66553 55.99951 42.33234 55.99951 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99915 55.99951 37.99915
+59.99945 42.33234 59.99945 42.33234 55.99951 37.99915 55.99951 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99915 59.99945 37.99915
+63.99939 42.33234 63.99939 42.33234 59.99945 37.99915 59.99945 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99915 59.99945 37.99915
+63.99939 42.33234 63.99939 42.33234 59.99945 37.99915 59.99945 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99915 63.99939 37.99915
+67.99933 42.33234 67.99933 42.33234 63.99939 37.99915 63.99939 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99915 63.99939 37.99915
+67.99933 42.33234 67.99933 42.33234 63.99939 37.99915 63.99939 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99915 63.99939 37.99915
+67.99933 42.33234 67.99933 42.33234 63.99939 37.99915 63.99939 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99915 67.99933 37.99915
+71.99927 42.33234 71.99927 42.33234 67.99933 37.99915 67.99933 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99915 67.99933 37.99915
+71.99927 42.33234 71.99927 42.33234 67.99933 37.99915 67.99933 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99915 67.99933 37.99915
+71.99927 42.33234 71.99927 42.33234 67.99933 37.99915 67.99933 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99915 71.99927 37.99915
+75.9992 42.33234 75.9992 42.33234 71.99927 37.99915 71.99927 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99915 71.99927 37.99915
+75.9992 42.33234 75.9992 42.33234 71.99927 37.99915 71.99927 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99915 75.9992 37.99915
+79.99915 42.33234 79.99915 42.33234 75.9992 37.99915 75.9992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 37.99915 75.9992 37.99915
+79.99915 42.33234 79.99915 42.33234 75.9992 37.99915 75.9992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 42.33234 75.9992 42.33234
+79.99915 46.66553 79.99915 46.66553 75.9992 42.33234 75.9992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 42.33234 79.99915 42.33234
+83.99908 46.66553 83.99908 46.66553 79.99915 42.33234 79.99915 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 42.33234 79.99915 42.33234
+83.99908 46.66553 83.99908 46.66553 79.99915 42.33234 79.99915 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 42.33234 79.99915 42.33234
+83.99908 46.66553 83.99908 46.66553 79.99915 42.33234 79.99915 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 42.33234 83.99908 42.33234
+87.99902 46.66553 87.99902 46.66553 83.99908 42.33234 83.99908 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 42.33234 83.99908 42.33234
+87.99902 46.66553 87.99902 46.66553 83.99908 42.33234 83.99908 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 42.33234 83.99908 42.33234
+87.99902 46.66553 87.99902 46.66553 83.99908 42.33234 83.99908 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66553 87.9992 46.66553
+91.99915 50.99872 91.99915 50.99872 87.9992 46.66553 87.9992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66553 87.9992 46.66553
+91.99915 50.99872 91.99915 50.99872 87.9992 46.66553 87.9992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66553 87.9992 46.66553
+91.99915 50.99872 91.99915 50.99872 87.9992 46.66553 87.9992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66553 91.99915 46.66553
+95.99908 50.99872 95.99908 50.99872 91.99915 46.66553 91.99915 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66553 91.99915 46.66553
+95.99908 50.99872 95.99908 50.99872 91.99915 46.66553 91.99915 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 50.99872 91.99915 50.99872
+95.99908 55.33191 95.99908 55.33191 91.99915 50.99872 91.99915 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 50.99872 91.99915 50.99872
+95.99908 55.33191 95.99908 55.33191 91.99915 50.99872 91.99915 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 50.99872 95.99908 50.99872
+99.99902 55.33191 99.99902 55.33191 95.99908 50.99872 95.99908 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 50.99872 95.99908 50.99872
+99.99902 55.33191 99.99902 55.33191 95.99908 50.99872 95.99908 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 55.33191 95.99908 55.33191
+99.99902 59.6651 99.99902 59.6651 95.99908 55.33191 95.99908 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 55.33191 95.99908 55.33191
+99.99902 59.6651 99.99902 59.6651 95.99908 55.33191 95.99908 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 55.33191 99.99902 55.33191
+103.99896 59.6651 103.99896 59.6651 99.99902 55.33191 99.99902 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 55.33191 99.99902 55.33191
+103.99896 59.6651 103.99896 59.6651 99.99902 55.33191 99.99902 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.66528 99.99902 59.66528
+103.99896 63.99847 103.99896 63.99847 99.99902 59.66528 99.99902
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.66528 99.99902 59.66528
+103.99896 63.99847 103.99896 63.99847 99.99902 59.66528 99.99902
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.66528 103.99896 59.66528
+107.9989 63.99847 107.9989 63.99847 103.99896 59.66528 103.99896
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99847 103.99896 63.99847
+107.9989 68.33167 107.9989 68.33167 103.99896 63.99847 103.99896
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99847 103.99896 63.99847
+107.9989 68.33167 107.9989 68.33167 103.99896 63.99847 103.99896
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99847 103.99896 63.99847
+107.9989 68.33167 107.9989 68.33167 103.99896 63.99847 103.99896
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99847 103.99896 63.99847
+107.9989 68.33167 107.9989 68.33167 103.99896 63.99847 103.99896
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.33167 103.99896 68.33167
+107.9989 72.66486 107.9989 72.66486 103.99896 68.33167 103.99896
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.33167 107.9989 68.33167
+111.99884 72.66486 111.99884 72.66486 107.9989 68.33167 107.9989
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.33167 107.9989 68.33167
+111.99884 72.66486 111.99884 72.66486 107.9989 68.33167 107.9989
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 72.66486 107.9989 72.66486
+111.99884 76.99805 111.99884 76.99805 107.9989 72.66486 107.9989
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 72.66486 107.9989 72.66486
+111.99884 76.99805 111.99884 76.99805 107.9989 72.66486 107.9989
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 72.66486 107.9989 72.66486
+111.99884 76.99805 111.99884 76.99805 107.9989 72.66486 107.9989
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.99805 107.9989 76.99805
+111.99884 81.33124 111.99884 81.33124 107.9989 76.99805 107.9989
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.99805 107.9989 76.99805
+111.99884 81.33124 111.99884 81.33124 107.9989 76.99805 107.9989
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.99805 107.9989 76.99805
+111.99884 81.33124 111.99884 81.33124 107.9989 76.99805 107.9989
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33124 111.99884 81.33124
+115.99878 85.66443 115.99878 85.66443 111.99884 81.33124 111.99884
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33124 111.99884 81.33124
+115.99878 85.66443 115.99878 85.66443 111.99884 81.33124 111.99884
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33124 111.99884 81.33124
+115.99878 85.66443 115.99878 85.66443 111.99884 81.33124 111.99884
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 85.66443 111.99884 85.66443
+115.99878 89.99762 115.99878 89.99762 111.99884 85.66443 111.99884
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 85.66443 111.99884 85.66443
+115.99878 89.99762 115.99878 89.99762 111.99884 85.66443 111.99884
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 85.66443 111.99884 85.66443
+115.99878 89.99762 115.99878 89.99762 111.99884 85.66443 111.99884
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 89.99762 111.99884 89.99762
+115.99878 94.33081 115.99878 94.33081 111.99884 89.99762 111.99884
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 89.99762 111.99884 89.99762
+115.99878 94.33081 115.99878 94.33081 111.99884 89.99762 111.99884
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 89.99762 111.99884 89.99762
+115.99878 94.33081 115.99878 94.33081 111.99884 89.99762 111.99884
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 94.33081 111.99884 94.33081
+115.99878 98.664 115.99878 98.664 111.99884 94.33081 111.99884 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 94.33081 111.99884 94.33081
+115.99878 98.664 115.99878 98.664 111.99884 94.33081 111.99884 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 94.33081 111.99884 94.33081
+115.99878 98.664 115.99878 98.664 111.99884 94.33081 111.99884 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.664 111.99884 98.664
+115.99878 102.9972 115.99878 102.9972 111.99884 98.664 111.99884
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.664 111.99884 98.664
+115.99878 102.9972 115.99878 102.9972 111.99884 98.664 111.99884
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.664 111.99884 98.664
+115.99878 102.9972 115.99878 102.9972 111.99884 98.664 111.99884
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 102.9972 111.99884 102.9972
+115.99878 107.33038 115.99878 107.33038 111.99884 102.9972 111.99884
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 102.9972 107.9989 102.9972
+111.99884 107.33038 111.99884 107.33038 107.9989 102.9972 107.9989
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 102.9972 107.9989 102.9972
+111.99884 107.33038 111.99884 107.33038 107.9989 102.9972 107.9989
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 107.33038 107.9989 107.33038
+111.99884 111.66357 111.99884 111.66357 107.9989 107.33038 107.9989
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 107.33038 107.9989 107.33038
+111.99884 111.66357 111.99884 111.66357 107.9989 107.33038 107.9989
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 107.33038 107.9989 107.33038
+111.99884 111.66357 111.99884 111.66357 107.9989 107.33038 107.9989
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 107.33038 107.9989 107.33038
+111.99884 111.66357 111.99884 111.66357 107.9989 107.33038 107.9989
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.66357 107.9989 111.66357
+111.99884 115.99677 111.99884 115.99677 107.9989 111.66357 107.9989
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.66357 107.9989 111.66357
+111.99884 115.99677 111.99884 115.99677 107.9989 111.66357 107.9989
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.66357 107.9989 111.66357
+111.99884 115.99677 111.99884 115.99677 107.9989 111.66357 107.9989
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.99677 103.99896 115.99677
+107.9989 120.32996 107.9989 120.32996 103.99896 115.99677 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.99677 103.99896 115.99677
+107.9989 120.32996 107.9989 120.32996 103.99896 115.99677 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.99677 103.99896 115.99677
+107.9989 120.32996 107.9989 120.32996 103.99896 115.99677 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.99677 103.99896 115.99677
+107.9989 120.32996 107.9989 120.32996 103.99896 115.99677 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.32996 103.99896 120.32996
+107.9989 124.66315 107.9989 124.66315 103.99896 120.32996 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.32996 103.99896 120.32996
+107.9989 124.66315 107.9989 124.66315 103.99896 120.32996 103.99896
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.32996 99.99902 120.32996
+103.99896 124.66315 103.99896 124.66315 99.99902 120.32996 99.99902
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.32996 99.99902 120.32996
+103.99896 124.66315 103.99896 124.66315 99.99902 120.32996 99.99902
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.32996 99.99902 120.32996
+103.99896 124.66315 103.99896 124.66315 99.99902 120.32996 99.99902
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.66315 99.99902 124.66315
+103.99896 128.99634 103.99896 128.99634 99.99902 124.66315 99.99902
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.66315 99.99902 124.66315
+103.99896 128.99634 103.99896 128.99634 99.99902 124.66315 99.99902
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.66315 95.99908 124.66315
+99.99902 128.99634 99.99902 128.99634 95.99908 124.66315 95.99908
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.66315 95.99908 124.66315
+99.99902 128.99634 99.99902 128.99634 95.99908 124.66315 95.99908
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.66315 95.99908 124.66315
+99.99902 128.99634 99.99902 128.99634 95.99908 124.66315 95.99908
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.99634 95.99908 128.99634
+99.99902 133.32953 99.99902 133.32953 95.99908 128.99634 95.99908
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.99634 91.99915 128.99634
+95.99908 133.32953 95.99908 133.32953 91.99915 128.99634 91.99915
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.99634 91.99915 128.99634
+95.99908 133.32953 95.99908 133.32953 91.99915 128.99634 91.99915
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.99634 91.99915 128.99634
+95.99908 133.32953 95.99908 133.32953 91.99915 128.99634 91.99915
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.99634 91.99915 128.99634
+95.99908 133.32953 95.99908 133.32953 91.99915 128.99634 91.99915
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.99634 87.9992 128.99634
+91.99915 133.32953 91.99915 133.32953 87.9992 128.99634 87.9992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32953 87.9992 133.32953
+91.99915 137.66272 91.99915 137.66272 87.9992 133.32953 87.9992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32953 87.9992 133.32953
+91.99915 137.66272 91.99915 137.66272 87.9992 133.32953 87.9992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32953 87.9992 133.32953
+91.99915 137.66272 91.99915 137.66272 87.9992 133.32953 87.9992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32953 83.99908 133.32953
+87.99902 137.66272 87.99902 137.66272 83.99908 133.32953 83.99908
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32953 83.99908 133.32953
+87.99902 137.66272 87.99902 137.66272 83.99908 133.32953 83.99908
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32953 83.99908 133.32953
+87.99902 137.66272 87.99902 137.66272 83.99908 133.32953 83.99908
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32953 83.99908 133.32953
+87.99902 137.66272 87.99902 137.66272 83.99908 133.32953 83.99908
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32953 79.99915 133.32953
+83.99908 137.66272 83.99908 137.66272 79.99915 133.32953 79.99915
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32953 79.99915 133.32953
+83.99908 137.66272 83.99908 137.66272 79.99915 133.32953 79.99915
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32953 79.99915 133.32953
+83.99908 137.66272 83.99908 137.66272 79.99915 133.32953 79.99915
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32953 75.9992 133.32953
+79.99915 137.66272 79.99915 137.66272 75.9992 133.32953 75.9992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32953 75.9992 133.32953
+79.99915 137.66272 79.99915 137.66272 75.9992 133.32953 75.9992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32953 75.9992 133.32953
+79.99915 137.66272 79.99915 137.66272 75.9992 133.32953 75.9992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32953 71.99927 133.32953
+75.9992 137.66272 75.9992 137.66272 71.99927 133.32953 71.99927 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32953 71.99927 133.32953
+75.9992 137.66272 75.9992 137.66272 71.99927 133.32953 71.99927 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32953 71.99927 133.32953
+75.9992 137.66272 75.9992 137.66272 71.99927 133.32953 71.99927 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32953 71.99927 133.32953
+75.9992 137.66272 75.9992 137.66272 71.99927 133.32953 71.99927 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32953 67.99933 133.32953
+71.99927 137.66272 71.99927 137.66272 67.99933 133.32953 67.99933
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32953 67.99933 133.32953
+71.99927 137.66272 71.99927 137.66272 67.99933 133.32953 67.99933
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32953 67.99933 133.32953
+71.99927 137.66272 71.99927 137.66272 67.99933 133.32953 67.99933
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32953 63.99939 133.32953
+67.99933 137.66272 67.99933 137.66272 63.99939 133.32953 63.99939
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32953 63.99939 133.32953
+67.99933 137.66272 67.99933 137.66272 63.99939 133.32953 63.99939
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32953 63.99939 133.32953
+67.99933 137.66272 67.99933 137.66272 63.99939 133.32953 63.99939
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32953 59.99945 133.32953
+63.99939 137.66272 63.99939 137.66272 59.99945 133.32953 59.99945
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32953 59.99945 133.32953
+63.99939 137.66272 63.99939 137.66272 59.99945 133.32953 59.99945
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32953 59.99945 133.32953
+63.99939 137.66272 63.99939 137.66272 59.99945 133.32953 59.99945
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32953 59.99945 133.32953
+63.99939 137.66272 63.99939 137.66272 59.99945 133.32953 59.99945
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32953 55.99951 133.32953
+59.99945 137.66272 59.99945 137.66272 55.99951 133.32953 55.99951
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32953 55.99951 133.32953
+59.99945 137.66272 59.99945 137.66272 55.99951 133.32953 55.99951
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.99634 55.99951 128.99634
+59.99945 133.32953 59.99945 133.32953 55.99951 128.99634 55.99951
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.99634 51.99939 128.99634
+55.99933 133.32953 55.99933 133.32953 51.99939 128.99634 51.99939
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.99634 51.99939 128.99634
+55.99933 133.32953 55.99933 133.32953 51.99939 128.99634 51.99939
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.99634 51.99939 128.99634
+55.99933 133.32953 55.99933 133.32953 51.99939 128.99634 51.99939
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.99634 47.99945 128.99634
+51.99939 133.32953 51.99939 133.32953 47.99945 128.99634 47.99945
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.99634 47.99945 128.99634
+51.99939 133.32953 51.99939 133.32953 47.99945 128.99634 47.99945
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.99634 47.99945 128.99634
+51.99939 133.32953 51.99939 133.32953 47.99945 128.99634 47.99945
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.66315 47.99945 124.66315
+51.99939 128.99634 51.99939 128.99634 47.99945 124.66315 47.99945
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.66315 43.99951 124.66315
+47.99945 128.99634 47.99945 128.99634 43.99951 124.66315 43.99951
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.66315 43.99951 124.66315
+47.99945 128.99634 47.99945 128.99634 43.99951 124.66315 43.99951
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.66315 43.99951 124.66315
+47.99945 128.99634 47.99945 128.99634 43.99951 124.66315 43.99951
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 124.66315 43.99951 124.66315
+47.99945 128.99634 47.99945 128.99634 43.99951 124.66315 43.99951
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.32996 39.99957 120.32996
+43.99951 124.66315 43.99951 124.66315 39.99957 120.32996 39.99957
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.32996 39.99957 120.32996
+43.99951 124.66315 43.99951 124.66315 39.99957 120.32996 39.99957
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.32996 39.99957 120.32996
+43.99951 124.66315 43.99951 124.66315 39.99957 120.32996 39.99957
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.32996 39.99957 120.32996
+43.99951 124.66315 43.99951 124.66315 39.99957 120.32996 39.99957
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.99677 35.99963 115.99677
+39.99957 120.32996 39.99957 120.32996 35.99963 115.99677 35.99963
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.99677 35.99963 115.99677
+39.99957 120.32996 39.99957 120.32996 35.99963 115.99677 35.99963
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.99677 35.99963 115.99677
+39.99957 120.32996 39.99957 120.32996 35.99963 115.99677 35.99963
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.99677 35.99963 115.99677
+39.99957 120.32996 39.99957 120.32996 35.99963 115.99677 35.99963
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.66357 35.99963 111.66357
+39.99957 115.99677 39.99957 115.99677 35.99963 111.66357 35.99963
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.66357 31.9997 111.66357
+35.99963 115.99677 35.99963 115.99677 31.9997 111.66357 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.66357 31.9997 111.66357
+35.99963 115.99677 35.99963 115.99677 31.9997 111.66357 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.66357 31.9997 111.66357
+35.99963 115.99677 35.99963 115.99677 31.9997 111.66357 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 107.33038 31.9997 107.33038
+35.99963 111.66357 35.99963 111.66357 31.9997 107.33038 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 107.33038 31.9997 107.33038
+35.99963 111.66357 35.99963 111.66357 31.9997 107.33038 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 107.33038 31.9997 107.33038
+35.99963 111.66357 35.99963 111.66357 31.9997 107.33038 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 102.9972 31.9997 102.9972
+35.99963 107.33038 35.99963 107.33038 31.9997 102.9972 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 102.9972 27.99976 102.9972
+31.9997 107.33038 31.9997 107.33038 27.99976 102.9972 27.99976 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 102.9972 27.99976 102.9972
+31.9997 107.33038 31.9997 107.33038 27.99976 102.9972 27.99976 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.664 27.99976 98.664
+31.9997 102.9972 31.9997 102.9972 27.99976 98.664 27.99976 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.664 27.99976 98.664
+31.9997 102.9972 31.9997 102.9972 27.99976 98.664 27.99976 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.664 27.99976 98.664
+31.9997 102.9972 31.9997 102.9972 27.99976 98.664 27.99976 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 94.33081 27.99976 94.33081
+31.9997 98.664 31.9997 98.664 27.99976 94.33081 27.99976 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 94.33081 27.99976 94.33081
+31.9997 98.664 31.9997 98.664 27.99976 94.33081 27.99976 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 94.33081 27.99976 94.33081
+31.9997 98.664 31.9997 98.664 27.99976 94.33081 27.99976 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 89.99762 27.99976 89.99762
+31.9997 94.33081 31.9997 94.33081 27.99976 89.99762 27.99976 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 89.99762 27.99976 89.99762
+31.9997 94.33081 31.9997 94.33081 27.99976 89.99762 27.99976 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 89.99762 27.99976 89.99762
+31.9997 94.33081 31.9997 94.33081 27.99976 89.99762 27.99976 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 85.66443 27.99976 85.66443
+31.9997 89.99762 31.9997 89.99762 27.99976 85.66443 27.99976 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 85.66443 27.99976 85.66443
+31.9997 89.99762 31.9997 89.99762 27.99976 85.66443 27.99976 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 85.66443 27.99976 85.66443
+31.9997 89.99762 31.9997 89.99762 27.99976 85.66443 27.99976 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33124 27.99976 81.33124
+31.9997 85.66443 31.9997 85.66443 27.99976 81.33124 27.99976 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33124 27.99976 81.33124
+31.9997 85.66443 31.9997 85.66443 27.99976 81.33124 27.99976 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33124 27.99976 81.33124
+31.9997 85.66443 31.9997 85.66443 27.99976 81.33124 27.99976 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.99805 27.99976 76.99805
+31.9997 81.33124 31.9997 81.33124 27.99976 76.99805 27.99976 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.99805 27.99976 76.99805
+31.9997 81.33124 31.9997 81.33124 27.99976 76.99805 27.99976 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.99805 27.99976 76.99805
+31.9997 81.33124 31.9997 81.33124 27.99976 76.99805 27.99976 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 72.66486 27.99976 72.66486
+31.9997 76.99805 31.9997 76.99805 27.99976 72.66486 27.99976 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 72.66486 27.99976 72.66486
+31.9997 76.99805 31.9997 76.99805 27.99976 72.66486 27.99976 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 72.66486 27.99976 72.66486
+31.9997 76.99805 31.9997 76.99805 27.99976 72.66486 27.99976 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.33167 27.99976 68.33167
+31.9997 72.66486 31.9997 72.66486 27.99976 68.33167 27.99976 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.33167 27.99976 68.33167
+31.9997 72.66486 31.9997 72.66486 27.99976 68.33167 27.99976 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.33167 27.99976 68.33167
+31.9997 72.66486 31.9997 72.66486 27.99976 68.33167 27.99976 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99847 31.9997 63.99847
+35.99963 68.33167 35.99963 68.33167 31.9997 63.99847 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99847 31.9997 63.99847
+35.99963 68.33167 35.99963 68.33167 31.9997 63.99847 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99847 31.9997 63.99847
+35.99963 68.33167 35.99963 68.33167 31.9997 63.99847 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.66528 31.9997 59.66528
+35.99963 63.99847 35.99963 63.99847 31.9997 59.66528 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.66528 31.9997 59.66528
+35.99963 63.99847 35.99963 63.99847 31.9997 59.66528 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.66528 35.99963 59.66528
+39.99957 63.99847 39.99957 63.99847 35.99963 59.66528 35.99963 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 55.33191 35.99963 55.33191
+39.99957 59.6651 39.99957 59.6651 35.99963 55.33191 35.99963 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 55.33191 35.99963 55.33191
+39.99957 59.6651 39.99957 59.6651 35.99963 55.33191 35.99963 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 55.33191 35.99963 55.33191
+39.99957 59.6651 39.99957 59.6651 35.99963 55.33191 35.99963 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 50.99872 39.99957 50.99872
+43.99951 55.33191 43.99951 55.33191 39.99957 50.99872 39.99957 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 50.99872 39.99957 50.99872
+43.99951 55.33191 43.99951 55.33191 39.99957 50.99872 39.99957 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 50.99872 39.99957 50.99872
+43.99951 55.33191 43.99951 55.33191 39.99957 50.99872 39.99957 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 50.99872 39.99957 50.99872
+43.99951 55.33191 43.99951 55.33191 39.99957 50.99872 39.99957 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66553 43.99951 46.66553
+47.99945 50.99872 47.99945 50.99872 43.99951 46.66553 43.99951 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66553 43.99951 46.66553
+47.99945 50.99872 47.99945 50.99872 43.99951 46.66553 43.99951 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 12.0 0.0 12.0 144.0 /Lineto /lineto
+load def 1 setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n
+2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4
+mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED
+/Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 16.33319 0.0 16.33319 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 20.66638 0.0 20.66638 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 24.99957 0.0 24.99957 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 29.33276 0.0 29.33276 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 33.66595 0.0 33.66595 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 37.99915 0.0 37.99915 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 42.33234 0.0 42.33234 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 46.66553 0.0 46.66553 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 50.99872 0.0 50.99872 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 55.33191 0.0 55.33191 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 59.66528 0.0 59.66528 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 63.99847 0.0 63.99847 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 68.33167 0.0 68.33167 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 72.66486 0.0 72.66486 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 76.99805 0.0 76.99805 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 81.33124 0.0 81.33124 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 85.66443 0.0 85.66443 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 89.99762 0.0 89.99762 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 94.33081 0.0 94.33081 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 98.664 0.0 98.664 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 102.9972 0.0 102.9972 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 107.33038 0.0 107.33038 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 111.66357 0.0 111.66357 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 115.99677 0.0 115.99677 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 120.32996 0.0 120.32996 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 124.66315 0.0 124.66315 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 128.99634 0.0 128.99634 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 133.32953 0.0 133.32953 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 137.66272 0.0 137.66272 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 141.99591 0.0 141.99591 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 146.32928 0.0 146.32928 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 150.66248 0.0 150.66248 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 154.99567 0.0 154.99567 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 159.32886 0.0 159.32886 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 163.66205 0.0 163.66205 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 167.99524 0.0 167.99524 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 0.0 12.0 0.0 /Lineto /lineto
+load def 1 setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n
+2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4
+mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED
+/Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 3.99994 12.0 3.99994 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 7.99988 12.0 7.99988 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 11.99982 12.0 11.99982 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 15.99976 12.0 15.99976 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 19.99988 12.0 19.99988 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 23.99982 12.0 23.99982 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 27.99976 12.0 27.99976 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 31.9997 12.0 31.9997 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 35.99963 12.0 35.99963 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 39.99957 12.0 39.99957 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 43.99951 12.0 43.99951 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 47.99945 12.0 47.99945 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 51.99939 12.0 51.99939 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 55.99951 12.0 55.99951 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 59.99945 12.0 59.99945 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 63.99939 12.0 63.99939 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 67.99933 12.0 67.99933 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 71.99927 12.0 71.99927 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 75.9992 12.0 75.9992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 79.99915 12.0 79.99915 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 83.99908 12.0 83.99908 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 87.9992 12.0 87.9992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 91.99915 12.0 91.99915 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 95.99908 12.0 95.99908 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 99.99902 12.0 99.99902 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 103.99896 12.0 103.99896 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 107.9989 12.0 107.9989 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 111.99884 12.0 111.99884 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 115.99878 12.0 115.99878 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 119.99872 12.0 119.99872 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 123.99884 12.0 123.99884 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 127.99878 12.0 127.99878 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 131.99872 12.0 131.99872 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 135.99866 12.0 135.99866 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 139.9986 12.0 139.9986 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 143.99854 12.0 143.99854 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.5 SLW 1 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def /t 0 def /t1 0.5 def /dt t1 t sub 199
+div def /F@pstplot ((1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0-1.5)*(2.0)+15*t^2*(1-t)^4*(2.0+2)*(2.0)+
+20*t^3*(1-t)^3*(2.0+6)*(2.0)+15*t^4*(1-t)^2*(2.0+5)*(2.0)+6*t^5*(1-t)*(2.0+1.5)*(2.0)+t^6*(2.0)*(2.0)|(1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0+2)*(2.0)+15*t^2*(1-t)^4*(2.0+5)*(2.0)+
+20*t^3*(1-t)^3*(2.0+3)*(2.0)+15*t^4*(1-t)^2*(2.0-1)*(2.0)+6*t^5*(1-t)*(2.0-2)*(2.0)+t^6*(2.0)*(2.0))
+ tx@AlgToPs begin AlgToPs end cvx def /xy { F@pstplot 12.0 mul exch
+12.0 mul exch } def /ps@Exit false def xy moveto 199 1 sub { /t t
+dt add def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0 mul
+lt { moveto }{ L } ifelse } ifelse ps@Exit { exit } if } repeat ps@Exit
+not { /t t1 def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0
+mul lt { moveto }{ L } ifelse } ifelse } if gsave 0.5 SLW 1 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.5 SLW 1 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def /t 0.5 def /t1 1 def /dt t1 t sub 199
+div def /F@pstplot ((1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0-1.5)*(2.0)+15*t^2*(1-t)^4*(2.0+2)*(2.0)+
+20*t^3*(1-t)^3*(2.0+6)*(2.0)+15*t^4*(1-t)^2*(2.0+5)*(2.0)+6*t^5*(1-t)*(2.0+1.5)*(2.0)+t^6*(2.0)*(2.0)|(1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0+2)*(2.0)+15*t^2*(1-t)^4*(2.0+5)*(2.0)+
+20*t^3*(1-t)^3*(2.0+3)*(2.0)+15*t^4*(1-t)^2*(2.0-1)*(2.0)+6*t^5*(1-t)*(2.0-2)*(2.0)+t^6*(2.0)*(2.0))
+ tx@AlgToPs begin AlgToPs end cvx def /xy { F@pstplot 12.0 mul exch
+12.0 mul exch } def /ps@Exit false def xy moveto 199 1 sub { /t t
+dt add def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0 mul
+lt { moveto }{ L } ifelse } ifelse ps@Exit { exit } if } repeat ps@Exit
+not { /t t1 def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0
+mul lt { moveto }{ L } ifelse } ifelse } if gsave 0.5 SLW 1 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial 0 TeXcolorgray
+0 TeXcolorgray eop end
+%%Trailer
+
+userdict /end-hook known{end-hook}if
+%%EOF
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/b6of3.eps b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/b6of3.eps
new file mode 100644
index 00000000000..28051435f6b
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/b6of3.eps
@@ -0,0 +1,28461 @@
+%!PS-Adobe-3.0 EPSF-3.0
+%%Creator: dvips(k) 5.992 Copyright 2012 Radical Eye Software
+%%Title: testps-fig1.dvi
+%%CreationDate: Wed Nov 27 16:28:39 2013
+%%Pages: 1
+%%PageOrder: Ascend
+%%BoundingBox: 117 554 275 700
+%%DocumentPaperSizes: Letter
+%%EndComments
+%DVIPSWebPage: (www.radicaleye.com)
+%DVIPSCommandLine: DVIPS.EXE testps-fig1
+%DVIPSParameters: dpi=600
+%DVIPSSource: TeX output 2013.11.27:1623
+%%BeginProcSet: tex.pro 0 0
+%!
+/TeXDict 300 dict def TeXDict begin/N{def}def/B{bind def}N/S{exch}N/X{S
+N}B/A{dup}B/TR{translate}N/isls false N/vsize 11 72 mul N/hsize 8.5 72
+mul N/landplus90{false}def/@rigin{isls{[0 landplus90{1 -1}{-1 1}ifelse 0
+0 0]concat}if 72 Resolution div 72 VResolution div neg scale isls{
+landplus90{VResolution 72 div vsize mul 0 exch}{Resolution -72 div hsize
+mul 0}ifelse TR}if Resolution VResolution vsize -72 div 1 add mul TR[
+matrix currentmatrix{A A round sub abs 0.00001 lt{round}if}forall round
+exch round exch]setmatrix}N/@landscape{/isls true N}B/@manualfeed{
+statusdict/manualfeed true put}B/@copies{/#copies X}B/FMat[1 0 0 -1 0 0]
+N/FBB[0 0 0 0]N/nn 0 N/IEn 0 N/ctr 0 N/df-tail{/nn 8 dict N nn begin
+/FontType 3 N/FontMatrix fntrx N/FontBBox FBB N string/base X array
+/BitMaps X/BuildChar{CharBuilder}N/Encoding IEn N end A{/foo setfont}2
+array copy cvx N load 0 nn put/ctr 0 N[}B/sf 0 N/df{/sf 1 N/fntrx FMat N
+df-tail}B/dfs{div/sf X/fntrx[sf 0 0 sf neg 0 0]N df-tail}B/E{pop nn A
+definefont setfont}B/Cw{Cd A length 5 sub get}B/Ch{Cd A length 4 sub get
+}B/Cx{128 Cd A length 3 sub get sub}B/Cy{Cd A length 2 sub get 127 sub}
+B/Cdx{Cd A length 1 sub get}B/Ci{Cd A type/stringtype ne{ctr get/ctr ctr
+1 add N}if}B/CharBuilder{save 3 1 roll S A/base get 2 index get S
+/BitMaps get S get/Cd X pop/ctr 0 N Cdx 0 Cx Cy Ch sub Cx Cw add Cy
+setcachedevice Cw Ch true[1 0 0 -1 -.1 Cx sub Cy .1 sub]{Ci}imagemask
+restore}B/D{/cc X A type/stringtype ne{]}if nn/base get cc ctr put nn
+/BitMaps get S ctr S sf 1 ne{A A length 1 sub A 2 index S get sf div put
+}if put/ctr ctr 1 add N}B/I{cc 1 add D}B/bop{userdict/bop-hook known{
+bop-hook}if/SI save N @rigin 0 0 moveto/V matrix currentmatrix A 1 get A
+mul exch 0 get A mul add .99 lt{/QV}{/RV}ifelse load def pop pop}N/eop{
+SI restore userdict/eop-hook known{eop-hook}if showpage}N/@start{
+userdict/start-hook known{start-hook}if pop/VResolution X/Resolution X
+1000 div/DVImag X/IEn 256 array N 2 string 0 1 255{IEn S A 360 add 36 4
+index cvrs cvn put}for pop 65781.76 div/vsize X 65781.76 div/hsize X}N
+/p{show}N/RMat[1 0 0 -1 0 0]N/BDot 260 string N/Rx 0 N/Ry 0 N/V{}B/RV/v{
+/Ry X/Rx X V}B statusdict begin/product where{pop false[(Display)(NeXT)
+(LaserWriter 16/600)]{A length product length le{A length product exch 0
+exch getinterval eq{pop true exit}if}{pop}ifelse}forall}{false}ifelse
+end{{gsave TR -.1 .1 TR 1 1 scale Rx Ry false RMat{BDot}imagemask
+grestore}}{{gsave TR -.1 .1 TR Rx Ry scale 1 1 false RMat{BDot}
+imagemask grestore}}ifelse B/QV{gsave newpath transform round exch round
+exch itransform moveto Rx 0 rlineto 0 Ry neg rlineto Rx neg 0 rlineto
+fill grestore}B/a{moveto}B/delta 0 N/tail{A/delta X 0 rmoveto}B/M{S p
+delta add tail}B/b{S p tail}B/c{-4 M}B/d{-3 M}B/e{-2 M}B/f{-1 M}B/g{0 M}
+B/h{1 M}B/i{2 M}B/j{3 M}B/k{4 M}B/w{0 rmoveto}B/l{p -4 w}B/m{p -3 w}B/n{
+p -2 w}B/o{p -1 w}B/q{p 1 w}B/r{p 2 w}B/s{p 3 w}B/t{p 4 w}B/x{0 S
+rmoveto}B/y{3 2 roll p a}B/bos{/SS save N}B/eos{SS restore}B end
+
+%%EndProcSet
+%%BeginProcSet: pstricks.pro 0 0
+% $Id: pstricks.pro 801 2013-07-09 18:10:41Z herbert $
+%
+%% PostScript prologue for pstricks.tex.
+%% Version 1.17, 2013/07/08
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%
+%
+% Define the follwing gs-functions if not known, eg when using distiller
+%
+systemdict /.setopacityalpha known not {/.setopacityalpha { pop } def } if
+systemdict /.setblendmode known not {/.setblendmode { pop } def } if
+systemdict /.setshapealpha known not {/.setshapealpha { pop } def } if
+%
+/tx@Dict 200 dict def % the main PSTricks dictionary
+tx@Dict begin
+/ADict 25 dict def % The arrow dictionary
+/CM { matrix currentmatrix } bind def
+/SLW /setlinewidth load def
+/CLW /currentlinewidth load def
+/CP /currentpoint load def
+/ED { exch def } bind def
+/L /lineto load def
+/T /translate load def
+/TMatrix { } def
+/RAngle { 0 } def
+/Sqrt { dup 0 lt { pop 0 } { sqrt } ifelse } def % return 0 for negative arguments
+/Atan { /atan load stopped { pop pop 0 } if } def % return 0 if atan not known
+/ATAN1 {neg -1 atan 180 sub } def % atan(x) (only one parameter)
+/Div { dup 0 eq { pop } { div } ifelse } def % control the division
+/tan { dup cos abs 1.e-10 lt
+ { pop 1.e10 } % return 1.e10 as infinit
+ { dup sin exch cos div } ifelse % default sin/cos
+} def
+/Tan { dup sin exch cos Div } def % sin(x)/cos(x) x in degrees
+/Acos {dup dup mul neg 1 add dup 0 lt { % arc cos, returns 0 when negative root
+ pop pop 0 }{ sqrt exch atan} ifelse } def
+/Acos2 { 2 dict begin
+ /x ED /y ED
+ y abs 1.0e-20 lt { 1.0e30 } if
+ x y div
+ dup dup mul neg 1 add dup 0 lt { % arc cos needs two values x,y
+ pop pop 0 }{ sqrt exch atan} ifelse
+ y 0 lt { 180 add } if
+} def
+/NET { neg exch neg exch T } def % change coordinate system to the negative one
+/Pyth { dup mul exch dup mul add sqrt } def % Pythagoras, expects 2 parameter
+/Pyth2 { % Pythagoras, xA yA xB yB
+ 3 -1 roll % xA xB yB yA
+ sub % xA xB yB-yA
+ 3 1 roll % yB-yA xA xB
+ sub % yB-yA xA-xB
+ Pyth } def
+/PtoC { 2 copy cos mul 3 1 roll sin mul } def % Polar to Cartesian
+/Rand { rand 4294967295 div } def % a real random number
+%----------------- hv added 20050516 ---------------
+/PiDiv2 1.57079632680 def
+/Pi 3.14159265359 def
+/TwoPi 6.28318530718 def
+/Euler 2.71828182846 def
+%/e Euler bind def
+%
+/RadtoDeg { 180 mul Pi div } bind def % convert from radian to degrees
+/DegtoRad { Pi mul 180 div } bind def % viceversa
+%
+/startGlobal { true setglobal globaldict begin } bind def
+/endGlobal { end false setglobal } bind def
+/pssetRGBcolor /setrgbcolor load def
+/pssetCMYKcolor /setcmykcolor load def
+/pssetGraycolor /setgray load def
+%
+%----------------- hv end---------------------------
+/PathLength@ { /z z y y1 sub x x1 sub Pyth add def /y1 y def /x1 x def } def
+%
+/PathLength {
+ flattenpath /z 0 def
+ { /y1 ED /x1 ED /y2 y1 def /x2 x1 def }
+ { /y ED /x ED PathLength@ }
+ {}
+ { /y y2 def /x x2 def PathLength@ }
+ /pathforall load stopped { pop pop pop pop } if
+ z
+} def
+%
+/STP { .996264 dup scale } def % BP/PT scaling
+/STV { SDict begin normalscale end STP } def %
+%
+/DashLine {
+ dup 0 gt
+ { /a .5 def PathLength exch div }
+ { pop /a 1 def PathLength } ifelse
+ /b ED % pattern should fit evenly in b
+ dup /X ED % pattern array
+ 0 get /y ED % length of first black segment
+ /z 0 X {add} forall def % length of the full pattern
+ %% Computation of the scaling factor as described by van Zandt:
+ b a .5 sub 2 mul y mul sub z Div round
+ z mul a .5 sub 2 mul y mul add b exch Div
+ %%%% scaling factor on stack.
+ /z ED %% now, z is the scaling factor
+ false % for the length test below
+ X { z mul } forall X astore %% modification TN 04-08-07
+ %%% Checking whether at least one dash in X has positive length:
+ {0 gt or} forall
+ { X 1 a sub y mul }
+ { [ 1 0 ] 0 }
+ ifelse
+ setdash stroke
+} def
+%
+/DotLine {
+ /b PathLength def
+ /a ED /z ED /y CLW def
+ /z y z add def
+ a 0 gt {
+ /b b a div def
+ }{
+ a 0 eq {
+ /b b y sub def
+ }{ a -3 eq {
+ /b b y add def } if
+ } ifelse
+ } ifelse
+ [ 0 b b z Div round Div dup 0 le { pop 1 } if ]
+ a 0 gt { 0 }{ y 2 div a -2 gt { neg }if } ifelse
+ setdash 1 setlinecap stroke
+} def
+%
+/SymbolLine { % on stack [ x y x y ...
+ counttomark % number of elements
+ 2 div cvi /n ED % n pairs
+ /YA ED /XA ED % the start point
+ n 1 sub {
+ /YB ED /XB ED
+ /XLength XB XA sub def
+ /YLength YB YA sub def
+ /PAngle YLength XLength Atan def
+ /XYLength XLength YLength Pyth def
+
+ %% for negative SymStep we calculate the distance
+ SymStep 0 lt
+ { %XYLength SymStep div abs cvi
+ /nSym SymStep abs cvi def }
+ { /nSym XYLength SymStep div cvi def }
+ ifelse
+ 0.5 setflat
+ /Shift Symbol stringwidth pop 2 div def
+ /deltaX XLength nSym div def
+ /deltaY YLength nSym div def
+ curveticks
+ { XA YA moveto }
+ { XA Shift sub YA Shift sub moveto }
+ ifelse
+ nSym {
+ gsave
+ curveticks
+ { PAngle 180 sub CorrAngle sub tickAngle add /rotAngle ED
+ currentpoint translate rotAngle rotate
+ 0 SymbolWidth 2 div moveto 0 SymbolWidth 2 div neg lineto
+ SymbolLinewidth setlinewidth stroke
+ }
+ {
+ rotateSymbol { PAngle 180 sub CorrAngle sub rotate } if
+ Symbol show
+ }
+ ifelse
+ grestore
+ deltaX deltaY rmoveto
+ } repeat
+ /YA YB def /XA XB def
+ } repeat
+ curveticks
+ { XA YA moveto }
+ { XA Shift sub YA Shift sub moveto }
+ ifelse
+ gsave
+ curveticks
+ { PAngle 180 sub CorrAngle sub tickAngle add /rotAngle ED
+ XA YA translate rotAngle rotate
+ 0 SymbolWidth 2 div moveto 0 SymbolWidth 2 div neg lineto
+ SymbolLinewidth setlinewidth stroke
+ }
+ {
+ rotateSymbol { PAngle 180 sub CorrAngle sub rotate } if
+ Symbol show
+ }
+ ifelse
+ grestore
+ pop % delete the mark symbol
+} def
+%
+/LineFill { % hv ------------ patch 7 -------------
+ gsave
+ abs /hatchWidthInc ED
+ abs /hatchSepInc ED
+ abs CLW add /a ED
+ a 0 dtransform round exch round exch
+ 2 copy idtransform
+ exch Atan rotate
+ idtransform pop /a ED
+ .25 .25 itransform pathbbox
+ /y2 ED
+ a Div ceiling cvi /x2 ED /y1 ED
+ a Div cvi /x1 ED /y2 y2 y1 sub def
+ clipType % must be defined in pstricks.tex: clip -- eoclip
+ newpath
+ 2 setlinecap
+ systemdict
+ /setstrokeadjust known { true setstrokeadjust } if
+ x2 x1 sub 1 add {
+ x1 a mul y1 moveto 0 y2 rlineto stroke
+ /x1 x1 1 add
+ hatchWidthInc 0 gt { CLW add } if
+ def
+ hatchSepInc 0 gt hatchWidthInc 0 gt or {
+ /a a hatchSepInc add def
+ CLW hatchWidthInc add SLW
+ } if
+ } repeat
+ grestore
+ pop pop } def
+%
+/DotFill {% on stack: dot radius
+ /dotRadius ED
+ abs CLW add /a ED
+ a 0 dtransform round exch round exch
+ 2 copy idtransform
+ exch Atan rotate
+ idtransform pop /a ED
+ .25 .25 itransform
+ pathbbox % llx lly urx ury of smallest bounding box
+ /y2 ED /x2 ED /y1 ED /x1 ED
+ y2 y1 sub a div 2 add cvi /Ny ED
+ x2 x1 sub a div 2 add cvi /Nx ED
+ clipType % must be defined in pstricks.tex: clip -- eoclip
+ newpath
+ /yA y1 dotRadius add CLW add def
+ /xA0 x1 dotRadius add CLW add def
+ Ny {
+ /xA xA0 def
+ Nx {
+ newpath
+ xA yA dotRadius 0 360 arc
+ SolidDot { gsave fill grestore } if
+ stroke
+ xA a add /xA ED
+ } repeat
+ yA a add /yA ED
+ } repeat
+ grestore
+} def
+%
+/PenroseFill {% on stack: scaling factor
+ /Scale ED
+% 1 exch div round /penroseFactor ED
+% a 0 dtransform round exch round exch
+% 2 copy idtransform
+% exch Atan rotate
+% idtransform pop /a ED
+% .25 .25 itransform pathbbox
+% /y2 ED
+% a Div ceiling cvi /x2 ED /y1 ED
+% a Div cvi /x1 ED /y2 y2 y1 sub def
+ clip
+ newpath
+gsave
+ 220 150 translate
+ Scale dup scale
+ systemdict /setstrokeadjust known { true setstrokeadjust } if
+ /I/S/L/W/G/+/Z/F/E/D[/def/exch/for{E D}/add{s E get mul}
+ { Z -36.2001 1 33 }{25 E S rlineto}{/q Z dup q G E q 1 + G}{Z 2 2}]{cvx def}forall
+ [0 72 1008 {dup sin E cos }F ]1 setlinejoin/s W{/a W{/b I 10{/i I 4{/m I moveto
+ i m +/j I 10{/l Z b m l + G a l G sub s m get div .2 + floor .3 + 25
+ mul j l + S rmoveto}F i L j L stroke }F}F}F}F
+ grestore
+% pop pop
+} def
+%
+/PenroseFillA {% on stack: scaling factor, border color, kite color, dart color
+ /Scale ED
+ Scale dup scale
+ /border_colour ED
+ /kite_colour ED
+ /dart_colour ED
+ clip
+
+ newpath
+ gsave
+ 100 100 translate
+ 6
+ Scale 1 lt { 1 Scale dup add div mul cvi } if %%%% Number of iterations
+ 10 %%%% Long side length in millimeters
+ /border_width { L 0.06 mul }def %%%% Choose the scalefactor for the borders
+ /L exch 25.4 div 72 mul def %%%% Conversion: mm -> inches -> points
+ /f{-1 5 sqrt add 2 div}bind def %%%% The reciprocal of the golden ratio
+ /l{L f mul}bind def %%%% Short side length l = L*f
+ /Ll{L l add}bind def %%%% Ll = L + l
+ /c{36 cos L mul}bind def %%%% c = L*cos(36)
+ /s{36 sin L mul}bind def %%%% s = L*sin(36)
+ /draw_tile { 0 0 moveto c s lineto 0 lineto gsave closepath gsave fill grestore
+ 0 setlinewidth stroke grestore border_colour stroke } bind def
+ /half_kite { dup dup 0 gt{ 1 sub gsave f f neg scale -36 rotate half_dart
+ Ll 0 translate 144 rotate kite grestore }
+ { kite_colour L draw_tile }ifelse
+ pop } bind def
+ /half_dart { dup dup 0 gt{ 1 sub gsave f f scale half_kite
+ -144 rotate Ll neg 0 translate half_dart grestore }
+ { dart_colour l draw_tile }ifelse
+ pop } bind def
+ /kite{ gsave half_kite 1 -1 scale half_kite grestore }bind def
+ border_width setlinewidth 1 setlinejoin 1 setlinecap
+% 450 0 translate
+ dup f exch neg exp dup scale
+ 5 {kite 72 rotate } repeat stroke
+ grestore
+} def
+%
+%
+/TruchetFill { % on stack: scaling factor
+ 10 dict begin
+ dup dup scale
+ 1 exch div round /penroseFactor ED
+ a 0 dtransform round exch round exch
+ 2 copy idtransform
+ exch Atan rotate
+ idtransform pop /a ED
+ .25 .25 itransform pathbbox
+ /y2 ED
+ a Div ceiling cvi /x2 ED /y1 ED
+ a Div cvi /x1 ED /y2 y2 y1 sub def
+ clip
+ newpath
+ systemdict
+ /setstrokeadjust known { true setstrokeadjust } if
+ /ma a neg def
+ /ha a 2 div def
+ /mha ha neg def
+ /tile {
+ rand dup 2 idiv 2 mul eq { 90 rotate } if
+ mha mha moveto ha mha lineto
+ ha ha lineto mha ha lineto
+% closepath .1 setlinewidth stroke
+ contents
+ } def
+ /contents{
+ 0 ha moveto ha 0 lineto
+ 0 mha moveto mha 0 lineto
+% 1 setlinewidth stroke
+ } def
+ /dotiling {
+ f ma mul a f a mul {
+ /i exch def
+ f ma mul a f a mul {
+ /j exch def
+ gsave i j translate
+ tile stroke grestore
+ } for
+ } for
+ } def
+%
+ /f 3 def
+ 5 srand dotiling
+ end % local user dict
+} def
+%
+/BeginArrow {
+ ADict begin % hold it local, for end see EndArrow
+ /@mtrx CM def
+ gsave
+ 2 copy T
+ 2 index sub neg exch
+ 3 index sub exch Atan
+ rotate newpath
+} def
+%
+/EndArrow { @mtrx setmatrix CP grestore end } def % end the ADict
+%
+/Arrow {
+ CLW mul add dup
+ 2 div /w ED
+ mul dup /h ED
+ mul /a ED
+ { 0 h T 1 -1 scale } if
+ w neg h moveto
+ 0 0 L w h L w neg a neg rlineto
+ gsave fill grestore
+} def
+%
+/ArrowD { % the sides are drawn as curves (hv 20071211)
+ CLW mul add dup
+ 2 div /w ED
+ mul dup /h ED
+ mul /Inset ED
+ { 0 h T 1 -1 scale } if % changes the direction
+% we use y=w/h^2 * x^2 as equation for the control points
+% for the coordinates the arrow is seen from top to bottom
+% the bottom (tip) is (0;0)
+ w neg h moveto % lower left of >
+ w 9 div 4 mul neg h 3 div 2 mul
+ w 9 div neg h 3 div
+ 0 0 curveto % tip of >
+ w 9 div h 3 div
+ w 9 div 4 mul h 3 div 2 mul
+ w h curveto % upper left of >
+ w neg Inset neg rlineto % move to x=0 and inset
+ gsave fill grestore
+} def
+%
+/Tbar {
+ CLW mul add /z ED
+ z -2 div CLW 2 div moveto
+ z 0 rlineto stroke
+ 0 CLW moveto
+} def
+%
+/Bracket {
+ CLW mul add dup CLW sub 2 div
+ /x ED mul CLW add /y ED /z CLW 2 div def
+ x neg y moveto
+ x neg CLW 2 div L x CLW 2 div L x y L stroke
+ 0 CLW moveto
+} def
+%
+/RoundBracket {
+ CLW mul add dup 2 div
+ /x ED mul /y ED /mtrx CM def
+ 0 CLW 2 div T x y mul 0 ne { x y scale } if
+ 1 1 moveto
+ .85 .5 .35 0 0 0 curveto
+ -.35 0 -.85 .5 -1 1 curveto
+ mtrx setmatrix stroke 0 CLW moveto
+} def
+%
+/SD { 0 360 arc fill } def
+%
+/EndDot { % DS is the dot size
+ { /z DS def } { /z 0 def } ifelse % outer or inner dimen
+ /b ED % the color definition
+ 0 z DS SD
+ b { 0 z DS CLW sub SD } if
+ 0 DS z add CLW 4 div sub
+ moveto
+} def
+%
+/Shadow { [ { /moveto load } { /lineto load } { /curveto load } {
+ /closepath load } /pathforall load stopped { pop pop pop pop CP /moveto
+ load } if ] cvx newpath 3 1 roll T exec } def
+%
+/NArray { % holds the coordinates and on top of stack the showpoints boolean
+ /showpoints ED
+ counttomark 2 div dup cvi /n ED % n 2 div on stack
+ n eq not { exch pop } if % even numbers of points? delete one
+ ] aload /Points ED
+ showpoints not { Points aload pop } if
+% { ] aload /Points ED }
+% { n 2 mul 1 add -1 roll pop } ifelse % delete the mark symbol
+} def
+%
+/Line {
+ NArray n 0 eq not
+ { n 1 eq { 0 0 /n 2 def } if ArrowA /n n 2 sub def
+ n { Lineto } repeat
+ CP 4 2 roll ArrowB L pop pop
+ } if
+} def
+%
+/LineToYAxis {
+ /Ox ED % Save the x origin value
+ NArray % all x-y pairs on stack
+ n { 2 copy moveto % go to current point
+ Ox exch Lineto % line to y-axis
+ pop % delete old x-value
+ } repeat
+} def
+%
+/LineToXAxis{
+ /Oy ED % Save the y origin value
+ NArray % all x-y pairs on stack
+ n 0 eq not
+ { n 1 eq { 0 0 /n 2 def } if
+ ArrowA
+ /n n 2 sub def
+ CP 2 copy moveto pop Oy Lineto
+ n { 2 copy moveto pop Oy Lineto } repeat
+ CP
+ 4 2 roll
+ ArrowB
+ 2 copy moveto pop Oy
+ L
+ pop pop } if
+} def
+%
+/Arcto {
+ /a [ 6 -2 roll ] cvx def
+ a r
+ /arcto load stopped { 5 } { 4 } ifelse { pop } repeat
+ a
+} def
+%
+/CheckClosed {
+ dup n 2 mul 1 sub index eq 2 index n 2 mul 1 add index eq
+ and { pop pop /n n 1 sub def } if
+} def
+%
+/Polygon {
+ NArray n 2 eq { 0 0 /n 3 def } if
+ n 3 lt
+ { n { pop pop } repeat }
+ { n 3 gt { CheckClosed } if
+ n 2 mul -2 roll
+ /y0 ED /x0 ED /y1 ED /x1 ED
+ x1 y1
+ /x1 x0 x1 add 2 div def
+ /y1 y0 y1 add 2 div def
+ x1 y1 moveto
+ /n n 2 sub def
+ n { Lineto } repeat
+ x1 y1 x0 y0 6 4 roll Lineto
+ Lineto pop pop closepath } ifelse
+} def
+%
+/SymbolPolygon { % on stack [ x y x y ...
+ counttomark % number of elements
+ 2 add /m ED
+ 2 copy m 2 roll % copy last two
+ m 2 div cvi /n ED % n pairs
+ /YA ED /XA ED % the start point
+ n 1 sub {
+ /YB ED /XB ED
+ /XLength XB XA sub def
+ /YLength YB YA sub def
+ /PAngle YLength XLength Atan def
+ /XYLength XLength YLength Pyth def
+ /nSym XYLength SymStep Div cvi def
+ /Shift Symbol stringwidth pop 2 Div def
+ /deltaX XLength nSym Div def
+ /deltaY YLength nSym Div def
+ XA Shift sub YA Shift sub moveto
+ nSym {
+ gsave rotateSymbol { PAngle 180 sub CorrAngle sub rotate } if
+ Symbol show
+ grestore
+ deltaX deltaY rmoveto
+ } repeat
+% XB Shift sub YB Shift sub moveto Symbol show
+ /YA YB def /XA XB def
+ } repeat
+ pop % delete the mark symbol
+} def
+%
+/Diamond {
+ /mtrx CM def
+ T rotate
+ /h ED
+ /w ED
+ dup 0 eq { pop } { CLW mul neg
+ /d ED
+ /a w h Atan def
+ /h d a sin Div h add def
+ /w d a cos Div w add def } ifelse
+ mark w 2 div h 2 div w 0 0 h neg w neg 0 0 h w 2 div h 2 div
+ /ArrowA { moveto } def
+ /ArrowB { } def
+ false Line
+ closepath mtrx setmatrix } def
+%
+/Triangle {
+ /mtrx CM def
+ translate
+ rotate /h ED 2 div /w ED
+ dup CLW mul /d ED
+ /h h d w h Atan sin Div sub def
+ /w w d h w Atan 2 div dup cos exch sin Div mul sub def
+ mark
+ 0 d w neg d 0 h w d 0 d
+ /ArrowA { moveto } def
+ /ArrowB { } def
+ false
+ Line
+ closepath
+ mtrx
+% DG/SR modification begin - Jun. 1, 1998 - Patch 3 (from Michael Vulis)
+% setmatrix } def
+ setmatrix pop
+} def
+% DG/SR modification end
+%
+/CCA {
+ /y ED /x ED
+ 2 copy y sub /dy1 ED
+ x sub /dx1 ED
+ /l1 dx1 dy1 Pyth def
+} def
+%
+/CC {
+ /l0 l1 def
+ /x1 x dx sub def
+ /y1 y dy sub def
+ /dx0 dx1 def
+ /dy0 dy1 def
+ CCA
+ /dx dx0 l1 c exp mul dx1 l0 c exp mul add def
+ /dy dy0 l1 c exp mul dy1 l0 c exp mul add def
+ /m dx0 dy0 Atan dx1 dy1 Atan sub 2 div cos abs b exp a mul dx dy Pyth Div 2 div def
+ /x2 x l0 dx mul m mul sub def
+ /y2 y l0 dy mul m mul sub def
+ /dx l1 dx mul m mul neg def
+ /dy l1 dy mul m mul neg def
+} def
+%
+/IC {
+ /c c 1 add def
+ c 0 lt { /c 0 def } { c 3 gt { /c 3 def } if } ifelse
+ /a a 2 mul 3 div 45 cos b exp div def
+ CCA
+ /dx 0 def
+ /dy 0 def
+} def
+%
+/BOC { IC CC x2 y2 x1 y1 ArrowA CP 4 2 roll x y curveto } def
+/NC { CC x1 y1 x2 y2 x y curveto } def
+/EOC { x dx sub y dy sub 4 2 roll ArrowB 2 copy curveto } def
+/BAC { IC CC x y moveto CC x1 y1 CP ArrowA } def
+/NAC { x2 y2 x y curveto CC x1 y1 } def
+/EAC { x2 y2 x y ArrowB curveto pop pop } def
+%
+/OpenCurve {
+ NArray n 3 lt
+ { n { pop pop } repeat }
+ { BOC /n n 3 sub def n { NC } repeat EOC } ifelse
+} def
+%
+/CurvePath {
+ %% for negative SymStep we calculate the distance
+ SymStep 0 lt { gsave PathLength SymStep div abs /SymStep ED grestore } if
+ 0.5 setflat
+ flattenpath /z 0 def /z0 0 def
+ { /y1 ED /x1 ED /y2 y1 def /x2 x1 def
+ x1 Shift sub y1 Shift sub moveto
+ gsave
+ curveticks
+ { x1 y1 translate startAngle rotate
+ 0 SymbolWidth 2 div moveto 0 SymbolWidth 2 div neg lineto
+ SymbolLinewidth setlinewidth stroke
+ }
+ { startAngle rotate Symbol show }
+ ifelse
+ grestore /z0 z def }
+ { /y ED /x ED PathLength@ z z0 sub SymStep ge {
+ x Shift sub y Shift sub moveto
+ gsave
+ curveticks
+ { y yOld sub x xOld sub Atan 180 sub CorrAngle sub /rotAngle ED
+ x y translate rotAngle rotate
+ 0 SymbolWidth 2 div moveto 0 SymbolWidth 2 div neg lineto
+ SymbolLinewidth setlinewidth stroke
+ }
+ {
+ rotateSymbol { y yOld sub x xOld sub Atan 180 sub CorrAngle sub rotate } if
+ Symbol show
+ }
+ ifelse
+ grestore /z0 z def } if
+ /yOld y def /xOld x def }
+ {} %% the lineto part
+ { /y y2 def /x x2 def PathLength@
+ x Shift sub y Shift sub moveto
+ gsave
+ curveticks
+ { y yOld sub x xOld sub Atan 180 sub /rotAngle ED
+ x y translate rotAngle rotate
+ 0 SymbolWidth 2 div moveto 0 SymbolWidth 2 div neg lineto
+ SymbolLinewidth setlinewidth stroke
+ }
+ {
+ x Shift sub y Shift sub moveto
+ rotateSymbol { y yOld sub x xOld sub Atan 180 sub CorrAngle sub rotate } if
+ Symbol show
+ }
+ ifelse
+ grestore
+ }
+ pathforall
+% curveticks
+% { gsave
+% x y translate rotAngle rotate
+% 0 SymbolWidth 2 div moveto 0 SymbolWidth 2 div neg lineto
+% SymbolLinewidth setlinewidth stroke grestore
+% } if
+ z
+} def
+%
+/OpenSymbolCurve {
+ OpenCurve
+ 0.1 setflat
+ /Shift Symbol stringwidth pop 2 div def
+ CurvePath
+} def
+%
+/AltCurve {
+ { false NArray n 2 mul 2 roll
+ [ n 2 mul 3 sub 1 roll ] aload
+ /Points ED
+ n 2 mul -2 roll }
+ { false NArray } ifelse
+ n 4 lt { n { pop pop } repeat } { BAC /n n 4 sub def n { NAC } repeat EAC } ifelse
+} def
+%
+/AltOpenSymbolCurve {
+ AltCurve
+ 0.1 setflat
+ /Shift Symbol stringwidth pop 2 div def
+ CurvePath
+} def
+%
+/ClosedCurve {
+ NArray n 3 lt
+ { n { pop pop } repeat }
+ { n 3 gt { CheckClosed } if
+ 6 copy n 2 mul 6 add 6 roll
+ IC CC x y moveto n { NC } repeat
+ closepath pop pop
+ } ifelse
+} def
+%
+/ClosedSymbolCurve {
+ ClosedCurve
+ 0.1 setflat
+ /Shift Symbol stringwidth pop 2 div def
+ CurvePath
+} def
+%
+/SQ { /r ED r r moveto r r neg L r neg r neg L r neg r L fill } def
+/ST { /y ED /x ED x y moveto x neg y L 0 x L fill } def
+/SP { /r ED gsave 0 r moveto 4 { 72 rotate 0 r L } repeat fill grestore } def
+%
+/FontDot {
+ DS 2 mul dup
+ matrix scale matrix concatmatrix exch matrix
+ rotate matrix concatmatrix exch
+ findfont exch makefont setfont
+} def
+%
+/Rect {
+ x1 y1 y2 add 2 div moveto
+ x1 y2 lineto
+ x2 y2 lineto
+ x2 y1 lineto
+ x1 y1 lineto
+ closepath
+} def
+%
+/OvalFrame {
+ x1 x2 eq y1 y2 eq or
+ { pop pop x1 y1 moveto x2 y2 L }
+ { y1 y2 sub abs x1 x2 sub abs 2 copy gt
+ { exch pop } { pop } ifelse
+ 2 div exch { dup 3 1 roll mul exch } if
+ 2 copy lt { pop } { exch pop } ifelse
+ /b ED
+ x1 y1 y2 add 2 div moveto
+ x1 y2 x2 y2 b arcto
+ x2 y2 x2 y1 b arcto
+ x2 y1 x1 y1 b arcto
+ x1 y1 x1 y2 b arcto
+ 16 { pop } repeat
+ closepath
+ } ifelse
+} def
+%
+/Frame {
+ CLW mul /a ED
+ 3 -1 roll
+ 2 copy gt { exch } if
+ a sub /y2 ED
+ a add /y1 ED
+ 2 copy gt { exch } if
+ a sub /x2 ED
+ a add /x1 ED
+ 1 index 0 eq { pop pop Rect } { OvalFrame } ifelse
+} def
+%
+/BezierNArray {
+ /f ED
+ counttomark 2 div dup cvi /n ED
+ n eq not { exch pop } if
+ n 1 sub neg 3 mod 3 add 3 mod { 0 0 /n n 1 add def } repeat
+ f { ] aload /Points ED } { n 2 mul 1 add -1 roll pop } ifelse
+} def
+%
+/OpenBezier {
+ BezierNArray
+ n 1 eq
+ { pop pop }
+ { ArrowA n 4 sub 3 idiv
+ { 6 2 roll 4 2 roll curveto } repeat
+ 6 2 roll 4 2 roll ArrowB curveto } ifelse
+} def
+%
+/OpenSymbolBezier {
+ OpenBezier
+ 0.1 setflat
+ /Shift Symbol stringwidth pop 2 div def
+ CurvePath
+} def
+%
+/ClosedBezier {
+ BezierNArray
+ n 1 eq
+ { pop pop }
+ { moveto n 1 sub 3 idiv
+ { 6 2 roll 4 2 roll curveto } repeat
+ closepath } ifelse
+} def
+%
+/ClosedSymbolBezier {
+ /f ED % save showpoints value
+ 2 copy /yEnd ED /xEnd ED
+ counttomark -2 roll 2 copy /yStart ED /xStart ED
+ counttomark 2 roll
+ f
+ ClosedBezier
+ 0.1 setflat
+ /Shift Symbol stringwidth pop 2 div def
+ CurvePath
+ [ xEnd yEnd xStart yStart SymbolLine
+} def
+%
+/BezierShowPoints {
+ gsave
+ Points aload length 2 div cvi /n ED
+ moveto
+ n 1 sub { lineto } repeat
+ CLW 2 div SLW [ 4 4 ] 0 setdash stroke
+ grestore
+} def
+%
+/Parab {
+ /y0 ED /x0 ED /y1 ED /x1 ED
+ /dx x0 x1 sub 3 div def
+ /dy y0 y1 sub 3 div def
+ x0 dx sub y0 dy add x1 y1 ArrowA
+ x0 dx add y0 dy add x0 2 mul x1 sub y1 ArrowB
+ curveto
+ /Points [ x1 y1 x0 y0 x0 2 mul x1 sub y1 ] def
+} def
+%
+/Parab1 { % 1 end | 0 SP
+ /ySP ED /xSP ED /y1 ED /x1 ED
+ /dx xSP x1 sub 3 div def
+ /dy ySP y1 sub 3 div def
+ newpath x1 y1 moveto xSP y1 lineto xSP ySP lineto
+ x1 ySP lineto closepath clip
+ currentpoint
+ newpath moveto
+ xSP dx sub ySP dy add x1 y1 ArrowA
+ xSP dx add ySP dy add xSP 2 mul x1 sub y1 ArrowB
+ curveto
+ /Points [ x1 y1 xSP ySP xSP 2 mul x1 sub y1 ] def
+} def
+%
+/Grid {
+ newpath
+ /a 4 string def
+ /b ED % psk@gridlabels in pt
+ /c ED % { \pst@usecolor\psgridlabelcolor }
+ /n ED % psk@griddots
+ cvi dup 1 lt { pop 1 } if
+ /s ED % \psk@subgriddiv
+ s div dup 0 eq { pop 1 } if
+ /dy ED s div dup 0 eq { pop 1 } if % \pst@number\psyunit abs
+ /dx ED dy div round dy mul % \pst@number\psxunit abs
+ /y0 ED dx div round dx mul
+ /x0 ED dy div round cvi
+ /y2 ED dx div round cvi
+ /x2 ED dy div round cvi
+ /y1 ED dx div round cvi
+ /x1 ED
+ /h y2 y1 sub 0 gt { 1 } { -1 } ifelse def
+ /w x2 x1 sub 0 gt { 1 } { -1 } ifelse def
+ b 0 gt {
+ /z1 b 4 div CLW 2 div add def
+% /Helvetica findfont b scalefont setfont
+ /b b .95 mul CLW 2 div add def } if
+ systemdict /setstrokeadjust known
+ { true setstrokeadjust /t { } def }
+ { /t { transform 0.25 sub round 0.25 add exch 0.25 sub round 0.25 add
+ exch itransform } bind def } ifelse
+ gsave n 0 gt { 1 setlinecap [ 0 dy n div ] dy n div 2 div setdash } { 2 setlinecap } ifelse
+ /i x1 def
+ /f y1 dy mul n 0 gt { dy n div 2 div h mul sub } if def
+ /g y2 dy mul n 0 gt { dy n div 2 div h mul add } if def
+ x2 x1 sub w mul 1 add dup 1000 gt { pop 1000 } if
+ { i dx mul dup y0 moveto
+ b 0 gt
+ { gsave c i a cvs dup stringwidth pop
+ /z2 ED w 0 gt {z1} {z1 z2 add neg} ifelse
+ h 0 gt {b neg}{z1} ifelse
+ rmoveto show grestore } if
+ dup t f moveto
+ g t L stroke
+ /i i w add def
+ } repeat
+ grestore
+ gsave
+ n 0 gt
+ % DG/SR modification begin - Nov. 7, 1997 - Patch 1
+ %{ 1 setlinecap [ 0 dx n div ] dy n div 2 div setdash }
+ { 1 setlinecap [ 0 dx n div ] dx n div 2 div setdash }
+ % DG/SR modification end
+ { 2 setlinecap } ifelse
+ /i y1 def
+ /f x1 dx mul n 0 gt { dx n div 2 div w mul sub } if def
+ /g x2 dx mul n 0 gt { dx n div 2 div w mul add } if def
+ y2 y1 sub h mul 1 add dup 1000 gt { pop 1000 } if
+ { newpath i dy mul dup x0 exch moveto
+ b 0 gt { gsave c i a cvs dup stringwidth pop
+ /z2 ED
+ w 0 gt {z1 z2 add neg} {z1} ifelse
+ h 0 gt {z1} {b neg} ifelse
+ rmoveto show grestore } if
+ dup f exch t moveto
+ g exch t L stroke
+ /i i h add def
+ } repeat
+ grestore
+} def
+%
+/ArcArrow {
+ /d ED /b ED /a ED
+ gsave
+ newpath 0 -1000 moveto clip
+ newpath
+ 0 1 0 0 b
+ grestore
+ c mul
+ /e ED
+ pop pop pop r a e d PtoC y add exch x add
+ exch r a PtoC y add exch x add exch b pop pop pop pop a e d CLW 8 div c
+ mul neg d
+} def
+%
+/Ellipse {
+ /rotAngle ED
+ /mtrx CM def
+ T
+ rotAngle rotate
+ scale 0 0 1 5 3 roll arc
+ mtrx setmatrix
+} def
+%
+/ArcAdjust { %%%% Vincent Guirardel
+% given a target length (targetLength) and an initial angle (angle0) [in the stack],
+% let M(angle0)=(rx*cos(angle0),ry*sin(angle0))=(x0,y0).
+% This computes an angle t such that (x0,y0) is at distance
+% targetLength from the point M(t)=(rx*cos(t),ry*sin(t)).
+% NOTE: this an absolute angle, it does not have to be added or substracted to angle0
+% contrary to TvZ's code.
+% To achieve, this, one iterates the following process: start with some angle t,
+% compute the point M' at distance targetLength of (x0,y0) on the semi-line [(x0,y0) M(t)].
+% Now take t' (= new angle) so that (0,0) M(t') and M' are aligned.
+%
+% Another difference with TvZ's code is that we need d (=add/sub) to be defined.
+% the value of d = add/sub is used to know on which side we have to move.
+% It is only used in the initialisation of the angle before the iteration.
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Input stack: 1: target length 2: initial angle
+% variables used : rx, ry, d (=add/sub)
+%
+ /targetLength ED /angle0 ED
+ /x0 rx angle0 cos mul def
+ /y0 ry angle0 sin mul def
+% we are looking for an angle t such that (x0,y0) is at distance targetLength
+% from the point M(t)=(rx*cos(t),ry*sin(t)))
+%initialisation of angle (using 1st order approx = TvZ's code)
+ targetLength 57.2958 mul
+ angle0 sin rx mul dup mul
+ angle0 cos ry mul dup mul
+ add sqrt div
+% if initialisation angle is two large (more than 90 degrees) set it to 90 degrees
+% (if the ellipse is very curved at the point where we draw the arrow, %
+% the value can be much more than 360 degrees !)
+% this should avoid going on the wrong side (more than 180 degrees) or go near
+% a bad attractive point (at 180 degrees)
+ dup 90 ge { pop 90 } if
+ angle0 exch d % add or sub
+% maximum number of times to iterate the iterative procedure:
+% iterative procedure: takes an angle t on top of stack, computes a
+% better angle (and put it on top of stack)
+ 30 { dup
+% compute distance D between (x0,y0) and M(t)
+ dup cos rx mul x0 sub dup mul exch sin ry mul y0 sub dup mul add sqrt
+% if D almost equals targetLength, we stop
+ dup targetLength sub abs 1e-5 le { pop exit } if
+% stack now contains D t
+% compute the point M(t') at distance targetLength of (x0,y0) on the semi-line [(x0,y0) M(t)]:
+% M(t')= ( (x(t)-x0)*targetLength/d+x0 , (y(t)-y0)*targetLength/d+y0 )
+ exch dup cos rx mul x0 sub exch sin ry mul y0 sub
+% stack contains: y(t)-y0, x(t)-x0, d
+ 2 index Div targetLength mul y0 add ry Div exch
+ 2 index Div targetLength mul x0 add rx Div
+% stack contains x(t')/rx , y(t')/ry , d
+% now compute t', and remove D from stack
+ atan exch pop
+ } repeat
+% we don't look at what happened... in particular, if targetLength is greater
+% than the diameter of the ellipse...
+% the final angle will be around /angle0 + 180. maybe we should treat this pathological case...
+% after iteration, stack contains an angle t such that M(t) is the tail of the arrow
+% to give back the result as a an angle relative to angle0 we could add the following line:
+% angle0 sub 0 exch d
+%
+% begin bug fix 2006-01-11
+% we want to adjust the new angle t' by a multiple of 360 so that | t'-angle0 | <= 180
+%(we don't want to make the ellipse turn more or less than it should)...
+dup angle0 sub dup abs 180 gt { 180 add 360 div floor 360 mul sub } { pop } ifelse
+% end bug fix
+} def
+%
+/EllipticArcArrow {
+ /d ED % is add or sub
+ /b ED % arrow procedure
+ /a1 ED % angle
+ gsave
+ newpath
+ 0 -1000 moveto
+ clip % Set clippath far from arrow.
+ newpath
+ 0 1 0 0 b % Draw arrow to determine length.
+ grestore
+% Length of arrow is on top of stack. Next 3 numbers are junk.
+%
+ a1 exch ArcAdjust % Angular position of base of arrow.
+ /a2 ED
+ pop pop pop
+ a2 cos rx mul xOrig add % hv 2007-08-29 x->xOrig
+ a2 sin ry mul yOrig add % hv 2007-08-29 y->yOrig
+ a1 cos rx mul xOrig add %
+ a1 sin ry mul yOrig add %
+% Now arrow tip coor and base coor are on stack.
+ b pop pop pop pop % Draw arrow, and discard coordinates.
+ a2 CLW 8 div
+% change value of d (test it by looking if `` 1 1 d '' gives 2 or not )
+ 1 1 d 2 eq { /d { sub } def } { /d { add } def } ifelse
+ ArcAdjust
+% resets original value of d
+ 1 1 d 2 eq { /d { sub } def } { /d { add } def } ifelse % Adjust angle to give overlap.
+} def
+%%------------------ tvz/DG/hv (2004-05-10) end -------------------%%
+%
+/Rot { CP CP translate 3 -1 roll neg rotate NET } def
+%
+/RotBegin {
+ tx@Dict /TMatrix known not { /TMatrix { } def /RAngle { 0 } def } if
+ /TMatrix [ TMatrix CM ] cvx def
+ /a ED
+ a Rot /RAngle [ RAngle dup a add ] cvx def
+} def
+%
+/RotEnd {
+ /TMatrix [ TMatrix setmatrix ] cvx def
+ /RAngle [ RAngle pop ] cvx def
+} def
+%
+/PutCoor { gsave CP T CM STV exch exec moveto setmatrix CP grestore } def
+/PutBegin { /TMatrix [ TMatrix CM ] cvx def CP 4 2 roll T moveto } def
+/PutEnd { CP /TMatrix [ TMatrix setmatrix ] cvx def moveto } def
+%
+/Uput {
+ /a ED
+ add 2 div /h ED 2
+ div /w ED
+ /s a sin def
+ /c a cos def
+ /b s abs c abs 2 copy gt dup
+ /q ED
+ { pop } { exch pop } ifelse def
+ /w1 c b div w mul def
+ /h1 s b div h mul def
+ q { w1 abs w sub dup c mul abs }{ h1 abs h sub dup s mul abs } ifelse
+} def
+%
+/UUput {
+ /z ED
+ abs /y ED
+ /x ED
+ q { x s div c mul abs y gt }{ x c div s mul abs y gt } ifelse
+ { x x mul y y mul sub z z mul add sqrt z add }
+ { q { x s div } { x c div } ifelse abs
+ } ifelse
+ a PtoC
+ h1 add exch
+ w1 add exch
+} def
+%
+/BeginOL {
+ dup (all) eq exch TheOL eq or
+ { IfVisible not { Visible /IfVisible true def } if }
+ { IfVisible { Invisible /IfVisible false def } if } ifelse
+} def
+%
+/InitOL {
+ /OLUnit [ 3000 3000 matrix defaultmatrix dtransform ] cvx def
+ /Visible { CP OLUnit idtransform T moveto } def
+ /Invisible { CP OLUnit neg exch neg exch idtransform T moveto } def
+ /BOL { BeginOL } def
+ /IfVisible true def
+} def
+%
+end
+%-----------------------------------------------------------------------------%
+%
+% END pstricks.pro
+
+%%EndProcSet
+%%BeginProcSet: pst-algparser.pro 0 0
+% $Id: pst-algparser.pro 801 2013-07-09 18:10:41Z herbert $
+%%
+%% PostScript prologue for PSTricks algorithm parser
+%% Version 0.04, 2011/10/21
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%%
+%%-----------------------------------------------------------------------------%
+%
+/AlgParser { tx@AlgToPs begin AlgToPs end } def % Dominique Rodriguez
+%
+/tx@CoreAnalyzerDict 100 dict def tx@CoreAnalyzerDict begin
+%
+% PS ANALYZER FOR ALGEBRAIC EXPRESSION V1.13
+%
+% 09/2011 DR factorial with ! added
+%
+% E->T|E+T
+% T->FS|T*FS
+% FS -> F | +FS | -FS
+% F->P|F^SF|P!
+% P->(E)|literal
+% literal->number|var|var[E]|func(params)
+% params->E|E,param
+% number->TOBEFINISHED
+%
+%% E expression, T term, SF signed factor, F factor, P power
+%
+%% parser
+%
+%% str
+%
+%% C->E<condition_operators>E
+%% STR index -> STR index+lenExpr
+/AnalyzeCond { AnalyzeExpr ReadCondOp AnalyzeExpr EvalCondOp } def
+%
+%% analyze Expression List (separator , or | )
+%% STR index -> STR index+lenExpr
+%% /AnalyzeListOfE {
+%% { NextNonBlankChar pop AnalyzeExpr%%dup Strlen eq { exit } if NextNonBlankChar
+%% NextNonBlankChar dup 0 eq { pop exit } if
+%% dup 44 ne 1 index 124 ne and { dup 41 ne { PROBLEMCONTACTBILLOU } { pop exit } ifelse } if
+%% pop NextNonBlankChar dup 0 eq { exit } if 124 ne { PROBLEMCONTACTBILLOU } if 1 add NextNonBlankChar 0 eq {toto} if } loop
+%% AnalyzeListOfEPostHook
+%% } def
+/AnalyzeListOfE {
+ /NotFirst false def
+ { NextNonBlankChar pop AnalyzeExpr
+ NotFirst { EvalListOfExpr } { /NotFirst true def } ifelse
+ dup Strlen eq { exit } if NextNonBlankChar
+ dup 44 ne 1 index 124 ne and
+ { dup 41 ne { PROBLEMCONTACTBILLOU } { pop exit } ifelse }
+ if pop 1 add } loop
+ AnalyzeListOfEPostHook
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% E->T|E+T
+%% STR index -> STR index+lenExpr
+/AnalyzeExpr {
+ AnalyzePreHook AnalyzeTerm IsEndingExpr
+ { dup 0 ne { 32 eq { NextNonBlankChar } if } { pop } ifelse }
+ { { RollOp 1 add NextNonBlankChar pop AnalyzeTerm PreEvalHook EvalAddSub IsEndingExpr { pop exit } if } loop }
+ ifelse
+ AnalyzePostHook
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% T->FS|T*FS
+%% STR index
+/AnalyzeTerm {
+ AnalyzePreHook AnalyzeSignedFactor IsEndingTerm
+ { dup 0 ne { 32 eq { NextNonBlankChar } if } { pop } ifelse }
+ { { RollOp 1 add NextNonBlankChar pop AnalyzeSignedFactor PreEvalHook EvalMulDiv IsEndingTerm { pop exit } if} loop }
+ ifelse
+ AnalyzePostHook
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% FS -> F | +FS | -FS
+%% STR index
+/AnalyzeSignedFactor {
+ AnalyzePreHook 2 copy get dup IsUnaryOp
+ { RollOp 1 add NextNonBlankChar pop AnalyzeSignedFactor EvalUnaryOp }
+ { pop AnalyzeFactor }
+ ifelse AnalyzePostHook
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% F->P|F^P|P!
+%% STR index
+/AnalyzeFactor {
+ AnalyzePreHook AnalyzePower IsEndingFactor
+ { dup 0 ne { 32 eq { NextNonBlankChar } if } { pop } ifelse }
+ { { dup 33 eq%% is there a ! DR 09/2011
+ { pop 1 add NextNonBlankChar pop EvalFactorial }
+ { RollOp 1 add NextNonBlankChar pop AnalyzePower PreEvalHook EvalPower }
+ ifelse
+ IsEndingFactor { pop exit } if } loop }
+ ifelse AnalyzePostHook
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% P->(E)|literal
+%% STR index
+/AnalyzePower {
+ %% depending of first char either a number, or a literal
+ 2 copy get dup 40 eq%%an open par
+ { pop 1 add NextNonBlankChar pop AnalyzeExpr 1 add NextNonBlankChar pop }
+ { AnalyzeLiteral }
+ ifelse
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% STR index STR[index] -> STR index
+%/AnalyzeLiteral { IsNumber { EvalNumber } { EvalLiteral } ifelse } def
+/AnalyzeLiteral { dup IsUnaryOp exch IsNumber or { EvalNumber } { EvalLiteral } ifelse } def%%dr 09102006
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% recognize + or -
+%% chr -> T/F
+/IsUnaryOp { dup 43 eq exch 45 eq or } bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% a number can contain only : 0123456789.
+%% chr -> T/F
+/IsNumber { dup 48 ge exch dup 57 le 3 -1 roll and exch 46 eq or } bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% STR index -> STR index number
+%% a number can be of the form [0-9]*.[0-9]*\([eE][+-]?[0-9]+\)?
+%% STR index -> STR index' number
+/ReadNumber {
+ exch dup 3 -1 roll dup 3 1 roll
+ %%read mantissa
+ { 1 add 2 copy dup Strlen eq { pop pop 0 exit } if get dup IsNumber not { exit } if pop } loop
+ dup 101 eq exch 69 eq or
+ %%% there is a "e" or "E" -> read exponant
+ { 1 add 2 copy get dup IsUnaryOp
+ { pop 1 add 2 copy get } if
+ { IsNumber not { exit } if 1 add 2 copy get } loop }
+ if
+ dup 4 1 roll
+ 3 -1 roll exch 1 index sub getinterval
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% a number can contain only : 0123456789.
+%% chr -> T/F
+/IsCondOp { dup 30 eq exch dup 60 ge exch 62 le and or } bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% STR index -> STR index number
+%% a number can be of the form [0-9]*.[0-9]*\([eE][+-]?[0-9]+\)?
+%% STR index -> STR index' number
+/ReadCondOp {
+ NextNonBlankChar 1 index 4 1 roll
+ { IsCondOp not { exit } if 1 add 2 copy get } loop
+ 2 copy 5 -1 roll
+ exch 1 index sub getinterval 3 1 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% a literal can contain only : 0123456789.
+%% chr -> T/F
+/IsLiteral {%
+ dup 48 ge exch dup 57 le 3 -1 roll and exch
+ dup 65 ge exch dup 90 le 3 -1 roll and 3 -1 roll or exch
+ dup 97 ge exch 122 le and or } bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% a literal can be of the form [a-zA-Z][a-zA-Z0-9]*\(\((Expression)\)|\(\[Expression\]\)\)?
+%% STR index -> literal STR index' nextchr
+/ReadLiteral {
+ exch dup 3 -1 roll dup 3 1 roll
+ %%read literal core
+ { 2 copy dup Strlen eq { pop pop 0 exit } if get dup IsLiteral not { exit } if pop 1 add } loop
+ 4 1 roll dup 5 1 roll 3 -1 roll exch 1 index sub getinterval 4 1 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% expr is ended by end of str or a clpar
+%% STR index -> STR index STR[index] T/F
+/IsEndingExpr {%
+ 2 copy dup Strlen eq
+ %% if end of str is reached -> end !
+ { pop pop 0 true }
+ %% ending chr -> clpar, comma, |, <, >, =, !,
+ {get dup dup 41 eq
+ exch dup 124 eq
+ exch dup 93 eq
+ exch dup 44 eq
+ exch dup 30 eq
+ exch dup 60 ge exch 62 le and or or or or or}
+ ifelse } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% expr is ended by end of str or a +-
+%% STR index -> STR index STR[index] T/F
+/IsEndingTerm { IsEndingExpr { true } { dup dup 43 eq exch 45 eq or } ifelse } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% expr is ended by end of str or */
+%% STR index -> STR index STR[index] T/F
+/IsEndingFactor { IsEndingTerm { true } { dup dup 42 eq exch 47 eq or } ifelse } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% expr is ended by end of str or ^
+%% STR index -> STR index STR[index] T/F
+/IsEndingPower { IsEndingFactor { true } { dup 94 eq } ifelse } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% STR index -> STR index STR[index]
+/NextNonBlankChar { { dup Strlen eq { 0 exit } if 2 copy get dup neBlkChar { exit } if pop 1 add } loop } bind def
+/neBlkChar { dup 32 ne exch dup 10 ne exch 9 ne and and } bind def
+%%%%%%%%%%%%%%%%%%%%%%%%
+%% DEBUG
+/BRK {false} def
+/BRKtrue {/BRK true def} def
+/BRKStop {BRK {BRKtoto} if } def
+/BRKEvalStop {BRK exch if } def
+/BRKBRK2true {BRK {BRK2true} if } def
+/BRK2 {false} def
+/BRK2true {/BRK2 true def} def
+/BRK2Stop {BRK2 {BRK2toto} if } def/BRK {false} def
+end
+%
+%-------------------------------------------------------------------------------%
+%
+/tx@AlgToPs 12 dict def tx@AlgToPs begin
+%
+%% algExpr -> PSVector
+/AlgToPs { tx@CoreAnalyzerDict begin InitParser AnalyzeListOfE pop pop EndingSequence end } def
+/EndingSequence { ExpressionVector aload length /end cvx exch 1 add array astore } def
+/InitParser { /ExpressionVector [ /tx@AddMathFunc cvx /begin cvx ] def dup length /Strlen exch def 0 } def
+/Strlen 0 def
+/EvalListOfExpr {} def%
+/EvalNumber {%
+ ReadNumber cvr /ExpressionVector ExpressionVector aload length dup 3 add -1 roll cvx
+ exch 1 add array astore def NextNonBlankChar pop } def
+/EvalAddSub {%
+ /ExpressionVector ExpressionVector aload length dup 5 add -1 roll
+ 43 eq { /add } { /sub } ifelse cvx exch 1 add array astore def
+} def
+/EvalMulDiv {%
+ /ExpressionVector ExpressionVector aload length dup 5 add -1 roll
+ 42 eq { /mul } { /div } ifelse cvx exch 1 add array astore def
+} def
+/EvalPower {%
+ /ExpressionVector ExpressionVector aload length dup 5 add -1 roll
+ pop /exp cvx exch 1 add array astore def
+} def
+/EvalFactorial {% DR 09/2011
+ /ExpressionVector ExpressionVector aload length
+ /fact cvx exch 1 add array astore def
+} def
+/EvalLiteral {%
+ ReadLiteral
+ dup 40 eq%%% there is an open par -> function call
+ { pop 2 index
+ dup (Sum) eq { EvalSum }
+ { dup (IfTE) eq { EvalCond }
+ { dup (Derive) eq { pop EvalDerive }
+ { pop 1 add NextNonBlankChar pop AnalyzeListOfE 2 index TrigoFunc
+ /ExpressionVector ExpressionVector aload length dup 5 add -1 roll cvn cvx
+ exch 1 add array astore def 1 add NextNonBlankChar pop } ifelse } ifelse} ifelse }
+ { /ExpressionVector ExpressionVector aload length dup 6 add -1 roll cvn cvx exch 1 add array astore def
+ dup 91 eq%%% there is an open bracket -> vector element
+ { pop 1 add NextNonBlankChar pop AnalyzeExpr
+ /ExpressionVector ExpressionVector aload length /cvi cvx exch /get cvx exch 2 add array astore def 1 add }
+ { pop NextNonBlankChar pop }
+ ifelse}
+ ifelse
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% the derive function : Derive(n,f(x))
+%% firstparindex lastparindex ->
+/EvalDerive {
+ %% manage the function descripiton
+ 1 add ReadNumber 3 1 roll NextNonBlankChar
+ 44 ne { ANALYZER_ERROR_missing_second_comma_in_Sum } if
+ 1 add NextNonBlankChar pop
+ 3 -1 roll cvi
+ dup 0 eq
+ { pop AnalyzeExpr 3 -1 roll pop 1 add }
+ { 1 sub 3 1 roll (x) exch tx@Derive begin DeriveIndexed end 4 -1 roll
+ { (x) tx@Derive begin Derive end } repeat
+ ExpressionVector exch /ExpressionVector [] def
+ AlgToPs aload length
+ /ExpressionVector 1 index 3 add -1 roll aload length dup 3 add -1 roll /l2 exch def /l1 exch def
+ l1 l2 add 1 add l2 neg roll l1 l2 add array astore def 3 -1 roll pop 1 add
+ 1 index length /Strlen exch def } ifelse
+} def
+/EvalSum {%
+ pop 1 add NextNonBlankChar pop
+ %% read the variable name
+ ReadLiteral pop NextNonBlankChar
+ 44 ne { ANALYZER_ERROR_missing_first_comma_in_Sum } if
+ %% read the initial value
+ 1 add NextNonBlankChar pop ReadNumber cvi 3 1 roll
+ 2 copy get 44 ne { ANALYZER_ERROR_missing_second_comma_in_Sum } if
+ %% read the increment value
+ 1 add NextNonBlankChar pop ReadNumber cvi 3 1 roll
+ 2 copy get 44 ne { ANALYZER_ERROR_missing_second_comma_in_Sum } if
+ %% read the limit value
+ 1 add NextNonBlankChar pop ReadNumber cvi 3 1 roll
+ 2 copy get 44 ne { ANALYZER_ERROR_missing_second_comma_in_Sum } if
+ /ExpressionVector ExpressionVector aload length dup 7 add -3 roll 0 4 1 roll
+ 5 -1 roll 4 add array astore def
+ %% keep ExpressionVector for later and create a new one for internal Sum computation
+ ExpressionVector 3 1 roll /ExpressionVector [ 6 -1 roll cvn /exch cvx /def cvx ] def
+ 1 add NextNonBlankChar pop AnalyzeExpr
+ %% add each term
+ /ExpressionVector ExpressionVector aload length 1 add /add cvx exch array astore def
+ /ExpressionVector 4 -1 roll aload length ExpressionVector cvx /for cvx 3 -1 roll 2 add
+ array astore def 3 -1 roll pop 1 add
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Convert to radians if trigo function call
+%% (name) ->
+/TrigoFunc {
+ dup (cos) eq 1 index (sin) eq or exch (tan) eq or
+ { /ExpressionVector ExpressionVector aload length Pi /div cvx 180 /mul cvx 5 -1 roll 4 add
+ array astore def
+ } if
+} def
+/EvalCond {%
+ pop 1 add AnalyzeCond NextNonBlankChar
+ 44 ne { ANALYZER_ERROR_missing_first_comma_in_IfTE } if
+ ExpressionVector 3 1 roll /ExpressionVector [] def
+ 1 add AnalyzeExpr ExpressionVector 3 1 roll /ExpressionVector [] def
+ NextNonBlankChar 44 ne { ANALYZER_ERROR_missing_second_comma_in_IfTE } if
+ 1 add AnalyzeExpr
+ NextNonBlankChar 41 ne { ANALYZER_ERROR_missing_ending parenthesis_in_IfTE } if
+ ExpressionVector
+ /ExpressionVector 6 -1 roll aload length dup
+ 6 add -1 roll cvx exch dup 4 add -1 roll cvx /ifelse cvx 3 -1 roll 3 add array astore def
+ 1 add 3 -1 roll pop
+} def
+%% CondOp STR index
+/EvalCondOp {%
+ 3 -1 roll
+ dup (=) eq { /eq } {%
+ dup (<) eq { /lt } {%
+ dup (>) eq { /gt } {%
+ dup (>=) eq { /ge } {%
+ dup (<=) eq { /ge } {%
+ dup (!=) eq { /ne } { ERROR_non_valid_conditional_operator }
+ ifelse } ifelse } ifelse } ifelse } ifelse } ifelse
+ cvx exch pop
+ /ExpressionVector ExpressionVector aload length dup 3 add -1 roll exch 1 add array astore def } def
+/EvalUnaryOp {
+ 3 -1 roll 45 eq { /ExpressionVector ExpressionVector aload length /neg cvx exch 1 add array astore def } if
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% H O O K S
+/AnalyzePreHook {} bind def
+/PreEvalHook {} bind def
+/AnalyzeListOfEPostHook {} bind def
+/AnalyzePostHook {} def
+/RollOp { 3 1 roll } bind def
+end %tx@CoreAnalyzerDict
+%
+%--------------------------------------------------------------------%
+%
+/tx@Derive 41 dict def tx@Derive begin
+%%increase ^^ for each function added
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% algExpr variable -> PSVector
+/Derive {%
+ 10240 string 3 1 roll 0 3 1 roll
+ /Variable exch def
+ tx@CoreAnalyzerDict begin InitParser AnalyzeListOfE end
+} def
+/Strlen 0 def
+/InitParser { dup length /Strlen exch def 0 } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% algExpr variable index -> PSVector
+/DeriveIndexed {%
+ 3 1 roll 10240 string 3 1 roll 0 3 1 roll
+ /Variable exch def
+ tx@CoreAnalyzerDict begin InitParser pop 4 -1 roll AnalyzeExpr 4 -2 roll pop pop 4 -2 roll exch pop end
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (u,v)'=-(u',v')
+/EvalListOfExpr {%
+ 4 2 roll 2 copy 9 -1 roll dup length 4 1 roll putinterval add AddPipe
+ 2 copy 7 -1 roll dup length 4 1 roll putinterval add
+ 6 -2 roll pop pop
+ 2 copy pop 0 6 2 roll GetIntervalNewStr 5 1 roll 2 copy 0 exch getinterval 6 1 roll } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (-u)'=-(u')
+/EvalUnaryOp {
+ 4 -2 roll 4 index (0) eq
+ { (0) StrConcat 7 -1 roll pop }
+ { 7 -1 roll 45 eq
+ { AddSub AddOpPar true } { false } ifelse
+ 3 1 roll 5 index StrConcat 3 -1 roll { AddClPar } if } ifelse
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ 7 -2 roll pop pop 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (number)'=0
+/EvalNumber { ReadNumber (0) 6 2 roll } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (u+v)'=u'+v'
+/EvalAddSub {%
+ 7 index dup (0) eq
+ { pop true }%% du=0 nothing added
+ { dup length exch 5 index 5 index 3 -1 roll putinterval 4 -1 roll add 3 1 roll false }
+ ifelse
+ 5 index dup (0) eq
+ { pop { (0) } { 4 -2 roll 2 copy pop 0 6 2 roll GetIntervalNewStr } ifelse }%%dv=0
+ { exch
+ { 5 -2 roll 7 index 45 eq { AddSub } if false } %%nothing yet added
+ { 5 -2 roll 7 index 43 eq%%something yet added
+ { AddAdd false } { AddSub AddOpPar true } ifelse }
+ ifelse 11 1 roll
+ 3 -1 roll StrConcat 10 -1 roll { AddClPar } if
+ 2 copy pop 0 6 2 roll GetIntervalNewStr }
+ ifelse
+ mark 11 -5 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (u*v)' or (u/v)'
+/EvalMulDiv { 6 index 42 eq {EvalMul} {EvalDiv} ifelse } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (u*v)'=u'*v+u*v'
+/EvalMul {%
+ 4 -2 roll 7 index dup (0) eq
+ { pop false }%%du=0
+ { (1) eq%%du=1
+ { false }
+ { AddOpPar 7 index StrConcat AddClPar AddMul AddOpPar true } ifelse
+ 3 1 roll 6 index StrConcat 3 -1 roll { AddClPar } if
+ true }%%du!=0
+ ifelse
+ 5 1 roll 5 index (0) eq
+ { 5 -1 roll not { (0) StrConcat } if }%%dv=0
+ { 5 -1 roll { AddAdd } if
+ 4 index (1) eq
+ { 8 index StrConcat }
+ { AddOpPar 8 index StrConcat AddClPar AddMul AddOpPar 4 index StrConcat AddClPar }
+ ifelse
+ }%%dv!=0
+ ifelse
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ mark 11 -5 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (u/v)'=(u'*v-u*v')/v^2
+/EvalDiv {%
+ 4 -2 roll
+ 4 index (0) eq%%dv=0 -> u'/v
+ { 7 index (0) eq { (0) StrConcat } { AddOpPar 7 index StrConcat AddClPar AddDiv 5 index StrConcat } ifelse }
+ { 7 index dup (0) eq
+ { pop }%%du=0
+ { (1) eq%%du=1
+ { false }
+ { AddOpPar 7 index StrConcat AddClPar AddMul AddOpPar true } ifelse
+ 3 1 roll 6 index StrConcat 3 -1 roll { AddClPar } if}%%du!=0
+ ifelse
+ AddSub
+ 4 index (1) eq
+ { 8 index StrConcat }
+ { AddOpPar 8 index StrConcat AddClPar AddMul AddOpPar 4 index StrConcat AddClPar }
+ ifelse
+ %}%%dv!=0
+ 2 copy GetIntervalNewStr 3 1 roll pop 0 AddOpPar 3 -1 roll StrConcat AddClPar
+ AddDiv AddOpPar 5 index StrConcat AddClPar 2 copy (^2) putinterval 2 add }
+ ifelse
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ mark 11 -5 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% str1 index str2 -> str1 index
+/StrConcat { dup length 4 2 roll 2 copy 6 -1 roll putinterval 3 -1 roll add } bind def
+/GetIntervalNewStr { 0 exch getinterval dup length string copy } bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (u^v)'=(u^v)'=u'vu^(v-1)+v'u^(v)ln(u)
+/EvalPower {%
+ 4 -2 roll 7 index (0) eq
+ {%%if du=0 then (u^v)'=v'ln(u)u^v
+ 4 index (0) eq
+ { (0) StrConcat }%%if dv=0 then (u^v)'=0
+ { 4 index (1) ne { AddOpPar 4 index StrConcat (\)*) StrConcat } if
+ 8 index (e) ne { (ln\() StrConcat 8 index StrConcat (\)*) StrConcat } if
+ AddOpPar 8 index StrConcat (\)^\() StrConcat 5 index StrConcat AddClPar } ifelse
+ }
+ {%%du!=0
+ 4 index (0) eq
+ {%%if dv=0 then (u^v)'=vu'u^(v-1)
+ 5 index dup IsStrNumber
+ { dup (0) eq
+ { StrConcat }
+ { dup dup (1) eq exch (1.0) eq or
+ { StrConcat }
+ { StrConcat
+ 7 index dup (1) ne exch (1.0) ne and%%%dr 09102006 insert du if <> 1
+ { (*\() StrConcat 7 index StrConcat (\)) StrConcat } if%%%dr 09102006
+ (*\() StrConcat 8 index StrConcat (\)) StrConcat
+ 5 index dup dup (2) eq exch (2.0) eq or
+ { pop } { cvr 1 sub 20 string cvs 3 1 roll (^) StrConcat 3 -1 roll StrConcat } ifelse } ifelse } ifelse }
+ { pop AddOpPar 5 index StrConcat (\)*\() StrConcat 8 index StrConcat (\)^\() StrConcat
+ 5 index StrConcat (-1\)) StrConcat } ifelse
+ }
+ {%%if dv!=0 and du!=0 then (u^v)'=u'vu^(v-1)+v'u^(v)ln(u)
+ 7 index (1) ne { AddOpPar 7 index StrConcat (\)*) StrConcat } if
+ AddOpPar 5 index StrConcat (\)*\() StrConcat
+ 8 index StrConcat (\)^\() StrConcat
+ 5 index StrConcat (-1\)+\() StrConcat
+ 4 index (1) ne { 4 index StrConcat (\)*\() StrConcat } if
+ 8 index StrConcat (\)^\() StrConcat
+ 5 index StrConcat (\)*ln\() StrConcat
+ 8 index StrConcat AddClPar
+ } ifelse
+ } ifelse
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ mark 11 -5 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% No derivative for factorial ! only cst => null derivative
+/EvalFactorial {% DR 09/2011
+ 4 index (0) eq
+ { (0) mark 8 -2 roll cleartomark 2 index 7 index dup 4 index exch sub getinterval exch 6 2 roll }
+ { DERIVATIVE_ENGINE_ERROR_no_variable_in_factorial } ifelse
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% str -> true/false
+/IsStrNumber {%
+ true exch
+ { dup 48 lt exch dup 57 gt 3 -1 roll or
+ exch dup 46 ne%%.
+ exch dup 43 ne%%+
+ exch 45 ne%%-
+ and and and { pop false } if } forall
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% literal switch -> func call, vector, variables
+/EvalLiteral {%
+ ReadLiteral dup 40 eq%%% there is an open par -> function call
+ { pop (EvalFunc_ ) 9 4 index StrConcat 0 exch getinterval cvn cvx exec }
+ { dup 91 eq%%% there is an open bracket -> vector element
+ { DERIVATIVE_ENGINE_ERROR_vector_not_yet_implemented }
+ { pop EvalVariable }
+ ifelse }
+ ifelse
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% first last parpos Expr[first:parpos-1] ->
+/EvalVariable { 2 index Variable eq { (1) } { (0) } ifelse 4 -1 roll exch 6 2 roll } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (f(u))'=u'f'(u)
+/EvalFunc {
+ 4 2 roll 4 index (1) ne
+ { AddOpPar 4 index StrConcat (\)*) StrConcat } if
+ (Eval ) 4 8 index StrConcat 0 exch getinterval cvn cvx exec
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ mark 9 -3 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Func derivative -> Eval<func>
+/EvalFunc_sin {%
+ PreCommonFunc
+ { (cos\() StrConcat 5 index StrConcat AddClPar } if
+ PostCommonFunc } def
+/EvalFunc_cos {%
+ PreCommonFunc
+ { (\(-sin\() StrConcat 5 index StrConcat (\)\)) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_tan {%
+ PreCommonFunc
+ { dup 0 eq { (1) StrConcat } { 1 sub } ifelse (/cos\() StrConcat 5 index StrConcat (\)^2) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_asin {%
+ PreCommonFunc
+ { (1/sqrt\(1-\() StrConcat 5 index StrConcat (\)^2\)\)) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_acos {%
+ PreCommonFunc
+ { (-1/sqrt\(1-\() StrConcat 5 index StrConcat (\)^2\)\)) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_atg {%
+ PreCommonFunc
+ { (1/\(1+\() StrConcat 5 index StrConcat (\)^2\)\)) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_ln {%
+ PreCommonFunc
+ { dup 0 eq { (1) StrConcat } { 1 sub } ifelse (/\() StrConcat 5 index StrConcat AddClPar } if
+ PostCommonFunc } def
+/EvalFunc_exp {%
+ PreCommonFunc
+ { (exp\() StrConcat 5 index StrConcat AddClPar } if
+ PostCommonFunc } def
+/EvalFunc_EXP {%
+ PreCommonFunc
+ { (EXP\() StrConcat 5 index StrConcat AddClPar } if
+ PostCommonFunc } def
+/EvalFunc_sqrt {%
+ PreCommonFunc
+ { dup 0 eq { (1) StrConcat } { 1 sub } ifelse (/\(2*sqrt\() StrConcat 5 index StrConcat (\)\)) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_Fact {%
+ PreCommonFunc { DERIVATIVE_ENGINE_ERROR_no_variable_expression_in_Fact } if
+ PostCommonFunc } def
+/EvalFunc_sh {%
+ PreCommonFunc
+ { (ch\() StrConcat 5 index StrConcat AddClPar } if
+ PostCommonFunc } def
+/EvalFunc_ch {%
+ PreCommonFunc
+ { (sh\() StrConcat 5 index StrConcat AddClPar } if
+ PostCommonFunc } def
+/EvalFunc_th {%
+ PreCommonFunc
+ { dup 0 eq { (1) StrConcat } { 1 sub } ifelse (/ch\() StrConcat 5 index StrConcat (\)^2) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_Argsh {%
+ PreCommonFunc
+ { (1/sqrt\(1+\() StrConcat 5 index StrConcat (\)^2\)\)) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_Argch {%
+ PreCommonFunc
+ { (1/sqrt\(\() StrConcat 5 index StrConcat (\)^2-1\)\)) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_Argth {%
+ PreCommonFunc
+ { (1/\(1-\() StrConcat 5 index StrConcat (\)^2\)\)) StrConcat } if
+ PostCommonFunc } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+/PreCommonFunc {
+ 1 add NextNonBlankChar pop 3 -1 roll 5 1 roll AnalyzeExpr 1 add NextNonBlankChar pop
+ 4 2 roll 4 index (0) eq
+ { (0) StrConcat false }
+ { 4 index (1) ne { AddOpPar 4 index StrConcat (\)*) StrConcat } if true } ifelse
+} def
+/PostCommonFunc {
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ mark 9 -3 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+/EvalFunc_Derive {%
+ 1 add ReadNumber cvi 1 add dup cvr log 1 add cvi string cvs
+ 4 -1 roll pop 5 1 roll 1 add NextNonBlankChar pop AnalyzeExpr 1 add
+ 4 -2 roll (Derive\() StrConcat 7 -1 roll StrConcat (,) StrConcat 6 -1 roll StrConcat AddClPar
+ 2 copy pop 0 6 2 roll GetIntervalNewStr 6 -1 roll pop 2 index 6 index dup 4 index exch sub getinterval
+ exch 6 2 roll } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% literal switch -> func call, vector, variables
+/EvalFunc_Sum {%
+ 1 add NextNonBlankChar pop
+ %% read the variable name
+ ReadLiteral pop 3 -1 roll pop NextNonBlankChar
+ 44 ne { ANALYZER_ERROR_missing_first_comma_in_Sum } if
+ %% read the initial value
+ 1 add NextNonBlankChar pop ReadNumber pop
+ 2 copy get 44 ne { ANALYZER_ERROR_missing_second_comma_in_Sum } if
+ %% read the increment value
+ 1 add NextNonBlankChar pop ReadNumber pop
+ 2 copy get 44 ne { ANALYZER_ERROR_missing_third_comma_in_Sum } if
+ %% read the limit value
+ 1 add NextNonBlankChar pop ReadNumber pop
+ 2 copy get 44 ne { ANALYZER_ERROR_missing_fourth_comma_in_Sum } if
+ 1 add NextNonBlankChar pop dup 6 1 roll 3 -1 roll pop AnalyzeExpr 1 add NextNonBlankChar pop
+ 4 -2 roll 3 index 8 index dup 9 index exch sub getinterval StrConcat
+ 4 index StrConcat AddClPar
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ mark 9 -3 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% literal switch -> func call, vector, variables
+/EvalFunc_IfTE {%
+ 3 -1 roll pop 1 add NextNonBlankChar pop SkipCond
+ NextNonBlankChar
+ 44 ne { ANALYZER_ERROR_missing_first_comma_in_IfTE } if
+ 1 add NextNonBlankChar pop dup 5 1 roll
+ AnalyzeExpr NextNonBlankChar
+ 44 ne { ANALYZER_ERROR_missing_second_comma_in_IfTE } if
+ 1 add NextNonBlankChar pop
+ AnalyzeExpr 1 add NextNonBlankChar pop
+ 4 -2 roll 3 index 10 index dup 11 index exch sub getinterval StrConcat
+ 6 index StrConcat (,) StrConcat 4 index StrConcat AddClPar
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ mark 11 -5 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% advance in str until a comma is found (no error detection!)
+%% str index -> str index'
+/SkipCond { { 1 add 2 copy get 44 eq {exit } if } loop } bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Convert to radians if trigo function call
+%% (name) ->
+/TrigoFunc {
+ dup (cos) eq 1 index (sin) eq or exch (tan) eq or
+ { /ExpressionVector ExpressionVector aload length Pi /div cvx 180 /mul cvx 5 -1 roll 4 add
+ array astore def
+ } if
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% No derivative for condition....
+/EvalCondOp { 3 -1 roll pop } bind def
+/PutIntervalOneAdd {putinterval 1 add} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add open parenthesis in string at the given index
+%% str index -> str index+1
+/AddOpPar {2 copy (\() PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add close parenthesis in string at the given index
+%% str index -> str index+1
+/AddClPar {2 copy (\)) PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add 0 in string at the given index
+%% str index -> str index+1
+/AddZero {2 copy (0) PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add open parenthesis in string at the given index
+%% str index -> str index+1
+/AddMul {2 copy (*) PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add open parenthesis in string at the given index
+%% str index -> str index+1
+/AddDiv {2 copy (/) PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add a plus sign in string at the given index
+%% str index -> str index+1
+/AddAdd {2 copy (+) PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add a minus sign in string at the given index
+%% str index -> str index+1
+/AddSub {2 copy (-) PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add a pipe sign in string at the given index
+%% str index -> str index+1
+/AddPipe {2 copy (|) PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% H O O K S
+/AnalyzePreHook { dup 5 1 roll } bind def
+/PreEvalHook {} def
+/AnalyzePostHook { 7 -1 roll pop } bind def
+/AnalyzeListOfEPostHook { 6 -1 roll mark 6 1 roll cleartomark } bind def
+/RollOp { 5 1 roll } bind def
+end%%%tx@CoreAnalyzerDict
+/tx@AddMathFunc 12 dict def tx@AddMathFunc begin
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% NEW FUNC
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% function arcsine in radians asin(x)=atan(x/sqrt(1-x^2))
+%% x -> theta
+/asin {%
+ dup abs 1 gt { EQDFasinrangeerror } if
+ dup dup dup mul 1 exch sub sqrt atan exch 0 lt { 360 sub } if DegtoRad
+} def
+%% function arccosine in radians acos(x)=atan(sqrt(1-x^2)/x)
+%% x -> theta
+/acos {%
+ dup abs 1 gt { EQDFacosrangeerror } if
+ dup dup mul 1 exch sub sqrt exch atan DegtoRad
+} def
+%% function arctangent in radians
+%% x -> theta
+/atg { 1 atan dup 90 gt { 360 sub } if DegtoRad } bind def
+%% HYPERBOLIC FUNCTIONS
+/sh { dup Ex exch neg Ex sub 2 div } def
+/ch { dup Ex exch neg Ex add 2 div } def
+/th { dup sh exch ch div } def
+/Argsh { dup dup mul 1 add sqrt add ln } def
+/Argch { dup dup mul 1 sub sqrt add ln } def
+/Argth { dup 1 add exch 1 exch sub div ln 2 div } def
+%% modified exponential funtion for 0
+%% x n -> x^n
+/Exp { dup 0 eq { pop pop 1 } { exp } ifelse } bind def
+%% modified exponential funtion for 0
+%% x -> e^x
+/Ex { Euler exch exp } bind def
+%%
+%% factorial function
+%% n -> n!
+/Fact { 1 exch 2 exch 1 exch { mul } for } bind def
+/fact { Fact } bind def
+/! { Fact } bind def
+end
+%
+% END pst-algparser.pro
+
+%%EndProcSet
+%%BeginProcSet: pst-tools.pro 0 0
+% $Id: pst-tools.pro 713 2012-10-16 14:25:00Z herbert $
+%
+%% PostScript tools prologue for pstricks.tex.
+%% Version 0.03, 2012/10/16
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%
+%
+/Pi2 1.57079632679489661925640 def
+/factorial { % n on stack, returns n!
+ dup 0 eq { 1 }{
+ dup 1 gt { dup 1 sub factorial mul } if }
+ ifelse } def
+%
+/MoverN { % m n on stack, returns the binomial coefficient m over n
+ 2 dict begin
+ /n exch def /m exch def
+ n 0 eq { 1 }{
+ m n eq { 1 }{
+ m factorial n factorial m n sub factorial mul div } ifelse } ifelse
+ end
+} def
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% subroutines for complex numbers, given as an array [a b]
+% which is a+bi = Real+i Imag
+%
+/cxadd { % [a1 b1] [a2 b2] = [a1+a2 b1+b2]
+ dup 0 get % [a1 b1] [a2 b2] a2
+ 3 -1 roll % [a2 b2] a2 [a1 b1]
+ dup 0 get % [a2 b2] a2 [a1 b1] a1
+ 3 -1 roll % [a2 b2] [a1 b1] a1 a2
+ add % [a2 b2] [a1 b1] a1+a2
+ 3 1 roll % a1+a2 [a2 b2] [a1 b1]
+ 1 get % a1+a2 [a2 b2] b1
+ exch 1 get % a1+a2 b1 b2
+ add 2 array astore
+} def
+%
+/cxneg { % [a b]
+ dup 1 get % [a b] b
+ exch 0 get % b a
+ neg exch neg % -a -b
+ 2 array astore
+} def
+%
+/cxsub { cxneg cxadd } def % same as negative addition
+%
+% [a1 b1][a2 b2] = [a1a2-b1b2 a1b2+b1a2] = [a3 b3]
+/cxmul { % [a1 b1] [a2 b2]
+ dup 0 get % [a1 b1] [a2 b2] a2
+ exch 1 get % [a1 b1] a2 b2
+ 3 -1 roll % a2 b2 [a1 b1]
+ dup 0 get % a2 b2 [a1 b1] a1
+ exch 1 get % a2 b2 a1 b1
+ dup % a2 b2 a1 b1 b1
+ 5 -1 roll dup % b2 a1 b1 b1 a2 a2
+ 3 1 roll mul % b2 a1 b1 a2 b1a2
+ 5 -2 roll dup % b1 a2 b1a2 b2 a1 a1
+ 3 -1 roll dup % b1 a2 b1a2 a1 a1 b2 b2
+ 3 1 roll mul % b1 a2 b1a2 a1 b2 a1b2
+ 4 -1 roll add % b1 a2 a1 b2 b3
+ 4 2 roll mul % b1 b2 b3 a1a2
+ 4 2 roll mul sub % b3 a3
+ exch 2 array astore
+} def
+%
+% [a b]^2 = [a^2-b^2 2ab] = [a2 b2]
+/cxsqr { % [a b] square root
+ dup 0 get exch 1 get % a b
+ dup dup mul % a b b^2
+ 3 -1 roll % b b^2 a
+ dup dup mul % b b^2 a a^2
+ 3 -1 roll sub % b a a2
+ 3 1 roll mul 2 mul % a2 b2
+ 2 array astore
+} def
+%
+/cxsqrt { % [a b]
+% dup cxnorm sqrt /r exch def
+% cxarg 2 div RadtoDeg dup cos r mul exch sin r mul cxmake2
+ cxlog % log[a b]
+ 2 cxrdiv % log[a b]/2
+ aload pop exch % b a
+ 2.781 exch exp % b exp(a)
+ exch cxconv exch % [Re +iIm] exp(a)
+ cxrmul %
+} def
+%
+/cxarg { % [a b]
+ aload pop % a b
+ exch atan % arctan b/a
+ DegtoRad % arg(z)=atan(b/a)
+} def
+%
+% log[a b] = [a^2-b^2 2ab] = [a2 b2]
+/cxlog { % [a b]
+ dup % [a b][a b]
+ cxnorm % [a b] |z|
+ log % [a b] log|z|
+ exch % log|z|[a b]
+ cxarg % log|z| Theta
+ cxmake2 % [log|z| Theta]
+} def
+%
+% square of magnitude of complex number
+/cxnorm2 { % [a b]
+ dup 0 get exch 1 get % a b
+ dup mul % a b^2
+ exch dup mul add % a^2+b^2
+} def
+%
+/cxnorm { % [a b]
+ cxnorm2 sqrt
+} def
+%
+/cxconj { % conjugent complex
+ dup 0 get exch 1 get % a b
+ neg 2 array astore % [a -b]
+} def
+%
+/cxre { 0 get } def % real value
+/cxim { 1 get } def % imag value
+%
+% 1/[a b] = ([a -b]/(a^2+b^2)
+/cxrecip { % [a b]
+ dup cxnorm2 exch % n2 [a b]
+ dup 0 get exch 1 get % n2 a b
+ 3 -1 roll % a b n2
+ dup % a b n2 n2
+ 4 -1 roll exch div % b n2 a/n2
+ 3 1 roll div % a/n2 b/n2
+ neg 2 array astore
+} def
+%
+/cxmake1 { 0 2 array astore } def % make a complex number, real given
+/cxmake2 { 2 array astore } def % dito, both given
+%
+/cxdiv { cxrecip cxmul } def
+%
+% multiplikation by a real number
+/cxrmul { % [a b] r
+ exch aload pop % r a b
+ 3 -1 roll dup % a b r r
+ 3 1 roll mul % a r b*r
+ 3 1 roll mul % b*r a*r
+ exch 2 array astore % [a*r b*r]
+} def
+%
+% division by a real number
+/cxrdiv { % [a b] r
+ 1 exch div % [a b] 1/r
+ cxrmul
+} def
+%
+% exp(i theta) = cos(theta)+i sin(theta) polar<->cartesian
+/cxconv { % theta
+ RadtoDeg dup sin exch cos cxmake2
+} def
+
+%%%%% ### bubblesort ###
+%% syntax : array bubblesort --> array2 trie par ordre croissant
+%% code de Bill Casselman
+%% http://www.math.ubc.ca/people/faculty/cass/graphics/text/www/
+/bubblesort { % on stack must be an array [ ... ]
+4 dict begin
+ /a exch def
+ /n a length 1 sub def
+ n 0 gt {
+ % at this point only the n+1 items in the bottom of a remain to
+ % the sorted largest item in that blocks is to be moved up into
+ % position n
+ n {
+ 0 1 n 1 sub {
+ /i exch def
+ a i get a i 1 add get gt {
+ % if a[i] > a[i+1] swap a[i] and a[i+1]
+ a i 1 add
+ a i get
+ a i a i 1 add get
+ % set new a[i] = old a[i+1]
+ put
+ % set new a[i+1] = old a[i]
+ put
+ } if
+ } for
+ /n n 1 sub def
+ } repeat
+ } if
+ a % return the sorted array
+end
+} def
+%
+/concatstringarray{ % [(a) (b) ... (z)] --> (ab...z) 20100422
+ 0 1 index { length add } forall
+ string
+ 0 3 2 roll
+ { 3 copy putinterval length add }forall
+ pop
+} bind def
+%
+/dot2comma {% on stack a string (...)
+ 2 dict begin
+ /Output exch def
+ 0 1 Output length 1 sub {
+ /Index exch def
+ Output Index get 46 eq { Output Index 44 put } if
+ } for
+ Output
+ end
+} def
+%
+/rightTrim {
+ dup
+ length 1 sub -1 0 {
+ /i exch def dup i get 32 ne { exit } if
+ } for
+ 0 i 1 add getinterval
+ dup length string copy
+} bind def
+
+/psStringwidth /stringwidth load def
+/psShow /show load def
+
+%/stringwidth{ rightTrim psStringwidth } bind def
+
+%/show { rightTrim psShow } bind def
+%-----------------------------------------------------------------------------%
+% END pst-tools.pro
+
+%%EndProcSet
+%%BeginProcSet: pst-dots.pro 0 0
+% $Id: pst-dots.pro 801 2013-07-09 18:10:41Z herbert $
+%
+%% PostScript prologue for pstricks.tex.
+%% Version 2.02, 2009/06/16
+%%
+%% For distribution, see pstricks.tex.
+%%
+%% Timothy Van Zandt <tvz@Princeton.EDU>
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%%
+%% Modified by Etienne Riga - Dec. 16, 1999
+%% Modified by Etienne Riga - 2005/01/01 (er)
+%% to add /Diamond, /SolidDiamond and /BoldDiamond
+%% Modified by Herbert Voss (hv) - 2008/04/17
+%
+10 dict dup begin % hold local
+ /FontType 3 def
+ /FontMatrix [.001 0 0 .001 0 0] def
+% /FontBBox [-571.5 -742.5 571.5 742.5] def % changed to next line 20060616 hv
+ /FontBBox [-1000 -1000 1000 1000] def % See end of file in /BuildGlyph
+ /Encoding 256 array def
+ 0 1 255 {Encoding exch /.notdef put} for % fill the array with /.notdef
+ Encoding % replace with given dot names
+ dup (b) 0 get /Bullet put % get the numerical position of b in ASCII
+% % and save /Bullet at this place in Encoding
+ dup (c) 0 get /Circle put
+ dup (C) 0 get /BoldCircle put % 67
+ dup (u) 0 get /SolidTriangle put
+ dup (t) 0 get /Triangle put
+ dup (T) 0 get /BoldTriangle put
+ dup (r) 0 get /SolidSquare put
+ dup (s) 0 get /Square put
+ dup (S) 0 get /BoldSquare put
+ dup (q) 0 get /SolidPentagon put
+ dup (p) 0 get /Pentagon put
+ dup (P) 0 get /BoldPentagon put
+%%%
+ dup (k) 0 get /Asterisk put
+ dup (K) 0 get /BoldAsterisk put
+ dup (J) 0 get /SolidAsterisk put
+ dup (h) 0 get /Hexagon put
+ dup (H) 0 get /BoldHexagon put
+ dup (G) 0 get /SolidHexagon put
+ dup (f) 0 get /Octogon put % 2008-04-18 hv
+ dup (F) 0 get /BoldOctogon put % 2008-04-18 hv
+ dup (g) 0 get /SolidOctogon put % 2008-04-18 hv
+ dup (a) 0 get /Add put
+ dup (A) 0 get /BoldAdd put % 65
+ dup (x) 0 get /Mul put
+ dup (X) 0 get /BoldMul put
+ dup (m) 0 get /Oplus put
+ dup (M) 0 get /BOplus put
+ dup (e) 0 get /SolidOplus put
+ dup (n) 0 get /Otimes put
+ dup (N) 0 get /BOtimes put
+ dup (E) 0 get /SolidOtimes put
+ dup (i) 0 get /Bar put
+ dup (I) 0 get /BoldBar put
+ dup (l) 0 get /SolidDiamond put
+ dup (d) 0 get /Diamond put
+ (D) 0 get /BoldDiamond put
+%%%
+/CharProcs 47 dict def
+CharProcs begin
+ /CirclePath {0 0 500 0 360 arc closepath} def
+ /Bullet {CirclePath fill} def
+ /Circle {CirclePath .9 .9 scale CirclePath eofill} def
+ /BoldCircle {CirclePath .8 .8 scale CirclePath eofill} def
+ /TrianglePath {0 660 moveto -571.5 -330 lineto 571.5 -330 lineto closepath} def
+ /SolidTriangle {TrianglePath fill} def
+ /Triangle {TrianglePath .85 .85 scale TrianglePath eofill} def
+ /BoldTriangle {TrianglePath .7 .7 scale TrianglePath eofill} def
+ /SquarePath {-450 450 moveto 450 450 lineto 450 -450 lineto -450 -450 lineto closepath} def
+ /SolidSquare {SquarePath fill} def
+ /Square {SquarePath .89 .89 scale SquarePath eofill} def
+ /BoldSquare {SquarePath .78 .78 scale SquarePath eofill} def
+ /PentagonPath {
+ -337.8 -465 moveto 337.8 -465 lineto 546.6 177.6 lineto
+ 0 574.7 lineto -546.6 177.6 lineto closepath
+ } def
+ /SolidPentagon {PentagonPath fill} def
+ /Pentagon {PentagonPath .89 .89 scale PentagonPath eofill} def
+ /BoldPentagon {PentagonPath .78 .78 scale PentagonPath eofill} def
+%-------------- hv begin 2004/07/25 from: er 2003/03/24
+ /HexagonPath {
+ 0 550 moveto -476 275 lineto -476 -275 lineto
+ 0 -550 lineto 476 -275 lineto 476 275 lineto closepath
+ } def
+ /SolidHexagon {HexagonPath fill} def
+ /Hexagon {HexagonPath .89 .89 scale HexagonPath eofill} def
+ /BoldHexagon {HexagonPath .79 .79 scale HexagonPath eofill} def
+% 2008-04-18 hv
+ /OctogonPath {
+ 550 dup 22.5 tan mul dup neg dup add /xMove exch def
+ exch moveto 7 { xMove 0 rlineto 45 rotate } repeat closepath } def
+ /SolidOctogon { OctogonPath fill } def
+ /Octogon { OctogonPath .89 .89 scale OctogonPath eofill } def
+ /BoldOctogon { OctogonPath .79 .79 scale OctogonPath eofill } def
+%
+ /AsteriskPath {
+ 20 0 moveto 10 250 180 500 0 500 curveto
+ -180 500 -10 250 -20 0 curveto closepath
+ } def
+ /Asterisk {
+ AsteriskPath 60 rotate AsteriskPath 60 rotate AsteriskPath
+ 60 rotate AsteriskPath 60 rotate AsteriskPath 60 rotate AsteriskPath fill
+ } def
+%
+ /Basterp {50 250 220 500 0 500 curveto -220 500 -50 250 -50 30 cos 100 mul curveto} def
+ /BoldAsteriskPath {
+ 50 30 cos 100 mul moveto Basterp
+ 60 rotate Basterp 60 rotate Basterp
+ 60 rotate Basterp 60 rotate Basterp
+ 60 rotate Basterp closepath
+ } def
+ /BoldAsterisk {BoldAsteriskPath fill} def
+ /SolidAsterisk {CirclePath .9 .9 scale BoldAsteriskPath eofill} def
+ /CrossPath {
+ 40 550 moveto -40 550 lineto -40 40 lineto -550 40 lineto
+ -550 -40 lineto -40 -40 lineto -40 -550 lineto 40 -550 lineto
+ 40 -40 lineto 550 -40 lineto 550 40 lineto 40 40 lineto closepath
+ } def
+ /BoldCrossPath {80 550 moveto -80 550 lineto -80 80 lineto -550 80 lineto
+ -550 -80 lineto -80 -80 lineto -80 -550 lineto 80 -550 lineto
+ 80 -80 lineto 550 -80 lineto 550 80 lineto 80 80 lineto closepath
+ } def
+ /Add {CrossPath fill} def
+ /Mul {45 rotate CrossPath fill} def
+ /BoldAdd {BoldCrossPath fill} def
+ /BoldMul {45 rotate BoldCrossPath fill} def
+ /Oplus {CirclePath .9 .9 scale CirclePath eofill .775 .775 scale CrossPath fill } def
+ /SolidOplus {CirclePath .775 .775 scale BoldCrossPath eofill} def
+ /BOplus {CirclePath .8 .8 scale CirclePath eofill .775 .775 scale BoldCrossPath fill} def
+ /Otimes {CirclePath .9 .9 scale CirclePath eofill 45 rotate .775 .775 scale CrossPath fill} def
+ /BOtimes {CirclePath .8 .8 scale CirclePath eofill 45 rotate .775 .775 scale BoldCrossPath fill } def
+ /SolidOtimes {CirclePath 45 rotate .775 .775 scale BoldCrossPath eofill} def
+ /BarPath {40 660 moveto -40 660 lineto -40 -660 lineto 40 -660 lineto closepath} def
+ /Bar {BarPath fill} def
+ /BoldBarPath {80 660 moveto -80 660 lineto -80 -660 lineto 80 -660 lineto closepath} def
+ /BoldBar {BoldBarPath fill} def
+ /DiamondPath {0 742.5 moveto -428.5 0 lineto 0 -742.5 lineto 428.5 0 lineto closepath} def
+ /SolidDiamond {DiamondPath fill} def
+ /Diamond {DiamondPath .865 .865 scale DiamondPath eofill} def
+ /BoldDiamond {DiamondPath .73 .73 scale DiamondPath eofill} def
+%%%
+ /.notdef { } def
+end
+%
+/BuildGlyph {
+ exch
+ begin
+% Metrics 1 index get exec 0
+ 0 0
+% BBoxes 3 index get exec
+ -1000 -1000 1000 1000
+% -571.5 -742.5 571.5 742.5
+ setcachedevice
+ CharProcs begin load exec end
+ end
+} def
+%
+/BuildChar {
+ 1 index /Encoding get exch get
+ 1 index /BuildGlyph get exec
+} bind def
+%
+end
+/PSTricksDotFont exch definefont pop
+%
+%% end
+
+%%EndProcSet
+%%BeginProcSet: pst-coil.pro 0 0
+%!ps
+% PostScript prologue for pst-coil.tex.
+% Version 1.03, 2010/02/01
+% For distribution, see pstricks.tex.
+%
+/tx@CoilDict 40 dict def tx@CoilDict begin
+/CoilLoop {
+ /t ED
+ t sin AspectSin mul t 180 div AspectCos mul add t cos lineto } def
+/Coil {
+ /Inc ED
+ dup sin /AspectSin ED
+ cos /AspectCos ED
+ /ArmB ED
+ /ArmA ED
+ /h ED /w ED /y1 ED /x1 ED /y0 ED /x0 ED
+ x0 y0 translate y1 y0 sub x1 x0 sub 2 copy Pyth
+ /TotalLength ED
+ Atan rotate
+ /BeginAngle ArmA AspectCos Div w h mul Div 360 mul def
+ /EndAngle TotalLength ArmB sub AspectCos Div
+ w h mul Div 360 mul def
+ 1 0 0 0 ArrowA ArmA 0 lineto
+ /mtrx CM def
+ w h mul 2 Div w 2 Div scale BeginAngle Inc
+ EndAngle { CoilLoop } for
+ EndAngle CoilLoop mtrx setmatrix TotalLength ArmB sub 0 lineto CP
+% DG/SR modification begin - Jun. 2, 1998 - Patch 1 (from Michael Vulis)
+% TotalLength 0 ArrowB lineto } def
+ TotalLength 0 ArrowB lineto
+ pop pop pop pop } def
+% DG/SR modification end
+%
+/Sin {
+ /Func ED
+ /PointsPerPeriod ED
+ /ArmB ED
+ /ArmA ED
+ /Amplitude ED
+ /roundValue ED
+ /relativePeriod ED
+ /Periods ED
+ /y1 ED /x1 ED /y0 ED /x0 ED
+ x0 y0 translate y1 y0 sub x1 x0 sub 2 copy Pyth
+ dup /TotalLength ED
+ ArmA sub ArmB sub /SinLength ED
+ Atan rotate
+ 1 0 0 0 ArrowA ArmA 0 lineto
+ /mtrx CM def
+ relativePeriod
+ {}
+ { SinLength Periods div roundValue { cvi } if
+ /Periods ED } ifelse
+ /dxStep SinLength 360 div def % the default step for x pos
+ /xStep 360 PointsPerPeriod div def % the step for the for loop
+ 1 xStep 360 { % PointsPerPeriod times
+ dup dxStep mul ArmA add exch % x pos and value for the func
+ Periods mul Func Amplitude mul lineto
+ } for
+ mtrx setmatrix TotalLength ArmB sub 0 lineto CP
+ TotalLength 0 ArrowB lineto
+ pop pop pop pop
+} def
+%
+/AltCoil {
+ /Inc ED
+ dup sin /AspectSin ED
+ cos /AspectCos ED /h ED /w ED /EndAngle ED /BeginAngle ED
+ /mtrx CM def
+ w h mul 2 Div w 2 Div scale BeginAngle sin AspectSin mul
+ BeginAngle 180 div AspectCos mul add BeginAngle cos
+ /lineto load stopped { moveto } if
+ BeginAngle Inc EndAngle { CoilLoop } for
+ EndAngle CoilLoop mtrx setmatrix } def
+/ZigZag {
+ /ArmB ED /ArmA ED
+ 2 div /w ED
+ w mul /h ED /y1 ED /x1 ED /y0 ED /x0 ED
+ x1 y1 translate y0 y1 sub x0 x1 sub 2 copy Pyth
+ /TotalLength ED
+ Atan rotate TotalLength ArmA sub ArmB sub dup h div cvi /n ED n h mul
+ sub 2 div dup ArmA add
+ /ArmA ED ArmB add
+ /ArmB ED
+ /x ArmB h 2 div add def
+ mark 0 0 ArmB 0
+ n { x w /w w neg def /x x h add def } repeat
+ TotalLength ArmA sub 0 TotalLength 0 } def
+%
+end
+% END pst-coil.pro
+
+%%EndProcSet
+%%BeginProcSet: pst-node.pro 0 0
+% $Id: pst-node.pro 805 2013-07-11 13:18:11Z herbert $
+%%
+%% PostScript prologue for pst-node.tex.
+%% Version 1.14, 2012/09/18.
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%
+tx@Dict begin % from main pstricks dict
+ /T /translate load def
+ /CP /currentpoint load def
+% /startGlobal { true setglobal globaldict begin } bind def
+% /endGlobal { end false setglobal } bind def
+end
+/tx@NodeDict 400 dict def tx@NodeDict begin
+/NewNode { % on stack: { x y } boolean N@name type InitXnode
+ gsave
+ NodeScale % a bugfix for xelatex, it's empty for dvips
+ /next exch def % { x y } boolean N@name type
+ dict dup % { x y } boolean N@name dict dict
+ 3 1 roll def % { x y } boolean dict N@name dict def
+ exch { dup 3 1 roll def } if % { x y } dict boolean
+ begin % { x y } dict begin
+ tx@Dict begin
+ STV CP T exec % set scaling
+ end
+ /NodeMtrx CM def % save CM
+ next % InitXNode
+ end
+ grestore
+} def
+%
+/InitPnode {
+ /Y ED /X ED
+ /NodePos { NodeSep Cos mul NodeSep Sin mul } def
+} def
+%
+/InitCnode {
+ /r ED /Y ED /X ED
+ /NodePos { NodeSep r add dup Cos mul exch Sin mul } def
+} def
+%
+/GetRnodePos {
+ Cos 0 gt { /dx r NodeSep add def } { /dx l NodeSep sub def } ifelse
+ Sin 0 gt { /dy u NodeSep add def } { /dy d NodeSep sub def } ifelse
+ dx Sin mul abs dy
+ Cos mul abs gt { dy Cos mul Sin div dy } { dx dup Sin mul Cos Div } ifelse
+} def
+%
+/InitRnode {
+ /Y ED /X ED X sub /r ED /l X neg def Y add neg /d ED Y sub /u ED
+ /NodePos { GetRnodePos } def
+} def
+%
+/DiaNodePos {
+ w h mul w Sin mul abs h Cos mul abs add Div NodeSep add dup
+ Cos mul exch Sin mul
+} def
+%
+/TriNodePos {
+ Sin s lt
+ { d NodeSep sub dup Cos mul Sin Div exch }
+ { w h mul w Sin mul h Cos abs mul add Div
+ NodeSep add dup Cos mul exch Sin mul
+ } ifelse
+} def
+%
+/InitTriNode {
+ sub 2 div exch
+ 2 div exch
+ 2 copy T
+ 2 copy 4 index index /d ED
+ pop pop pop pop
+ -90 mul rotate
+ /NodeMtrx CM def
+ /X 0 def /Y 0 def
+ d sub abs neg /d ED
+ d add /h ED
+ 2 div h mul h d sub Div /w ED
+ /s d w Atan sin def
+ /NodePos { TriNodePos } def
+} def
+%
+/OvalNodePos {
+ /ww w NodeSep add def
+ /hh h NodeSep add def
+ Sin ww mul Cos hh mul Atan dup cos ww mul exch sin hh mul
+} def
+%
+/GetCenter { begin X Y NodeMtrx transform CM itransform end } def
+%
+/XYPos {
+ dup sin exch cos Do
+ /Cos ED /Sin ED /Dist ED
+ Cos 0 gt
+ { Dist Dist Sin mul Cos div }
+ { Cos 0 lt
+ { Dist neg Dist Sin mul Cos div neg }
+ { 0 Dist Sin mul } ifelse
+ } ifelse
+ Do
+} def
+%
+/GetEdge {
+ dup 0 eq
+ { pop begin 1 0 NodeMtrx dtransform
+ CM idtransform
+ exch atan sub
+ dup
+ sin /Sin ED
+ cos /Cos ED
+ /NodeSep ED
+ NodePos NodeMtrx dtransform CM idtransform end }
+ { 1 eq {{exch}} {{}} ifelse /Do ED pop XYPos } ifelse
+} def
+%
+/AddOffset {
+ 1 index 0 eq
+ { pop pop }
+ { 2 copy 5 2 roll cos mul add 4 1 roll sin mul sub exch } ifelse
+} def
+%
+/GetEdgeA {
+ NodeSepA AngleA NodeA NodeSepTypeA GetEdge
+ OffsetA AngleA AddOffset
+ yA add /yA1 ED
+ xA add /xA1 ED
+} def
+%
+/GetEdgeB {
+ NodeSepB AngleB NodeB NodeSepTypeB GetEdge
+ OffsetB AngleB AddOffset
+ yB add /yB1 ED
+ xB add /xB1 ED
+} def
+%
+/GetArmA {
+ ArmTypeA 0 eq
+ { /xA2 ArmA AngleA cos mul xA1 add def
+ /yA2 ArmA AngleA sin mul yA1 add def }
+ { ArmTypeA 1 eq {{exch}} {{}} ifelse
+ /Do ED
+ ArmA AngleA XYPos OffsetA AngleA AddOffset
+ yA add /yA2 ED
+ xA add /xA2 ED } ifelse
+} def
+%
+/GetArmB {
+ ArmTypeB 0 eq
+ { /xB2 ArmB AngleB cos mul xB1 add def
+ /yB2 ArmB AngleB sin mul yB1 add def }
+ { ArmTypeB 1 eq {{exch}} {{}} ifelse
+ /Do ED
+ ArmB AngleB XYPos OffsetB AngleB AddOffset
+ yB add /yB2 ED
+ xB add /xB2 ED } ifelse
+} def
+%
+/InitNC {
+ /b ED /a ED % second and first node
+ /NodeSepTypeB ED /NodeSepTypeA ED
+ /NodeSepB ED /NodeSepA ED
+ /OffsetB ED /OffsetA ED
+ tx@NodeDict a known tx@NodeDict b known and dup {
+ /NodeA a load def
+ /NodeB b load def
+ NodeA GetCenter /yA ED /xA ED
+ NodeB GetCenter /yB ED /xB ED } if
+} def
+%
+/LPutLine {
+ 4 copy
+ 3 -1 roll sub neg 3 1 roll sub Atan /NAngle ED
+ 1 t sub mul
+ 3 1 roll 1 t sub mul
+ 4 1 roll t mul add /Y ED
+ t mul add /X ED
+} def
+%
+/LPutLines {
+ mark LPutVar counttomark 2 div 1 sub /n ED
+% t floor dup n gt
+ t floor dup n ge % to allow npos<= hv 2008-08-14
+ { pop n 1 sub /t 1 def } { dup t sub neg /t ED } ifelse
+ cvi 2 mul { pop } repeat
+ LPutLine
+ cleartomark
+} def
+%
+/BezierMidpoint {
+ /y3 ED /x3 ED /y2 ED /x2 ED /y1 ED /x1 ED /y0 ED /x0 ED /t ED
+ /cx x1 x0 sub 3 mul def
+ /cy y1 y0 sub 3 mul def
+ /bx x2 x1 sub 3 mul cx sub def
+ /by y2 y1 sub 3 mul cy sub def
+ /ax x3 x0 sub cx sub bx sub def
+ /ay y3 y0 sub cy sub by sub def
+ ax t 3 exp mul bx t t mul mul add
+ cx t mul add x0 add ay t 3 exp mul
+ by t t mul mul add cy t mul add
+ y0 add 3 ay t t mul mul mul 2
+ by t mul mul add cy add 3 ax t t mul mul mul
+ 2 bx t mul mul add cx add atan /NAngle ED
+ /Y ED /X ED
+} def
+%
+/HPosBegin { yB yA ge { /t 1 t sub def } if /Y yB yA sub t mul yA add def
+} def
+/HPosEnd { /X Y yyA sub yyB yyA sub Div xxB xxA sub mul xxA add def
+/NAngle yyB yyA sub xxB xxA sub Atan def } def
+/HPutLine { HPosBegin /yyA ED /xxA ED /yyB ED /xxB ED HPosEnd } def
+/HPutLines { HPosBegin yB yA ge { /check { le } def } { /check { ge } def
+} ifelse /xxA xA def /yyA yA def mark xB yB LPutVar { dup Y check { exit
+} { /yyA ED /xxA ED } ifelse } loop /yyB ED /xxB ED cleartomark HPosEnd
+} def
+/VPosBegin { xB xA lt { /t 1 t sub def } if /X xB xA sub t mul xA add def
+} def
+/VPosEnd { /Y X xxA sub xxB xxA sub Div yyB yyA sub mul yyA add def
+/NAngle yyB yyA sub xxB xxA sub Atan def } def
+/VPutLine { VPosBegin /yyA ED /xxA ED /yyB ED /xxB ED VPosEnd } def
+/VPutLines { VPosBegin xB xA ge { /check { le } def } { /check { ge } def
+} ifelse /xxA xA def /yyA yA def mark xB yB LPutVar { 1 index X check {
+exit } { /yyA ED /xxA ED } ifelse } loop /yyB ED /xxB ED cleartomark
+VPosEnd } def
+/HPutCurve { gsave newpath /SaveLPutVar /LPutVar load def LPutVar 8 -2
+roll moveto curveto flattenpath /LPutVar [ {} {} {} {} pathforall ] cvx
+def grestore exec /LPutVar /SaveLPutVar load def } def
+
+/NCCoor {
+ /AngleA yB yA sub xB xA sub Atan def
+ /AngleB AngleA 180 add def
+ GetEdgeA GetEdgeB
+ /LPutVar [ xB1 yB1 xA1 yA1 ] cvx def
+ /LPutPos { LPutVar LPutLine } def
+ /HPutPos { LPutVar HPutLine } def
+ /VPutPos { LPutVar VPutLine } def
+ LPutVar
+} def
+%
+/NCLine {
+ NCCoor
+ tx@Dict begin
+ ArrowA CP 4 2 roll
+ ArrowB
+ lineto pop pop
+ end
+} def
+%
+/NCLines {
+ false NArray
+ n 0 eq
+ { NCLine }
+ { 2 copy yA sub exch xA sub Atan /AngleA ED
+ n 2 mul dup index exch index yB sub exch xB sub
+ Atan /AngleB ED
+ GetEdgeA GetEdgeB
+ /LPutVar [ xB1 yB1 n 2 mul 4 add 4 roll xA1 yA1 ] cvx def
+ mark LPutVar
+ tx@Dict begin false Line end
+ /LPutPos { LPutLines } def
+ /HPutPos { HPutLines } def
+ /VPutPos { VPutLines } def
+ } ifelse
+} def
+%
+/NCCurve {
+ GetEdgeA
+ GetEdgeB
+ xA1 xB1 sub yA1 yB1 sub Pyth 2 div dup 3 -1
+roll mul /ArmA ED mul /ArmB ED /ArmTypeA 0 def /ArmTypeB 0 def GetArmA
+GetArmB xA2 yA2 xA1 yA1 tx@Dict begin ArrowA end xB2 yB2 xB1 yB1 tx@Dict
+begin ArrowB end curveto /LPutVar [ xA1 yA1 xA2 yA2 xB2 yB2 xB1 yB1 ]
+cvx def /LPutPos { t LPutVar BezierMidpoint } def /HPutPos { { HPutLines
+} HPutCurve } def /VPutPos { { VPutLines } HPutCurve } def } def
+%
+/NCAngles {
+ GetEdgeA GetEdgeB GetArmA GetArmB
+ /mtrx AngleA matrix rotate def
+ xA2 yA2 mtrx transform pop
+ xB2 yB2 mtrx transform exch pop
+ mtrx itransform
+ /y0 ED /x0 ED
+ mark ArmB 0 ne { xB1 yB1 } if
+ xB2 yB2 x0 y0 xA2 yA2
+ ArmA 0 ne { xA1 yA1 } if
+ tx@Dict begin false Line end
+ /LPutVar [ xB1 yB1 xB2 yB2 x0 y0 xA2 yA2 xA1 yA1 ] cvx def
+ /LPutPos { LPutLines } def
+ /HPutPos { HPutLines } def
+ /VPutPos { VPutLines } def } def
+%
+/NCAngle {
+ GetEdgeA GetEdgeB GetArmB
+ /mtrx AngleA matrix rotate def
+ xB2 yB2 mtrx itransform pop xA1 yA1 mtrx itransform exch pop mtrx transform
+ /y0 ED /x0 ED
+ mark
+ ArmB 0 ne { xB1 yB1 } if
+ xB2 yB2 x0 y0 xA1 yA1
+ tx@Dict begin false Line end
+ /LPutVar [ xB1 yB1 xB2 yB2 x0 y0 xA1 yA1 ] cvx def
+ /LPutPos { LPutLines } def
+ /HPutPos { HPutLines } def
+ /VPutPos { VPutLines } def
+} def
+%
+/NCBar {
+ GetEdgeA GetEdgeB GetArmA GetArmB
+ /mtrx AngleA matrix rotate def
+ xA2 yA2 mtrx itransform pop
+ xB2 yB2 mtrx itransform pop
+ sub dup 0 mtrx transform
+ 3 -1 roll 0 gt
+ { /yB2 exch yB2 add def /xB2 exch xB2 add def }
+ { /yA2 exch neg yA2 add def /xA2 exch neg xA2 add def } ifelse
+ mark
+ ArmB 0 ne { xB1 yB1 } if
+ xB2 yB2 xA2 yA2 ArmA 0 ne { xA1 yA1 } if
+ tx@Dict begin false Line end
+ /LPutVar [ xB1 yB1 xB2 yB2 xA2 yA2 xA1 yA1 ] cvx def
+ /LPutPos { LPutLines } def
+ /HPutPos { HPutLines } def
+ /VPutPos { VPutLines } def
+} def
+%
+/NCDiag {
+ /lineAngle ED
+ GetEdgeA GetEdgeB GetArmA GetArmB mark
+ lineAngle abs 0 gt {
+ /xTemp xA2 10 add def
+ /yTemp yA2 lineAngle dup sin exch cos div 10 mul add def
+ /dY1 yTemp yA2 sub def
+ /dX1 xTemp xA2 sub def
+ /dY2 yB2 yB1 sub def
+ /dX2 xB2 xB1 sub def
+ dX1 abs 0.01 lt {
+ /m2 dY2 dX2 div def
+ /xB2 xA2 def
+ /yB2 xA2 xB1 sub m2 mul yB1 add def
+ }{
+ dX2 abs 0.01 lt {
+ /m1 dY1 dX1 div def
+ /xB2 xB1 def
+ /yB2 xB1 xA2 sub m1 mul yA2 add def
+ }{%
+ /m1 dY1 dX1 div def
+ /m2 dY2 dX2 div def
+ /xB2 m1 xA2 mul m2 xB1 mul sub yA2 sub yB1 add m1 m2 sub div def
+ /yB2 xB2 xA2 sub m1 mul yA2 add def
+ } ifelse
+ } ifelse
+ } if
+ ArmB 0 ne { xB1 yB1 } if
+ xB2 yB2 xA2 yA2
+ ArmA 0 ne { xA1 yA1 } if
+ tx@Dict begin false Line end
+ /LPutVar [ xB1 yB1 xB2 yB2 xA2 yA2 xA1 yA1 ] cvx def
+ /LPutPos { LPutLines } def
+ /HPutPos { HPutLines } def
+ /VPutPos { VPutLines } def
+%
+% GetEdgeA GetEdgeB GetArmA GetArmB mark
+% ArmB 0 ne { xB1 yB1 } if
+% xB2 yB2 xA2 yA2
+% ArmA 0 ne { xA1 yA1 } if
+% tx@Dict begin false Line end
+% /LPutVar [ xB1 yB1 xB2 yB2 xA2 yA2 xA1 yA1 ] cvx def
+% /LPutPos { LPutLines } def
+% /HPutPos { HPutLines } def
+% /VPutPos { VPutLines } def
+} def
+%
+/NCDiagg {
+ /lineAngle ED
+ GetEdgeA GetArmA
+ lineAngle abs 0 gt
+ { lineAngle }
+ { yB yA2 sub xB xA2 sub Atan 180 add } ifelse
+ /AngleB ED
+ GetEdgeB mark
+ lineAngle abs 0 gt {
+ /dY2 yA2 yA1 sub def
+ /dX2 xA2 xA1 sub def
+ lineAngle abs 90 eq {
+ /m2 dY2 dX2 div def
+ /yA2 xB xA2 sub m2 mul yA2 add def
+ /xA2 xB def
+ }{
+ /m1 lineAngle dup sin exch cos div def % tan alpha
+ dX2 abs 0.01 lt {
+ /yA2 xA1 xB sub m1 mul yB add def
+ /xA2 xA1 def
+ }{%
+ /m2 dY2 dX2 div def
+ /xA2 m1 xB mul m2 xA2 mul sub yA2 add yB sub m1 m2 sub div def
+ /yA2 xA2 xB sub m1 mul yB add def
+ } ifelse
+ } ifelse
+ } if
+ xB1 yB1 xA2 yA2
+ ArmA 0 ne { xA1 yA1 } if
+ tx@Dict begin false Line end
+ /LPutVar [ xB1 yB1 xA2 yA2 xA1 yA1 ] cvx def
+ /LPutPos { LPutLines } def
+ /HPutPos { HPutLines } def
+ /VPutPos { VPutLines } def
+%
+% GetEdgeA GetArmA
+% yB yA2 sub xB xA2 sub Atan 180 add /AngleB ED
+% GetEdgeB
+% mark
+% xB1 yB1 xA2 yA2
+% ArmA 0 ne { xA1 yA1 } if
+% tx@Dict begin false Line end
+% /LPutVar [ xB1 yB1 xA2 yA2 xA1 yA1 ] cvx def
+% /LPutPos { LPutLines } def
+% /HPutPos { HPutLines } def
+% /VPutPos { VPutLines } def
+} def
+%
+/NCLoop {
+ GetEdgeA GetEdgeB GetArmA GetArmB
+ /mtrx AngleA matrix rotate def
+ xA2 yA2 mtrx transform loopsize add /yA3 ED /xA3 ED
+ /xB3 xB2 yB2 mtrx transform pop def
+ xB3 yA3 mtrx itransform /yB3 ED /xB3 ED
+ xA3 yA3 mtrx itransform /yA3 ED /xA3 ED
+ mark ArmB 0 ne { xB1 yB1 } if
+ xB2 yB2 xB3 yB3 xA3 yA3 xA2 yA2 ArmA 0 ne { xA1 yA1 } if
+ tx@Dict begin false Line end
+ /LPutVar [ xB1 yB1 xB2 yB2 xB3 yB3 xA3 yA3 xA2 yA2 xA1 yA1 ] cvx def
+ /LPutPos { LPutLines } def
+ /HPutPos { HPutLines } def
+ /VPutPos { VPutLines } def
+} def
+%
+% DG/SR modification begin - May 9, 1997 - Patch 1
+%/NCCircle { 0 0 NodesepA nodeA \tx@GetEdge pop xA sub 2 div dup 2 exp r
+%r mul sub abs sqrt atan 2 mul /a ED r AngleA 90 add PtoC yA add exch xA add
+%exch 2 copy /LPutVar [ 4 2 roll r AngleA ] cvx def /LPutPos { LPutVar t 360
+%mul add dup 5 1 roll 90 sub \tx@PtoC 3 -1 roll add /Y ED add /X ED /NAngle ED
+%
+/NCCircle {
+ NodeSepA 0 NodeA 0 GetEdge pop
+ 2 div dup 2 exp r r mul sub abs sqrt
+ atan 2 mul /a ED
+ r AngleA 90 add PtoC yA add exch xA add
+ exch 2 copy
+ /LPutVar [ 4 2 roll r AngleA ] cvx def
+ /LPutPos {
+ LPutVar t 360 mul add dup 5 1 roll 90 sub PtoC
+ 3 -1 roll add
+ /Y ED add /X ED /NAngle ED
+% DG/SR modification end
+ } def
+ /HPutPos { LPutPos } def
+ /VPutPos { LPutPos } def
+ r AngleA 90 sub a add AngleA 270 add a sub
+ tx@Dict begin
+ /angleB ED /angleA ED /r ED
+ /c 57.2957 r Div def
+ /y ED /x ED
+} def
+%
+/NCBox {
+ /d ED /h ED
+ /AngleB yB yA sub xB xA sub Atan def
+ /AngleA AngleB 180 add def
+ GetEdgeA GetEdgeB
+ /dx d AngleB sin mul def
+ /dy d AngleB cos mul neg def
+ /hx h AngleB sin mul neg def
+ /hy h AngleB cos mul def
+ /LPutVar [
+ xA1 hx add yA1 hy add xB1 hx add yB1 hy add
+ xB1 dx add yB1 dy add xA1 dx add yA1 dy add ] cvx def
+ /LPutPos { LPutLines } def
+ /HPutPos { xB yB xA yA LPutLine } def
+ /VPutPos { HPutPos } def
+ mark
+ LPutVar tx@Dict begin false Polygon end
+} def
+%
+/NCArcBox {
+ /l ED neg /d ED /h ED /a ED
+ /AngleA yB yA sub xB xA sub Atan def
+ /AngleB AngleA 180 add def
+ /tA AngleA a sub 90 add def
+ /tB tA a 2 mul add def
+ /r xB xA sub tA cos tB cos sub Div dup 0 eq { pop 1 } if def
+ /x0 xA r tA cos mul add def
+ /y0 yA r tA sin mul add def
+ /c 57.2958 r div def
+ /AngleA AngleA a sub 180 add def
+ /AngleB AngleB a add 180 add def
+ GetEdgeA GetEdgeB
+ /AngleA tA 180 add yA yA1 sub xA xA1 sub Pyth c mul sub def
+ /AngleB tB 180 add yB yB1 sub xB xB1 sub Pyth c mul add def
+ l 0 eq {
+ x0 y0 r h add AngleA AngleB arc x0 y0 r d add AngleB AngleA arcn
+ }{
+ x0 y0 translate
+ /tA AngleA l c mul add def
+ /tB AngleB l c mul sub def
+ 0 0 r h add tA tB arc r h add
+ AngleB PtoC r d add
+ AngleB PtoC 2 copy
+ 6 2 roll l arcto 4 { pop } repeat
+ r d add tB PtoC l arcto 4 { pop } repeat
+ 0 0 r d add tB tA arcn r d add
+ AngleA PtoC r h add
+ AngleA PtoC 2 copy 6 2 roll
+ l arcto 4 { pop } repeat
+ r h add tA PtoC l arcto 4 { pop } repeat
+ } ifelse
+ closepath
+ /LPutVar [ x0 y0 r AngleA AngleB h d ] cvx def
+ /LPutPos {
+ LPutVar /d ED /h ED
+ /AngleB ED /AngleA ED
+ /r ED /y0 ED /x0 ED
+ t 1 le {
+ r h add AngleA 1 t sub mul AngleB t mul add dup 90 add /NAngle ED PtoC
+ }{t 2 lt {
+ /NAngle AngleB 180 add def r 2 t sub
+ h mul t 1 sub d mul add add AngleB PtoC
+ }{
+ t 3 lt {
+ r d add AngleB 3 t sub mul AngleA 2 t sub
+ mul add dup 90 sub /NAngle ED PtoC
+ }{
+ /NAngle AngleA 180 add def
+ r 4 t sub d mul t 3 sub h mul add add AngleA PtoC
+ } ifelse
+ } ifelse
+ } ifelse
+ y0 add /Y ED x0 add /X ED
+ } def
+ /HPutPos { LPutPos } def
+ /VPutPos { LPutPos } def
+} def
+%
+/Tfan { /AngleA yB yA sub xB xA sub Atan def GetEdgeA w xA1 xB sub yA1 yB
+sub Pyth Pyth w Div CLW 2 div mul 2 div dup AngleA sin mul yA1 add /yA1
+ED AngleA cos mul xA1 add /xA1 ED /LPutVar [ xA1 yA1 m { xB w add yB xB
+w sub yB } { xB yB w sub xB yB w add } ifelse xA1 yA1 ] cvx def /LPutPos
+{ LPutLines } def /VPutPos@ { LPutVar flag { 8 4 roll pop pop pop pop }
+{ pop pop pop pop 4 2 roll } ifelse } def /VPutPos { VPutPos@ VPutLine }
+def /HPutPos { VPutPos@ HPutLine } def mark LPutVar tx@Dict begin
+/ArrowA { moveto } def /ArrowB { } def false Line closepath end } def
+%
+/LPutCoor {
+ NAngle
+ tx@Dict begin /NAngle ED end
+ gsave
+ CM STV
+ CP Y sub neg exch X sub neg exch moveto
+ setmatrix CP
+ grestore
+} def
+%
+/LPut {
+ tx@NodeDict /LPutPos known
+ { LPutPos } { CP /Y ED /X ED /NAngle 0 def } ifelse
+ LPutCoor
+} def
+%
+/HPutAdjust {
+ Sin Cos mul 0 eq
+ { 0 }
+ { d Cos mul Sin div flag not { neg } if
+ h Cos mul Sin div flag { neg } if
+ 2 copy gt { pop } { exch pop } ifelse
+ } ifelse
+ s add flag { r add neg }{ l add } ifelse
+ X add /X ED
+} def
+%
+/VPutAdjust {
+ Sin Cos mul
+ 0 eq
+ { 0 }
+ { l Sin mul Cos div flag { neg } if
+ r Sin mul Cos div flag not { neg } if
+ 2 copy gt { pop } { exch pop } ifelse
+ } ifelse
+ s add flag { d add } { h add neg } ifelse
+ Y add /Y ED
+} def
+%
+%
+end
+%
+% END pst-node.pro
+
+%%EndProcSet
+%%BeginProcSet: pst-math.pro 0 0
+% -*- Mode: Postscript -*-
+% pst-math.pro --- PostScript header file pst-math.pro
+%
+% Author : Christophe JORSSEN
+% Author : Herbert Voß <hvoss@tug.org>
+% Created the : Sat 20 March 2004
+% Last Mod : $Date: 2010/10/02 $
+% Version : 0.62 $
+%
+/PI 3.14159265359 def
+/ENeperian 2.71828182846 def
+%
+/DegToRad {PI mul 180 div} bind def
+/RadToDeg {180 mul PI div} bind def
+%
+/COS {RadToDeg cos} bind def
+/SIN {RadToDeg sin} bind def
+/TAN {dup SIN exch COS Div} bind def
+/tan {dup sin exch cos Div} bind def
+/ATAN {neg -1 atan 180 sub DegToRad} bind def
+/ACOS {dup dup mul neg 1 add sqrt exch atan DegToRad} bind def
+/acos {dup dup mul neg 1 add sqrt exch atan} bind def
+/ASIN {neg dup dup mul neg 1 add sqrt neg atan 180 sub DegToRad} bind def
+/asin {neg dup dup mul neg 1 add sqrt neg atan 180 sub} bind def
+%
+/EXP {ENeperian exch exp} bind def
+%
+/COSH {dup EXP exch neg EXP add 2 div} bind def
+/SINH {dup EXP exch neg EXP sub 2 div} bind def
+/TANH {dup SINH exch COSH div} bind def
+/ACOSH {dup dup mul 1 sub sqrt add ln} bind def
+/ASINH {dup dup mul 1 add sqrt add ln} bind def
+/ATANH {dup 1 add exch neg 1 add Div ln 2 div} bind def
+%
+%/SINC {dup SIN exch Div} bind def
+/SINC { dup 0 eq { pop 1 } { dup SIN exch div } ifelse } bind def
+
+/GAUSS {dup mul 2 mul dup 4 -2 roll sub dup mul exch div neg EXP exch PI mul sqrt div} bind def
+%
+/GAMMA { 2 dict begin % hv 2007-08-30
+ /z exch def
+ 1.000000000190015 % p(0)
+ 0 1 5 { % on stack is 0 1 2 3 4 5
+ dup % n-1 n-1
+ [ 76.18009172947146
+ -86.50532032941677
+ 24.0140982483091
+ -1.231739572450155
+ 0.1208650973866179E-2
+ -0.5395239384953E-5 ] exch get exch % p(n) n-1
+ 1 add z add div % p(n)/(z+n)
+ add % build the sum
+ } for
+ Pi 2 mul sqrt z div mul
+ z 5.5 add z 0.5 add exp mul ENeperian z 5.5 add neg exp mul
+ end } bind def
+%
+/GAMMALN {dup dup dup 5.5 add dup ln 3 -1 roll .5 add mul sub neg 1.000000000190015
+ 0 1 5 {
+ [76.18009172947146 -86.50532032941677 24.0140982483091 -1.231739572450155
+ .1208650973866179E-2 -.5395239384953E-5 2.5066282746310005] exch get
+ 4 -1 roll 1 add dup 5 1 roll div add} for
+ 4 -1 roll div 2.5066282746310005 mul ln add exch pop} bind def
+/BETA {2 copy add GAMMALN neg exch GAMMALN 3 -1 roll GAMMALN EXP} bind def
+%
+/HORNER {aload length
+ dup 2 add -1 roll
+ exch 1 sub {
+ dup 4 1 roll
+ mul add exch
+ } repeat
+ pop
+} bind def
+%
+/BESSEL_J0 {dup abs 8 lt {
+ dup mul dup [57568490574 -13362590354 651619640.7 -11214424.18 77392.33017 -184.9052456] HORNER
+ exch [57568490411 1029532985 9494680.718 59272.64853 267.8532712 1] HORNER
+ Div}
+ {abs dup .636619772 exch div sqrt exch dup .785398164 sub exch 8 exch div dup dup mul dup
+ [1 -1.098628627E-2 .2734510407E-4 -.2073370639E-5 .2093887211E-6] HORNER
+ 3 index COS mul
+ exch [-.1562499995E-1 .1430488765E-3 -.6911147651E-5 .7621095161E-6 -.934945152E-7] HORNER
+ 4 -1 roll SIN mul 3 -1 roll mul neg add mul}
+ ifelse} bind def
+%
+/BESSEL_Y0 {dup 8 lt {
+ dup dup mul dup [-2957821389 7062834065 -512359803.6 10879881.29 -86327.92757 228.4622733] HORNER
+ exch [40076544269 745249964.8 7189466.438 47447.26470 226.1030244 1] HORNER
+ Div exch dup ln exch BESSEL_J0 .636619772 mul mul add}
+ {dup .636619772 exch div sqrt exch dup .785398164 sub exch 8 exch div dup dup mul dup
+ [1 -.1098628627E-2 .2734510407E-4 -.2073370639E-5 .2093887211E-6] HORNER
+ 3 index SIN mul
+ exch [-.1562499995E-1 .1430488765E-3 -.6911147651E-5 .7621095161E-6 -.934945152E-7] HORNER
+ 4 -1 roll COS mul 3 -1 roll mul add mul}
+ ifelse} bind def
+%
+/BESSEL_J1 {dup abs 8 lt {
+ dup dup mul dup 3 -2 roll [72362614232 -7895059235 242396853.1 -2972611.439 15704.48260 -30.16036606] HORNER mul
+ exch [144725228442 2300535178 18583304.74 99447.43394 376.9991397 1] HORNER
+ Div}
+ {dup abs dup .636619772 exch div sqrt exch dup 2.356194491 sub exch 8 exch div dup dup mul dup
+ [1 .183105E-2 -.3516396496E-4 .2457520174E-5 -.240337019E-6] HORNER
+ 3 index COS mul
+ exch [.04687499995 6.2002690873E-3 .8449199096E-5 -.88228987E-6 .105787412E-6] HORNER
+ 4 -1 roll SIN mul 3 -1 roll mul neg add mul exch dup abs Div mul}
+ ifelse} bind def
+%
+/BESSEL_Y1 {dup 8 lt {
+ dup dup dup mul dup [-.4900604943E13 .1275274390E13 -.5153428139E11 .7349264551E9 -.4237922726E7 .8511937935E4] HORNER
+ exch [.2499580570E14 .4244419664E12 .3733650367E10 .2245904002E8 .1020426050E6 .3549632885E3 1] HORNER
+ Div mul exch dup dup ln exch BESSEL_J1 mul exch 1 exch div sub .636619772 mul add}
+ {dup .636619772 exch div sqrt exch dup 2.356194491 sub exch 8 exch div dup dup mul dup
+ [1 .183105E-2 -.3516396496E-4 .2457520174E-5 -.240337019E-6] HORNER
+ 3 index SIN mul
+ exch [.04687499995 -.2002690873E-3 .8449199096E-5 6.88228987E-6 .105787412E-6] HORNER
+ 4 -1 roll COS mul 3 -1 roll mul add mul}
+ ifelse} bind def
+%
+% En cours...
+/BESSEL_Yn {dup 0 eq {pop BESSEL_Y0}{dup 1 eq {pop BESSEL_Y1}{
+ exch dup BESSEL_Y0 exch dup BESSEL_Y1 exch 2 exch Div {
+ mul 3 -1 roll mul 2 index sub pstack} for
+ } ifelse } ifelse } bind def
+%
+/SIMPSON { 1 dict begin %% on stack a b var f ierr Dominik Rodriguez
+ 3 index 5 index sub % compute h
+ 1 % a b var f ierr h n
+ 4 index 7 index def 3 index exec % a b var f ierr h n f(a)
+ 5 index 7 index def 4 index exec add % a b var f ierr h n f(a)+f(b)
+ 5 index 8 index 4 index 2 div add def 4 index exec % a b var f ierr h n f(a)+f(b) f(a+h/2)
+ exch 1 index 4 mul add 0 % a b var f ierr h n old=f(a+h/2) Estim=f(a)+f(b)+4f(a+h/2) NbLoop
+ { % a b var f ierr h n old Estim NbLoop
+ 5 -1 roll 2 div dup 6 1 roll % h<-h/2
+ 5 -1 roll 2 mul 5 1 roll % n<-2n
+ % a b var f ierr h n old Estim NbLoop h
+ 2 div 10 index add 0 % a b var f ierr h n old Estim NbLoop a+h/2 Cumul
+ 5 index {
+ 1 index 10 index exch def 8 index exec add exch 6 index add exch
+ } repeat % a b var f ierr h n old Estim NbLoop a+nh/2 Cumul
+ exch pop % a b var f ierr h n old Estim NbLoop New
+ 2 index 1 index 4 mul 6 -1 roll 2 mul sub sub % a b var f ierr h n Estim NbLoop New Diff
+ 4 -1 roll 2 mul 1 index sub 4 1 roll % a b var f ierr h n Estim NbLoop New Diff
+ exch 4 1 roll % a b var f ierr h n old Estim NbLoop Diff
+ 5 index 6 div mul abs 6 index lt { exit } if
+ 1 add dup 9 eq { exit } if
+ } loop % a b var f ierr h n old Estim NbLoop
+ exch 5 -1 roll 6 div mul mark 10 2 roll cleartomark
+end
+} def
+% ------------------------------------ math stuff ----------------------------------
+%
+% Matrix A in arrays of rows A[[row1][row2]...]
+% with [row1]=[a11 a12 ... b1]
+% returns on stack solution vector X=[x1 x2 ... xn]
+/SolveLinEqSystem { % on stack matrix M=[A,b] (A*x=b)
+ 10 dict begin % hold all ocal
+ /A exch def
+ /Rows A length def % Rows = number of rows
+ /Cols A 0 get length def % Cols = number of columns
+ /Index [ 0 1 Rows 1 sub { } for ] def % Index = [0 1 2 ... Rows-1]
+ /col 0 def
+ /row 0 def
+ /PR Rows array def % PR[c] = pivot row for row row
+ { % starts the loop, find pivot entry in row r
+ col Cols ge row Rows ge or { exit } if % col < Cols and row < Rows else exit
+ /pRow row def % pRow = pivot row
+ /max A row get col get abs def % get A[row[col]], first A[0,0]
+ row 1 add 1 Rows 1 sub { % starts for loop 1 1 Rows-1
+ /j exch def % index counter
+ /x A j get col get abs def % get A[j[r]]
+ x max gt { % x>max, then save position
+ /pRow j def
+ /max x def
+ } if
+ } for % now we have the row with biggest A[0,1]
+ % with pRow = the pivot row
+ max 0 gt { % swap entries pRow and row in i
+ /tmp Index row get def
+ Index row Index pRow get put
+ Index pRow tmp put % and columns pRow and row in A
+ /tmp A row get def
+ A row A pRow get put
+ A pRow tmp put % pivot
+ /row0 A row get def % the pivoting row
+ /p0 row0 col get def % the pivot value
+ row 1 add 1 Rows 1 sub { % start for loop
+ /j exch def
+ /c1 A j get def
+ /p c1 col get p0 div def
+ c1 col p put % subtract (p1/p0)*row[i] from row[j]
+ col 1 add 1 Cols 1 sub { % start for loop
+ /i exch def
+ c1 dup i exch % c1 i c1
+ i get row0 i get p mul sub put
+ } for
+ } for
+ PR row col put
+ /col col 1 add def
+ /row row 1 add def
+ }{ % all zero entries
+ /row row 1 add def % continue loop with same row
+ } ifelse
+ } loop
+ /X A def % solution vector
+ A Rows 1 sub get dup
+ Cols 1 sub get exch
+ Cols 2 sub get div
+ X Rows 1 sub 3 -1 roll put % X[n]
+ Rows 2 sub -1 0 { % for loop to calculate X[i]
+ /xi exch def % current index
+ A xi get % i-th row
+ /Axi exch def
+ /sum 0 def
+ Cols 2 sub -1 xi 1 add {
+ /n exch def
+ /sum sum Axi n get X n get mul add def
+ } for
+ Axi Cols 1 sub get % b=Axi[Cols-1]
+ sum sub % b-sum
+ Axi xi get div % b-sum / Axi[xi]
+ X xi 3 -1 roll put % X[xi]
+ } for
+ X
+ end
+} def
+%
+/c@_0 2.515517 def
+/c@_1 0.802853 def
+/c@_2 0.010328 def
+/d@_1 1.432788 def
+/d@_2 0.189269 def
+/d@_3 0.001308 def
+/norminv {
+ 5 dict begin
+ neg 1 add 1 exch div ln 2 mul sqrt
+ /t exch def
+ /t2 t dup mul def
+ /t3 t2 t mul def
+ c@_0 c@_1 t mul add c@_2 t2 mul add 1 d@_1 t mul add
+ d@_2 t2 mul add d@_3 t3 mul add div neg t add
+ end
+} def
+%end{norminv Michael Sharpe}
+%
+%
+% END pst-math.pro
+
+%%EndProcSet
+%%BeginProcSet: pst-3d.pro 0 0
+%% $Id: pst-3d.pro 247 2010-01-04 22:45:42Z herbert $
+% PostScript prologue for pst-3d.tex.
+% Version 0.01, 2010/01/01
+%
+/tx@3Ddict 300 dict def
+tx@3Ddict begin
+%
+/SetMatrixThreeD {
+ dup sin /e ED cos /f ED
+ /p3 ED /p2 ED /p1 ED
+ p1 0 eq
+ { /a 0 def /b p2 0 le { 1 } { -1 } ifelse def
+ p3 p2 abs
+ }
+ { p2 0 eq
+ { /a p1 0 lt { -1 } { 1 } ifelse def /b 0 def
+ p3 p1 abs
+ }
+ { p1 dup mul p2 dup mul add sqrt dup
+ p1 exch div /a ED
+ p2 exch div neg /b ED
+ p3 p1 a div
+ }
+ ifelse
+ }
+ ifelse
+ atan dup sin /c ED cos /d ED
+ /Matrix3D
+ [
+ b f mul c a mul e mul sub
+ a f mul c b mul e mul add
+ d e mul
+ b e mul neg c a mul f mul sub
+ a e mul neg c b mul f mul add
+ d f mul
+ ] def
+} def
+%
+/ProjThreeD {
+ /z ED /y ED /x ED
+ Matrix3D aload pop
+ z mul exch y mul add exch x mul add
+ 4 1 roll
+ z mul exch y mul add exch x mul add
+ exch
+} def
+%
+/SetMatrixEmbed {
+ SetMatrixThreeD
+ Matrix3D aload pop
+ /z3 ED /z2 ED /z1 ED /x3 ED /x2 ED /x1 ED
+ SetMatrixThreeD
+ [
+ Matrix3D aload pop
+ z3 mul exch z2 mul add exch z1 mul add 4 1 roll
+ z3 mul exch z2 mul add exch z1 mul add
+ Matrix3D aload pop
+ x3 mul exch x2 mul add exch x1 mul add 4 1 roll
+ x3 mul exch x2 mul add exch x1 mul add
+ 3 -1 roll 3 -1 roll 4 -1 roll 8 -3 roll 3 copy
+ x3 mul exch x2 mul add exch x1 mul add 4 1 roll
+ z3 mul exch z2 mul add exch z1 mul add
+ ]
+ concat
+} def
+%
+/TMSave {
+ tx@Dict /TMatrix known not { /TMatrix { } def /RAngle { 0 } def } if
+ /TMatrix [ TMatrix CM ] cvx def
+} def
+%
+/TMRestore { CP /TMatrix [ TMatrix setmatrix ] cvx def moveto } def
+%
+/TMChange {
+ TMSave
+ /cp [ currentpoint ] cvx def % ??? Check this later.
+ CM
+ CP T STV
+ CM matrix invertmatrix % Inv(M')
+ matrix concatmatrix % M Inv(M')
+ exch exec
+ concat cp moveto
+} def
+%
+end % of tx@3Ddict
+%%
+%% End of file `pst-3d.pro'.
+
+%%EndProcSet
+%%BeginProcSet: pstricks-add.pro 0 0
+%% $Id: pstricks-add.pro 328 2010-05-24 15:56:43Z herbert $
+% PostScript prologue for pstricks-add.tex.
+% Version 0.23, 2009/12/17
+%
+/tx@addDict 410 dict def tx@addDict begin
+%%
+realtime srand % set random generator
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+/GTriangle {
+ gsave
+ /mtrx CM def
+ /colorA ED /colorB ED /colorC ED % save the colors
+ /yA ED /xA ED % save the origin
+ xA yA translate
+ rotate % \psk@gangle
+ /yB ED /xB ED /yC ED /xC ED % save other coordinates
+ /ds [ % save data in a array
+ 0 0 0 colorA aload pop % fd x y xr xg xb
+ 0 xB xA sub yB yA sub colorB aload pop
+ 0 xC xA sub yC yA sub colorC aload pop
+% 1 xC xB add yB colorA aload pop % for use with 4 points ABCD
+ ] def
+ newpath
+ <<
+ /ShadingType 4 % single Gouraud
+ /ColorSpace [ /DeviceRGB ]
+ /DataSource ds
+ >>
+ shfill
+ closepath
+ mtrx
+ setmatrix grestore} def
+%
+/RGBtoCMYK { % on stack r g b -> C M Y K
+ 3 dict begin
+ /Blue ED /Green ED /Red ED
+ 1 Red sub % Cyan
+ 1 Green sub % Magenta
+ 1 Blue sub % Yellow
+ 0 % Black
+ end
+} def
+%
+/CMYKtoGRAY { % on stack c m y k -> gray
+ exch 0.11 mul add
+ exch 0.59 mul add
+ exch 0.3 mul add
+ dup 1 gt { pop 1 } if
+ neg 1 add
+} def
+%
+/RGBtoGRAY { % on stack r g b -> gray
+ 0.11 mul
+ exch 0.59 mul add
+ exch 0.3 mul add
+} def
+%
+/HSBtoGRAY {
+ 6 dict begin
+ /b exch def
+ /s exch def 6 mul dup cvi dup
+ /i exch def sub
+ /f exch def
+ /F [[0 1 f sub 1][f 0 1][1 0 1 f sub][1 f 0][1 f sub 1 0][0 1 f][0 1 1]] def
+ F i get { s mul neg 1 add b mul} forall
+ 0.11 mul
+ exch 0.59 mul add
+ exch 0.3 mul add
+ end
+} def
+%
+%% convertisseur longueur d'onde ->R,G,B Manuel Luque
+%% lambda max=780 nanometres
+%% lambda min=380 nanometres
+%% adaptation de :
+%% http://www.physics.sfasu.edu/astro/color.html
+%% www.efg2.com/lab
+%
+/Gamma 0.8 def
+/calculateRGB {
+ lambda 379 le {/Red 0 def /Green 0 def /Blue 0 def} if
+ lambda 781 ge {/Red 0 def /Green 0 def /Blue 0 def} if
+ lambda 380 ge {lambda 439 le {
+ /R {lambda 440 sub neg 440 380 sub div} def
+ /Red R factor mul Gamma exp def
+ /G 0 def
+ /Green G factor mul Gamma exp def
+ /B 1 def
+ /Blue B factor mul Gamma exp def} if
+ } if
+ lambda 440 ge { lambda 489 le {
+ /G {lambda 440 sub 490 440 sub div} def
+ /Green G factor mul Gamma exp def
+ /R 0 def /Red 0 def
+ /B 1 def
+ /Blue B factor mul Gamma exp def } if
+ } if
+ lambda 490 ge {lambda 509 le {
+ /B {lambda 510 sub neg 510 490 sub div} def
+ /Blue B factor mul Gamma exp def
+ /R 0 def /Red 0 def
+ /G 1 def
+ /Green G factor mul Gamma exp def } if
+ } if
+ lambda 510 ge {lambda 579 le {
+ /R {lambda 510 sub 580 510 sub div } def
+ /Red R factor mul Gamma exp def
+ /Blue 0 def
+ /G 1 def
+ /Green G factor mul Gamma exp def } if
+ } if
+ lambda 580 ge {lambda 644 le {
+ /G {lambda 645 sub neg 645 580 sub div } def
+ /Green G factor mul Gamma exp def
+ /Blue 0 def
+ /R 1 def
+ /Red R factor mul Gamma exp def } if
+ } if
+ lambda 645 ge { lambda 780 le {
+ /Red 1 factor mul Gamma exp def
+ /Blue 0 def
+ /Green 0 def } if
+ } if
+} def
+%
+/factor {
+ lambda 380 ge {lambda 419 le { 0.3 0.7 lambda 380 sub mul 420 380 sub div add} if } if
+ lambda 420 ge {lambda 700 le { 1 } if } if
+ lambda 701 ge {lambda 780 le { 0.3 0.7 780 lambda sub mul 780 700 sub div add} if } if
+} def
+%
+/wavelengthToRGB { % the wavelength in nm must be on top of the stack
+ cvi /lambda exch def % no floating point here
+ calculateRGB
+} def % now the colors are saved in Red Green Blue
+%
+/wavelengthToGRAY { % the wavelength in nm must be on top of the stack
+ cvi /lambda exch def % no floating point here
+ calculateRGB
+ Red Green Blue RGBtoGRAY
+} def % now the gray color is on the stack
+%
+/wavelengthToCMYK { % the wavelength in nm must be on top of the stack
+ cvi /lambda exch def % no floating point here
+ gsave
+ calculateRGB Red Green Blue RGBtoCMYK
+ /Black ED /Yellow ED /Magenta ED /Cyan ED
+ grestore
+} def % now the colors are saved in Cyan Magenta Yellow Black
+%
+/axfill {
+ 8 dict begin
+ /xw exch def /nl exch def
+ /C1 exch def /y1 exch def/x1 exch def
+ /C0 exch def /y0 exch def/x0 exch def
+ << /ShadingType 2
+ /ColorSpace /DeviceRGB
+ /Coords [ x0 y0 x1 y1 ]
+ /EmulatorHints [ xw 2 div dup ]
+ /Function <<
+ /FunctionType 2
+ /Domain [0 1]
+ /C0 C0
+ /C1 C1
+ /N 1
+ >>
+ >> shfill
+ end
+} bind def
+%
+%/amplHand {.8} def
+%/dtHand 2 def
+/varHand { rand sin amplHand mul add } def
+/MovetoByHand { moveto } def
+%/MovetoByHand { /y0 ED /x0 ED x0 y0 moveto } def
+/LinetoByHand { 4 dict begin
+ /y1 ED /x1 ED
+ currentpoint /y0 ED /x0 ED
+ x0 x1 sub dup mul y0 y1 sub dup mul add sqrt /dEnd ED
+ 0 dtHand dEnd { dup
+ x1 x0 sub mul dEnd div x0 add varHand exch
+ y1 y0 sub mul dEnd div y0 add varHand lineto
+ } for
+% /x0 x1 def /y0 y1 def
+ end
+} def
+%
+end
+%
+% END pstricks-add.pro
+
+%%EndProcSet
+%%BeginProcSet: pst-func.pro 0 0
+%% $Id: pst-func.pro 355 2010-06-21 10:02:44Z herbert $
+%%
+%% This is file `pst-func.pro',
+%%
+%% IMPORTANT NOTICE:
+%%
+%% Package `pst-func'
+%%
+%% Herbert Voss <hvoss@tug.org>
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%%
+%% DESCRIPTION:
+%% `pst-func' is a PSTricks package to plot special math functions
+%%
+%%
+%% version 0.13 / 2010-06-21 Herbert Voss
+%
+/tx@FuncDict 100 dict def
+tx@FuncDict begin
+%
+/eps1 1.0e-05 def
+/eps2 1.0e-04 def
+/eps8 1.0e-08 def
+/Pi2 1.57079632679489661925640 def
+/CEuler 0.5772156649 def % Euler-Mascheroni constant
+%
+/factorial { % n on stack, returns n!
+ dup 0 eq { 1 }{
+ dup 1 gt { dup 1 sub factorial mul } if }
+ ifelse } def
+%
+/MoverN { % m n on stack, returns the binomial coefficient m over n
+ 2 dict begin
+ /n exch def /m exch def
+ n 0 eq { 1 }{
+ m n eq { 1 }{
+ m factorial n factorial m n sub factorial mul div } ifelse } ifelse
+ end
+} def
+%
+/Pascal [
+ [ 1 ] % 0
+ [ 1 1 ] % 1
+ [ 1 2 1 ] % 2
+ [ 1 3 3 1 ] % 3
+ [ 1 4 6 4 1 ] % 4
+ [ 1 5 10 10 5 1 ] % 5
+ [ 1 6 15 20 15 6 1 ] % 6
+ [ 1 7 21 35 35 21 7 1 ] % 7
+ [ 1 8 28 56 70 56 28 8 1 ] % 8
+ [ 1 9 36 84 126 126 84 36 9 1 ] % 9
+] def
+%
+/GetBezierCoor { % t on stack
+ 10 dict begin % hold all local
+ /t ED
+ /t1 1 t sub def % t1=1-t
+ /Coeff Pascal BezierType get def % get the coefficients
+ 0 0 % initial values for x y
+ BezierType -1 0 { % BezierType,...,2,1,0
+ /I ED % I=BezierType,...,2,1,0
+ /J BezierType I sub def % J=0,1,2,...,BezierType
+ /T t I exp Coeff J get mul def % coeff(J)*t^I
+ /T1 t1 J exp def % t1^J
+ Points I dup add 1 add get % y(2*I+1)
+ T mul T1 mul add % the y coordinate
+ exch % y x
+ Points I dup add get % x(2*I)
+ T mul T1 mul add % the x coordinate
+ exch % x y
+ } for % x y on stack
+ end
+} def
+%
+/BezierCurve { % on stack [ coors psk@plotpoints BezierType
+% 10 dict begin
+ /BezierType ED
+ 1 exch div /epsilon ED
+ ] /Points ED % yi xi ... y3 x3 y2 x2 y1 x1 y0 x0
+ epsilon GetBezierCoor % next Bezier point
+ Points 0 get Points 1 get % starting point
+ ArrowA moveto
+ epsilon epsilon 1 {
+ /t ED
+ t GetBezierCoor
+ t 0.9999 lt { lineto }{ 1 epsilon sub GetBezierCoor 4 2 roll ArrowB pop pop pop pop } ifelse
+ } for
+% end
+} def
+%
+/Bernstein { % on stack tStart tEnd plotpoints i n
+ 12 dict begin % hold all local
+ /envelope ED % plot envelope?
+ /n ED
+ /i ED
+ /ni n i sub def
+ /epsilon ED % step=1/plotpoints
+ /tEnd ED
+ /tStart ED
+%
+% B_{i,n}(t)=\binom{n}{i}t^i(1-t)^{n-i} (Bernstein)
+% f_n(x)=\frac{1}{\sqrt{\pi n\cdot x(1-x)}} (envelope)
+%
+ n i MoverN /noveri ED % \binom{n}{i}
+ [ % for the array of points
+ tStart epsilon tEnd {
+ dup dup /t ED % leave one on stack
+ neg 1 add /t1 ED % t1=1-t
+ envelope
+ { t t1 mul 4 mul Pi2 mul n mul sqrt 1 exch Div } % envelope
+ { noveri t i exp mul t1 ni exp mul } ifelse % t f(t)
+ ScreenCoor % convert to screen coor
+ } for
+ end
+ false /Lineto /lineto load def Line
+} def
+%
+/Si { % integral sin from 0 to x (arg on stack)
+ /arg exch def
+ /Sum arg def
+ /sign -1 def
+ /index 3 def
+ {
+ arg index exp index div index factorial div sign mul
+ dup abs eps8 lt { pop exit } if
+ Sum add /Sum exch def
+ /sign sign neg def
+ /index index 2 add def
+ } loop
+ Sum
+} def
+/si { % integral sin from x to infty -> si(x)=Si(x)-pi/2
+ Si Pi2 sub
+} def
+/Ci { % integral cosin from x to infty (arg on stack)
+ abs /arg exch def
+ arg 0 eq { 0 } {
+ /argExp 1 def
+ /fact 1 def
+ /Sum CEuler arg ln add def
+ /sign -1 def
+ /index 2 def
+ {
+ /argExp argExp arg arg mul mul def
+ /fact fact index 1 sub index mul mul def
+ argExp index div fact div sign mul
+ dup abs exch Sum add /Sum exch def
+ eps8 lt { exit } if
+ /sign sign neg def
+ /index index 2 add def
+ } loop
+ Sum
+ } ifelse
+} def
+/ci { % integral cosin from x to infty -> ci(x)=-Ci(x)+ln(x)+CEuler
+ dup Ci neg exch abs ln add CEuler add
+} def
+%
+/MaxIter 255 def
+/func { coeff Derivation FuncValue } def
+/func' { coeff Derivation 1 add FuncValue } def
+/func'' { coeff Derivation 2 add FuncValue } def
+%
+/NewtonMehrfach {% the start value must be on top of the stack
+ /Nx exch def
+ /Iter 0 def
+ {
+ /Iter Iter 1 add def
+ Nx func /F exch def % f(Nx)
+ F abs eps2 lt { exit } if
+ Nx func' /FS exch def % f'(Nx)
+ FS 0 eq { /FS 1.0e-06 def } if
+ Nx func'' /F2S exch def % f''(Nx)
+ 1.0 1.0 F F2S mul FS dup mul div sub div /J exch def
+ J F mul FS div /Diff exch def
+ /Nx Nx Diff sub def
+ Diff abs eps1 lt Iter MaxIter gt or { exit } if
+ } loop
+ Nx % the returned value ist the zero point
+} def
+
+/Steffensen {% the start value must be on top of the stack
+ /y0 exch def % the start value
+ /Iter 0 def
+ {
+ y0 func /F exch def
+ F abs eps2 lt { exit } if
+ y0 F sub /Phi exch def
+ Phi func /F2 exch def
+ F2 abs eps2 le { exit }{
+ Phi y0 sub dup mul Phi F2 sub 2 Phi mul sub y0 add Div /Diff exch def
+ y0 Diff sub /y0 exch def
+ Diff abs eps1 le { exit } if
+ } ifelse
+ /Iter Iter 1 add def
+ Iter MaxIter gt { exit } if
+ } loop
+ y0 % the returned value ist the zero point
+} def
+%
+/Horner {% x [coeff] must be on top of the stack
+ aload length
+ dup 2 add -1 roll
+ exch 1 sub {
+ dup 4 1 roll
+ mul add exch
+ } repeat
+ pop % the y value is on top of the stack
+} def
+%
+/FuncValue {% x [coeff] Derivation must be on top of the stack
+ {
+ aload % a0 a1 a2 ... a(n-1) [array]
+ length % a0 a1 a2 ... a(n-1) n
+ 1 sub /grad exch def % a0 a1 a2 ... a(n-1)
+ grad -1 1 { % for n=grad step -1 until 1
+ /n exch def % Laufvariable speichern
+ n % a0 a1 a2 ... a(n-1) n
+ mul % a0 a1 a2 ... a(n-1)*n
+ grad 1 add % a0 a1 a2 ... a(n-1)*n grad+1
+ 1 roll % an*na0 a1 a2 ... a(n-2)
+ } for
+ pop % loesche a0
+ grad array astore % [ a1 a2 ... a(n-2)]
+ } repeat
+ Horner
+} def
+%
+/FindZeros { % dxN dxZ must be on top of the stack (x0..x1 the intervall) => []
+ 12 dict begin
+ /dxZ exch def /dxN exch def
+ /pstZeros [] def
+ x0 dxZ x1 { % suche Nullstellen
+ /xWert exch def
+ xWert NewtonMehrfach
+ %xWert Steffensen
+ /xNull exch def
+ pstZeros aload length /Laenge exch def % now test if value is a new one
+ Laenge 0 eq
+ { xNull 1 }
+ { /newZero true def
+ Laenge {
+ xNull sub abs dxN lt { /newZero false def } if
+ } repeat
+ pstZeros aload pop
+ newZero { xNull Laenge 1 add } { Laenge } ifelse } ifelse
+ array astore
+ /pstZeros exch def
+ } for
+ pstZeros % the end array is now on the stack
+ end
+} def
+%
+/Simpson { % on stack must be a b M --- simple version ---
+% /SFunc must be defined
+ /M ED /b ED /a ED
+ /h b a sub M 2 mul div def
+ /s1 0 def
+ /s2 0 def
+ 1 1 M {
+ /k exch def
+ /x k 2 mul 1 sub h mul a add def
+ /s1 s1 x SFunc add def
+ } for
+ 1 1 M 1 sub {
+ /k exch def
+ /x k 2 mul h mul a add def
+ /s2 s2 x SFunc add def
+ } for
+ /I a SFunc b SFunc add s1 4 mul add s2 2 mul add 3 div h mul def
+} def
+%
+/LogGamma { 5 dict begin % z on stack
+ /z ED
+ /sum 0 def
+ /k 1 def
+ {
+ z k div dup 1 add ln sub dup
+ abs eps8 lt { pop exit } if
+ sum add /sum exch def
+ /k k 1 add def
+ } loop
+ sum z ln sub CEuler z mul sub
+ end
+} def
+%
+/ChebyshevT { 5 dict begin % z on stack
+ /xtmp exch def
+ /n exch def
+ 0 0 1 n .5 mul floor {
+ /k exch def
+ xtmp xtmp mul 1 sub k exp
+ xtmp n 2 k mul sub exp mul
+ n 2 k mul MoverN mul
+ add
+ } for
+ end
+} def
+%
+/ChebyshevU {5 dict begin % z on stack
+ /xtmp exch def
+ /n exch def
+ 0 0 1 n .5 mul floor {
+ /k exch def
+ xtmp xtmp mul 1 sub k exp
+ xtmp n 2 k mul sub exp mul
+ n 1 add 2 k mul 1 add MoverN mul
+ add
+ } for
+ end
+} def
+%
+% subroutines for complex numbers, given as an array [a b]
+% which is a+bi = Real+i Imag
+%
+/cxadd { % [a1 b1] [a2 b2] = [a1+a2 b1+b2]
+ dup 0 get % [a1 b1] [a2 b2] a2
+ 3 -1 roll % [a2 b2] a2 [a1 b1]
+ dup 0 get % [a2 b2] a2 [a1 b1] a1
+ 3 -1 roll % [a2 b2] [a1 b1] a1 a2
+ add % [a2 b2] [a1 b1] a1+a2
+ 3 1 roll % a1+a2 [a2 b2] [a1 b1]
+ 1 get % a1+a2 [a2 b2] b1
+ exch 1 get % a1+a2 b1 b2
+ add 2 array astore
+} def
+%
+/cxneg { % [a b]
+ dup 1 get % [a b] b
+ exch 0 get % b a
+ neg exch neg % -a -b
+ 2 array astore
+} def
+%
+/cxsub { cxneg cxadd } def % same as negative addition
+%
+% [a1 b1][a2 b2] = [a1a2-b1b2 a1b2+b1a2] = [a3 b3]
+/cxmul { % [a1 b1] [a2 b2]
+ dup 0 get % [a1 b1] [a2 b2] a2
+ exch 1 get % [a1 b1] a2 b2
+ 3 -1 roll % a2 b2 [a1 b1]
+ dup 0 get % a2 b2 [a1 b1] a1
+ exch 1 get % a2 b2 a1 b1
+ dup % a2 b2 a1 b1 b1
+ 5 -1 roll dup % b2 a1 b1 b1 a2 a2
+ 3 1 roll mul % b2 a1 b1 a2 b1a2
+ 5 -2 roll dup % b1 a2 b1a2 b2 a1 a1
+ 3 -1 roll dup % b1 a2 b1a2 a1 a1 b2 b2
+ 3 1 roll mul % b1 a2 b1a2 a1 b2 a1b2
+ 4 -1 roll add % b1 a2 a1 b2 b3
+ 4 2 roll mul % b1 b2 b3 a1a2
+ 4 2 roll mul sub % b3 a3
+ exch 2 array astore
+} def
+%
+% [a b]^2 = [a^2-b^2 2ab] = [a2 b2]
+/cxsqr { % [a b] square root
+ dup 0 get exch 1 get % a b
+ dup dup mul % a b b^2
+ 3 -1 roll % b b^2 a
+ dup dup mul % b b^2 a a^2
+ 3 -1 roll sub % b a a2
+ 3 1 roll mul 2 mul % a2 b2
+ 2 array astore
+} def
+%
+/cxsqrt { % [a b]
+% dup cxnorm sqrt /r exch def
+% cxarg 2 div RadtoDeg dup cos r mul exch sin r mul cxmake2
+ cxlog % log[a b]
+ 2 cxrdiv % log[a b]/2
+ aload pop exch % b a
+ 2.781 exch exp % b exp(a)
+ exch cxconv exch % [Re +iIm] exp(a)
+ cxrmul %
+} def
+%
+/cxarg { % [a b]
+ aload pop % a b
+ exch atan % arctan b/a
+ DegtoRad % arg(z)=atan(b/a)
+} def
+%
+% log[a b] = [a^2-b^2 2ab] = [a2 b2]
+/cxlog { % [a b]
+ dup % [a b][a b]
+ cxnorm % [a b] |z|
+ log % [a b] log|z|
+ exch % log|z|[a b]
+ cxarg % log|z| Theta
+ cxmake2 % [log|z| Theta]
+} def
+%
+% square of magnitude of complex number
+/cxnorm2 { % [a b]
+ dup 0 get exch 1 get % a b
+ dup mul % a b^2
+ exch dup mul add % a^2+b^2
+} def
+%
+/cxnorm { % [a b]
+ cxnorm2 sqrt
+} def
+%
+/cxconj { % conjugent complex
+ dup 0 get exch 1 get % a b
+ neg 2 array astore % [a -b]
+} def
+%
+/cxre { 0 get } def % real value
+/cxim { 1 get } def % imag value
+%
+% 1/[a b] = ([a -b]/(a^2+b^2)
+/cxrecip { % [a b]
+ dup cxnorm2 exch % n2 [a b]
+ dup 0 get exch 1 get % n2 a b
+ 3 -1 roll % a b n2
+ dup % a b n2 n2
+ 4 -1 roll exch div % b n2 a/n2
+ 3 1 roll div % a/n2 b/n2
+ neg 2 array astore
+} def
+%
+/cxmake1 { 0 2 array astore } def % make a complex number, real given
+/cxmake2 { 2 array astore } def % dito, both given
+%
+/cxdiv { cxrecip cxmul } def
+%
+% multiplikation by a real number
+/cxrmul { % [a b] r
+ exch aload pop % r a b
+ 3 -1 roll dup % a b r r
+ 3 1 roll mul % a r b*r
+ 3 1 roll mul % b*r a*r
+ exch 2 array astore % [a*r b*r]
+} def
+%
+% division by a real number
+/cxrdiv { % [a b] r
+ 1 exch div % [a b] 1/r
+ cxrmul
+} def
+%
+% exp(i theta) = cos(theta)+i sin(theta) polar<->cartesian
+/cxconv { % theta
+ RadtoDeg dup sin exch cos cxmake2
+} def
+%
+end
+
+%%EndProcSet
+%%BeginProcSet: pst-3dplot.pro 0 0
+%% $Id: pst-3dplot.pro 236 2009-12-31 08:59:43Z herbert $
+%%
+%% This is file `pst-3dplot.pro',
+%%
+%% IMPORTANT NOTICE:
+%%
+%% Package `pst-3dplot.tex'
+%%
+%% Herbert Voss <voss _at_ PSTricks.de>
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%%
+%% DESCRIPTION:
+%% `pst-3dplot' is a PSTricks package to draw 3d curves and graphical objects
+%%
+%%
+%% version 0.30 / 2010-01-01 Herbert Voss <voss _at_ PSTricks.de>
+%% with contributions of Darrell Lamm <darrell.lamm _at_ gtri.gatech.edu<
+%%
+%
+/tx@3DPlotDict 200 dict def
+tx@3DPlotDict begin
+%
+/printDot { gsave 2 copy 2 0 360 arc fill stroke grestore } def
+%
+/saveCoor {
+ dzUnit mul /z ED
+ dyUnit mul /y ED
+ dxUnit mul /x ED
+} def
+%
+/ConvertTo2D {
+ RotatePoint
+ 1 { % dummy loop, will run only 1 time, allows exit
+ coorType 0 le { % the default |
+ /x2D x leftHanded not { neg } if Alpha cos mul y Alpha sin mul add def % /\ co system
+ /y2D x leftHanded { neg } if Alpha sin mul y Alpha cos mul add neg Beta sin mul z Beta cos mul add def
+ exit } if
+ coorType 1 le {
+ /x2D y x Alpha 90 sub sin mul sub def % |/_ co system, no shortened x axis
+ /y2D z x Alpha 90 sub cos mul sub def
+ exit } if
+ coorType 2 le { % coorType |/_ with a 1/sqrt(2) shortend x-axis and 135 degrees
+ /x2D y x 0.5 mul sub def
+ /y2D z x 0.5 mul sub def
+ exit } if
+ coorType 3 le { % coorType |/_ with a 1/sqrt(2) shortend x-axis and 135 degrees
+ /x2D y x -0.5 mul sub def
+ /y2D z x -0.5 mul sub def
+ exit } if
+ coorType 4 le { % Normalbild in Trimetrie Skalierung so, dass coorType2
+ /x2D x -0.5 mul y 1 mul add def
+ /y2D x -0.5 mul y -0.25 mul add z 1 mul add def
+ exit } if
+ } repeat
+} def
+%
+/Conv3D2D { /z ED /y ED /x ED ConvertTo2D x2D y2D } def
+%
+/ConvertToCartesian {
+ /latitude exch def
+ /longitude exch def
+ /Radius exch def
+ 1 { % dummy loop, will run only 1 time, allows exit
+ SphericalCoorType 0 le { % the default |
+ /z { Radius latitude sin mul } def
+ /x { Radius longitude cos mul latitude cos mul } def
+ /y { Radius longitude sin mul latitude cos mul } def
+ exit } if
+ SphericalCoorType 2 le {
+ /z { Radius longitude cos mul } def
+ /x { Radius longitude sin mul latitude cos mul} def
+ /y { Radius longitude sin mul latitude sin mul } def
+ exit } if
+ } repeat
+} def
+%
+/ConvCylToCartesian { % r phi h -> x y z
+ 3 1 roll % h r phi
+ /Phi ED
+ /Radius ED % h->z on stack
+ Radius Phi cos mul exch % x z
+ Radius Phi sin mul exch % x y z
+} def
+%
+/SphericalTo2D {
+ x y z ConvertToCartesian ConvertTo2D
+} def
+%
+/CylinderTo2D { % r phi h
+ x y z ConvCylToCartesian ConvertTo2D
+} def
+%
+/convertStackTo2D {
+ counttomark
+ /n ED /n3 n 3 div cvi def
+ n3 {
+ n -3 roll
+ SphericalCoor { ConvertToCartesian } { saveCoor } ifelse
+ ConvertTo2D
+ x2D xUnit y2D yUnit
+ /n n 1 sub def
+ } repeat
+} def
+%
+% the angle in the parameter equation for an ellipse is not proportional to the real angle!
+% phi=atan(b*tan(angle)/a)+floor(angle/180+0.5)*180
+%
+/getPhi { % on stack: vecA vecB angle
+ 3 dict begin
+ /angle exch def /vecB exch def /vecA exch def
+ angle cvi 90 mod 0 eq { angle } { vecA angle tan mul vecB atan
+ angle 180 div .5 add floor 180 mul add } ifelse
+ end
+} def
+%
+/RotSet (set ) def
+%
+/eulerRotation false def
+% Matrix multiplication procedure
+/matmul {
+
+ /M@tMulDict 20 dict def
+ M@tMulDict begin
+ /m2 ED
+ /m1 ED
+ m1 dup length 2 sub 2 getinterval aload pop
+ /col1max ED
+ /row1max ED
+ m2 dup length 2 sub 2 getinterval aload pop
+ /col2max ED
+ /row2max ED
+ /m3 row1max col2max mul 2 add array def
+ m3 dup length 2 sub row1max col2max 2 array astore putinterval
+ 0 1 row1max 1 sub {
+ /row ED
+ 0 1 col2max 1 sub {
+ /col ED
+ /sum 0 def
+ 0 1 col1max 1 sub{
+ /rowcol ED
+ sum
+ m1 row col1max mul rowcol add get
+ m2 rowcol col2max mul col add get
+ mul add
+ /sum ED
+ } for
+ m3 row col2max mul col add sum put
+ } for
+ } for
+ m3
+ end % end of M@tMulDict
+
+} def
+%
+/SetMQuaternion {
+
+ /MnewTOold 11 array def
+
+ /Qu@ternionDict 30 dict def
+ Qu@ternionDict begin
+
+ /normRotVec xRotVec yRotVec zRotVec 3 array astore VecNorm def
+ normRotVec 0 gt
+ {/xRotVecNorm xRotVec normRotVec div def
+ /yRotVecNorm yRotVec normRotVec div def
+ /zRotVecNorm zRotVec normRotVec div def
+ RotAngle}
+ {/xRotVecNorm 1 def
+ /yRotVecNorm 0 def
+ /zRotVecNorm 0 def
+ 0} ifelse
+
+ 2 div dup
+ /q0 exch cos def
+ sin dup dup
+ /q1 exch xRotVecNorm mul def
+ /q2 exch yRotVecNorm mul def
+ /q3 exch zRotVecNorm mul def
+
+ /q0q0 q0 q0 mul def
+ /q0q1 q0 q1 mul def
+ /q0q2 q0 q2 mul def
+ /q0q3 q0 q3 mul def
+
+ /q1q1 q1 q1 mul def
+ /q1q2 q1 q2 mul def
+ /q1q3 q1 q3 mul def
+
+ /q2q2 q2 q2 mul def
+ /q2q3 q2 q3 mul def
+
+ /q3q3 q3 q3 mul def
+
+ MnewTOold 0 q0q0 q1q1 add q2q2 sub q3q3 sub put
+ MnewTOold 1 q1q2 q0q3 sub 2 mul put
+ MnewTOold 2 q1q3 q0q2 add 2 mul put
+
+ MnewTOold 3 q1q2 q0q3 add 2 mul put
+ MnewTOold 4 q0q0 q1q1 sub q2q2 add q3q3 sub put
+ MnewTOold 5 q2q3 q0q1 sub 2 mul put
+
+ MnewTOold 6 q1q3 q0q2 sub 2 mul put
+ MnewTOold 7 q2q3 q0q1 add 2 mul put
+ MnewTOold 8 q0q0 q1q1 sub q2q2 sub q3q3 add put
+
+ MnewTOold 9 3 put
+ MnewTOold 10 3 put
+
+ end % end of Qu@ternionDict
+
+} def
+%
+/SetMxyz {
+ 1.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0 1.0 3 3 11 array astore /MnewTOold ED
+ RotSequence cvx exec % Now create a new MnewTOold using xyz, etc.
+} def
+%
+/ConcatMQuaternion {
+ MnewTOold % Push onto stack
+ SetMQuaternion % Uses [xyz]RotVec and RotAngle to make MnewToOld
+ MnewTOold matmul /MnewTOold ED
+} def
+%
+/ConcatMxyz {
+ MnewTOold % Push onto stack
+ SetMxyz % Uses RotX, etc. to set MnewTOold
+ MnewTOold matmul /MnewTOold ED
+} def
+%
+/RotatePoint{
+ MnewTOold x y z 3 1 5 array astore matmul
+ 0 3 getinterval aload pop
+ /z ED
+ /y ED
+ /x ED
+} def
+%
+/makeMoldTOnew {
+ /MoldTOnew 11 array def
+ MoldTOnew 0 MnewTOold 0 get put
+ MoldTOnew 1 MnewTOold 3 get put
+ MoldTOnew 2 MnewTOold 6 get put
+ MoldTOnew 3 MnewTOold 1 get put
+ MoldTOnew 4 MnewTOold 4 get put
+ MoldTOnew 5 MnewTOold 7 get put
+ MoldTOnew 6 MnewTOold 2 get put
+ MoldTOnew 7 MnewTOold 5 get put
+ MoldTOnew 8 MnewTOold 8 get put
+ MoldTOnew 9 3 put
+ MoldTOnew 10 3 put
+} def
+%
+/RotXaxis {
+ eulerRotation
+ {1 0 0}
+ {makeMoldTOnew MoldTOnew 1 0 0 3 1 5 array astore matmul
+ 0 3 getinterval aload pop} ifelse
+ /zRotVec ED
+ /yRotVec ED
+ /xRotVec ED
+ /RotAngle RotX def
+ ConcatMQuaternion
+} def
+/RotYaxis {
+ eulerRotation
+ {0 1 0}
+ {makeMoldTOnew MoldTOnew 0 1 0 3 1 5 array astore matmul
+ 0 3 getinterval aload pop} ifelse
+ /zRotVec ED
+ /yRotVec ED
+ /xRotVec ED
+ /RotAngle RotY def
+ ConcatMQuaternion
+} def
+/RotZaxis {
+ eulerRotation
+ {0 0 1}
+ {makeMoldTOnew MoldTOnew 0 0 1 3 1 5 array astore matmul
+ 0 3 getinterval aload pop} ifelse
+ /zRotVec ED
+ /yRotVec ED
+ /xRotVec ED
+ /RotAngle RotZ def
+ ConcatMQuaternion
+} def
+/xyz { RotXaxis RotYaxis RotZaxis } def
+/yxz { RotYaxis RotXaxis RotZaxis } def
+/yzx { RotYaxis RotZaxis RotXaxis } def
+/xzy { RotXaxis RotZaxis RotYaxis } def
+/zxy { RotZaxis RotXaxis RotYaxis } def
+/zyx { RotZaxis RotYaxis RotXaxis } def
+/quaternion { } def % Null
+%
+/VecNorm { 0 exch { dup mul add } forall sqrt } def
+%
+/UnitVec { % on stack is [a]; returns a vector with [a][a]/|a|=1
+ dup VecNorm /norm ED
+ norm 0 lt {/norm 0 def} if
+ { norm div } forall 3 array astore } def
+%
+/AxB { % on the stack are the two vectors [a][b]
+ aload pop /b3 ED /b2 ED /b1 ED
+ aload pop /a3 ED /a2 ED /a1 ED
+ a2 b3 mul a3 b2 mul sub
+ a3 b1 mul a1 b3 mul sub
+ a1 b2 mul a2 b1 mul sub
+ 3 array astore } def
+%
+/AaddB { % on the stack are the two vectors [a][b]
+ aload pop /b3 ED /b2 ED /b1 ED
+ aload pop /a3 ED /a2 ED /a1 ED
+ a1 b1 add a2 b2 add a3 b3 add
+ 3 array astore } def
+%
+/AmulC { % on stack is [a] and c; returns [a] mul c
+ /factor ED { factor mul } forall 3 array astore } def
+%
+%
+/setColorLight { % expects 7 values on stack C M Y K xL yL zL
+% les rayons de lumi�re
+ xLight dup mul yLight dup mul zLight dup mul add add sqrt /NormeLight ED
+% the color values
+ /K ED
+ /Yellow ED
+ /Magenta ED
+ /Cyan ED
+} def
+%
+/facetteSphere {
+ newpath
+ /Xpoint Rsphere theta cos mul phi cos mul CX add def
+ /Ypoint Rsphere theta sin mul phi cos mul CY add def
+ /Zpoint Rsphere phi sin mul CZ add def
+ Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end moveto
+ theta 1 theta increment add {%
+ /theta1 ED
+ /Xpoint Rsphere theta1 cos mul phi cos mul CX add def
+ /Ypoint Rsphere theta1 sin mul phi cos mul CY add def
+ /Zpoint Rsphere phi sin mul CZ add def
+ Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
+ } for
+ phi 1 phi increment add {
+ /phi1 ED
+ /Xpoint Rsphere theta increment add cos mul phi1 cos mul CX add def
+ /Ypoint Rsphere theta increment add sin mul phi1 cos mul CY add def
+ /Zpoint Rsphere phi1 sin mul CZ add def
+ Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
+ } for
+ theta increment add -1 theta {%
+ /theta1 ED
+ /Xpoint Rsphere theta1 cos mul phi increment add cos mul CX add def
+ /Ypoint Rsphere theta1 sin mul phi increment add cos mul CY add def
+ /Zpoint Rsphere phi increment add sin mul CZ add def
+ Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
+ } for
+ phi increment add -1 phi {
+ /phi1 ED
+ /Xpoint Rsphere theta cos mul phi1 cos mul CX add def
+ /Ypoint Rsphere theta sin mul phi1 cos mul CY add def
+ /Zpoint Rsphere phi1 sin mul CZ add def
+ Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
+ } for
+ closepath
+} def
+%
+/MaillageSphere {
+% on stack must be x y z Radius increment C M Y K
+ setColorLight
+ /increment ED
+ /Rsphere ED
+ /CZ ED
+ /CY ED
+ /CX ED
+ /StartTheta 0 def
+ /condition { PSfacetteSphere 0 ge } def
+ -90 increment 90 increment sub {%
+ /phi ED
+ StartTheta increment 360 StartTheta add increment sub {%
+ /theta ED
+ % Centre de la facette
+ /Xpoint Rsphere theta increment 2 div add cos mul phi increment 2 div add cos mul CX add def
+ /Ypoint Rsphere theta increment 2 div add sin mul phi increment 2 div add cos mul CY add def
+ /Zpoint Rsphere phi increment 2 div add sin mul CZ add def
+ % normale � la facette
+ /nXfacette Xpoint CX sub def
+ /nYfacette Ypoint CY sub def
+ /nZfacette Zpoint CZ sub def
+ % test de visibilit�
+ /PSfacetteSphere
+ vX nXfacette mul
+ vY nYfacette mul add
+ vZ nZfacette mul add
+ def
+ condition {
+ gsave
+ facetteSphere
+ /cosV { 1 xLight nXfacette mul
+ yLight nYfacette mul
+ zLight nZfacette mul
+ add add
+ NormeLight
+ nXfacette dup mul
+ nYfacette dup mul
+ nZfacette dup mul
+ add add sqrt mul div sub } bind def
+ Cyan cosV mul Magenta cosV mul Yellow cosV mul K cosV mul setcmykcolor fill
+ grestore
+% 0 setgray
+ showgrid { facetteSphere stroke } if
+ } if
+ } for
+ % /StartTheta StartTheta increment 2 div add def
+ } for
+} def
+%
+%---------------------- Cylinder ---------------------------
+%
+/PlanCoupeCylinder { %
+ /TableauxPoints [
+ 0 1 359 {
+ /phi ED
+ [ Radius phi Height ConvCyl2d ] % on décrit le cercle
+ } for
+ ] def
+ newpath
+ TableauxPoints 0 get aload pop moveto
+ 1 1 359 { TableauxPoints exch get aload pop lineto } for
+ closepath
+} def
+%
+/facetteCylinder { %
+ newpath
+ Radius phi currentHeight ConvCyl2d moveto
+ phi 1 phi dAngle add { % loop variable on stack
+ Radius exch currentHeight ConvCyl2d lineto
+ } for
+ phi dAngle add -1 phi { % fill dHeight
+ Radius exch currentHeight dHeight add ConvCyl2d lineto
+ } for
+ closepath
+ } def % facette
+%
+/MaillageCylinder { % on stack true or false for saving values
+ { setColorLight % expects 4 values on stack C M Y K
+ /dHeight ED /dAngle ED /Height ED /Radius ED
+ /CZ ED /CY ED /CX ED } if
+%
+ 0 dHeight Height dHeight sub {
+ /currentHeight ED
+ 0 dAngle 360 dAngle sub {
+ /phi ED
+% Normal vector of the center
+ /nXfacetteCylinder Radius phi dAngle 2 div add cos mul CX add def
+ /nYfacetteCylinder Radius phi dAngle 2 div add sin mul CY add def
+ /nZfacetteCylinder currentHeight dHeight 2 div add CZ add def
+ /NormeN
+ nXfacetteCylinder dup mul
+ nYfacetteCylinder dup mul
+ nZfacetteCylinder dup mul
+ add add sqrt def
+ NormeN 0 eq { /NormeN 1e-10 def } if
+% test de visibilité
+ /PSfacetteCylinder
+ vX nXfacetteCylinder mul
+ vY nYfacetteCylinder mul add
+ vZ nZfacetteCylinder mul add def
+ condition {
+ facetteCylinder
+ /cosV
+ 1 xLight nXfacetteCylinder mul
+ yLight nYfacetteCylinder mul
+ zLight nZfacetteCylinder mul
+ add add
+ NormeLight NormeN mul div sub def
+ Cyan Magenta Yellow K
+ cosV mul 4 1 roll cosV mul 4 1 roll
+ cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
+ setcmykcolor fill
+ showgrid {
+ 0 setgray
+ facetteCylinder % drawing the segments
+ stroke } if
+ } if
+ } for
+ } for
+} def
+%
+%------------------------ Cylinder type II -----------------------
+%
+/MoveTo { Conv3D2D moveto } def
+/LineTo { Conv3D2D lineto } def
+
+/IIIDEllipse { % x y z rA rB startAngle endAngle Wedge
+ /dAngle 1 def
+ /isWedge ED
+ /endAngle ED
+ /startAngle ED
+ /radiusB ED
+ /radiusA ED
+ startAngle cos radiusA mul startAngle sin radiusB mul 0
+ isWedge { 0 0 moveto LineTo }{ MoveTo } ifelse
+ /Angle startAngle def
+ startAngle dAngle endAngle {
+ /Angle ED
+ Angle cos radiusA mul Angle sin radiusB mul 0 LineTo
+ } for
+ isWedge { 0 0 lineto } if
+} def
+
+/IIIDCircle { % x y z r startAngle endAngle Wedge
+ 7 3 roll % startAngle endAngle Wedge x y z r
+ dup % startAngle endAngle Wedge x y z r r
+ 8 -3 roll
+ IIIDEllipse
+} def
+
+/IIIDWedge { % x y z r startAngle endAngle
+ true IIIDCircle
+} def
+
+/IIIDCylinder {% x y z r h start end wedge
+ /isWedge ED
+ /increment ED
+ /endAngle ED
+ /startAngle ED
+ /height ED
+ /radius ED
+ startAngle increment endAngle {
+ /Angle ED
+ radius Angle 0 ConvCylToCartesian MoveTo
+ radius Angle height ConvCylToCartesian LineTo
+ } for
+ stroke
+} def
+%
+%---------------------- Box ---------------------------
+%
+/PlanCoupeBox { % x y z
+ /TableauxPoints [
+ [ CX CY CZ Height add ConvBox2d ] % top or bottom
+ [ CX CY Depth add CZ Height add ConvBox2d ]
+ [ CX Width add CY Depth add CZ Height add ConvBox2d ]
+ [ CX Width add CY CZ Height add ConvBox2d ]
+ [ CX CY CZ Height add ConvBox2d ] % bottom
+ ] def
+ newpath
+ TableauxPoints 0 get aload pop moveto
+ 0 1 3 {
+ TableauxPoints exch get aload pop
+ lineto } for
+ closepath
+} def
+%
+/facetteBox { %
+ newpath
+ dup
+ 1 eq { % back
+ CX CY CZ ConvBox2d moveto
+ CX CY CZ Height add ConvBox2d lineto
+ CX Width add CY CZ Height add ConvBox2d lineto
+ CX Width add CY CZ ConvBox2d lineto
+ CX CY CZ ConvBox2d lineto
+ } if
+ dup
+ 2 eq { % right
+ CX CY CZ ConvBox2d moveto
+ CX CY CZ Height add ConvBox2d lineto
+ CX CY Depth add CZ Height add ConvBox2d lineto
+ CX CY Depth add CZ ConvBox2d lineto
+ CX CY CZ ConvBox2d lineto
+ } if
+ dup
+ 3 eq { % left
+ CX Width add CY CZ ConvBox2d moveto
+ CX Width add CY Depth add CZ ConvBox2d lineto
+ CX Width add CY Depth add CZ Height add ConvBox2d lineto
+ CX Width add CY CZ Height add ConvBox2d lineto
+ CX Width add CY CZ ConvBox2d lineto
+ } if
+ 4 eq { % front
+ CX CY Depth add CZ ConvBox2d moveto
+ CX CY Depth add CZ Height add ConvBox2d lineto
+ CX Width add CY Depth add CZ Height add ConvBox2d lineto
+ CX Width add CY Depth add CZ ConvBox2d lineto
+ CX CY Depth add CZ ConvBox2d lineto
+ } if
+ closepath
+ } def % facette
+%
+/TestPlane { % on stack x y z of the plane center and # of plane
+ /nZfacetteBox ED /nYfacetteBox ED /nXfacetteBox ED
+ /Plane ED
+ /NormeN
+ nXfacetteBox dup mul
+ nYfacetteBox dup mul
+ nZfacetteBox dup mul
+ add add sqrt def
+ NormeN 0 eq { /NormeN 1e-10 def } if
+% test de visibilit�
+ /PSfacetteBox
+ vX nXfacetteBox mul
+ vY nYfacetteBox mul add
+ vZ nZfacetteBox mul add def
+ condition {
+ Plane facetteBox
+ /cosV
+ 1 xLight nXfacetteBox mul
+ yLight nYfacetteBox mul
+ zLight nZfacetteBox mul
+ add add
+ NormeLight NormeN mul div sub def
+ Cyan Magenta Yellow K
+ cosV mul 4 1 roll cosV mul 4 1 roll
+ cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
+ setcmykcolor fill
+ 0 setgray
+ Plane facetteBox % drawing the segments
+ stroke
+ } if
+} def
+%
+/MaillageBox { % on stack true or false for saving values
+ { setColorLight % expects 4 values on stack C M Y K
+ /Depth ED /Height ED /Width ED
+ /CZ ED /CY ED /CX ED } if
+%
+% Normal vector of the box center
+ /PlaneSet [
+ [ Width 2 div CX add
+ CY
+ Height 2 div CZ add ] % normal back
+ [ CX
+ Depth 2 div CY add
+ Height 2 div CZ add ] % normal right
+ [ Width CX add
+ Depth 2 div CY add
+ Height 2 div CZ add ] % normal left
+ [ Width 2 div CX add
+ Depth CY add
+ Height 2 div CZ add ] % normal front
+ ] def
+ PlaneSequence length 0 eq { % user defined?
+ Alpha abs cvi 360 mod /iAlpha ED
+ iAlpha 90 lt { [ 1 2 3 4 ]
+ }{ iAlpha 180 lt { [ 2 4 1 3 ]
+ }{ iAlpha 270 lt { [ 3 4 1 2 ] }{ [ 3 1 4 2] } ifelse } ifelse } ifelse
+ }{ PlaneSequence } ifelse
+ { dup 1 sub PlaneSet exch get aload pop TestPlane } forall
+} def
+%
+%--------------------------- Paraboloid -----------------------------
+/PlanCoupeParaboloid {
+ /Z height store
+ /V {Z sqrt} bind def
+ /TableauxPoints [
+ 0 1 359 {
+ /U ED [ U U Z V calculate2DPoint ] % on d�crit le cercle
+ } for
+ ] def
+ newpath
+ TableauxPoints 0 get aload pop moveto
+ 0 1 359 {
+ /compteur ED
+ TableauxPoints compteur get aload pop
+ lineto } for
+ closepath
+} def
+%
+/facetteParaboloid{
+ newpath
+ U U Z V calculate2DPoint moveto
+ U 1 U increment add {%
+ /U1 ED
+ U1 U1 Z V calculate2DPoint lineto
+ } for
+ Z pas10 Z pas add pas10 add{
+ /Z1 ED
+ /V {Z1 sqrt} bind def
+ U1 U1 Z1 V calculate2DPoint lineto
+ } for
+ U increment add -1 U {%
+ /U2 ED
+ U2 U2 Z pas add V calculate2DPoint lineto
+ } for
+ Z pas add pas10 sub pas10 neg Z pas10 sub {
+ /Z2 ED
+ /V Z2 abs sqrt def
+ U U Z2 V calculate2DPoint lineto
+ } for
+ closepath
+} def % facette
+%
+/MaillageParaboloid {
+ % on stack true or false for saving values
+ { setColorLight % expects 7 values on stack C M Y K xL yL zL
+% /CZ ED /CY ED /CX ED
+ } if
+ 0 pas height pas sub {%
+ /Z ED
+ /V Z sqrt def
+ 0 increment 360 increment sub {%
+ /U ED
+% Centre de la facette
+ /Ucentre U increment 2 div add def
+ /Vcentre Z pas 2 div add sqrt def
+% normale à la facette
+ /nXfacetteParaboloid 2 Vcentre dup mul mul Ucentre cos mul radius mul def
+ /nYfacetteParaboloid 2 Vcentre dup mul mul Ucentre sin mul radius mul def
+ /nZfacetteParaboloid Vcentre neg radius dup mul mul def
+ /NormeN {
+ nXfacetteParaboloid dup mul
+ nYfacetteParaboloid dup mul
+ nZfacetteParaboloid dup mul
+ add add sqrt} bind def
+ NormeN 0 eq {/NormeN 1e-10 def} if
+% test de visibilit�
+ /PSfacetteParaboloid vX nXfacetteParaboloid mul
+ vY nYfacetteParaboloid mul add
+ vZ nZfacetteParaboloid mul add def
+ condition {
+ facetteParaboloid
+ /cosV 1 xLight nXfacetteParaboloid mul
+ yLight nYfacetteParaboloid mul
+ zLight nZfacetteParaboloid mul
+ add add
+ NormeLight
+ NormeN mul div sub def
+ Cyan Magenta Yellow K
+ cosV mul 4 1 roll cosV mul 4 1 roll cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
+ setcmykcolor fill
+ showgrid {
+ 0 setgray
+ facetteParaboloid
+ stroke } if
+ } if
+ } for
+ } for
+} def
+%
+% ------------------------------------ math stuff ----------------------------------
+%
+% Matrix A in arrays of rows A[[row1][row2]...]
+% with [row1]=[a11 a12 ... b1]
+% returns on stack solution vector X=[x1 x2 ... xn]
+/SolveLinEqSystem { % on stack matrix M=[A,b] (A*x=b)
+ 10 dict begin % hold all ocal
+ /A exch def
+ /Rows A length def % Rows = number of rows
+ /Cols A 0 get length def % Cols = number of columns
+ /Index [ 0 1 Rows 1 sub { } for ] def % Index = [0 1 2 ... Rows-1]
+ /col 0 def
+ /row 0 def
+ /PR Rows array def % PR[c] = pivot row for row row
+ { % starts the loop, find pivot entry in row r
+ col Cols ge row Rows ge or { exit } if % col < Cols and row < Rows else exit
+ /pRow row def % pRow = pivot row
+ /max A row get col get abs def % get A[row[col]], first A[0,0]
+ row 1 add 1 Rows 1 sub { % starts for loop 1 1 Rows-1
+ /j exch def % index counter
+ /x A j get col get abs def % get A[j[r]]
+ x max gt { % x>max, then save position
+ /pRow j def
+ /max x def
+ } if
+ } for % now we have the row with biggest A[0,1]
+ % with pRow = the pivot row
+ max 0 gt { % swap entries pRow and row in i
+ /tmp Index row get def
+ Index row Index pRow get put
+ Index pRow tmp put % and columns pRow and row in A
+ /tmp A row get def
+ A row A pRow get put
+ A pRow tmp put % pivot
+ /row0 A row get def % the pivoting row
+ /p0 row0 col get def % the pivot value
+ row 1 add 1 Rows 1 sub { % start for loop
+ /j exch def
+ /c1 A j get def
+ /p c1 col get p0 div def
+ c1 col p put % subtract (p1/p0)*row[i] from row[j]
+ col 1 add 1 Cols 1 sub { % start for loop
+ /i exch def
+ c1 dup i exch % c1 i c1
+ i get row0 i get p mul sub put
+ } for
+ } for
+ PR row col put
+ /col col 1 add def
+ /row row 1 add def
+ }{ % all zero entries
+ /row row 1 add def % continue loop with same row
+ } ifelse
+ } loop
+ /X A def % solution vector
+ A Rows 1 sub get dup
+ Cols 1 sub get exch
+ Cols 2 sub get div
+ X Rows 1 sub 3 -1 roll put % X[n]
+ Rows 2 sub -1 0 { % for loop to calculate X[i]
+ /xi exch def % current index
+ A xi get % i-th row
+ /Axi exch def
+ /sum 0 def
+ Cols 2 sub -1 xi 1 add {
+ /n exch def
+ /sum sum Axi n get X n get mul add def
+ } for
+ Axi Cols 1 sub get % b=Axi[Cols-1]
+ sum sub % b-sum
+ Axi xi get div % b-sum / Axi[xi]
+ X xi 3 -1 roll put % X[xi]
+ } for
+ X
+ end
+} def
+%
+% u -> e_u with |e_u|=1
+/vector-unit { 1 dict begin
+ dup vector-length 1 exch div
+ vector-scale
+ end
+} def
+%
+% u v -> u+v
+/vector-add { 1 dict begin
+ /v exch def
+ [ exch
+ 0 % u i
+ exch { % i u[i]
+ v % i u[i] v
+ 2 index get add % i u[i]+v[i]
+ exch 1 add % i
+ } forall
+ pop
+ ]
+ end
+} def
+%
+% u v -> u-v
+/vector-sub { 1 dict begin
+ /v exch def
+ [ exch
+ 0 % u i
+ exch { % i u[i]
+ v % i u[i] v
+ 2 index get sub % i u[i]+v[i]
+ exch 1 add % i
+ } forall
+ pop
+ ]
+end } def
+%
+% [v] c -> [c.v]
+/vector-scale { 1 dict begin
+ /c exch def
+ [ exch
+ { % s i u[i]
+ c mul % s i u[i] v
+ } forall
+ ]
+ end } def
+%
+%
+% [u] [v] -> [u x v]
+/vector-prod { %% x1 y1 z1 x2 y2 z2
+6 dict begin
+ aload pop
+ /zp exch def /yp exch def /xp exch def
+ aload pop
+ /z exch def /y exch def /x exch def
+ [ y zp mul z yp mul sub
+ z xp mul x zp mul sub
+ x yp mul y xp mul sub ]
+end
+} def
+%
+% [u] [v] -> u.v
+/vector-mul { %% x1 y1 z1 x2 y2 z2
+6 dict begin
+ aload pop
+ /zp exch def /yp exch def /xp exch def
+ aload pop
+ /z exch def /y exch def /x exch def
+ x xp mul y yp mul add z zp mul add
+end
+} def
+%
+% [x y z ... ] -> r
+% watch out for overflow
+/vector-length { 1 dict begin
+dup
+% find maximum entry
+/max 0 def
+{ % max
+ abs dup max gt {
+ % if abs gt max
+ /max exch def
+ } {
+ pop
+ } ifelse
+} forall
+max 0 ne {
+ 0 exch
+ { % 0 v[i]
+ max div dup mul add
+ } forall
+ sqrt
+ max mul
+} {
+ pop 0
+} ifelse
+end } def
+%
+end % tx@3DPlotDict
+
+
+%%EndProcSet
+%%BeginProcSet: special.pro 0 0
+%!
+TeXDict begin/SDict 200 dict N SDict begin/@SpecialDefaults{/hs 612 N
+/vs 792 N/ho 0 N/vo 0 N/hsc 1 N/vsc 1 N/ang 0 N/CLIP 0 N/rwiSeen false N
+/rhiSeen false N/letter{}N/note{}N/a4{}N/legal{}N}B/@scaleunit 100 N
+/@hscale{@scaleunit div/hsc X}B/@vscale{@scaleunit div/vsc X}B/@hsize{
+/hs X/CLIP 1 N}B/@vsize{/vs X/CLIP 1 N}B/@clip{/CLIP 2 N}B/@hoffset{/ho
+X}B/@voffset{/vo X}B/@angle{/ang X}B/@rwi{10 div/rwi X/rwiSeen true N}B
+/@rhi{10 div/rhi X/rhiSeen true N}B/@llx{/llx X}B/@lly{/lly X}B/@urx{
+/urx X}B/@ury{/ury X}B/magscale true def end/@MacSetUp{userdict/md known
+{userdict/md get type/dicttype eq{userdict begin md length 10 add md
+maxlength ge{/md md dup length 20 add dict copy def}if end md begin
+/letter{}N/note{}N/legal{}N/od{txpose 1 0 mtx defaultmatrix dtransform S
+atan/pa X newpath clippath mark{transform{itransform moveto}}{transform{
+itransform lineto}}{6 -2 roll transform 6 -2 roll transform 6 -2 roll
+transform{itransform 6 2 roll itransform 6 2 roll itransform 6 2 roll
+curveto}}{{closepath}}pathforall newpath counttomark array astore/gc xdf
+pop ct 39 0 put 10 fz 0 fs 2 F/|______Courier fnt invertflag{PaintBlack}
+if}N/txpose{pxs pys scale ppr aload pop por{noflips{pop S neg S TR pop 1
+-1 scale}if xflip yflip and{pop S neg S TR 180 rotate 1 -1 scale ppr 3
+get ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg TR}if xflip
+yflip not and{pop S neg S TR pop 180 rotate ppr 3 get ppr 1 get neg sub
+neg 0 TR}if yflip xflip not and{ppr 1 get neg ppr 0 get neg TR}if}{
+noflips{TR pop pop 270 rotate 1 -1 scale}if xflip yflip and{TR pop pop
+90 rotate 1 -1 scale ppr 3 get ppr 1 get neg sub neg ppr 2 get ppr 0 get
+neg sub neg TR}if xflip yflip not and{TR pop pop 90 rotate ppr 3 get ppr
+1 get neg sub neg 0 TR}if yflip xflip not and{TR pop pop 270 rotate ppr
+2 get ppr 0 get neg sub neg 0 S TR}if}ifelse scaleby96{ppr aload pop 4
+-1 roll add 2 div 3 1 roll add 2 div 2 copy TR .96 dup scale neg S neg S
+TR}if}N/cp{pop pop showpage pm restore}N end}if}if}N/normalscale{
+Resolution 72 div VResolution 72 div neg scale magscale{DVImag dup scale
+}if 0 setgray}N/psfts{S 65781.76 div N}N/startTexFig{/psf$SavedState
+save N userdict maxlength dict begin/magscale true def normalscale
+currentpoint TR/psf$ury psfts/psf$urx psfts/psf$lly psfts/psf$llx psfts
+/psf$y psfts/psf$x psfts currentpoint/psf$cy X/psf$cx X/psf$sx psf$x
+psf$urx psf$llx sub div N/psf$sy psf$y psf$ury psf$lly sub div N psf$sx
+psf$sy scale psf$cx psf$sx div psf$llx sub psf$cy psf$sy div psf$ury sub
+TR/showpage{}N/erasepage{}N/copypage{}N/p 3 def @MacSetUp}N/doclip{
+psf$llx psf$lly psf$urx psf$ury currentpoint 6 2 roll newpath 4 copy 4 2
+roll moveto 6 -1 roll S lineto S lineto S lineto closepath clip newpath
+moveto}N/endTexFig{end psf$SavedState restore}N/@beginspecial{SDict
+begin/SpecialSave save N gsave normalscale currentpoint TR
+@SpecialDefaults count/ocount X/dcount countdictstack N}N/@setspecial{
+CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs neg 0 rlineto
+closepath clip}if ho vo TR hsc vsc scale ang rotate rwiSeen{rwi urx llx
+sub div rhiSeen{rhi ury lly sub div}{dup}ifelse scale llx neg lly neg TR
+}{rhiSeen{rhi ury lly sub div dup scale llx neg lly neg TR}if}ifelse
+CLIP 2 eq{newpath llx lly moveto urx lly lineto urx ury lineto llx ury
+lineto closepath clip}if/showpage{}N/erasepage{}N/copypage{}N newpath}N
+/@endspecial{count ocount sub{pop}repeat countdictstack dcount sub{end}
+repeat grestore SpecialSave restore end}N/@defspecial{SDict begin}N
+/@fedspecial{end}B/li{lineto}B/rl{rlineto}B/rc{rcurveto}B/np{/SaveX
+currentpoint/SaveY X N 1 setlinecap newpath}N/st{stroke SaveX SaveY
+moveto}N/fil{fill SaveX SaveY moveto}N/ellipse{/endangle X/startangle X
+/yrad X/xrad X/savematrix matrix currentmatrix N TR xrad yrad scale 0 0
+1 startangle endangle arc savematrix setmatrix}N end
+
+%%EndProcSet
+%%BeginProcSet: color.pro 0 0
+%!
+TeXDict begin/setcmykcolor where{pop}{/setcmykcolor{dup 10 eq{pop
+setrgbcolor}{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll
+}repeat setrgbcolor pop}ifelse}B}ifelse/TeXcolorcmyk{setcmykcolor}def
+/TeXcolorrgb{setrgbcolor}def/TeXcolorgrey{setgray}def/TeXcolorgray{
+setgray}def/TeXcolorhsb{sethsbcolor}def/currentcmykcolor where{pop}{
+/currentcmykcolor{currentrgbcolor 10}B}ifelse/DC{exch dup userdict exch
+known{pop pop}{X}ifelse}B/GreenYellow{0.15 0 0.69 0 setcmykcolor}DC
+/Yellow{0 0 1 0 setcmykcolor}DC/Goldenrod{0 0.10 0.84 0 setcmykcolor}DC
+/Dandelion{0 0.29 0.84 0 setcmykcolor}DC/Apricot{0 0.32 0.52 0
+setcmykcolor}DC/Peach{0 0.50 0.70 0 setcmykcolor}DC/Melon{0 0.46 0.50 0
+setcmykcolor}DC/YellowOrange{0 0.42 1 0 setcmykcolor}DC/Orange{0 0.61
+0.87 0 setcmykcolor}DC/BurntOrange{0 0.51 1 0 setcmykcolor}DC
+/Bittersweet{0 0.75 1 0.24 setcmykcolor}DC/RedOrange{0 0.77 0.87 0
+setcmykcolor}DC/Mahogany{0 0.85 0.87 0.35 setcmykcolor}DC/Maroon{0 0.87
+0.68 0.32 setcmykcolor}DC/BrickRed{0 0.89 0.94 0.28 setcmykcolor}DC/Red{
+0 1 1 0 setcmykcolor}DC/OrangeRed{0 1 0.50 0 setcmykcolor}DC/RubineRed{
+0 1 0.13 0 setcmykcolor}DC/WildStrawberry{0 0.96 0.39 0 setcmykcolor}DC
+/Salmon{0 0.53 0.38 0 setcmykcolor}DC/CarnationPink{0 0.63 0 0
+setcmykcolor}DC/Magenta{0 1 0 0 setcmykcolor}DC/VioletRed{0 0.81 0 0
+setcmykcolor}DC/Rhodamine{0 0.82 0 0 setcmykcolor}DC/Mulberry{0.34 0.90
+0 0.02 setcmykcolor}DC/RedViolet{0.07 0.90 0 0.34 setcmykcolor}DC
+/Fuchsia{0.47 0.91 0 0.08 setcmykcolor}DC/Lavender{0 0.48 0 0
+setcmykcolor}DC/Thistle{0.12 0.59 0 0 setcmykcolor}DC/Orchid{0.32 0.64 0
+0 setcmykcolor}DC/DarkOrchid{0.40 0.80 0.20 0 setcmykcolor}DC/Purple{
+0.45 0.86 0 0 setcmykcolor}DC/Plum{0.50 1 0 0 setcmykcolor}DC/Violet{
+0.79 0.88 0 0 setcmykcolor}DC/RoyalPurple{0.75 0.90 0 0 setcmykcolor}DC
+/BlueViolet{0.86 0.91 0 0.04 setcmykcolor}DC/Periwinkle{0.57 0.55 0 0
+setcmykcolor}DC/CadetBlue{0.62 0.57 0.23 0 setcmykcolor}DC
+/CornflowerBlue{0.65 0.13 0 0 setcmykcolor}DC/MidnightBlue{0.98 0.13 0
+0.43 setcmykcolor}DC/NavyBlue{0.94 0.54 0 0 setcmykcolor}DC/RoyalBlue{1
+0.50 0 0 setcmykcolor}DC/Blue{1 1 0 0 setcmykcolor}DC/Cerulean{0.94 0.11
+0 0 setcmykcolor}DC/Cyan{1 0 0 0 setcmykcolor}DC/ProcessBlue{0.96 0 0 0
+setcmykcolor}DC/SkyBlue{0.62 0 0.12 0 setcmykcolor}DC/Turquoise{0.85 0
+0.20 0 setcmykcolor}DC/TealBlue{0.86 0 0.34 0.02 setcmykcolor}DC
+/Aquamarine{0.82 0 0.30 0 setcmykcolor}DC/BlueGreen{0.85 0 0.33 0
+setcmykcolor}DC/Emerald{1 0 0.50 0 setcmykcolor}DC/JungleGreen{0.99 0
+0.52 0 setcmykcolor}DC/SeaGreen{0.69 0 0.50 0 setcmykcolor}DC/Green{1 0
+1 0 setcmykcolor}DC/ForestGreen{0.91 0 0.88 0.12 setcmykcolor}DC
+/PineGreen{0.92 0 0.59 0.25 setcmykcolor}DC/LimeGreen{0.50 0 1 0
+setcmykcolor}DC/YellowGreen{0.44 0 0.74 0 setcmykcolor}DC/SpringGreen{
+0.26 0 0.76 0 setcmykcolor}DC/OliveGreen{0.64 0 0.95 0.40 setcmykcolor}
+DC/RawSienna{0 0.72 1 0.45 setcmykcolor}DC/Sepia{0 0.83 1 0.70
+setcmykcolor}DC/Brown{0 0.81 1 0.60 setcmykcolor}DC/Tan{0.14 0.42 0.56 0
+setcmykcolor}DC/Gray{0 0 0 0.50 setcmykcolor}DC/Black{0 0 0 1
+setcmykcolor}DC/White{0 0 0 0 setcmykcolor}DC end
+
+%%EndProcSet
+TeXDict begin 40258437 52099151 1000 600 600 (testps-fig1.dvi)
+@start end
+%%EndProlog
+%%BeginSetup
+%%Feature: *Resolution 600dpi
+TeXDict begin
+ end
+%%EndSetup
+%%Page: 1 1
+TeXDict begin 1 0 bop 0 TeXcolorgray Black 165 192 a
+tx@Dict begin gsave STV CP T /ps@rot 0 def grestore end
+
+165 192 a 165 192 a
+tx@Dict begin gsave STV CP T /ps@refangle 0. def grestore end
+ 165 192 a 0 TeXcolorgray 165 192
+a
+tx@Dict begin gsave STV CP T /ps@rot 0 def grestore end
+ 165 192 a 290 1373 a @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.5 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def /t 0 def /t1 0.5 def /dt t1 t sub 199
+div def /F@pstplot ((1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0-1.5)*(2.0)+15*t^2*(1-t)^4*(2.0+2)*(2.0)+
+20*t^3*(1-t)^3*(2.0+6)*(2.0)+15*t^4*(1-t)^2*(2.0+5)*(2.0)+6*t^5*(1-t)*(2.0+1.5)*(2.0)+t^6*(2.0)*(2.0)|(1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0+2)*(2.0)+15*t^2*(1-t)^4*(2.0+5)*(2.0)+
+20*t^3*(1-t)^3*(2.0+3)*(2.0)+15*t^4*(1-t)^2*(2.0-1)*(2.0)+6*t^5*(1-t)*(2.0-2)*(2.0)+t^6*(2.0)*(2.0))
+ tx@AlgToPs begin AlgToPs end cvx def /xy { F@pstplot 12.0 mul exch
+12.0 mul exch } def /ps@Exit false def xy moveto 199 1 sub { /t t
+dt add def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0 mul
+lt { moveto }{ L } ifelse } ifelse ps@Exit { exit } if } repeat ps@Exit
+not { /t t1 def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0
+mul lt { moveto }{ L } ifelse } ifelse } if gsave 0 0 0.9 0 setcmykcolor
+ 1. .setopacityalpha fill grestore gsave 0.5 SLW 0 setgray 1. .setopacityalpha
+ 1 setlinejoin 0 setlinecap stroke grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.5 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def /t 0.5 def /t1 1 def /dt t1 t sub 199
+div def /F@pstplot ((1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0-1.5)*(2.0)+15*t^2*(1-t)^4*(2.0+2)*(2.0)+
+20*t^3*(1-t)^3*(2.0+6)*(2.0)+15*t^4*(1-t)^2*(2.0+5)*(2.0)+6*t^5*(1-t)*(2.0+1.5)*(2.0)+t^6*(2.0)*(2.0)|(1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0+2)*(2.0)+15*t^2*(1-t)^4*(2.0+5)*(2.0)+
+20*t^3*(1-t)^3*(2.0+3)*(2.0)+15*t^4*(1-t)^2*(2.0-1)*(2.0)+6*t^5*(1-t)*(2.0-2)*(2.0)+t^6*(2.0)*(2.0))
+ tx@AlgToPs begin AlgToPs end cvx def /xy { F@pstplot 12.0 mul exch
+12.0 mul exch } def /ps@Exit false def xy moveto 199 1 sub { /t t
+dt add def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0 mul
+lt { moveto }{ L } ifelse } ifelse ps@Exit { exit } if } repeat ps@Exit
+not { /t t1 def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0
+mul lt { moveto }{ L } ifelse } ifelse } if gsave 0 0 0.9 0 setcmykcolor
+ 1. .setopacityalpha fill grestore gsave 0.5 SLW 0 setgray 1. .setopacityalpha
+ 1 setlinejoin 0 setlinecap stroke grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 45.71521 46.66516
+48.00092 49.1413 48.00092 49.1413 45.71521 46.66516 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 48.00092 46.66516
+50.28662 49.1413 50.28662 49.1413 48.00092 46.66516 48.00092 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 48.00092 46.66516
+50.28662 49.1413 50.28662 49.1413 48.00092 46.66516 48.00092 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 48.00092 46.66516
+50.28662 49.1413 50.28662 49.1413 48.00092 46.66516 48.00092 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 48.00092 46.66516
+50.28662 49.1413 50.28662 49.1413 48.00092 46.66516 48.00092 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 48.00092 44.18903
+50.28662 46.66516 50.28662 46.66516 48.00092 44.18903 48.00092 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 48.00092 44.18903
+50.28662 46.66516 50.28662 46.66516 48.00092 44.18903 48.00092 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 50.2868 44.18903
+52.57251 46.66516 52.57251 46.66516 50.2868 44.18903 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 50.2868 44.18903
+52.57251 46.66516 52.57251 46.66516 50.2868 44.18903 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 50.2868 44.18903
+52.57251 46.66516 52.57251 46.66516 50.2868 44.18903 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 50.2868 44.18903
+52.57251 46.66516 52.57251 46.66516 50.2868 44.18903 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 50.2868 44.18903
+52.57251 46.66516 52.57251 46.66516 50.2868 44.18903 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 50.2868 44.18903
+52.57251 46.66516 52.57251 46.66516 50.2868 44.18903 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 52.57251 44.18903
+54.85822 46.66516 54.85822 46.66516 52.57251 44.18903 52.57251 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 52.57251 44.18903
+54.85822 46.66516 54.85822 46.66516 52.57251 44.18903 52.57251 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 52.57251 44.18903
+54.85822 46.66516 54.85822 46.66516 52.57251 44.18903 52.57251 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 52.57251 44.18903
+54.85822 46.66516 54.85822 46.66516 52.57251 44.18903 52.57251 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 52.57251 41.71289
+54.85822 44.18903 54.85822 44.18903 52.57251 41.71289 52.57251 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 52.57251 41.71289
+54.85822 44.18903 54.85822 44.18903 52.57251 41.71289 52.57251 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 54.85822 41.71289
+57.14392 44.18903 57.14392 44.18903 54.85822 41.71289 54.85822 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 54.85822 41.71289
+57.14392 44.18903 57.14392 44.18903 54.85822 41.71289 54.85822 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 54.85822 41.71289
+57.14392 44.18903 57.14392 44.18903 54.85822 41.71289 54.85822 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 54.85822 41.71289
+57.14392 44.18903 57.14392 44.18903 54.85822 41.71289 54.85822 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 54.85822 41.71289
+57.14392 44.18903 57.14392 44.18903 54.85822 41.71289 54.85822 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 54.85822 41.71289
+57.14392 44.18903 57.14392 44.18903 54.85822 41.71289 54.85822 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 57.14392 41.71289
+59.42963 44.18903 59.42963 44.18903 57.14392 41.71289 57.14392 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 57.14392 41.71289
+59.42963 44.18903 59.42963 44.18903 57.14392 41.71289 57.14392 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 57.14392 41.71289
+59.42963 44.18903 59.42963 44.18903 57.14392 41.71289 57.14392 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 57.14392 41.71289
+59.42963 44.18903 59.42963 44.18903 57.14392 41.71289 57.14392 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 57.14392 41.71289
+59.42963 44.18903 59.42963 44.18903 57.14392 41.71289 57.14392 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 57.14392 41.71289
+59.42963 44.18903 59.42963 44.18903 57.14392 41.71289 57.14392 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 57.14392 41.71289
+59.42963 44.18903 59.42963 44.18903 57.14392 41.71289 57.14392 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 59.42981 41.71289
+61.71552 44.18903 61.71552 44.18903 59.42981 41.71289 59.42981 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 59.42981 41.71289
+61.71552 44.18903 61.71552 44.18903 59.42981 41.71289 59.42981 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 59.42981 39.23694
+61.71552 41.71307 61.71552 41.71307 59.42981 39.23694 59.42981 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 59.42981 39.23694
+61.71552 41.71307 61.71552 41.71307 59.42981 39.23694 59.42981 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 59.42981 39.23694
+61.71552 41.71307 61.71552 41.71307 59.42981 39.23694 59.42981 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 59.42981 39.23694
+61.71552 41.71307 61.71552 41.71307 59.42981 39.23694 59.42981 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 61.71552 39.23694
+64.00122 41.71307 64.00122 41.71307 61.71552 39.23694 61.71552 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 61.71552 39.23694
+64.00122 41.71307 64.00122 41.71307 61.71552 39.23694 61.71552 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 61.71552 39.23694
+64.00122 41.71307 64.00122 41.71307 61.71552 39.23694 61.71552 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 61.71552 39.23694
+64.00122 41.71307 64.00122 41.71307 61.71552 39.23694 61.71552 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 61.71552 39.23694
+64.00122 41.71307 64.00122 41.71307 61.71552 39.23694 61.71552 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 61.71552 39.23694
+64.00122 41.71307 64.00122 41.71307 61.71552 39.23694 61.71552 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 64.00122 39.23694
+66.28693 41.71307 66.28693 41.71307 64.00122 39.23694 64.00122 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 64.00122 39.23694
+66.28693 41.71307 66.28693 41.71307 64.00122 39.23694 64.00122 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 64.00122 39.23694
+66.28693 41.71307 66.28693 41.71307 64.00122 39.23694 64.00122 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 64.00122 39.23694
+66.28693 41.71307 66.28693 41.71307 64.00122 39.23694 64.00122 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 64.00122 39.23694
+66.28693 41.71307 66.28693 41.71307 64.00122 39.23694 64.00122 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 64.00122 39.23694
+66.28693 41.71307 66.28693 41.71307 64.00122 39.23694 64.00122 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 66.28711 39.23694
+68.57281 41.71307 68.57281 41.71307 66.28711 39.23694 66.28711 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 66.28711 39.23694
+68.57281 41.71307 68.57281 41.71307 66.28711 39.23694 66.28711 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 66.28711 39.23694
+68.57281 41.71307 68.57281 41.71307 66.28711 39.23694 66.28711 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 66.28711 39.23694
+68.57281 41.71307 68.57281 41.71307 66.28711 39.23694 66.28711 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 66.28711 39.23694
+68.57281 41.71307 68.57281 41.71307 66.28711 39.23694 66.28711 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 66.28711 39.23694
+68.57281 41.71307 68.57281 41.71307 66.28711 39.23694 66.28711 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 68.57281 39.23694
+70.85852 41.71307 70.85852 41.71307 68.57281 39.23694 68.57281 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 68.57281 39.23694
+70.85852 41.71307 70.85852 41.71307 68.57281 39.23694 68.57281 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 68.57281 39.23694
+70.85852 41.71307 70.85852 41.71307 68.57281 39.23694 68.57281 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 68.57281 39.23694
+70.85852 41.71307 70.85852 41.71307 68.57281 39.23694 68.57281 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 68.57281 39.23694
+70.85852 41.71307 70.85852 41.71307 68.57281 39.23694 68.57281 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 68.57281 39.23694
+70.85852 41.71307 70.85852 41.71307 68.57281 39.23694 68.57281 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 70.85852 39.23694
+73.14423 41.71307 73.14423 41.71307 70.85852 39.23694 70.85852 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 70.85852 39.23694
+73.14423 41.71307 73.14423 41.71307 70.85852 39.23694 70.85852 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 70.85852 39.23694
+73.14423 41.71307 73.14423 41.71307 70.85852 39.23694 70.85852 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 70.85852 39.23694
+73.14423 41.71307 73.14423 41.71307 70.85852 39.23694 70.85852 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 70.85852 39.23694
+73.14423 41.71307 73.14423 41.71307 70.85852 39.23694 70.85852 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 70.85852 39.23694
+73.14423 41.71307 73.14423 41.71307 70.85852 39.23694 70.85852 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 73.14441 39.23694
+75.43011 41.71307 75.43011 41.71307 73.14441 39.23694 73.14441 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 73.14441 39.23694
+75.43011 41.71307 75.43011 41.71307 73.14441 39.23694 73.14441 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 73.14441 39.23694
+75.43011 41.71307 75.43011 41.71307 73.14441 39.23694 73.14441 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 73.14441 39.23694
+75.43011 41.71307 75.43011 41.71307 73.14441 39.23694 73.14441 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 73.14441 39.23694
+75.43011 41.71307 75.43011 41.71307 73.14441 39.23694 73.14441 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 73.14441 39.23694
+75.43011 41.71307 75.43011 41.71307 73.14441 39.23694 73.14441 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 75.43011 39.23694
+77.71582 41.71307 77.71582 41.71307 75.43011 39.23694 75.43011 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 75.43011 39.23694
+77.71582 41.71307 77.71582 41.71307 75.43011 39.23694 75.43011 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 75.43011 39.23694
+77.71582 41.71307 77.71582 41.71307 75.43011 39.23694 75.43011 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 75.43011 39.23694
+77.71582 41.71307 77.71582 41.71307 75.43011 39.23694 75.43011 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 75.43011 41.71289
+77.71582 44.18903 77.71582 44.18903 75.43011 41.71289 75.43011 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 75.43011 41.71289
+77.71582 44.18903 77.71582 44.18903 75.43011 41.71289 75.43011 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 75.43011 41.71289
+77.71582 44.18903 77.71582 44.18903 75.43011 41.71289 75.43011 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 77.71582 41.71289
+80.00153 44.18903 80.00153 44.18903 77.71582 41.71289 77.71582 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 77.71582 41.71289
+80.00153 44.18903 80.00153 44.18903 77.71582 41.71289 77.71582 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 77.71582 41.71289
+80.00153 44.18903 80.00153 44.18903 77.71582 41.71289 77.71582 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 77.71582 41.71289
+80.00153 44.18903 80.00153 44.18903 77.71582 41.71289 77.71582 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 77.71582 41.71289
+80.00153 44.18903 80.00153 44.18903 77.71582 41.71289 77.71582 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 77.71582 41.71289
+80.00153 44.18903 80.00153 44.18903 77.71582 41.71289 77.71582 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 80.00153 41.71289
+82.28723 44.18903 82.28723 44.18903 80.00153 41.71289 80.00153 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 80.00153 41.71289
+82.28723 44.18903 82.28723 44.18903 80.00153 41.71289 80.00153 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 80.00153 41.71289
+82.28723 44.18903 82.28723 44.18903 80.00153 41.71289 80.00153 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 80.00153 41.71289
+82.28723 44.18903 82.28723 44.18903 80.00153 41.71289 80.00153 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 80.00153 41.71289
+82.28723 44.18903 82.28723 44.18903 80.00153 41.71289 80.00153 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 80.00153 41.71289
+82.28723 44.18903 82.28723 44.18903 80.00153 41.71289 80.00153 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 80.00153 41.71289
+82.28723 44.18903 82.28723 44.18903 80.00153 41.71289 80.00153 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 82.28741 41.71289
+84.57312 44.18903 84.57312 44.18903 82.28741 41.71289 82.28741 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 82.28741 41.71289
+84.57312 44.18903 84.57312 44.18903 82.28741 41.71289 82.28741 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 82.28741 41.71289
+84.57312 44.18903 84.57312 44.18903 82.28741 41.71289 82.28741 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 82.28741 41.71289
+84.57312 44.18903 84.57312 44.18903 82.28741 41.71289 82.28741 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 82.28741 44.18903
+84.57312 46.66516 84.57312 46.66516 82.28741 44.18903 82.28741 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 82.28741 44.18903
+84.57312 46.66516 84.57312 46.66516 82.28741 44.18903 82.28741 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 84.57312 44.18903
+86.85883 46.66516 86.85883 46.66516 84.57312 44.18903 84.57312 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 84.57312 44.18903
+86.85883 46.66516 86.85883 46.66516 84.57312 44.18903 84.57312 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 84.57312 44.18903
+86.85883 46.66516 86.85883 46.66516 84.57312 44.18903 84.57312 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 84.57312 44.18903
+86.85883 46.66516 86.85883 46.66516 84.57312 44.18903 84.57312 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 84.57312 44.18903
+86.85883 46.66516 86.85883 46.66516 84.57312 44.18903 84.57312 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 84.57312 44.18903
+86.85883 46.66516 86.85883 46.66516 84.57312 44.18903 84.57312 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 84.57312 44.18903
+86.85883 46.66516 86.85883 46.66516 84.57312 44.18903 84.57312 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 86.85883 44.18903
+89.14453 46.66516 89.14453 46.66516 86.85883 44.18903 86.85883 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 86.85883 44.18903
+89.14453 46.66516 89.14453 46.66516 86.85883 44.18903 86.85883 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 86.85883 44.18903
+89.14453 46.66516 89.14453 46.66516 86.85883 44.18903 86.85883 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 86.85883 44.18903
+89.14453 46.66516 89.14453 46.66516 86.85883 44.18903 86.85883 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 86.85883 44.18903
+89.14453 46.66516 89.14453 46.66516 86.85883 44.18903 86.85883 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 86.85883 46.66516
+89.14453 49.1413 89.14453 49.1413 86.85883 46.66516 86.85883 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 86.85883 46.66516
+89.14453 49.1413 89.14453 49.1413 86.85883 46.66516 86.85883 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 86.85883 46.66516
+89.14453 49.1413 89.14453 49.1413 86.85883 46.66516 86.85883 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 89.14471 46.66516
+91.43042 49.1413 91.43042 49.1413 89.14471 46.66516 89.14471 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 89.14471 46.66516
+91.43042 49.1413 91.43042 49.1413 89.14471 46.66516 89.14471 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 89.14471 46.66516
+91.43042 49.1413 91.43042 49.1413 89.14471 46.66516 89.14471 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 89.14471 46.66516
+91.43042 49.1413 91.43042 49.1413 89.14471 46.66516 89.14471 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 89.14471 46.66516
+91.43042 49.1413 91.43042 49.1413 89.14471 46.66516 89.14471 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 89.14471 46.66516
+91.43042 49.1413 91.43042 49.1413 89.14471 46.66516 89.14471 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 89.14471 46.66516
+91.43042 49.1413 91.43042 49.1413 89.14471 46.66516 89.14471 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 91.43042 46.66516
+93.71613 49.1413 93.71613 49.1413 91.43042 46.66516 91.43042 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 91.43042 49.14111
+93.71613 51.61725 93.71613 51.61725 91.43042 49.14111 91.43042 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 91.43042 49.14111
+93.71613 51.61725 93.71613 51.61725 91.43042 49.14111 91.43042 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 91.43042 49.14111
+93.71613 51.61725 93.71613 51.61725 91.43042 49.14111 91.43042 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 91.43042 49.14111
+93.71613 51.61725 93.71613 51.61725 91.43042 49.14111 91.43042 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 91.43042 49.14111
+93.71613 51.61725 93.71613 51.61725 91.43042 49.14111 91.43042 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 91.43042 49.14111
+93.71613 51.61725 93.71613 51.61725 91.43042 49.14111 91.43042 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 91.43042 49.14111
+93.71613 51.61725 93.71613 51.61725 91.43042 49.14111 91.43042 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 93.71613 49.14111
+96.00183 51.61725 96.00183 51.61725 93.71613 49.14111 93.71613 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 93.71613 49.14111
+96.00183 51.61725 96.00183 51.61725 93.71613 49.14111 93.71613 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 93.71613 49.14111
+96.00183 51.61725 96.00183 51.61725 93.71613 49.14111 93.71613 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 93.71613 49.14111
+96.00183 51.61725 96.00183 51.61725 93.71613 49.14111 93.71613 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 93.71613 51.61725
+96.00183 54.09338 96.00183 54.09338 93.71613 51.61725 93.71613 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 93.71613 51.61725
+96.00183 54.09338 96.00183 54.09338 93.71613 51.61725 93.71613 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 93.71613 51.61725
+96.00183 54.09338 96.00183 54.09338 93.71613 51.61725 93.71613 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 93.71613 51.61725
+96.00183 54.09338 96.00183 54.09338 93.71613 51.61725 93.71613 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 96.00183 51.61725
+98.28754 54.09338 98.28754 54.09338 96.00183 51.61725 96.00183 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 96.00183 51.61725
+98.28754 54.09338 98.28754 54.09338 96.00183 51.61725 96.00183 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 96.00183 51.61725
+98.28754 54.09338 98.28754 54.09338 96.00183 51.61725 96.00183 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 96.00183 51.61725
+98.28754 54.09338 98.28754 54.09338 96.00183 51.61725 96.00183 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 96.00183 51.61725
+98.28754 54.09338 98.28754 54.09338 96.00183 51.61725 96.00183 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 96.00183 54.09338
+98.28754 56.56952 98.28754 56.56952 96.00183 54.09338 96.00183 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 96.00183 54.09338
+98.28754 56.56952 98.28754 56.56952 96.00183 54.09338 96.00183 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 96.00183 54.09338
+98.28754 56.56952 98.28754 56.56952 96.00183 54.09338 96.00183 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 96.00183 54.09338
+98.28754 56.56952 98.28754 56.56952 96.00183 54.09338 96.00183 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 98.28772 54.09338
+100.57343 56.56952 100.57343 56.56952 98.28772 54.09338 98.28772
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 98.28772 54.09338
+100.57343 56.56952 100.57343 56.56952 98.28772 54.09338 98.28772
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 98.28772 54.09338
+100.57343 56.56952 100.57343 56.56952 98.28772 54.09338 98.28772
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 98.28772 54.09338
+100.57343 56.56952 100.57343 56.56952 98.28772 54.09338 98.28772
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 98.28772 54.09338
+100.57343 56.56952 100.57343 56.56952 98.28772 54.09338 98.28772
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 98.28772 56.56952
+100.57343 59.04565 100.57343 59.04565 98.28772 56.56952 98.28772
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 98.28772 56.56952
+100.57343 59.04565 100.57343 59.04565 98.28772 56.56952 98.28772
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 98.28772 56.56952
+100.57343 59.04565 100.57343 59.04565 98.28772 56.56952 98.28772
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 98.28772 56.56952
+100.57343 59.04565 100.57343 59.04565 98.28772 56.56952 98.28772
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 100.57343 56.56952
+102.85913 59.04565 102.85913 59.04565 100.57343 56.56952 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 100.57343 56.56952
+102.85913 59.04565 102.85913 59.04565 100.57343 56.56952 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 100.57343 56.56952
+102.85913 59.04565 102.85913 59.04565 100.57343 56.56952 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 100.57343 56.56952
+102.85913 59.04565 102.85913 59.04565 100.57343 56.56952 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 100.57343 59.04547
+102.85913 61.5216 102.85913 61.5216 100.57343 59.04547 100.57343
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 100.57343 59.04547
+102.85913 61.5216 102.85913 61.5216 100.57343 59.04547 100.57343
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 100.57343 59.04547
+102.85913 61.5216 102.85913 61.5216 100.57343 59.04547 100.57343
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 100.57343 59.04547
+102.85913 61.5216 102.85913 61.5216 100.57343 59.04547 100.57343
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 100.57343 59.04547
+102.85913 61.5216 102.85913 61.5216 100.57343 59.04547 100.57343
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 100.57343 59.04547
+102.85913 61.5216 102.85913 61.5216 100.57343 59.04547 100.57343
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 102.85913 59.04547
+105.14484 61.5216 105.14484 61.5216 102.85913 59.04547 102.85913
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 102.85913 59.04547
+105.14484 61.5216 105.14484 61.5216 102.85913 59.04547 102.85913
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 102.85913 61.5216
+105.14484 63.99774 105.14484 63.99774 102.85913 61.5216 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 102.85913 61.5216
+105.14484 63.99774 105.14484 63.99774 102.85913 61.5216 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 102.85913 61.5216
+105.14484 63.99774 105.14484 63.99774 102.85913 61.5216 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 102.85913 61.5216
+105.14484 63.99774 105.14484 63.99774 102.85913 61.5216 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 102.85913 61.5216
+105.14484 63.99774 105.14484 63.99774 102.85913 61.5216 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 102.85913 61.5216
+105.14484 63.99774 105.14484 63.99774 102.85913 61.5216 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 102.85913 61.5216
+105.14484 63.99774 105.14484 63.99774 102.85913 61.5216 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 102.85913 61.5216
+105.14484 63.99774 105.14484 63.99774 102.85913 61.5216 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 102.85913 63.99774
+105.14484 66.47388 105.14484 66.47388 102.85913 63.99774 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 105.14502 63.99774
+107.43073 66.47388 107.43073 66.47388 105.14502 63.99774 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 105.14502 63.99774
+107.43073 66.47388 107.43073 66.47388 105.14502 63.99774 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 105.14502 63.99774
+107.43073 66.47388 107.43073 66.47388 105.14502 63.99774 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 105.14502 63.99774
+107.43073 66.47388 107.43073 66.47388 105.14502 63.99774 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 105.14502 63.99774
+107.43073 66.47388 107.43073 66.47388 105.14502 63.99774 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 105.14502 63.99774
+107.43073 66.47388 107.43073 66.47388 105.14502 63.99774 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 105.14502 66.4737
+107.43073 68.94983 107.43073 68.94983 105.14502 66.4737 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 105.14502 66.4737
+107.43073 68.94983 107.43073 68.94983 105.14502 66.4737 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 105.14502 66.4737
+107.43073 68.94983 107.43073 68.94983 105.14502 66.4737 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 105.14502 66.4737
+107.43073 68.94983 107.43073 68.94983 105.14502 66.4737 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 105.14502 66.4737
+107.43073 68.94983 107.43073 68.94983 105.14502 66.4737 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 105.14502 66.4737
+107.43073 68.94983 107.43073 68.94983 105.14502 66.4737 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 105.14502 66.4737
+107.43073 68.94983 107.43073 68.94983 105.14502 66.4737 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 107.43073 66.4737
+109.71643 68.94983 109.71643 68.94983 107.43073 66.4737 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 107.43073 68.94983
+109.71643 71.42596 109.71643 71.42596 107.43073 68.94983 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 107.43073 68.94983
+109.71643 71.42596 109.71643 71.42596 107.43073 68.94983 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 107.43073 68.94983
+109.71643 71.42596 109.71643 71.42596 107.43073 68.94983 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 107.43073 68.94983
+109.71643 71.42596 109.71643 71.42596 107.43073 68.94983 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 107.43073 68.94983
+109.71643 71.42596 109.71643 71.42596 107.43073 68.94983 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 107.43073 68.94983
+109.71643 71.42596 109.71643 71.42596 107.43073 68.94983 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 107.43073 68.94983
+109.71643 71.42596 109.71643 71.42596 107.43073 68.94983 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 71.42596 107.43073 71.42596
+109.71643 73.9021 109.71643 73.9021 107.43073 71.42596 107.43073
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 71.42596 107.43073 71.42596
+109.71643 73.9021 109.71643 73.9021 107.43073 71.42596 107.43073
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 71.42596 107.43073 71.42596
+109.71643 73.9021 109.71643 73.9021 107.43073 71.42596 107.43073
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 71.42596 107.43073 71.42596
+109.71643 73.9021 109.71643 73.9021 107.43073 71.42596 107.43073
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 71.42596 107.43073 71.42596
+109.71643 73.9021 109.71643 73.9021 107.43073 71.42596 107.43073
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 71.42596 107.43073 71.42596
+109.71643 73.9021 109.71643 73.9021 107.43073 71.42596 107.43073
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 71.42596 107.43073 71.42596
+109.71643 73.9021 109.71643 73.9021 107.43073 71.42596 107.43073
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 73.90192 107.43073 73.90192
+109.71643 76.37805 109.71643 76.37805 107.43073 73.90192 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 73.90192 109.71643 73.90192
+112.00214 76.37805 112.00214 76.37805 109.71643 73.90192 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 73.90192 109.71643 73.90192
+112.00214 76.37805 112.00214 76.37805 109.71643 73.90192 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 73.90192 109.71643 73.90192
+112.00214 76.37805 112.00214 76.37805 109.71643 73.90192 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 73.90192 109.71643 73.90192
+112.00214 76.37805 112.00214 76.37805 109.71643 73.90192 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 73.90192 109.71643 73.90192
+112.00214 76.37805 112.00214 76.37805 109.71643 73.90192 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 73.90192 109.71643 73.90192
+112.00214 76.37805 112.00214 76.37805 109.71643 73.90192 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.37805 109.71643 76.37805
+112.00214 78.85419 112.00214 78.85419 109.71643 76.37805 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.37805 109.71643 76.37805
+112.00214 78.85419 112.00214 78.85419 109.71643 76.37805 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.37805 109.71643 76.37805
+112.00214 78.85419 112.00214 78.85419 109.71643 76.37805 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.37805 109.71643 76.37805
+112.00214 78.85419 112.00214 78.85419 109.71643 76.37805 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.37805 109.71643 76.37805
+112.00214 78.85419 112.00214 78.85419 109.71643 76.37805 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.37805 109.71643 76.37805
+112.00214 78.85419 112.00214 78.85419 109.71643 76.37805 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.37805 109.71643 76.37805
+112.00214 78.85419 112.00214 78.85419 109.71643 76.37805 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 78.85419 109.71643 78.85419
+112.00214 81.33032 112.00214 81.33032 109.71643 78.85419 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 78.85419 109.71643 78.85419
+112.00214 81.33032 112.00214 81.33032 109.71643 78.85419 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 78.85419 109.71643 78.85419
+112.00214 81.33032 112.00214 81.33032 109.71643 78.85419 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 78.85419 109.71643 78.85419
+112.00214 81.33032 112.00214 81.33032 109.71643 78.85419 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 78.85419 109.71643 78.85419
+112.00214 81.33032 112.00214 81.33032 109.71643 78.85419 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 78.85419 109.71643 78.85419
+112.00214 81.33032 112.00214 81.33032 109.71643 78.85419 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 78.85419 109.71643 78.85419
+112.00214 81.33032 112.00214 81.33032 109.71643 78.85419 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33032 109.71643 81.33032
+112.00214 83.80646 112.00214 83.80646 109.71643 81.33032 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33032 109.71643 81.33032
+112.00214 83.80646 112.00214 83.80646 109.71643 81.33032 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33032 112.00232 81.33032
+114.28802 83.80646 114.28802 83.80646 112.00232 81.33032 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33032 112.00232 81.33032
+114.28802 83.80646 114.28802 83.80646 112.00232 81.33032 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33032 112.00232 81.33032
+114.28802 83.80646 114.28802 83.80646 112.00232 81.33032 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33032 112.00232 81.33032
+114.28802 83.80646 114.28802 83.80646 112.00232 81.33032 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33032 112.00232 81.33032
+114.28802 83.80646 114.28802 83.80646 112.00232 81.33032 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 83.80627 112.00232 83.80627
+114.28802 86.28241 114.28802 86.28241 112.00232 83.80627 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 83.80627 112.00232 83.80627
+114.28802 86.28241 114.28802 86.28241 112.00232 83.80627 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 83.80627 112.00232 83.80627
+114.28802 86.28241 114.28802 86.28241 112.00232 83.80627 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 83.80627 112.00232 83.80627
+114.28802 86.28241 114.28802 86.28241 112.00232 83.80627 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 83.80627 112.00232 83.80627
+114.28802 86.28241 114.28802 86.28241 112.00232 83.80627 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 83.80627 112.00232 83.80627
+114.28802 86.28241 114.28802 86.28241 112.00232 83.80627 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 86.28241 112.00232 86.28241
+114.28802 88.75854 114.28802 88.75854 112.00232 86.28241 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 86.28241 112.00232 86.28241
+114.28802 88.75854 114.28802 88.75854 112.00232 86.28241 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 86.28241 112.00232 86.28241
+114.28802 88.75854 114.28802 88.75854 112.00232 86.28241 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 86.28241 112.00232 86.28241
+114.28802 88.75854 114.28802 88.75854 112.00232 86.28241 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 86.28241 112.00232 86.28241
+114.28802 88.75854 114.28802 88.75854 112.00232 86.28241 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 86.28241 112.00232 86.28241
+114.28802 88.75854 114.28802 88.75854 112.00232 86.28241 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 86.28241 112.00232 86.28241
+114.28802 88.75854 114.28802 88.75854 112.00232 86.28241 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 88.75854 112.00232 88.75854
+114.28802 91.23468 114.28802 91.23468 112.00232 88.75854 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 88.75854 112.00232 88.75854
+114.28802 91.23468 114.28802 91.23468 112.00232 88.75854 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 88.75854 112.00232 88.75854
+114.28802 91.23468 114.28802 91.23468 112.00232 88.75854 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 88.75854 112.00232 88.75854
+114.28802 91.23468 114.28802 91.23468 112.00232 88.75854 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 88.75854 112.00232 88.75854
+114.28802 91.23468 114.28802 91.23468 112.00232 88.75854 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 88.75854 112.00232 88.75854
+114.28802 91.23468 114.28802 91.23468 112.00232 88.75854 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 88.75854 112.00232 88.75854
+114.28802 91.23468 114.28802 91.23468 112.00232 88.75854 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 91.2345 112.00232 91.2345
+114.28802 93.71063 114.28802 93.71063 112.00232 91.2345 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 91.2345 112.00232 91.2345
+114.28802 93.71063 114.28802 93.71063 112.00232 91.2345 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 91.2345 112.00232 91.2345
+114.28802 93.71063 114.28802 93.71063 112.00232 91.2345 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 91.2345 112.00232 91.2345
+114.28802 93.71063 114.28802 93.71063 112.00232 91.2345 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 91.2345 112.00232 91.2345
+114.28802 93.71063 114.28802 93.71063 112.00232 91.2345 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 91.2345 112.00232 91.2345
+114.28802 93.71063 114.28802 93.71063 112.00232 91.2345 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 91.2345 112.00232 91.2345
+114.28802 93.71063 114.28802 93.71063 112.00232 91.2345 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 112.00232 93.71063
+114.28802 96.18677 114.28802 96.18677 112.00232 93.71063 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 112.00232 93.71063
+114.28802 96.18677 114.28802 96.18677 112.00232 93.71063 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 112.00232 93.71063
+114.28802 96.18677 114.28802 96.18677 112.00232 93.71063 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 112.00232 93.71063
+114.28802 96.18677 114.28802 96.18677 112.00232 93.71063 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 112.00232 93.71063
+114.28802 96.18677 114.28802 96.18677 112.00232 93.71063 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 112.00232 93.71063
+114.28802 96.18677 114.28802 96.18677 112.00232 93.71063 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 112.00232 93.71063
+114.28802 96.18677 114.28802 96.18677 112.00232 93.71063 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 96.18677 112.00232 96.18677
+114.28802 98.6629 114.28802 98.6629 112.00232 96.18677 112.00232
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 96.18677 112.00232 96.18677
+114.28802 98.6629 114.28802 98.6629 112.00232 96.18677 112.00232
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 96.18677 112.00232 96.18677
+114.28802 98.6629 114.28802 98.6629 112.00232 96.18677 112.00232
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 96.18677 112.00232 96.18677
+114.28802 98.6629 114.28802 98.6629 112.00232 96.18677 112.00232
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 96.18677 112.00232 96.18677
+114.28802 98.6629 114.28802 98.6629 112.00232 96.18677 112.00232
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 96.18677 112.00232 96.18677
+114.28802 98.6629 114.28802 98.6629 112.00232 96.18677 112.00232
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 96.18677 112.00232 96.18677
+114.28802 98.6629 114.28802 98.6629 112.00232 96.18677 112.00232
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 112.00232 98.66272
+114.28802 101.13885 114.28802 101.13885 112.00232 98.66272 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 112.00232 98.66272
+114.28802 101.13885 114.28802 101.13885 112.00232 98.66272 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 112.00232 98.66272
+114.28802 101.13885 114.28802 101.13885 112.00232 98.66272 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 112.00232 98.66272
+114.28802 101.13885 114.28802 101.13885 112.00232 98.66272 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 112.00232 98.66272
+114.28802 101.13885 114.28802 101.13885 112.00232 98.66272 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 112.00232 98.66272
+114.28802 101.13885 114.28802 101.13885 112.00232 98.66272 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 112.00232 98.66272
+114.28802 101.13885 114.28802 101.13885 112.00232 98.66272 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 112.00232 101.13885
+114.28802 103.61499 114.28802 103.61499 112.00232 101.13885 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 112.00232 101.13885
+114.28802 103.61499 114.28802 103.61499 112.00232 101.13885 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 112.00232 101.13885
+114.28802 103.61499 114.28802 103.61499 112.00232 101.13885 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 112.00232 101.13885
+114.28802 103.61499 114.28802 103.61499 112.00232 101.13885 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 112.00232 101.13885
+114.28802 103.61499 114.28802 103.61499 112.00232 101.13885 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 112.00232 101.13885
+114.28802 103.61499 114.28802 103.61499 112.00232 101.13885 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 112.00232 101.13885
+114.28802 103.61499 114.28802 103.61499 112.00232 101.13885 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 112.00232 101.13885
+114.28802 103.61499 114.28802 103.61499 112.00232 101.13885 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 112.00232 103.61499
+114.28802 106.09113 114.28802 106.09113 112.00232 103.61499 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 112.00232 103.61499
+114.28802 106.09113 114.28802 106.09113 112.00232 103.61499 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 109.71643 103.61499
+112.00214 106.09113 112.00214 106.09113 109.71643 103.61499 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 109.71643 103.61499
+112.00214 106.09113 112.00214 106.09113 109.71643 103.61499 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 109.71643 103.61499
+112.00214 106.09113 112.00214 106.09113 109.71643 103.61499 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 109.71643 103.61499
+112.00214 106.09113 112.00214 106.09113 109.71643 103.61499 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 109.71643 103.61499
+112.00214 106.09113 112.00214 106.09113 109.71643 103.61499 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 109.71643 106.09113
+112.00214 108.56726 112.00214 108.56726 109.71643 106.09113 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 109.71643 106.09113
+112.00214 108.56726 112.00214 108.56726 109.71643 106.09113 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 109.71643 106.09113
+112.00214 108.56726 112.00214 108.56726 109.71643 106.09113 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 109.71643 106.09113
+112.00214 108.56726 112.00214 108.56726 109.71643 106.09113 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 109.71643 106.09113
+112.00214 108.56726 112.00214 108.56726 109.71643 106.09113 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 109.71643 106.09113
+112.00214 108.56726 112.00214 108.56726 109.71643 106.09113 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 109.71643 106.09113
+112.00214 108.56726 112.00214 108.56726 109.71643 106.09113 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 109.71643 106.09113
+112.00214 108.56726 112.00214 108.56726 109.71643 106.09113 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 109.71643 108.56708
+112.00214 111.04321 112.00214 111.04321 109.71643 108.56708 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 109.71643 108.56708
+112.00214 111.04321 112.00214 111.04321 109.71643 108.56708 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 109.71643 108.56708
+112.00214 111.04321 112.00214 111.04321 109.71643 108.56708 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 109.71643 108.56708
+112.00214 111.04321 112.00214 111.04321 109.71643 108.56708 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 109.71643 108.56708
+112.00214 111.04321 112.00214 111.04321 109.71643 108.56708 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 109.71643 108.56708
+112.00214 111.04321 112.00214 111.04321 109.71643 108.56708 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 109.71643 108.56708
+112.00214 111.04321 112.00214 111.04321 109.71643 108.56708 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 109.71643 111.04321
+112.00214 113.51935 112.00214 113.51935 109.71643 111.04321 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 109.71643 111.04321
+112.00214 113.51935 112.00214 113.51935 109.71643 111.04321 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 109.71643 111.04321
+112.00214 113.51935 112.00214 113.51935 109.71643 111.04321 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 109.71643 111.04321
+112.00214 113.51935 112.00214 113.51935 109.71643 111.04321 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 107.43073 111.04321
+109.71643 113.51935 109.71643 113.51935 107.43073 111.04321 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 107.43073 111.04321
+109.71643 113.51935 109.71643 113.51935 107.43073 111.04321 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 107.43073 111.04321
+109.71643 113.51935 109.71643 113.51935 107.43073 111.04321 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 107.43073 111.04321
+109.71643 113.51935 109.71643 113.51935 107.43073 111.04321 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 107.43073 111.04321
+109.71643 113.51935 109.71643 113.51935 107.43073 111.04321 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 107.43073 113.51935
+109.71643 115.99548 109.71643 115.99548 107.43073 113.51935 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 107.43073 113.51935
+109.71643 115.99548 109.71643 115.99548 107.43073 113.51935 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 107.43073 113.51935
+109.71643 115.99548 109.71643 115.99548 107.43073 113.51935 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 107.43073 113.51935
+109.71643 115.99548 109.71643 115.99548 107.43073 113.51935 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 107.43073 113.51935
+109.71643 115.99548 109.71643 115.99548 107.43073 113.51935 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 107.43073 113.51935
+109.71643 115.99548 109.71643 115.99548 107.43073 113.51935 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 107.43073 113.51935
+109.71643 115.99548 109.71643 115.99548 107.43073 113.51935 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 107.43073 113.51935
+109.71643 115.99548 109.71643 115.99548 107.43073 113.51935 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 107.43073 115.9953
+109.71643 118.47144 109.71643 118.47144 107.43073 115.9953 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 107.43073 115.9953
+109.71643 118.47144 109.71643 118.47144 107.43073 115.9953 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 107.43073 115.9953
+109.71643 118.47144 109.71643 118.47144 107.43073 115.9953 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 105.14502 115.9953
+107.43073 118.47144 107.43073 118.47144 105.14502 115.9953 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 105.14502 115.9953
+107.43073 118.47144 107.43073 118.47144 105.14502 115.9953 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 105.14502 115.9953
+107.43073 118.47144 107.43073 118.47144 105.14502 115.9953 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 105.14502 115.9953
+107.43073 118.47144 107.43073 118.47144 105.14502 115.9953 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 105.14502 115.9953
+107.43073 118.47144 107.43073 118.47144 105.14502 115.9953 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 105.14502 115.9953
+107.43073 118.47144 107.43073 118.47144 105.14502 115.9953 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 105.14502 118.47144
+107.43073 120.94757 107.43073 120.94757 105.14502 118.47144 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 105.14502 118.47144
+107.43073 120.94757 107.43073 120.94757 105.14502 118.47144 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 105.14502 118.47144
+107.43073 120.94757 107.43073 120.94757 105.14502 118.47144 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 105.14502 118.47144
+107.43073 120.94757 107.43073 120.94757 105.14502 118.47144 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 105.14502 118.47144
+107.43073 120.94757 107.43073 120.94757 105.14502 118.47144 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 105.14502 118.47144
+107.43073 120.94757 107.43073 120.94757 105.14502 118.47144 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 105.14502 118.47144
+107.43073 120.94757 107.43073 120.94757 105.14502 118.47144 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 105.14502 118.47144
+107.43073 120.94757 107.43073 120.94757 105.14502 118.47144 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 102.85913 118.47144
+105.14484 120.94757 105.14484 120.94757 102.85913 118.47144 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 102.85913 120.94757
+105.14484 123.4237 105.14484 123.4237 102.85913 120.94757 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 102.85913 120.94757
+105.14484 123.4237 105.14484 123.4237 102.85913 120.94757 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 102.85913 120.94757
+105.14484 123.4237 105.14484 123.4237 102.85913 120.94757 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 102.85913 120.94757
+105.14484 123.4237 105.14484 123.4237 102.85913 120.94757 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 102.85913 120.94757
+105.14484 123.4237 105.14484 123.4237 102.85913 120.94757 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 102.85913 120.94757
+105.14484 123.4237 105.14484 123.4237 102.85913 120.94757 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 102.85913 120.94757
+105.14484 123.4237 105.14484 123.4237 102.85913 120.94757 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 102.85913 120.94757
+105.14484 123.4237 105.14484 123.4237 102.85913 120.94757 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 102.85913 120.94757
+105.14484 123.4237 105.14484 123.4237 102.85913 120.94757 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 102.85913 120.94757
+105.14484 123.4237 105.14484 123.4237 102.85913 120.94757 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 102.85913 123.42352
+105.14484 125.89966 105.14484 125.89966 102.85913 123.42352 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 100.57343 123.42352
+102.85913 125.89966 102.85913 125.89966 100.57343 123.42352 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 100.57343 123.42352
+102.85913 125.89966 102.85913 125.89966 100.57343 123.42352 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 100.57343 123.42352
+102.85913 125.89966 102.85913 125.89966 100.57343 123.42352 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 100.57343 123.42352
+102.85913 125.89966 102.85913 125.89966 100.57343 123.42352 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 100.57343 123.42352
+102.85913 125.89966 102.85913 125.89966 100.57343 123.42352 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 100.57343 123.42352
+102.85913 125.89966 102.85913 125.89966 100.57343 123.42352 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 100.57343 123.42352
+102.85913 125.89966 102.85913 125.89966 100.57343 123.42352 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 100.57343 123.42352
+102.85913 125.89966 102.85913 125.89966 100.57343 123.42352 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 100.57343 123.42352
+102.85913 125.89966 102.85913 125.89966 100.57343 123.42352 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 100.57343 123.42352
+102.85913 125.89966 102.85913 125.89966 100.57343 123.42352 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 100.57343 125.89966
+102.85913 128.3758 102.85913 128.3758 100.57343 125.89966 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 98.28772 125.89966
+100.57343 128.3758 100.57343 128.3758 98.28772 125.89966 98.28772
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 98.28772 125.89966
+100.57343 128.3758 100.57343 128.3758 98.28772 125.89966 98.28772
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 98.28772 125.89966
+100.57343 128.3758 100.57343 128.3758 98.28772 125.89966 98.28772
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 98.28772 125.89966
+100.57343 128.3758 100.57343 128.3758 98.28772 125.89966 98.28772
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 98.28772 125.89966
+100.57343 128.3758 100.57343 128.3758 98.28772 125.89966 98.28772
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 98.28772 125.89966
+100.57343 128.3758 100.57343 128.3758 98.28772 125.89966 98.28772
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 98.28772 125.89966
+100.57343 128.3758 100.57343 128.3758 98.28772 125.89966 98.28772
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 98.28772 125.89966
+100.57343 128.3758 100.57343 128.3758 98.28772 125.89966 98.28772
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 98.28772 125.89966
+100.57343 128.3758 100.57343 128.3758 98.28772 125.89966 98.28772
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 98.28772 125.89966
+100.57343 128.3758 100.57343 128.3758 98.28772 125.89966 98.28772
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 98.28772 128.3758
+100.57343 130.85193 100.57343 130.85193 98.28772 128.3758 98.28772
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 96.00183 128.3758
+98.28754 130.85193 98.28754 130.85193 96.00183 128.3758 96.00183
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 96.00183 128.3758
+98.28754 130.85193 98.28754 130.85193 96.00183 128.3758 96.00183
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 96.00183 128.3758
+98.28754 130.85193 98.28754 130.85193 96.00183 128.3758 96.00183
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 96.00183 128.3758
+98.28754 130.85193 98.28754 130.85193 96.00183 128.3758 96.00183
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 96.00183 128.3758
+98.28754 130.85193 98.28754 130.85193 96.00183 128.3758 96.00183
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 96.00183 128.3758
+98.28754 130.85193 98.28754 130.85193 96.00183 128.3758 96.00183
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 96.00183 128.3758
+98.28754 130.85193 98.28754 130.85193 96.00183 128.3758 96.00183
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 96.00183 128.3758
+98.28754 130.85193 98.28754 130.85193 96.00183 128.3758 96.00183
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 96.00183 128.3758
+98.28754 130.85193 98.28754 130.85193 96.00183 128.3758 96.00183
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 93.71613 128.3758
+96.00183 130.85193 96.00183 130.85193 93.71613 128.3758 93.71613
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 93.71613 128.3758
+96.00183 130.85193 96.00183 130.85193 93.71613 128.3758 93.71613
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 93.71613 128.3758
+96.00183 130.85193 96.00183 130.85193 93.71613 128.3758 93.71613
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 93.71613 128.3758
+96.00183 130.85193 96.00183 130.85193 93.71613 128.3758 93.71613
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 93.71613 130.85193
+96.00183 133.32806 96.00183 133.32806 93.71613 130.85193 93.71613
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 93.71613 130.85193
+96.00183 133.32806 96.00183 133.32806 93.71613 130.85193 93.71613
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 93.71613 130.85193
+96.00183 133.32806 96.00183 133.32806 93.71613 130.85193 93.71613
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 93.71613 130.85193
+96.00183 133.32806 96.00183 133.32806 93.71613 130.85193 93.71613
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 93.71613 130.85193
+96.00183 133.32806 96.00183 133.32806 93.71613 130.85193 93.71613
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 91.43042 130.85193
+93.71613 133.32806 93.71613 133.32806 91.43042 130.85193 91.43042
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 91.43042 130.85193
+93.71613 133.32806 93.71613 133.32806 91.43042 130.85193 91.43042
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 91.43042 130.85193
+93.71613 133.32806 93.71613 133.32806 91.43042 130.85193 91.43042
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 91.43042 130.85193
+93.71613 133.32806 93.71613 133.32806 91.43042 130.85193 91.43042
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 91.43042 130.85193
+93.71613 133.32806 93.71613 133.32806 91.43042 130.85193 91.43042
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 91.43042 130.85193
+93.71613 133.32806 93.71613 133.32806 91.43042 130.85193 91.43042
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 91.43042 130.85193
+93.71613 133.32806 93.71613 133.32806 91.43042 130.85193 91.43042
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 91.43042 130.85193
+93.71613 133.32806 93.71613 133.32806 91.43042 130.85193 91.43042
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 91.43042 130.85193
+93.71613 133.32806 93.71613 133.32806 91.43042 130.85193 91.43042
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 89.14471 130.85193
+91.43042 133.32806 91.43042 133.32806 89.14471 130.85193 89.14471
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 89.14471 130.85193
+91.43042 133.32806 91.43042 133.32806 89.14471 130.85193 89.14471
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 89.14471 133.32788
+91.43042 135.80402 91.43042 135.80402 89.14471 133.32788 89.14471
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 89.14471 133.32788
+91.43042 135.80402 91.43042 135.80402 89.14471 133.32788 89.14471
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 89.14471 133.32788
+91.43042 135.80402 91.43042 135.80402 89.14471 133.32788 89.14471
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 89.14471 133.32788
+91.43042 135.80402 91.43042 135.80402 89.14471 133.32788 89.14471
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 89.14471 133.32788
+91.43042 135.80402 91.43042 135.80402 89.14471 133.32788 89.14471
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 89.14471 133.32788
+91.43042 135.80402 91.43042 135.80402 89.14471 133.32788 89.14471
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 89.14471 133.32788
+91.43042 135.80402 91.43042 135.80402 89.14471 133.32788 89.14471
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 86.85883 133.32788
+89.14453 135.80402 89.14453 135.80402 86.85883 133.32788 86.85883
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 86.85883 133.32788
+89.14453 135.80402 89.14453 135.80402 86.85883 133.32788 86.85883
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 86.85883 133.32788
+89.14453 135.80402 89.14453 135.80402 86.85883 133.32788 86.85883
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 86.85883 133.32788
+89.14453 135.80402 89.14453 135.80402 86.85883 133.32788 86.85883
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 86.85883 133.32788
+89.14453 135.80402 89.14453 135.80402 86.85883 133.32788 86.85883
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 86.85883 133.32788
+89.14453 135.80402 89.14453 135.80402 86.85883 133.32788 86.85883
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 86.85883 133.32788
+89.14453 135.80402 89.14453 135.80402 86.85883 133.32788 86.85883
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 86.85883 133.32788
+89.14453 135.80402 89.14453 135.80402 86.85883 133.32788 86.85883
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 84.57312 133.32788
+86.85883 135.80402 86.85883 135.80402 84.57312 133.32788 84.57312
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 84.57312 133.32788
+86.85883 135.80402 86.85883 135.80402 84.57312 133.32788 84.57312
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 84.57312 133.32788
+86.85883 135.80402 86.85883 135.80402 84.57312 133.32788 84.57312
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 84.57312 133.32788
+86.85883 135.80402 86.85883 135.80402 84.57312 133.32788 84.57312
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 84.57312 133.32788
+86.85883 135.80402 86.85883 135.80402 84.57312 133.32788 84.57312
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 84.57312 133.32788
+86.85883 135.80402 86.85883 135.80402 84.57312 133.32788 84.57312
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 84.57312 133.32788
+86.85883 135.80402 86.85883 135.80402 84.57312 133.32788 84.57312
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 84.57312 133.32788
+86.85883 135.80402 86.85883 135.80402 84.57312 133.32788 84.57312
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 82.28741 135.80402
+84.57312 138.28015 84.57312 138.28015 82.28741 135.80402 82.28741
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 82.28741 135.80402
+84.57312 138.28015 84.57312 138.28015 82.28741 135.80402 82.28741
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 82.28741 135.80402
+84.57312 138.28015 84.57312 138.28015 82.28741 135.80402 82.28741
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 82.28741 135.80402
+84.57312 138.28015 84.57312 138.28015 82.28741 135.80402 82.28741
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 82.28741 135.80402
+84.57312 138.28015 84.57312 138.28015 82.28741 135.80402 82.28741
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 82.28741 135.80402
+84.57312 138.28015 84.57312 138.28015 82.28741 135.80402 82.28741
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 82.28741 135.80402
+84.57312 138.28015 84.57312 138.28015 82.28741 135.80402 82.28741
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 82.28741 135.80402
+84.57312 138.28015 84.57312 138.28015 82.28741 135.80402 82.28741
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 80.00153 135.80402
+82.28723 138.28015 82.28723 138.28015 80.00153 135.80402 80.00153
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 80.00153 135.80402
+82.28723 138.28015 82.28723 138.28015 80.00153 135.80402 80.00153
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 80.00153 135.80402
+82.28723 138.28015 82.28723 138.28015 80.00153 135.80402 80.00153
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 80.00153 135.80402
+82.28723 138.28015 82.28723 138.28015 80.00153 135.80402 80.00153
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 80.00153 135.80402
+82.28723 138.28015 82.28723 138.28015 80.00153 135.80402 80.00153
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 80.00153 135.80402
+82.28723 138.28015 82.28723 138.28015 80.00153 135.80402 80.00153
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 80.00153 135.80402
+82.28723 138.28015 82.28723 138.28015 80.00153 135.80402 80.00153
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 80.00153 135.80402
+82.28723 138.28015 82.28723 138.28015 80.00153 135.80402 80.00153
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 77.71582 135.80402
+80.00153 138.28015 80.00153 138.28015 77.71582 135.80402 77.71582
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 77.71582 135.80402
+80.00153 138.28015 80.00153 138.28015 77.71582 135.80402 77.71582
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 77.71582 135.80402
+80.00153 138.28015 80.00153 138.28015 77.71582 135.80402 77.71582
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 77.71582 135.80402
+80.00153 138.28015 80.00153 138.28015 77.71582 135.80402 77.71582
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 77.71582 135.80402
+80.00153 138.28015 80.00153 138.28015 77.71582 135.80402 77.71582
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 77.71582 135.80402
+80.00153 138.28015 80.00153 138.28015 77.71582 135.80402 77.71582
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 77.71582 135.80402
+80.00153 138.28015 80.00153 138.28015 77.71582 135.80402 77.71582
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 75.43011 135.80402
+77.71582 138.28015 77.71582 138.28015 75.43011 135.80402 75.43011
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 75.43011 135.80402
+77.71582 138.28015 77.71582 138.28015 75.43011 135.80402 75.43011
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 75.43011 135.80402
+77.71582 138.28015 77.71582 138.28015 75.43011 135.80402 75.43011
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 75.43011 135.80402
+77.71582 138.28015 77.71582 138.28015 75.43011 135.80402 75.43011
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 75.43011 135.80402
+77.71582 138.28015 77.71582 138.28015 75.43011 135.80402 75.43011
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 75.43011 135.80402
+77.71582 138.28015 77.71582 138.28015 75.43011 135.80402 75.43011
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 75.43011 135.80402
+77.71582 138.28015 77.71582 138.28015 75.43011 135.80402 75.43011
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 75.43011 135.80402
+77.71582 138.28015 77.71582 138.28015 75.43011 135.80402 75.43011
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 73.14441 135.80402
+75.43011 138.28015 75.43011 138.28015 73.14441 135.80402 73.14441
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 73.14441 135.80402
+75.43011 138.28015 75.43011 138.28015 73.14441 135.80402 73.14441
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 73.14441 135.80402
+75.43011 138.28015 75.43011 138.28015 73.14441 135.80402 73.14441
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 73.14441 135.80402
+75.43011 138.28015 75.43011 138.28015 73.14441 135.80402 73.14441
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 73.14441 135.80402
+75.43011 138.28015 75.43011 138.28015 73.14441 135.80402 73.14441
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 73.14441 135.80402
+75.43011 138.28015 75.43011 138.28015 73.14441 135.80402 73.14441
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 73.14441 135.80402
+75.43011 138.28015 75.43011 138.28015 73.14441 135.80402 73.14441
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 70.85852 135.80402
+73.14423 138.28015 73.14423 138.28015 70.85852 135.80402 70.85852
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 70.85852 135.80402
+73.14423 138.28015 73.14423 138.28015 70.85852 135.80402 70.85852
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 70.85852 135.80402
+73.14423 138.28015 73.14423 138.28015 70.85852 135.80402 70.85852
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 70.85852 135.80402
+73.14423 138.28015 73.14423 138.28015 70.85852 135.80402 70.85852
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 70.85852 135.80402
+73.14423 138.28015 73.14423 138.28015 70.85852 135.80402 70.85852
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 70.85852 135.80402
+73.14423 138.28015 73.14423 138.28015 70.85852 135.80402 70.85852
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 70.85852 135.80402
+73.14423 138.28015 73.14423 138.28015 70.85852 135.80402 70.85852
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 70.85852 135.80402
+73.14423 138.28015 73.14423 138.28015 70.85852 135.80402 70.85852
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 68.57281 135.80402
+70.85852 138.28015 70.85852 138.28015 68.57281 135.80402 68.57281
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 68.57281 135.80402
+70.85852 138.28015 70.85852 138.28015 68.57281 135.80402 68.57281
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 68.57281 135.80402
+70.85852 138.28015 70.85852 138.28015 68.57281 135.80402 68.57281
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 68.57281 135.80402
+70.85852 138.28015 70.85852 138.28015 68.57281 135.80402 68.57281
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 68.57281 135.80402
+70.85852 138.28015 70.85852 138.28015 68.57281 135.80402 68.57281
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 68.57281 135.80402
+70.85852 138.28015 70.85852 138.28015 68.57281 135.80402 68.57281
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 68.57281 135.80402
+70.85852 138.28015 70.85852 138.28015 68.57281 135.80402 68.57281
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 66.28711 135.80402
+68.57281 138.28015 68.57281 138.28015 66.28711 135.80402 66.28711
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 66.28711 135.80402
+68.57281 138.28015 68.57281 138.28015 66.28711 135.80402 66.28711
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 66.28711 135.80402
+68.57281 138.28015 68.57281 138.28015 66.28711 135.80402 66.28711
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 66.28711 135.80402
+68.57281 138.28015 68.57281 138.28015 66.28711 135.80402 66.28711
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 66.28711 135.80402
+68.57281 138.28015 68.57281 138.28015 66.28711 135.80402 66.28711
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 66.28711 135.80402
+68.57281 138.28015 68.57281 138.28015 66.28711 135.80402 66.28711
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 66.28711 135.80402
+68.57281 138.28015 68.57281 138.28015 66.28711 135.80402 66.28711
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 66.28711 135.80402
+68.57281 138.28015 68.57281 138.28015 66.28711 135.80402 66.28711
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 64.00122 135.80402
+66.28693 138.28015 66.28693 138.28015 64.00122 135.80402 64.00122
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 64.00122 135.80402
+66.28693 138.28015 66.28693 138.28015 64.00122 135.80402 64.00122
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 64.00122 135.80402
+66.28693 138.28015 66.28693 138.28015 64.00122 135.80402 64.00122
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 64.00122 135.80402
+66.28693 138.28015 66.28693 138.28015 64.00122 135.80402 64.00122
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 64.00122 135.80402
+66.28693 138.28015 66.28693 138.28015 64.00122 135.80402 64.00122
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 64.00122 135.80402
+66.28693 138.28015 66.28693 138.28015 64.00122 135.80402 64.00122
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 64.00122 135.80402
+66.28693 138.28015 66.28693 138.28015 64.00122 135.80402 64.00122
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 61.71552 135.80402
+64.00122 138.28015 64.00122 138.28015 61.71552 135.80402 61.71552
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 61.71552 135.80402
+64.00122 138.28015 64.00122 138.28015 61.71552 135.80402 61.71552
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 61.71552 135.80402
+64.00122 138.28015 64.00122 138.28015 61.71552 135.80402 61.71552
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 61.71552 133.32788
+64.00122 135.80402 64.00122 135.80402 61.71552 133.32788 61.71552
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 61.71552 133.32788
+64.00122 135.80402 64.00122 135.80402 61.71552 133.32788 61.71552
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 61.71552 133.32788
+64.00122 135.80402 64.00122 135.80402 61.71552 133.32788 61.71552
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 61.71552 133.32788
+64.00122 135.80402 64.00122 135.80402 61.71552 133.32788 61.71552
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 61.71552 133.32788
+64.00122 135.80402 64.00122 135.80402 61.71552 133.32788 61.71552
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 59.42981 133.32788
+61.71552 135.80402 61.71552 135.80402 59.42981 133.32788 59.42981
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 59.42981 133.32788
+61.71552 135.80402 61.71552 135.80402 59.42981 133.32788 59.42981
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 59.42981 133.32788
+61.71552 135.80402 61.71552 135.80402 59.42981 133.32788 59.42981
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 59.42981 133.32788
+61.71552 135.80402 61.71552 135.80402 59.42981 133.32788 59.42981
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 59.42981 133.32788
+61.71552 135.80402 61.71552 135.80402 59.42981 133.32788 59.42981
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 59.42981 133.32788
+61.71552 135.80402 61.71552 135.80402 59.42981 133.32788 59.42981
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 59.42981 133.32788
+61.71552 135.80402 61.71552 135.80402 59.42981 133.32788 59.42981
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 59.42981 133.32788
+61.71552 135.80402 61.71552 135.80402 59.42981 133.32788 59.42981
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 57.14392 133.32788
+59.42963 135.80402 59.42963 135.80402 57.14392 133.32788 57.14392
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 57.14392 133.32788
+59.42963 135.80402 59.42963 135.80402 57.14392 133.32788 57.14392
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 57.14392 133.32788
+59.42963 135.80402 59.42963 135.80402 57.14392 133.32788 57.14392
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 57.14392 133.32788
+59.42963 135.80402 59.42963 135.80402 57.14392 133.32788 57.14392
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 57.14392 133.32788
+59.42963 135.80402 59.42963 135.80402 57.14392 133.32788 57.14392
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 57.14392 133.32788
+59.42963 135.80402 59.42963 135.80402 57.14392 133.32788 57.14392
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 57.14392 133.32788
+59.42963 135.80402 59.42963 135.80402 57.14392 133.32788 57.14392
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 54.85822 133.32788
+57.14392 135.80402 57.14392 135.80402 54.85822 133.32788 54.85822
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 54.85822 133.32788
+57.14392 135.80402 57.14392 135.80402 54.85822 133.32788 54.85822
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 54.85822 130.85193
+57.14392 133.32806 57.14392 133.32806 54.85822 130.85193 54.85822
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 54.85822 130.85193
+57.14392 133.32806 57.14392 133.32806 54.85822 130.85193 54.85822
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 54.85822 130.85193
+57.14392 133.32806 57.14392 133.32806 54.85822 130.85193 54.85822
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 54.85822 130.85193
+57.14392 133.32806 57.14392 133.32806 54.85822 130.85193 54.85822
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 54.85822 130.85193
+57.14392 133.32806 57.14392 133.32806 54.85822 130.85193 54.85822
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 54.85822 130.85193
+57.14392 133.32806 57.14392 133.32806 54.85822 130.85193 54.85822
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 52.57251 130.85193
+54.85822 133.32806 54.85822 133.32806 52.57251 130.85193 52.57251
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 52.57251 130.85193
+54.85822 133.32806 54.85822 133.32806 52.57251 130.85193 52.57251
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 52.57251 130.85193
+54.85822 133.32806 54.85822 133.32806 52.57251 130.85193 52.57251
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 52.57251 130.85193
+54.85822 133.32806 54.85822 133.32806 52.57251 130.85193 52.57251
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 52.57251 130.85193
+54.85822 133.32806 54.85822 133.32806 52.57251 130.85193 52.57251
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 52.57251 130.85193
+54.85822 133.32806 54.85822 133.32806 52.57251 130.85193 52.57251
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 52.57251 130.85193
+54.85822 133.32806 54.85822 133.32806 52.57251 130.85193 52.57251
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 52.57251 130.85193
+54.85822 133.32806 54.85822 133.32806 52.57251 130.85193 52.57251
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 50.2868 130.85193
+52.57251 133.32806 52.57251 133.32806 50.2868 130.85193 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 50.2868 130.85193
+52.57251 133.32806 52.57251 133.32806 50.2868 130.85193 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 50.2868 128.3758
+52.57251 130.85193 52.57251 130.85193 50.2868 128.3758 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 50.2868 128.3758
+52.57251 130.85193 52.57251 130.85193 50.2868 128.3758 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 50.2868 128.3758
+52.57251 130.85193 52.57251 130.85193 50.2868 128.3758 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 50.2868 128.3758
+52.57251 130.85193 52.57251 130.85193 50.2868 128.3758 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 50.2868 128.3758
+52.57251 130.85193 52.57251 130.85193 50.2868 128.3758 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 50.2868 128.3758
+52.57251 130.85193 52.57251 130.85193 50.2868 128.3758 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 50.2868 128.3758
+52.57251 130.85193 52.57251 130.85193 50.2868 128.3758 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 48.00092 128.3758
+50.28662 130.85193 50.28662 130.85193 48.00092 128.3758 48.00092
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 48.00092 128.3758
+50.28662 130.85193 50.28662 130.85193 48.00092 128.3758 48.00092
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 48.00092 128.3758
+50.28662 130.85193 50.28662 130.85193 48.00092 128.3758 48.00092
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 48.00092 128.3758
+50.28662 130.85193 50.28662 130.85193 48.00092 128.3758 48.00092
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 48.00092 128.3758
+50.28662 130.85193 50.28662 130.85193 48.00092 128.3758 48.00092
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 48.00092 128.3758
+50.28662 130.85193 50.28662 130.85193 48.00092 128.3758 48.00092
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 48.00092 125.89966
+50.28662 128.3758 50.28662 128.3758 48.00092 125.89966 48.00092 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 48.00092 125.89966
+50.28662 128.3758 50.28662 128.3758 48.00092 125.89966 48.00092 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 45.71521 125.89966
+48.00092 128.3758 48.00092 128.3758 45.71521 125.89966 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 45.71521 125.89966
+48.00092 128.3758 48.00092 128.3758 45.71521 125.89966 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 45.71521 125.89966
+48.00092 128.3758 48.00092 128.3758 45.71521 125.89966 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 45.71521 125.89966
+48.00092 128.3758 48.00092 128.3758 45.71521 125.89966 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 45.71521 125.89966
+48.00092 128.3758 48.00092 128.3758 45.71521 125.89966 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 45.71521 125.89966
+48.00092 128.3758 48.00092 128.3758 45.71521 125.89966 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 45.71521 125.89966
+48.00092 128.3758 48.00092 128.3758 45.71521 125.89966 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 45.71521 125.89966
+48.00092 128.3758 48.00092 128.3758 45.71521 125.89966 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 45.71521 125.89966
+48.00092 128.3758 48.00092 128.3758 45.71521 125.89966 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 43.4295 125.89966
+45.71521 128.3758 45.71521 128.3758 43.4295 125.89966 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 43.4295 123.42352
+45.71521 125.89966 45.71521 125.89966 43.4295 123.42352 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 43.4295 123.42352
+45.71521 125.89966 45.71521 125.89966 43.4295 123.42352 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 43.4295 123.42352
+45.71521 125.89966 45.71521 125.89966 43.4295 123.42352 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 43.4295 123.42352
+45.71521 125.89966 45.71521 125.89966 43.4295 123.42352 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 43.4295 123.42352
+45.71521 125.89966 45.71521 125.89966 43.4295 123.42352 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 43.4295 123.42352
+45.71521 125.89966 45.71521 125.89966 43.4295 123.42352 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 43.4295 123.42352
+45.71521 125.89966 45.71521 125.89966 43.4295 123.42352 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 43.4295 123.42352
+45.71521 125.89966 45.71521 125.89966 43.4295 123.42352 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 41.14362 123.42352
+43.42932 125.89966 43.42932 125.89966 41.14362 123.42352 41.14362
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 41.14362 123.42352
+43.42932 125.89966 43.42932 125.89966 41.14362 123.42352 41.14362
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 41.14362 123.42352
+43.42932 125.89966 43.42932 125.89966 41.14362 123.42352 41.14362
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 41.14362 120.94757
+43.42932 123.4237 43.42932 123.4237 41.14362 120.94757 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 41.14362 120.94757
+43.42932 123.4237 43.42932 123.4237 41.14362 120.94757 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 41.14362 120.94757
+43.42932 123.4237 43.42932 123.4237 41.14362 120.94757 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 41.14362 120.94757
+43.42932 123.4237 43.42932 123.4237 41.14362 120.94757 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 41.14362 120.94757
+43.42932 123.4237 43.42932 123.4237 41.14362 120.94757 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 41.14362 120.94757
+43.42932 123.4237 43.42932 123.4237 41.14362 120.94757 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 41.14362 120.94757
+43.42932 123.4237 43.42932 123.4237 41.14362 120.94757 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 38.85791 120.94757
+41.14362 123.4237 41.14362 123.4237 38.85791 120.94757 38.85791 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 38.85791 120.94757
+41.14362 123.4237 41.14362 123.4237 38.85791 120.94757 38.85791 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 38.85791 118.47144
+41.14362 120.94757 41.14362 120.94757 38.85791 118.47144 38.85791
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 38.85791 118.47144
+41.14362 120.94757 41.14362 120.94757 38.85791 118.47144 38.85791
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 38.85791 118.47144
+41.14362 120.94757 41.14362 120.94757 38.85791 118.47144 38.85791
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 38.85791 118.47144
+41.14362 120.94757 41.14362 120.94757 38.85791 118.47144 38.85791
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 38.85791 118.47144
+41.14362 120.94757 41.14362 120.94757 38.85791 118.47144 38.85791
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 38.85791 118.47144
+41.14362 120.94757 41.14362 120.94757 38.85791 118.47144 38.85791
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 38.85791 118.47144
+41.14362 120.94757 41.14362 120.94757 38.85791 118.47144 38.85791
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 38.85791 118.47144
+41.14362 120.94757 41.14362 120.94757 38.85791 118.47144 38.85791
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 36.5722 118.47144
+38.85791 120.94757 38.85791 120.94757 36.5722 118.47144 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 36.5722 115.9953
+38.85791 118.47144 38.85791 118.47144 36.5722 115.9953 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 36.5722 115.9953
+38.85791 118.47144 38.85791 118.47144 36.5722 115.9953 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 36.5722 115.9953
+38.85791 118.47144 38.85791 118.47144 36.5722 115.9953 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 36.5722 115.9953
+38.85791 118.47144 38.85791 118.47144 36.5722 115.9953 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 36.5722 115.9953
+38.85791 118.47144 38.85791 118.47144 36.5722 115.9953 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 36.5722 115.9953
+38.85791 118.47144 38.85791 118.47144 36.5722 115.9953 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 36.5722 115.9953
+38.85791 118.47144 38.85791 118.47144 36.5722 115.9953 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 36.5722 115.9953
+38.85791 118.47144 38.85791 118.47144 36.5722 115.9953 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 36.5722 115.9953
+38.85791 118.47144 38.85791 118.47144 36.5722 115.9953 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 36.5722 113.51935
+38.85791 115.99548 38.85791 115.99548 36.5722 113.51935 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 36.5722 113.51935
+38.85791 115.99548 38.85791 115.99548 36.5722 113.51935 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 34.28632 113.51935
+36.57202 115.99548 36.57202 115.99548 34.28632 113.51935 34.28632
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 34.28632 113.51935
+36.57202 115.99548 36.57202 115.99548 34.28632 113.51935 34.28632
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 34.28632 113.51935
+36.57202 115.99548 36.57202 115.99548 34.28632 113.51935 34.28632
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 34.28632 113.51935
+36.57202 115.99548 36.57202 115.99548 34.28632 113.51935 34.28632
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 34.28632 113.51935
+36.57202 115.99548 36.57202 115.99548 34.28632 113.51935 34.28632
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 34.28632 113.51935
+36.57202 115.99548 36.57202 115.99548 34.28632 113.51935 34.28632
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 34.28632 111.04321
+36.57202 113.51935 36.57202 113.51935 34.28632 111.04321 34.28632
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 34.28632 111.04321
+36.57202 113.51935 36.57202 113.51935 34.28632 111.04321 34.28632
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 34.28632 111.04321
+36.57202 113.51935 36.57202 113.51935 34.28632 111.04321 34.28632
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 34.28632 111.04321
+36.57202 113.51935 36.57202 113.51935 34.28632 111.04321 34.28632
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 34.28632 111.04321
+36.57202 113.51935 36.57202 113.51935 34.28632 111.04321 34.28632
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 34.28632 111.04321
+36.57202 113.51935 36.57202 113.51935 34.28632 111.04321 34.28632
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 32.00061 111.04321
+34.28632 113.51935 34.28632 113.51935 32.00061 111.04321 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 32.00061 111.04321
+34.28632 113.51935 34.28632 113.51935 32.00061 111.04321 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 32.00061 108.56708
+34.28632 111.04321 34.28632 111.04321 32.00061 108.56708 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 32.00061 108.56708
+34.28632 111.04321 34.28632 111.04321 32.00061 108.56708 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 32.00061 108.56708
+34.28632 111.04321 34.28632 111.04321 32.00061 108.56708 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 32.00061 108.56708
+34.28632 111.04321 34.28632 111.04321 32.00061 108.56708 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 32.00061 108.56708
+34.28632 111.04321 34.28632 111.04321 32.00061 108.56708 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 32.00061 108.56708
+34.28632 111.04321 34.28632 111.04321 32.00061 108.56708 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 32.00061 108.56708
+34.28632 111.04321 34.28632 111.04321 32.00061 108.56708 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 32.00061 108.56708
+34.28632 111.04321 34.28632 111.04321 32.00061 108.56708 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 32.00061 106.09113
+34.28632 108.56726 34.28632 108.56726 32.00061 106.09113 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 32.00061 106.09113
+34.28632 108.56726 34.28632 108.56726 32.00061 106.09113 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 32.00061 106.09113
+34.28632 108.56726 34.28632 108.56726 32.00061 106.09113 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 32.00061 106.09113
+34.28632 108.56726 34.28632 108.56726 32.00061 106.09113 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 32.00061 106.09113
+34.28632 108.56726 34.28632 108.56726 32.00061 106.09113 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 32.00061 106.09113
+34.28632 108.56726 34.28632 108.56726 32.00061 106.09113 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 29.7149 106.09113
+32.00061 108.56726 32.00061 108.56726 29.7149 106.09113 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 29.7149 103.61499
+32.00061 106.09113 32.00061 106.09113 29.7149 103.61499 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 29.7149 103.61499
+32.00061 106.09113 32.00061 106.09113 29.7149 103.61499 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 29.7149 103.61499
+32.00061 106.09113 32.00061 106.09113 29.7149 103.61499 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 29.7149 103.61499
+32.00061 106.09113 32.00061 106.09113 29.7149 103.61499 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 29.7149 103.61499
+32.00061 106.09113 32.00061 106.09113 29.7149 103.61499 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 29.7149 103.61499
+32.00061 106.09113 32.00061 106.09113 29.7149 103.61499 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 29.7149 103.61499
+32.00061 106.09113 32.00061 106.09113 29.7149 103.61499 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 29.7149 103.61499
+32.00061 106.09113 32.00061 106.09113 29.7149 103.61499 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 29.7149 101.13885
+32.00061 103.61499 32.00061 103.61499 29.7149 101.13885 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 29.7149 101.13885
+32.00061 103.61499 32.00061 103.61499 29.7149 101.13885 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 29.7149 101.13885
+32.00061 103.61499 32.00061 103.61499 29.7149 101.13885 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 29.7149 101.13885
+32.00061 103.61499 32.00061 103.61499 29.7149 101.13885 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 29.7149 101.13885
+32.00061 103.61499 32.00061 103.61499 29.7149 101.13885 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 29.7149 101.13885
+32.00061 103.61499 32.00061 103.61499 29.7149 101.13885 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 29.7149 101.13885
+32.00061 103.61499 32.00061 103.61499 29.7149 101.13885 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 29.7149 98.66272
+32.00061 101.13885 32.00061 101.13885 29.7149 98.66272 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 29.7149 98.66272
+32.00061 101.13885 32.00061 101.13885 29.7149 98.66272 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 29.7149 98.66272
+32.00061 101.13885 32.00061 101.13885 29.7149 98.66272 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 29.7149 98.66272
+32.00061 101.13885 32.00061 101.13885 29.7149 98.66272 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 27.4292 98.66272
+29.7149 101.13885 29.7149 101.13885 27.4292 98.66272 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 27.4292 98.66272
+29.7149 101.13885 29.7149 101.13885 27.4292 98.66272 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 27.4292 98.66272
+29.7149 101.13885 29.7149 101.13885 27.4292 98.66272 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 96.18677 27.4292 96.18677
+29.7149 98.6629 29.7149 98.6629 27.4292 96.18677 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 96.18677 27.4292 96.18677
+29.7149 98.6629 29.7149 98.6629 27.4292 96.18677 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 96.18677 27.4292 96.18677
+29.7149 98.6629 29.7149 98.6629 27.4292 96.18677 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 96.18677 27.4292 96.18677
+29.7149 98.6629 29.7149 98.6629 27.4292 96.18677 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 96.18677 27.4292 96.18677
+29.7149 98.6629 29.7149 98.6629 27.4292 96.18677 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 96.18677 27.4292 96.18677
+29.7149 98.6629 29.7149 98.6629 27.4292 96.18677 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 96.18677 27.4292 96.18677
+29.7149 98.6629 29.7149 98.6629 27.4292 96.18677 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 27.4292 93.71063
+29.7149 96.18677 29.7149 96.18677 27.4292 93.71063 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 27.4292 93.71063
+29.7149 96.18677 29.7149 96.18677 27.4292 93.71063 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 27.4292 93.71063
+29.7149 96.18677 29.7149 96.18677 27.4292 93.71063 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 27.4292 93.71063
+29.7149 96.18677 29.7149 96.18677 27.4292 93.71063 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 27.4292 93.71063
+29.7149 96.18677 29.7149 96.18677 27.4292 93.71063 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 27.4292 93.71063
+29.7149 96.18677 29.7149 96.18677 27.4292 93.71063 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 27.4292 93.71063
+29.7149 96.18677 29.7149 96.18677 27.4292 93.71063 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 91.2345 27.4292 91.2345
+29.7149 93.71063 29.7149 93.71063 27.4292 91.2345 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 91.2345 27.4292 91.2345
+29.7149 93.71063 29.7149 93.71063 27.4292 91.2345 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 91.2345 27.4292 91.2345
+29.7149 93.71063 29.7149 93.71063 27.4292 91.2345 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 91.2345 27.4292 91.2345
+29.7149 93.71063 29.7149 93.71063 27.4292 91.2345 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 91.2345 27.4292 91.2345
+29.7149 93.71063 29.7149 93.71063 27.4292 91.2345 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 91.2345 27.4292 91.2345
+29.7149 93.71063 29.7149 93.71063 27.4292 91.2345 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 88.75854 27.4292 88.75854
+29.7149 91.23468 29.7149 91.23468 27.4292 88.75854 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 88.75854 27.4292 88.75854
+29.7149 91.23468 29.7149 91.23468 27.4292 88.75854 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 88.75854 27.4292 88.75854
+29.7149 91.23468 29.7149 91.23468 27.4292 88.75854 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 88.75854 27.4292 88.75854
+29.7149 91.23468 29.7149 91.23468 27.4292 88.75854 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 88.75854 27.4292 88.75854
+29.7149 91.23468 29.7149 91.23468 27.4292 88.75854 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 88.75854 27.4292 88.75854
+29.7149 91.23468 29.7149 91.23468 27.4292 88.75854 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 88.75854 27.4292 88.75854
+29.7149 91.23468 29.7149 91.23468 27.4292 88.75854 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 86.28241 27.4292 86.28241
+29.7149 88.75854 29.7149 88.75854 27.4292 86.28241 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 86.28241 27.4292 86.28241
+29.7149 88.75854 29.7149 88.75854 27.4292 86.28241 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 86.28241 27.4292 86.28241
+29.7149 88.75854 29.7149 88.75854 27.4292 86.28241 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 86.28241 27.4292 86.28241
+29.7149 88.75854 29.7149 88.75854 27.4292 86.28241 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 86.28241 27.4292 86.28241
+29.7149 88.75854 29.7149 88.75854 27.4292 86.28241 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 86.28241 27.4292 86.28241
+29.7149 88.75854 29.7149 88.75854 27.4292 86.28241 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 86.28241 27.4292 86.28241
+29.7149 88.75854 29.7149 88.75854 27.4292 86.28241 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 83.80627 27.4292 83.80627
+29.7149 86.28241 29.7149 86.28241 27.4292 83.80627 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 83.80627 27.4292 83.80627
+29.7149 86.28241 29.7149 86.28241 27.4292 83.80627 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 83.80627 27.4292 83.80627
+29.7149 86.28241 29.7149 86.28241 27.4292 83.80627 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 83.80627 27.4292 83.80627
+29.7149 86.28241 29.7149 86.28241 27.4292 83.80627 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 83.80627 27.4292 83.80627
+29.7149 86.28241 29.7149 86.28241 27.4292 83.80627 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 83.80627 27.4292 83.80627
+29.7149 86.28241 29.7149 86.28241 27.4292 83.80627 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33032 27.4292 81.33032
+29.7149 83.80646 29.7149 83.80646 27.4292 81.33032 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33032 27.4292 81.33032
+29.7149 83.80646 29.7149 83.80646 27.4292 81.33032 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33032 27.4292 81.33032
+29.7149 83.80646 29.7149 83.80646 27.4292 81.33032 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33032 27.4292 81.33032
+29.7149 83.80646 29.7149 83.80646 27.4292 81.33032 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33032 27.4292 81.33032
+29.7149 83.80646 29.7149 83.80646 27.4292 81.33032 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33032 27.4292 81.33032
+29.7149 83.80646 29.7149 83.80646 27.4292 81.33032 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33032 27.4292 81.33032
+29.7149 83.80646 29.7149 83.80646 27.4292 81.33032 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 78.85419 27.4292 78.85419
+29.7149 81.33032 29.7149 81.33032 27.4292 78.85419 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 78.85419 27.4292 78.85419
+29.7149 81.33032 29.7149 81.33032 27.4292 78.85419 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 78.85419 27.4292 78.85419
+29.7149 81.33032 29.7149 81.33032 27.4292 78.85419 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 78.85419 27.4292 78.85419
+29.7149 81.33032 29.7149 81.33032 27.4292 78.85419 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 78.85419 27.4292 78.85419
+29.7149 81.33032 29.7149 81.33032 27.4292 78.85419 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 78.85419 27.4292 78.85419
+29.7149 81.33032 29.7149 81.33032 27.4292 78.85419 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.37805 27.4292 76.37805
+29.7149 78.85419 29.7149 78.85419 27.4292 76.37805 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.37805 27.4292 76.37805
+29.7149 78.85419 29.7149 78.85419 27.4292 76.37805 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.37805 27.4292 76.37805
+29.7149 78.85419 29.7149 78.85419 27.4292 76.37805 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.37805 27.4292 76.37805
+29.7149 78.85419 29.7149 78.85419 27.4292 76.37805 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.37805 27.4292 76.37805
+29.7149 78.85419 29.7149 78.85419 27.4292 76.37805 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.37805 27.4292 76.37805
+29.7149 78.85419 29.7149 78.85419 27.4292 76.37805 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.37805 27.4292 76.37805
+29.7149 78.85419 29.7149 78.85419 27.4292 76.37805 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 73.90192 27.4292 73.90192
+29.7149 76.37805 29.7149 76.37805 27.4292 73.90192 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 73.90192 27.4292 73.90192
+29.7149 76.37805 29.7149 76.37805 27.4292 73.90192 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 73.90192 27.4292 73.90192
+29.7149 76.37805 29.7149 76.37805 27.4292 73.90192 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 73.90192 27.4292 73.90192
+29.7149 76.37805 29.7149 76.37805 27.4292 73.90192 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 73.90192 29.7149 73.90192
+32.00061 76.37805 32.00061 76.37805 29.7149 73.90192 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 73.90192 29.7149 73.90192
+32.00061 76.37805 32.00061 76.37805 29.7149 73.90192 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 71.42596 29.7149 71.42596
+32.00061 73.9021 32.00061 73.9021 29.7149 71.42596 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 71.42596 29.7149 71.42596
+32.00061 73.9021 32.00061 73.9021 29.7149 71.42596 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 71.42596 29.7149 71.42596
+32.00061 73.9021 32.00061 73.9021 29.7149 71.42596 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 71.42596 29.7149 71.42596
+32.00061 73.9021 32.00061 73.9021 29.7149 71.42596 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 71.42596 29.7149 71.42596
+32.00061 73.9021 32.00061 73.9021 29.7149 71.42596 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 71.42596 29.7149 71.42596
+32.00061 73.9021 32.00061 73.9021 29.7149 71.42596 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 71.42596 29.7149 71.42596
+32.00061 73.9021 32.00061 73.9021 29.7149 71.42596 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 29.7149 68.94983
+32.00061 71.42596 32.00061 71.42596 29.7149 68.94983 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 29.7149 68.94983
+32.00061 71.42596 32.00061 71.42596 29.7149 68.94983 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 29.7149 68.94983
+32.00061 71.42596 32.00061 71.42596 29.7149 68.94983 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 29.7149 68.94983
+32.00061 71.42596 32.00061 71.42596 29.7149 68.94983 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 29.7149 68.94983
+32.00061 71.42596 32.00061 71.42596 29.7149 68.94983 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 29.7149 68.94983
+32.00061 71.42596 32.00061 71.42596 29.7149 68.94983 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 29.7149 68.94983
+32.00061 71.42596 32.00061 71.42596 29.7149 68.94983 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 29.7149 66.4737
+32.00061 68.94983 32.00061 68.94983 29.7149 66.4737 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 29.7149 66.4737
+32.00061 68.94983 32.00061 68.94983 29.7149 66.4737 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 32.00061 66.4737
+34.28632 68.94983 34.28632 68.94983 32.00061 66.4737 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 32.00061 66.4737
+34.28632 68.94983 34.28632 68.94983 32.00061 66.4737 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 32.00061 66.4737
+34.28632 68.94983 34.28632 68.94983 32.00061 66.4737 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 32.00061 66.4737
+34.28632 68.94983 34.28632 68.94983 32.00061 66.4737 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 32.00061 66.4737
+34.28632 68.94983 34.28632 68.94983 32.00061 66.4737 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 32.00061 63.99774
+34.28632 66.47388 34.28632 66.47388 32.00061 63.99774 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 32.00061 63.99774
+34.28632 66.47388 34.28632 66.47388 32.00061 63.99774 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 32.00061 63.99774
+34.28632 66.47388 34.28632 66.47388 32.00061 63.99774 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 32.00061 63.99774
+34.28632 66.47388 34.28632 66.47388 32.00061 63.99774 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 32.00061 63.99774
+34.28632 66.47388 34.28632 66.47388 32.00061 63.99774 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 32.00061 63.99774
+34.28632 66.47388 34.28632 66.47388 32.00061 63.99774 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 32.00061 63.99774
+34.28632 66.47388 34.28632 66.47388 32.00061 63.99774 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 32.00061 61.5216
+34.28632 63.99774 34.28632 63.99774 32.00061 61.5216 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 34.28632 61.5216
+36.57202 63.99774 36.57202 63.99774 34.28632 61.5216 34.28632 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 34.28632 61.5216
+36.57202 63.99774 36.57202 63.99774 34.28632 61.5216 34.28632 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 34.28632 61.5216
+36.57202 63.99774 36.57202 63.99774 34.28632 61.5216 34.28632 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 34.28632 61.5216
+36.57202 63.99774 36.57202 63.99774 34.28632 61.5216 34.28632 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 34.28632 61.5216
+36.57202 63.99774 36.57202 63.99774 34.28632 61.5216 34.28632 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 34.28632 61.5216
+36.57202 63.99774 36.57202 63.99774 34.28632 61.5216 34.28632 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 34.28632 59.04547
+36.57202 61.5216 36.57202 61.5216 34.28632 59.04547 34.28632 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 34.28632 59.04547
+36.57202 61.5216 36.57202 61.5216 34.28632 59.04547 34.28632 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 34.28632 59.04547
+36.57202 61.5216 36.57202 61.5216 34.28632 59.04547 34.28632 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 34.28632 59.04547
+36.57202 61.5216 36.57202 61.5216 34.28632 59.04547 34.28632 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 34.28632 59.04547
+36.57202 61.5216 36.57202 61.5216 34.28632 59.04547 34.28632 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 36.5722 59.04547
+38.85791 61.5216 38.85791 61.5216 36.5722 59.04547 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 36.5722 59.04547
+38.85791 61.5216 38.85791 61.5216 36.5722 59.04547 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 36.5722 56.56952
+38.85791 59.04565 38.85791 59.04565 36.5722 56.56952 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 36.5722 56.56952
+38.85791 59.04565 38.85791 59.04565 36.5722 56.56952 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 36.5722 56.56952
+38.85791 59.04565 38.85791 59.04565 36.5722 56.56952 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 36.5722 56.56952
+38.85791 59.04565 38.85791 59.04565 36.5722 56.56952 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 36.5722 56.56952
+38.85791 59.04565 38.85791 59.04565 36.5722 56.56952 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 36.5722 56.56952
+38.85791 59.04565 38.85791 59.04565 36.5722 56.56952 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 36.5722 56.56952
+38.85791 59.04565 38.85791 59.04565 36.5722 56.56952 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 38.85791 56.56952
+41.14362 59.04565 41.14362 59.04565 38.85791 56.56952 38.85791 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 38.85791 54.09338
+41.14362 56.56952 41.14362 56.56952 38.85791 54.09338 38.85791 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 38.85791 54.09338
+41.14362 56.56952 41.14362 56.56952 38.85791 54.09338 38.85791 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 38.85791 54.09338
+41.14362 56.56952 41.14362 56.56952 38.85791 54.09338 38.85791 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 38.85791 54.09338
+41.14362 56.56952 41.14362 56.56952 38.85791 54.09338 38.85791 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 38.85791 54.09338
+41.14362 56.56952 41.14362 56.56952 38.85791 54.09338 38.85791 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 38.85791 54.09338
+41.14362 56.56952 41.14362 56.56952 38.85791 54.09338 38.85791 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 38.85791 54.09338
+41.14362 56.56952 41.14362 56.56952 38.85791 54.09338 38.85791 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 41.14362 51.61725
+43.42932 54.09338 43.42932 54.09338 41.14362 51.61725 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 41.14362 51.61725
+43.42932 54.09338 43.42932 54.09338 41.14362 51.61725 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 41.14362 51.61725
+43.42932 54.09338 43.42932 54.09338 41.14362 51.61725 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 41.14362 51.61725
+43.42932 54.09338 43.42932 54.09338 41.14362 51.61725 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 41.14362 51.61725
+43.42932 54.09338 43.42932 54.09338 41.14362 51.61725 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 41.14362 51.61725
+43.42932 54.09338 43.42932 54.09338 41.14362 51.61725 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 41.14362 51.61725
+43.42932 54.09338 43.42932 54.09338 41.14362 51.61725 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 41.14362 51.61725
+43.42932 54.09338 43.42932 54.09338 41.14362 51.61725 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 43.4295 51.61725
+45.71521 54.09338 45.71521 54.09338 43.4295 51.61725 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 43.4295 49.14111
+45.71521 51.61725 45.71521 51.61725 43.4295 49.14111 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 43.4295 49.14111
+45.71521 51.61725 45.71521 51.61725 43.4295 49.14111 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 43.4295 49.14111
+45.71521 51.61725 45.71521 51.61725 43.4295 49.14111 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 43.4295 49.14111
+45.71521 51.61725 45.71521 51.61725 43.4295 49.14111 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 43.4295 49.14111
+45.71521 51.61725 45.71521 51.61725 43.4295 49.14111 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 43.4295 49.14111
+45.71521 51.61725 45.71521 51.61725 43.4295 49.14111 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 45.71521 49.14111
+48.00092 51.61725 48.00092 51.61725 45.71521 49.14111 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 45.71521 49.14111
+48.00092 51.61725 48.00092 51.61725 45.71521 49.14111 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 45.71521 46.66516
+48.00092 49.1413 48.00092 49.1413 45.71521 46.66516 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 45.71521 46.66516
+48.00092 49.1413 48.00092 49.1413 45.71521 46.66516 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 45.71521 46.66516
+48.00092 49.1413 48.00092 49.1413 45.71521 46.66516 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 45.71521 46.66516
+48.00092 49.1413 48.00092 49.1413 45.71521 46.66516 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 0.2
+0.2 1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 12.0 0.0 12.0 144.0 /Lineto /lineto
+load def 1 setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n
+2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4
+mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED
+/Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 14.47614 0.0 14.47614 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 16.95209 0.0 16.95209 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 19.42822 0.0 19.42822 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 21.90436 0.0 21.90436 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 24.38031 0.0 24.38031 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 26.85645 0.0 26.85645 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 29.33258 0.0 29.33258 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 31.80872 0.0 31.80872 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 34.28467 0.0 34.28467 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 36.7608 0.0 36.7608 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 39.23694 0.0 39.23694 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 41.71289 0.0 41.71289 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 44.18903 0.0 44.18903 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 46.66516 0.0 46.66516 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 49.14111 0.0 49.14111 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 51.61725 0.0 51.61725 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 54.09338 0.0 54.09338 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 56.56952 0.0 56.56952 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 59.04547 0.0 59.04547 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 61.5216 0.0 61.5216 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 63.99774 0.0 63.99774 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 66.4737 0.0 66.4737 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 68.94983 0.0 68.94983 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 71.42596 0.0 71.42596 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 73.90192 0.0 73.90192 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 76.37805 0.0 76.37805 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 78.85419 0.0 78.85419 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 81.33032 0.0 81.33032 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 83.80627 0.0 83.80627 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 86.28241 0.0 86.28241 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 88.75854 0.0 88.75854 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 91.2345 0.0 91.2345 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 93.71063 0.0 93.71063 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 96.18677 0.0 96.18677 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 98.66272 0.0 98.66272 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 101.13885 0.0 101.13885 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 103.61499 0.0 103.61499 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 106.09113 0.0 106.09113 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 108.56708 0.0 108.56708 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 111.04321 0.0 111.04321 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 113.51935 0.0 113.51935 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 115.9953 0.0 115.9953 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 118.47144 0.0 118.47144 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 120.94757 0.0 120.94757 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 123.42352 0.0 123.42352 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 125.89966 0.0 125.89966 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 128.3758 0.0 128.3758 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 130.85193 0.0 130.85193 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 133.32788 0.0 133.32788 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 135.80402 0.0 135.80402 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 138.28015 0.0 138.28015 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 140.7561 0.0 140.7561 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 143.23224 0.0 143.23224 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 145.70837 0.0 145.70837 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 148.18433 0.0 148.18433 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 150.66046 0.0 150.66046 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 153.1366 0.0 153.1366 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 155.61255 0.0 155.61255 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 158.08868 0.0 158.08868 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 160.56482 0.0 160.56482 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 163.04095 0.0 163.04095 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 165.5169 0.0 165.5169 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 167.99304 0.0 167.99304 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 0.0 12.0 0.0 /Lineto /lineto
+load def 1 setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n
+2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4
+mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED
+/Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 2.2857 12.0 2.2857 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 4.5716 12.0 4.5716 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 6.8573 12.0 6.8573 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 9.143 12.0 9.143 /Lineto /lineto
+load def 1 setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n
+2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4
+mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED
+/Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 11.42871 12.0 11.42871 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 13.7146 12.0 13.7146 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 16.0003 12.0 16.0003 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 18.28601 12.0 18.28601 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 20.5719 12.0 20.5719 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 22.8576 12.0 22.8576 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 25.14331 12.0 25.14331 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 27.4292 12.0 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 29.7149 12.0 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 32.00061 12.0 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 34.28632 12.0 34.28632 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 36.5722 12.0 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 38.85791 12.0 38.85791 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 41.14362 12.0 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 43.4295 12.0 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 45.71521 12.0 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 48.00092 12.0 48.00092 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 50.2868 12.0 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 52.57251 12.0 52.57251 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 54.85822 12.0 54.85822 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 57.14392 12.0 57.14392 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 59.42981 12.0 59.42981 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 61.71552 12.0 61.71552 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 64.00122 12.0 64.00122 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 66.28711 12.0 66.28711 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 68.57281 12.0 68.57281 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 70.85852 12.0 70.85852 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 73.14441 12.0 73.14441 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 75.43011 12.0 75.43011 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 77.71582 12.0 77.71582 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 80.00153 12.0 80.00153 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 82.28741 12.0 82.28741 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 84.57312 12.0 84.57312 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 86.85883 12.0 86.85883 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 89.14471 12.0 89.14471 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 91.43042 12.0 91.43042 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 93.71613 12.0 93.71613 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 96.00183 12.0 96.00183 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 98.28772 12.0 98.28772 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 100.57343 12.0 100.57343 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 102.85913 12.0 102.85913 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 105.14502 12.0 105.14502 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 107.43073 12.0 107.43073 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 109.71643 12.0 109.71643 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 112.00232 12.0 112.00232 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 114.28802 12.0 114.28802 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 116.57373 12.0 116.57373 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 118.85944 12.0 118.85944 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 121.14532 12.0 121.14532 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 123.43103 12.0 123.43103 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 125.71674 12.0 125.71674 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 128.00262 12.0 128.00262 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 130.28833 12.0 130.28833 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 132.57404 12.0 132.57404 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 134.85992 12.0 134.85992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 137.14563 12.0 137.14563 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 139.43134 12.0 139.43134 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 141.71704 12.0 141.71704 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 144.00293 12.0 144.00293 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.5 SLW 1 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def /t 0 def /t1 0.5 def /dt t1 t sub 199
+div def /F@pstplot ((1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0-1.5)*(2.0)+15*t^2*(1-t)^4*(2.0+2)*(2.0)+
+20*t^3*(1-t)^3*(2.0+6)*(2.0)+15*t^4*(1-t)^2*(2.0+5)*(2.0)+6*t^5*(1-t)*(2.0+1.5)*(2.0)+t^6*(2.0)*(2.0)|(1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0+2)*(2.0)+15*t^2*(1-t)^4*(2.0+5)*(2.0)+
+20*t^3*(1-t)^3*(2.0+3)*(2.0)+15*t^4*(1-t)^2*(2.0-1)*(2.0)+6*t^5*(1-t)*(2.0-2)*(2.0)+t^6*(2.0)*(2.0))
+ tx@AlgToPs begin AlgToPs end cvx def /xy { F@pstplot 12.0 mul exch
+12.0 mul exch } def /ps@Exit false def xy moveto 199 1 sub { /t t
+dt add def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0 mul
+lt { moveto }{ L } ifelse } ifelse ps@Exit { exit } if } repeat ps@Exit
+not { /t t1 def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0
+mul lt { moveto }{ L } ifelse } ifelse } if gsave 0.5 SLW 1 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.5 SLW 1 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def /t 0.5 def /t1 1 def /dt t1 t sub 199
+div def /F@pstplot ((1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0-1.5)*(2.0)+15*t^2*(1-t)^4*(2.0+2)*(2.0)+
+20*t^3*(1-t)^3*(2.0+6)*(2.0)+15*t^4*(1-t)^2*(2.0+5)*(2.0)+6*t^5*(1-t)*(2.0+1.5)*(2.0)+t^6*(2.0)*(2.0)|(1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0+2)*(2.0)+15*t^2*(1-t)^4*(2.0+5)*(2.0)+
+20*t^3*(1-t)^3*(2.0+3)*(2.0)+15*t^4*(1-t)^2*(2.0-1)*(2.0)+6*t^5*(1-t)*(2.0-2)*(2.0)+t^6*(2.0)*(2.0))
+ tx@AlgToPs begin AlgToPs end cvx def /xy { F@pstplot 12.0 mul exch
+12.0 mul exch } def /ps@Exit false def xy moveto 199 1 sub { /t t
+dt add def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0 mul
+lt { moveto }{ L } ifelse } ifelse ps@Exit { exit } if } repeat ps@Exit
+not { /t t1 def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0
+mul lt { moveto }{ L } ifelse } ifelse } if gsave 0.5 SLW 1 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial 0 TeXcolorgray
+0 TeXcolorgray eop end
+%%Trailer
+
+userdict /end-hook known{end-hook}if
+%%EOF
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/b6of4.eps b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/b6of4.eps
new file mode 100644
index 00000000000..35ba96785c4
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/b6of4.eps
@@ -0,0 +1,33594 @@
+%!PS-Adobe-3.0 EPSF-3.0
+%%Creator: dvips(k) 5.992 Copyright 2012 Radical Eye Software
+%%Title: testps-fig1.dvi
+%%CreationDate: Wed Nov 27 17:24:55 2013
+%%Pages: 1
+%%PageOrder: Ascend
+%%BoundingBox: 117 554 275 700
+%%DocumentPaperSizes: Letter
+%%EndComments
+%DVIPSWebPage: (www.radicaleye.com)
+%DVIPSCommandLine: DVIPS.EXE testps-fig1
+%DVIPSParameters: dpi=600
+%DVIPSSource: TeX output 2013.11.27:1722
+%%BeginProcSet: tex.pro 0 0
+%!
+/TeXDict 300 dict def TeXDict begin/N{def}def/B{bind def}N/S{exch}N/X{S
+N}B/A{dup}B/TR{translate}N/isls false N/vsize 11 72 mul N/hsize 8.5 72
+mul N/landplus90{false}def/@rigin{isls{[0 landplus90{1 -1}{-1 1}ifelse 0
+0 0]concat}if 72 Resolution div 72 VResolution div neg scale isls{
+landplus90{VResolution 72 div vsize mul 0 exch}{Resolution -72 div hsize
+mul 0}ifelse TR}if Resolution VResolution vsize -72 div 1 add mul TR[
+matrix currentmatrix{A A round sub abs 0.00001 lt{round}if}forall round
+exch round exch]setmatrix}N/@landscape{/isls true N}B/@manualfeed{
+statusdict/manualfeed true put}B/@copies{/#copies X}B/FMat[1 0 0 -1 0 0]
+N/FBB[0 0 0 0]N/nn 0 N/IEn 0 N/ctr 0 N/df-tail{/nn 8 dict N nn begin
+/FontType 3 N/FontMatrix fntrx N/FontBBox FBB N string/base X array
+/BitMaps X/BuildChar{CharBuilder}N/Encoding IEn N end A{/foo setfont}2
+array copy cvx N load 0 nn put/ctr 0 N[}B/sf 0 N/df{/sf 1 N/fntrx FMat N
+df-tail}B/dfs{div/sf X/fntrx[sf 0 0 sf neg 0 0]N df-tail}B/E{pop nn A
+definefont setfont}B/Cw{Cd A length 5 sub get}B/Ch{Cd A length 4 sub get
+}B/Cx{128 Cd A length 3 sub get sub}B/Cy{Cd A length 2 sub get 127 sub}
+B/Cdx{Cd A length 1 sub get}B/Ci{Cd A type/stringtype ne{ctr get/ctr ctr
+1 add N}if}B/CharBuilder{save 3 1 roll S A/base get 2 index get S
+/BitMaps get S get/Cd X pop/ctr 0 N Cdx 0 Cx Cy Ch sub Cx Cw add Cy
+setcachedevice Cw Ch true[1 0 0 -1 -.1 Cx sub Cy .1 sub]{Ci}imagemask
+restore}B/D{/cc X A type/stringtype ne{]}if nn/base get cc ctr put nn
+/BitMaps get S ctr S sf 1 ne{A A length 1 sub A 2 index S get sf div put
+}if put/ctr ctr 1 add N}B/I{cc 1 add D}B/bop{userdict/bop-hook known{
+bop-hook}if/SI save N @rigin 0 0 moveto/V matrix currentmatrix A 1 get A
+mul exch 0 get A mul add .99 lt{/QV}{/RV}ifelse load def pop pop}N/eop{
+SI restore userdict/eop-hook known{eop-hook}if showpage}N/@start{
+userdict/start-hook known{start-hook}if pop/VResolution X/Resolution X
+1000 div/DVImag X/IEn 256 array N 2 string 0 1 255{IEn S A 360 add 36 4
+index cvrs cvn put}for pop 65781.76 div/vsize X 65781.76 div/hsize X}N
+/p{show}N/RMat[1 0 0 -1 0 0]N/BDot 260 string N/Rx 0 N/Ry 0 N/V{}B/RV/v{
+/Ry X/Rx X V}B statusdict begin/product where{pop false[(Display)(NeXT)
+(LaserWriter 16/600)]{A length product length le{A length product exch 0
+exch getinterval eq{pop true exit}if}{pop}ifelse}forall}{false}ifelse
+end{{gsave TR -.1 .1 TR 1 1 scale Rx Ry false RMat{BDot}imagemask
+grestore}}{{gsave TR -.1 .1 TR Rx Ry scale 1 1 false RMat{BDot}
+imagemask grestore}}ifelse B/QV{gsave newpath transform round exch round
+exch itransform moveto Rx 0 rlineto 0 Ry neg rlineto Rx neg 0 rlineto
+fill grestore}B/a{moveto}B/delta 0 N/tail{A/delta X 0 rmoveto}B/M{S p
+delta add tail}B/b{S p tail}B/c{-4 M}B/d{-3 M}B/e{-2 M}B/f{-1 M}B/g{0 M}
+B/h{1 M}B/i{2 M}B/j{3 M}B/k{4 M}B/w{0 rmoveto}B/l{p -4 w}B/m{p -3 w}B/n{
+p -2 w}B/o{p -1 w}B/q{p 1 w}B/r{p 2 w}B/s{p 3 w}B/t{p 4 w}B/x{0 S
+rmoveto}B/y{3 2 roll p a}B/bos{/SS save N}B/eos{SS restore}B end
+
+%%EndProcSet
+%%BeginProcSet: pstricks.pro 0 0
+% $Id: pstricks.pro 801 2013-07-09 18:10:41Z herbert $
+%
+%% PostScript prologue for pstricks.tex.
+%% Version 1.17, 2013/07/08
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%
+%
+% Define the follwing gs-functions if not known, eg when using distiller
+%
+systemdict /.setopacityalpha known not {/.setopacityalpha { pop } def } if
+systemdict /.setblendmode known not {/.setblendmode { pop } def } if
+systemdict /.setshapealpha known not {/.setshapealpha { pop } def } if
+%
+/tx@Dict 200 dict def % the main PSTricks dictionary
+tx@Dict begin
+/ADict 25 dict def % The arrow dictionary
+/CM { matrix currentmatrix } bind def
+/SLW /setlinewidth load def
+/CLW /currentlinewidth load def
+/CP /currentpoint load def
+/ED { exch def } bind def
+/L /lineto load def
+/T /translate load def
+/TMatrix { } def
+/RAngle { 0 } def
+/Sqrt { dup 0 lt { pop 0 } { sqrt } ifelse } def % return 0 for negative arguments
+/Atan { /atan load stopped { pop pop 0 } if } def % return 0 if atan not known
+/ATAN1 {neg -1 atan 180 sub } def % atan(x) (only one parameter)
+/Div { dup 0 eq { pop } { div } ifelse } def % control the division
+/tan { dup cos abs 1.e-10 lt
+ { pop 1.e10 } % return 1.e10 as infinit
+ { dup sin exch cos div } ifelse % default sin/cos
+} def
+/Tan { dup sin exch cos Div } def % sin(x)/cos(x) x in degrees
+/Acos {dup dup mul neg 1 add dup 0 lt { % arc cos, returns 0 when negative root
+ pop pop 0 }{ sqrt exch atan} ifelse } def
+/Acos2 { 2 dict begin
+ /x ED /y ED
+ y abs 1.0e-20 lt { 1.0e30 } if
+ x y div
+ dup dup mul neg 1 add dup 0 lt { % arc cos needs two values x,y
+ pop pop 0 }{ sqrt exch atan} ifelse
+ y 0 lt { 180 add } if
+} def
+/NET { neg exch neg exch T } def % change coordinate system to the negative one
+/Pyth { dup mul exch dup mul add sqrt } def % Pythagoras, expects 2 parameter
+/Pyth2 { % Pythagoras, xA yA xB yB
+ 3 -1 roll % xA xB yB yA
+ sub % xA xB yB-yA
+ 3 1 roll % yB-yA xA xB
+ sub % yB-yA xA-xB
+ Pyth } def
+/PtoC { 2 copy cos mul 3 1 roll sin mul } def % Polar to Cartesian
+/Rand { rand 4294967295 div } def % a real random number
+%----------------- hv added 20050516 ---------------
+/PiDiv2 1.57079632680 def
+/Pi 3.14159265359 def
+/TwoPi 6.28318530718 def
+/Euler 2.71828182846 def
+%/e Euler bind def
+%
+/RadtoDeg { 180 mul Pi div } bind def % convert from radian to degrees
+/DegtoRad { Pi mul 180 div } bind def % viceversa
+%
+/startGlobal { true setglobal globaldict begin } bind def
+/endGlobal { end false setglobal } bind def
+/pssetRGBcolor /setrgbcolor load def
+/pssetCMYKcolor /setcmykcolor load def
+/pssetGraycolor /setgray load def
+%
+%----------------- hv end---------------------------
+/PathLength@ { /z z y y1 sub x x1 sub Pyth add def /y1 y def /x1 x def } def
+%
+/PathLength {
+ flattenpath /z 0 def
+ { /y1 ED /x1 ED /y2 y1 def /x2 x1 def }
+ { /y ED /x ED PathLength@ }
+ {}
+ { /y y2 def /x x2 def PathLength@ }
+ /pathforall load stopped { pop pop pop pop } if
+ z
+} def
+%
+/STP { .996264 dup scale } def % BP/PT scaling
+/STV { SDict begin normalscale end STP } def %
+%
+/DashLine {
+ dup 0 gt
+ { /a .5 def PathLength exch div }
+ { pop /a 1 def PathLength } ifelse
+ /b ED % pattern should fit evenly in b
+ dup /X ED % pattern array
+ 0 get /y ED % length of first black segment
+ /z 0 X {add} forall def % length of the full pattern
+ %% Computation of the scaling factor as described by van Zandt:
+ b a .5 sub 2 mul y mul sub z Div round
+ z mul a .5 sub 2 mul y mul add b exch Div
+ %%%% scaling factor on stack.
+ /z ED %% now, z is the scaling factor
+ false % for the length test below
+ X { z mul } forall X astore %% modification TN 04-08-07
+ %%% Checking whether at least one dash in X has positive length:
+ {0 gt or} forall
+ { X 1 a sub y mul }
+ { [ 1 0 ] 0 }
+ ifelse
+ setdash stroke
+} def
+%
+/DotLine {
+ /b PathLength def
+ /a ED /z ED /y CLW def
+ /z y z add def
+ a 0 gt {
+ /b b a div def
+ }{
+ a 0 eq {
+ /b b y sub def
+ }{ a -3 eq {
+ /b b y add def } if
+ } ifelse
+ } ifelse
+ [ 0 b b z Div round Div dup 0 le { pop 1 } if ]
+ a 0 gt { 0 }{ y 2 div a -2 gt { neg }if } ifelse
+ setdash 1 setlinecap stroke
+} def
+%
+/SymbolLine { % on stack [ x y x y ...
+ counttomark % number of elements
+ 2 div cvi /n ED % n pairs
+ /YA ED /XA ED % the start point
+ n 1 sub {
+ /YB ED /XB ED
+ /XLength XB XA sub def
+ /YLength YB YA sub def
+ /PAngle YLength XLength Atan def
+ /XYLength XLength YLength Pyth def
+
+ %% for negative SymStep we calculate the distance
+ SymStep 0 lt
+ { %XYLength SymStep div abs cvi
+ /nSym SymStep abs cvi def }
+ { /nSym XYLength SymStep div cvi def }
+ ifelse
+ 0.5 setflat
+ /Shift Symbol stringwidth pop 2 div def
+ /deltaX XLength nSym div def
+ /deltaY YLength nSym div def
+ curveticks
+ { XA YA moveto }
+ { XA Shift sub YA Shift sub moveto }
+ ifelse
+ nSym {
+ gsave
+ curveticks
+ { PAngle 180 sub CorrAngle sub tickAngle add /rotAngle ED
+ currentpoint translate rotAngle rotate
+ 0 SymbolWidth 2 div moveto 0 SymbolWidth 2 div neg lineto
+ SymbolLinewidth setlinewidth stroke
+ }
+ {
+ rotateSymbol { PAngle 180 sub CorrAngle sub rotate } if
+ Symbol show
+ }
+ ifelse
+ grestore
+ deltaX deltaY rmoveto
+ } repeat
+ /YA YB def /XA XB def
+ } repeat
+ curveticks
+ { XA YA moveto }
+ { XA Shift sub YA Shift sub moveto }
+ ifelse
+ gsave
+ curveticks
+ { PAngle 180 sub CorrAngle sub tickAngle add /rotAngle ED
+ XA YA translate rotAngle rotate
+ 0 SymbolWidth 2 div moveto 0 SymbolWidth 2 div neg lineto
+ SymbolLinewidth setlinewidth stroke
+ }
+ {
+ rotateSymbol { PAngle 180 sub CorrAngle sub rotate } if
+ Symbol show
+ }
+ ifelse
+ grestore
+ pop % delete the mark symbol
+} def
+%
+/LineFill { % hv ------------ patch 7 -------------
+ gsave
+ abs /hatchWidthInc ED
+ abs /hatchSepInc ED
+ abs CLW add /a ED
+ a 0 dtransform round exch round exch
+ 2 copy idtransform
+ exch Atan rotate
+ idtransform pop /a ED
+ .25 .25 itransform pathbbox
+ /y2 ED
+ a Div ceiling cvi /x2 ED /y1 ED
+ a Div cvi /x1 ED /y2 y2 y1 sub def
+ clipType % must be defined in pstricks.tex: clip -- eoclip
+ newpath
+ 2 setlinecap
+ systemdict
+ /setstrokeadjust known { true setstrokeadjust } if
+ x2 x1 sub 1 add {
+ x1 a mul y1 moveto 0 y2 rlineto stroke
+ /x1 x1 1 add
+ hatchWidthInc 0 gt { CLW add } if
+ def
+ hatchSepInc 0 gt hatchWidthInc 0 gt or {
+ /a a hatchSepInc add def
+ CLW hatchWidthInc add SLW
+ } if
+ } repeat
+ grestore
+ pop pop } def
+%
+/DotFill {% on stack: dot radius
+ /dotRadius ED
+ abs CLW add /a ED
+ a 0 dtransform round exch round exch
+ 2 copy idtransform
+ exch Atan rotate
+ idtransform pop /a ED
+ .25 .25 itransform
+ pathbbox % llx lly urx ury of smallest bounding box
+ /y2 ED /x2 ED /y1 ED /x1 ED
+ y2 y1 sub a div 2 add cvi /Ny ED
+ x2 x1 sub a div 2 add cvi /Nx ED
+ clipType % must be defined in pstricks.tex: clip -- eoclip
+ newpath
+ /yA y1 dotRadius add CLW add def
+ /xA0 x1 dotRadius add CLW add def
+ Ny {
+ /xA xA0 def
+ Nx {
+ newpath
+ xA yA dotRadius 0 360 arc
+ SolidDot { gsave fill grestore } if
+ stroke
+ xA a add /xA ED
+ } repeat
+ yA a add /yA ED
+ } repeat
+ grestore
+} def
+%
+/PenroseFill {% on stack: scaling factor
+ /Scale ED
+% 1 exch div round /penroseFactor ED
+% a 0 dtransform round exch round exch
+% 2 copy idtransform
+% exch Atan rotate
+% idtransform pop /a ED
+% .25 .25 itransform pathbbox
+% /y2 ED
+% a Div ceiling cvi /x2 ED /y1 ED
+% a Div cvi /x1 ED /y2 y2 y1 sub def
+ clip
+ newpath
+gsave
+ 220 150 translate
+ Scale dup scale
+ systemdict /setstrokeadjust known { true setstrokeadjust } if
+ /I/S/L/W/G/+/Z/F/E/D[/def/exch/for{E D}/add{s E get mul}
+ { Z -36.2001 1 33 }{25 E S rlineto}{/q Z dup q G E q 1 + G}{Z 2 2}]{cvx def}forall
+ [0 72 1008 {dup sin E cos }F ]1 setlinejoin/s W{/a W{/b I 10{/i I 4{/m I moveto
+ i m +/j I 10{/l Z b m l + G a l G sub s m get div .2 + floor .3 + 25
+ mul j l + S rmoveto}F i L j L stroke }F}F}F}F
+ grestore
+% pop pop
+} def
+%
+/PenroseFillA {% on stack: scaling factor, border color, kite color, dart color
+ /Scale ED
+ Scale dup scale
+ /border_colour ED
+ /kite_colour ED
+ /dart_colour ED
+ clip
+
+ newpath
+ gsave
+ 100 100 translate
+ 6
+ Scale 1 lt { 1 Scale dup add div mul cvi } if %%%% Number of iterations
+ 10 %%%% Long side length in millimeters
+ /border_width { L 0.06 mul }def %%%% Choose the scalefactor for the borders
+ /L exch 25.4 div 72 mul def %%%% Conversion: mm -> inches -> points
+ /f{-1 5 sqrt add 2 div}bind def %%%% The reciprocal of the golden ratio
+ /l{L f mul}bind def %%%% Short side length l = L*f
+ /Ll{L l add}bind def %%%% Ll = L + l
+ /c{36 cos L mul}bind def %%%% c = L*cos(36)
+ /s{36 sin L mul}bind def %%%% s = L*sin(36)
+ /draw_tile { 0 0 moveto c s lineto 0 lineto gsave closepath gsave fill grestore
+ 0 setlinewidth stroke grestore border_colour stroke } bind def
+ /half_kite { dup dup 0 gt{ 1 sub gsave f f neg scale -36 rotate half_dart
+ Ll 0 translate 144 rotate kite grestore }
+ { kite_colour L draw_tile }ifelse
+ pop } bind def
+ /half_dart { dup dup 0 gt{ 1 sub gsave f f scale half_kite
+ -144 rotate Ll neg 0 translate half_dart grestore }
+ { dart_colour l draw_tile }ifelse
+ pop } bind def
+ /kite{ gsave half_kite 1 -1 scale half_kite grestore }bind def
+ border_width setlinewidth 1 setlinejoin 1 setlinecap
+% 450 0 translate
+ dup f exch neg exp dup scale
+ 5 {kite 72 rotate } repeat stroke
+ grestore
+} def
+%
+%
+/TruchetFill { % on stack: scaling factor
+ 10 dict begin
+ dup dup scale
+ 1 exch div round /penroseFactor ED
+ a 0 dtransform round exch round exch
+ 2 copy idtransform
+ exch Atan rotate
+ idtransform pop /a ED
+ .25 .25 itransform pathbbox
+ /y2 ED
+ a Div ceiling cvi /x2 ED /y1 ED
+ a Div cvi /x1 ED /y2 y2 y1 sub def
+ clip
+ newpath
+ systemdict
+ /setstrokeadjust known { true setstrokeadjust } if
+ /ma a neg def
+ /ha a 2 div def
+ /mha ha neg def
+ /tile {
+ rand dup 2 idiv 2 mul eq { 90 rotate } if
+ mha mha moveto ha mha lineto
+ ha ha lineto mha ha lineto
+% closepath .1 setlinewidth stroke
+ contents
+ } def
+ /contents{
+ 0 ha moveto ha 0 lineto
+ 0 mha moveto mha 0 lineto
+% 1 setlinewidth stroke
+ } def
+ /dotiling {
+ f ma mul a f a mul {
+ /i exch def
+ f ma mul a f a mul {
+ /j exch def
+ gsave i j translate
+ tile stroke grestore
+ } for
+ } for
+ } def
+%
+ /f 3 def
+ 5 srand dotiling
+ end % local user dict
+} def
+%
+/BeginArrow {
+ ADict begin % hold it local, for end see EndArrow
+ /@mtrx CM def
+ gsave
+ 2 copy T
+ 2 index sub neg exch
+ 3 index sub exch Atan
+ rotate newpath
+} def
+%
+/EndArrow { @mtrx setmatrix CP grestore end } def % end the ADict
+%
+/Arrow {
+ CLW mul add dup
+ 2 div /w ED
+ mul dup /h ED
+ mul /a ED
+ { 0 h T 1 -1 scale } if
+ w neg h moveto
+ 0 0 L w h L w neg a neg rlineto
+ gsave fill grestore
+} def
+%
+/ArrowD { % the sides are drawn as curves (hv 20071211)
+ CLW mul add dup
+ 2 div /w ED
+ mul dup /h ED
+ mul /Inset ED
+ { 0 h T 1 -1 scale } if % changes the direction
+% we use y=w/h^2 * x^2 as equation for the control points
+% for the coordinates the arrow is seen from top to bottom
+% the bottom (tip) is (0;0)
+ w neg h moveto % lower left of >
+ w 9 div 4 mul neg h 3 div 2 mul
+ w 9 div neg h 3 div
+ 0 0 curveto % tip of >
+ w 9 div h 3 div
+ w 9 div 4 mul h 3 div 2 mul
+ w h curveto % upper left of >
+ w neg Inset neg rlineto % move to x=0 and inset
+ gsave fill grestore
+} def
+%
+/Tbar {
+ CLW mul add /z ED
+ z -2 div CLW 2 div moveto
+ z 0 rlineto stroke
+ 0 CLW moveto
+} def
+%
+/Bracket {
+ CLW mul add dup CLW sub 2 div
+ /x ED mul CLW add /y ED /z CLW 2 div def
+ x neg y moveto
+ x neg CLW 2 div L x CLW 2 div L x y L stroke
+ 0 CLW moveto
+} def
+%
+/RoundBracket {
+ CLW mul add dup 2 div
+ /x ED mul /y ED /mtrx CM def
+ 0 CLW 2 div T x y mul 0 ne { x y scale } if
+ 1 1 moveto
+ .85 .5 .35 0 0 0 curveto
+ -.35 0 -.85 .5 -1 1 curveto
+ mtrx setmatrix stroke 0 CLW moveto
+} def
+%
+/SD { 0 360 arc fill } def
+%
+/EndDot { % DS is the dot size
+ { /z DS def } { /z 0 def } ifelse % outer or inner dimen
+ /b ED % the color definition
+ 0 z DS SD
+ b { 0 z DS CLW sub SD } if
+ 0 DS z add CLW 4 div sub
+ moveto
+} def
+%
+/Shadow { [ { /moveto load } { /lineto load } { /curveto load } {
+ /closepath load } /pathforall load stopped { pop pop pop pop CP /moveto
+ load } if ] cvx newpath 3 1 roll T exec } def
+%
+/NArray { % holds the coordinates and on top of stack the showpoints boolean
+ /showpoints ED
+ counttomark 2 div dup cvi /n ED % n 2 div on stack
+ n eq not { exch pop } if % even numbers of points? delete one
+ ] aload /Points ED
+ showpoints not { Points aload pop } if
+% { ] aload /Points ED }
+% { n 2 mul 1 add -1 roll pop } ifelse % delete the mark symbol
+} def
+%
+/Line {
+ NArray n 0 eq not
+ { n 1 eq { 0 0 /n 2 def } if ArrowA /n n 2 sub def
+ n { Lineto } repeat
+ CP 4 2 roll ArrowB L pop pop
+ } if
+} def
+%
+/LineToYAxis {
+ /Ox ED % Save the x origin value
+ NArray % all x-y pairs on stack
+ n { 2 copy moveto % go to current point
+ Ox exch Lineto % line to y-axis
+ pop % delete old x-value
+ } repeat
+} def
+%
+/LineToXAxis{
+ /Oy ED % Save the y origin value
+ NArray % all x-y pairs on stack
+ n 0 eq not
+ { n 1 eq { 0 0 /n 2 def } if
+ ArrowA
+ /n n 2 sub def
+ CP 2 copy moveto pop Oy Lineto
+ n { 2 copy moveto pop Oy Lineto } repeat
+ CP
+ 4 2 roll
+ ArrowB
+ 2 copy moveto pop Oy
+ L
+ pop pop } if
+} def
+%
+/Arcto {
+ /a [ 6 -2 roll ] cvx def
+ a r
+ /arcto load stopped { 5 } { 4 } ifelse { pop } repeat
+ a
+} def
+%
+/CheckClosed {
+ dup n 2 mul 1 sub index eq 2 index n 2 mul 1 add index eq
+ and { pop pop /n n 1 sub def } if
+} def
+%
+/Polygon {
+ NArray n 2 eq { 0 0 /n 3 def } if
+ n 3 lt
+ { n { pop pop } repeat }
+ { n 3 gt { CheckClosed } if
+ n 2 mul -2 roll
+ /y0 ED /x0 ED /y1 ED /x1 ED
+ x1 y1
+ /x1 x0 x1 add 2 div def
+ /y1 y0 y1 add 2 div def
+ x1 y1 moveto
+ /n n 2 sub def
+ n { Lineto } repeat
+ x1 y1 x0 y0 6 4 roll Lineto
+ Lineto pop pop closepath } ifelse
+} def
+%
+/SymbolPolygon { % on stack [ x y x y ...
+ counttomark % number of elements
+ 2 add /m ED
+ 2 copy m 2 roll % copy last two
+ m 2 div cvi /n ED % n pairs
+ /YA ED /XA ED % the start point
+ n 1 sub {
+ /YB ED /XB ED
+ /XLength XB XA sub def
+ /YLength YB YA sub def
+ /PAngle YLength XLength Atan def
+ /XYLength XLength YLength Pyth def
+ /nSym XYLength SymStep Div cvi def
+ /Shift Symbol stringwidth pop 2 Div def
+ /deltaX XLength nSym Div def
+ /deltaY YLength nSym Div def
+ XA Shift sub YA Shift sub moveto
+ nSym {
+ gsave rotateSymbol { PAngle 180 sub CorrAngle sub rotate } if
+ Symbol show
+ grestore
+ deltaX deltaY rmoveto
+ } repeat
+% XB Shift sub YB Shift sub moveto Symbol show
+ /YA YB def /XA XB def
+ } repeat
+ pop % delete the mark symbol
+} def
+%
+/Diamond {
+ /mtrx CM def
+ T rotate
+ /h ED
+ /w ED
+ dup 0 eq { pop } { CLW mul neg
+ /d ED
+ /a w h Atan def
+ /h d a sin Div h add def
+ /w d a cos Div w add def } ifelse
+ mark w 2 div h 2 div w 0 0 h neg w neg 0 0 h w 2 div h 2 div
+ /ArrowA { moveto } def
+ /ArrowB { } def
+ false Line
+ closepath mtrx setmatrix } def
+%
+/Triangle {
+ /mtrx CM def
+ translate
+ rotate /h ED 2 div /w ED
+ dup CLW mul /d ED
+ /h h d w h Atan sin Div sub def
+ /w w d h w Atan 2 div dup cos exch sin Div mul sub def
+ mark
+ 0 d w neg d 0 h w d 0 d
+ /ArrowA { moveto } def
+ /ArrowB { } def
+ false
+ Line
+ closepath
+ mtrx
+% DG/SR modification begin - Jun. 1, 1998 - Patch 3 (from Michael Vulis)
+% setmatrix } def
+ setmatrix pop
+} def
+% DG/SR modification end
+%
+/CCA {
+ /y ED /x ED
+ 2 copy y sub /dy1 ED
+ x sub /dx1 ED
+ /l1 dx1 dy1 Pyth def
+} def
+%
+/CC {
+ /l0 l1 def
+ /x1 x dx sub def
+ /y1 y dy sub def
+ /dx0 dx1 def
+ /dy0 dy1 def
+ CCA
+ /dx dx0 l1 c exp mul dx1 l0 c exp mul add def
+ /dy dy0 l1 c exp mul dy1 l0 c exp mul add def
+ /m dx0 dy0 Atan dx1 dy1 Atan sub 2 div cos abs b exp a mul dx dy Pyth Div 2 div def
+ /x2 x l0 dx mul m mul sub def
+ /y2 y l0 dy mul m mul sub def
+ /dx l1 dx mul m mul neg def
+ /dy l1 dy mul m mul neg def
+} def
+%
+/IC {
+ /c c 1 add def
+ c 0 lt { /c 0 def } { c 3 gt { /c 3 def } if } ifelse
+ /a a 2 mul 3 div 45 cos b exp div def
+ CCA
+ /dx 0 def
+ /dy 0 def
+} def
+%
+/BOC { IC CC x2 y2 x1 y1 ArrowA CP 4 2 roll x y curveto } def
+/NC { CC x1 y1 x2 y2 x y curveto } def
+/EOC { x dx sub y dy sub 4 2 roll ArrowB 2 copy curveto } def
+/BAC { IC CC x y moveto CC x1 y1 CP ArrowA } def
+/NAC { x2 y2 x y curveto CC x1 y1 } def
+/EAC { x2 y2 x y ArrowB curveto pop pop } def
+%
+/OpenCurve {
+ NArray n 3 lt
+ { n { pop pop } repeat }
+ { BOC /n n 3 sub def n { NC } repeat EOC } ifelse
+} def
+%
+/CurvePath {
+ %% for negative SymStep we calculate the distance
+ SymStep 0 lt { gsave PathLength SymStep div abs /SymStep ED grestore } if
+ 0.5 setflat
+ flattenpath /z 0 def /z0 0 def
+ { /y1 ED /x1 ED /y2 y1 def /x2 x1 def
+ x1 Shift sub y1 Shift sub moveto
+ gsave
+ curveticks
+ { x1 y1 translate startAngle rotate
+ 0 SymbolWidth 2 div moveto 0 SymbolWidth 2 div neg lineto
+ SymbolLinewidth setlinewidth stroke
+ }
+ { startAngle rotate Symbol show }
+ ifelse
+ grestore /z0 z def }
+ { /y ED /x ED PathLength@ z z0 sub SymStep ge {
+ x Shift sub y Shift sub moveto
+ gsave
+ curveticks
+ { y yOld sub x xOld sub Atan 180 sub CorrAngle sub /rotAngle ED
+ x y translate rotAngle rotate
+ 0 SymbolWidth 2 div moveto 0 SymbolWidth 2 div neg lineto
+ SymbolLinewidth setlinewidth stroke
+ }
+ {
+ rotateSymbol { y yOld sub x xOld sub Atan 180 sub CorrAngle sub rotate } if
+ Symbol show
+ }
+ ifelse
+ grestore /z0 z def } if
+ /yOld y def /xOld x def }
+ {} %% the lineto part
+ { /y y2 def /x x2 def PathLength@
+ x Shift sub y Shift sub moveto
+ gsave
+ curveticks
+ { y yOld sub x xOld sub Atan 180 sub /rotAngle ED
+ x y translate rotAngle rotate
+ 0 SymbolWidth 2 div moveto 0 SymbolWidth 2 div neg lineto
+ SymbolLinewidth setlinewidth stroke
+ }
+ {
+ x Shift sub y Shift sub moveto
+ rotateSymbol { y yOld sub x xOld sub Atan 180 sub CorrAngle sub rotate } if
+ Symbol show
+ }
+ ifelse
+ grestore
+ }
+ pathforall
+% curveticks
+% { gsave
+% x y translate rotAngle rotate
+% 0 SymbolWidth 2 div moveto 0 SymbolWidth 2 div neg lineto
+% SymbolLinewidth setlinewidth stroke grestore
+% } if
+ z
+} def
+%
+/OpenSymbolCurve {
+ OpenCurve
+ 0.1 setflat
+ /Shift Symbol stringwidth pop 2 div def
+ CurvePath
+} def
+%
+/AltCurve {
+ { false NArray n 2 mul 2 roll
+ [ n 2 mul 3 sub 1 roll ] aload
+ /Points ED
+ n 2 mul -2 roll }
+ { false NArray } ifelse
+ n 4 lt { n { pop pop } repeat } { BAC /n n 4 sub def n { NAC } repeat EAC } ifelse
+} def
+%
+/AltOpenSymbolCurve {
+ AltCurve
+ 0.1 setflat
+ /Shift Symbol stringwidth pop 2 div def
+ CurvePath
+} def
+%
+/ClosedCurve {
+ NArray n 3 lt
+ { n { pop pop } repeat }
+ { n 3 gt { CheckClosed } if
+ 6 copy n 2 mul 6 add 6 roll
+ IC CC x y moveto n { NC } repeat
+ closepath pop pop
+ } ifelse
+} def
+%
+/ClosedSymbolCurve {
+ ClosedCurve
+ 0.1 setflat
+ /Shift Symbol stringwidth pop 2 div def
+ CurvePath
+} def
+%
+/SQ { /r ED r r moveto r r neg L r neg r neg L r neg r L fill } def
+/ST { /y ED /x ED x y moveto x neg y L 0 x L fill } def
+/SP { /r ED gsave 0 r moveto 4 { 72 rotate 0 r L } repeat fill grestore } def
+%
+/FontDot {
+ DS 2 mul dup
+ matrix scale matrix concatmatrix exch matrix
+ rotate matrix concatmatrix exch
+ findfont exch makefont setfont
+} def
+%
+/Rect {
+ x1 y1 y2 add 2 div moveto
+ x1 y2 lineto
+ x2 y2 lineto
+ x2 y1 lineto
+ x1 y1 lineto
+ closepath
+} def
+%
+/OvalFrame {
+ x1 x2 eq y1 y2 eq or
+ { pop pop x1 y1 moveto x2 y2 L }
+ { y1 y2 sub abs x1 x2 sub abs 2 copy gt
+ { exch pop } { pop } ifelse
+ 2 div exch { dup 3 1 roll mul exch } if
+ 2 copy lt { pop } { exch pop } ifelse
+ /b ED
+ x1 y1 y2 add 2 div moveto
+ x1 y2 x2 y2 b arcto
+ x2 y2 x2 y1 b arcto
+ x2 y1 x1 y1 b arcto
+ x1 y1 x1 y2 b arcto
+ 16 { pop } repeat
+ closepath
+ } ifelse
+} def
+%
+/Frame {
+ CLW mul /a ED
+ 3 -1 roll
+ 2 copy gt { exch } if
+ a sub /y2 ED
+ a add /y1 ED
+ 2 copy gt { exch } if
+ a sub /x2 ED
+ a add /x1 ED
+ 1 index 0 eq { pop pop Rect } { OvalFrame } ifelse
+} def
+%
+/BezierNArray {
+ /f ED
+ counttomark 2 div dup cvi /n ED
+ n eq not { exch pop } if
+ n 1 sub neg 3 mod 3 add 3 mod { 0 0 /n n 1 add def } repeat
+ f { ] aload /Points ED } { n 2 mul 1 add -1 roll pop } ifelse
+} def
+%
+/OpenBezier {
+ BezierNArray
+ n 1 eq
+ { pop pop }
+ { ArrowA n 4 sub 3 idiv
+ { 6 2 roll 4 2 roll curveto } repeat
+ 6 2 roll 4 2 roll ArrowB curveto } ifelse
+} def
+%
+/OpenSymbolBezier {
+ OpenBezier
+ 0.1 setflat
+ /Shift Symbol stringwidth pop 2 div def
+ CurvePath
+} def
+%
+/ClosedBezier {
+ BezierNArray
+ n 1 eq
+ { pop pop }
+ { moveto n 1 sub 3 idiv
+ { 6 2 roll 4 2 roll curveto } repeat
+ closepath } ifelse
+} def
+%
+/ClosedSymbolBezier {
+ /f ED % save showpoints value
+ 2 copy /yEnd ED /xEnd ED
+ counttomark -2 roll 2 copy /yStart ED /xStart ED
+ counttomark 2 roll
+ f
+ ClosedBezier
+ 0.1 setflat
+ /Shift Symbol stringwidth pop 2 div def
+ CurvePath
+ [ xEnd yEnd xStart yStart SymbolLine
+} def
+%
+/BezierShowPoints {
+ gsave
+ Points aload length 2 div cvi /n ED
+ moveto
+ n 1 sub { lineto } repeat
+ CLW 2 div SLW [ 4 4 ] 0 setdash stroke
+ grestore
+} def
+%
+/Parab {
+ /y0 ED /x0 ED /y1 ED /x1 ED
+ /dx x0 x1 sub 3 div def
+ /dy y0 y1 sub 3 div def
+ x0 dx sub y0 dy add x1 y1 ArrowA
+ x0 dx add y0 dy add x0 2 mul x1 sub y1 ArrowB
+ curveto
+ /Points [ x1 y1 x0 y0 x0 2 mul x1 sub y1 ] def
+} def
+%
+/Parab1 { % 1 end | 0 SP
+ /ySP ED /xSP ED /y1 ED /x1 ED
+ /dx xSP x1 sub 3 div def
+ /dy ySP y1 sub 3 div def
+ newpath x1 y1 moveto xSP y1 lineto xSP ySP lineto
+ x1 ySP lineto closepath clip
+ currentpoint
+ newpath moveto
+ xSP dx sub ySP dy add x1 y1 ArrowA
+ xSP dx add ySP dy add xSP 2 mul x1 sub y1 ArrowB
+ curveto
+ /Points [ x1 y1 xSP ySP xSP 2 mul x1 sub y1 ] def
+} def
+%
+/Grid {
+ newpath
+ /a 4 string def
+ /b ED % psk@gridlabels in pt
+ /c ED % { \pst@usecolor\psgridlabelcolor }
+ /n ED % psk@griddots
+ cvi dup 1 lt { pop 1 } if
+ /s ED % \psk@subgriddiv
+ s div dup 0 eq { pop 1 } if
+ /dy ED s div dup 0 eq { pop 1 } if % \pst@number\psyunit abs
+ /dx ED dy div round dy mul % \pst@number\psxunit abs
+ /y0 ED dx div round dx mul
+ /x0 ED dy div round cvi
+ /y2 ED dx div round cvi
+ /x2 ED dy div round cvi
+ /y1 ED dx div round cvi
+ /x1 ED
+ /h y2 y1 sub 0 gt { 1 } { -1 } ifelse def
+ /w x2 x1 sub 0 gt { 1 } { -1 } ifelse def
+ b 0 gt {
+ /z1 b 4 div CLW 2 div add def
+% /Helvetica findfont b scalefont setfont
+ /b b .95 mul CLW 2 div add def } if
+ systemdict /setstrokeadjust known
+ { true setstrokeadjust /t { } def }
+ { /t { transform 0.25 sub round 0.25 add exch 0.25 sub round 0.25 add
+ exch itransform } bind def } ifelse
+ gsave n 0 gt { 1 setlinecap [ 0 dy n div ] dy n div 2 div setdash } { 2 setlinecap } ifelse
+ /i x1 def
+ /f y1 dy mul n 0 gt { dy n div 2 div h mul sub } if def
+ /g y2 dy mul n 0 gt { dy n div 2 div h mul add } if def
+ x2 x1 sub w mul 1 add dup 1000 gt { pop 1000 } if
+ { i dx mul dup y0 moveto
+ b 0 gt
+ { gsave c i a cvs dup stringwidth pop
+ /z2 ED w 0 gt {z1} {z1 z2 add neg} ifelse
+ h 0 gt {b neg}{z1} ifelse
+ rmoveto show grestore } if
+ dup t f moveto
+ g t L stroke
+ /i i w add def
+ } repeat
+ grestore
+ gsave
+ n 0 gt
+ % DG/SR modification begin - Nov. 7, 1997 - Patch 1
+ %{ 1 setlinecap [ 0 dx n div ] dy n div 2 div setdash }
+ { 1 setlinecap [ 0 dx n div ] dx n div 2 div setdash }
+ % DG/SR modification end
+ { 2 setlinecap } ifelse
+ /i y1 def
+ /f x1 dx mul n 0 gt { dx n div 2 div w mul sub } if def
+ /g x2 dx mul n 0 gt { dx n div 2 div w mul add } if def
+ y2 y1 sub h mul 1 add dup 1000 gt { pop 1000 } if
+ { newpath i dy mul dup x0 exch moveto
+ b 0 gt { gsave c i a cvs dup stringwidth pop
+ /z2 ED
+ w 0 gt {z1 z2 add neg} {z1} ifelse
+ h 0 gt {z1} {b neg} ifelse
+ rmoveto show grestore } if
+ dup f exch t moveto
+ g exch t L stroke
+ /i i h add def
+ } repeat
+ grestore
+} def
+%
+/ArcArrow {
+ /d ED /b ED /a ED
+ gsave
+ newpath 0 -1000 moveto clip
+ newpath
+ 0 1 0 0 b
+ grestore
+ c mul
+ /e ED
+ pop pop pop r a e d PtoC y add exch x add
+ exch r a PtoC y add exch x add exch b pop pop pop pop a e d CLW 8 div c
+ mul neg d
+} def
+%
+/Ellipse {
+ /rotAngle ED
+ /mtrx CM def
+ T
+ rotAngle rotate
+ scale 0 0 1 5 3 roll arc
+ mtrx setmatrix
+} def
+%
+/ArcAdjust { %%%% Vincent Guirardel
+% given a target length (targetLength) and an initial angle (angle0) [in the stack],
+% let M(angle0)=(rx*cos(angle0),ry*sin(angle0))=(x0,y0).
+% This computes an angle t such that (x0,y0) is at distance
+% targetLength from the point M(t)=(rx*cos(t),ry*sin(t)).
+% NOTE: this an absolute angle, it does not have to be added or substracted to angle0
+% contrary to TvZ's code.
+% To achieve, this, one iterates the following process: start with some angle t,
+% compute the point M' at distance targetLength of (x0,y0) on the semi-line [(x0,y0) M(t)].
+% Now take t' (= new angle) so that (0,0) M(t') and M' are aligned.
+%
+% Another difference with TvZ's code is that we need d (=add/sub) to be defined.
+% the value of d = add/sub is used to know on which side we have to move.
+% It is only used in the initialisation of the angle before the iteration.
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Input stack: 1: target length 2: initial angle
+% variables used : rx, ry, d (=add/sub)
+%
+ /targetLength ED /angle0 ED
+ /x0 rx angle0 cos mul def
+ /y0 ry angle0 sin mul def
+% we are looking for an angle t such that (x0,y0) is at distance targetLength
+% from the point M(t)=(rx*cos(t),ry*sin(t)))
+%initialisation of angle (using 1st order approx = TvZ's code)
+ targetLength 57.2958 mul
+ angle0 sin rx mul dup mul
+ angle0 cos ry mul dup mul
+ add sqrt div
+% if initialisation angle is two large (more than 90 degrees) set it to 90 degrees
+% (if the ellipse is very curved at the point where we draw the arrow, %
+% the value can be much more than 360 degrees !)
+% this should avoid going on the wrong side (more than 180 degrees) or go near
+% a bad attractive point (at 180 degrees)
+ dup 90 ge { pop 90 } if
+ angle0 exch d % add or sub
+% maximum number of times to iterate the iterative procedure:
+% iterative procedure: takes an angle t on top of stack, computes a
+% better angle (and put it on top of stack)
+ 30 { dup
+% compute distance D between (x0,y0) and M(t)
+ dup cos rx mul x0 sub dup mul exch sin ry mul y0 sub dup mul add sqrt
+% if D almost equals targetLength, we stop
+ dup targetLength sub abs 1e-5 le { pop exit } if
+% stack now contains D t
+% compute the point M(t') at distance targetLength of (x0,y0) on the semi-line [(x0,y0) M(t)]:
+% M(t')= ( (x(t)-x0)*targetLength/d+x0 , (y(t)-y0)*targetLength/d+y0 )
+ exch dup cos rx mul x0 sub exch sin ry mul y0 sub
+% stack contains: y(t)-y0, x(t)-x0, d
+ 2 index Div targetLength mul y0 add ry Div exch
+ 2 index Div targetLength mul x0 add rx Div
+% stack contains x(t')/rx , y(t')/ry , d
+% now compute t', and remove D from stack
+ atan exch pop
+ } repeat
+% we don't look at what happened... in particular, if targetLength is greater
+% than the diameter of the ellipse...
+% the final angle will be around /angle0 + 180. maybe we should treat this pathological case...
+% after iteration, stack contains an angle t such that M(t) is the tail of the arrow
+% to give back the result as a an angle relative to angle0 we could add the following line:
+% angle0 sub 0 exch d
+%
+% begin bug fix 2006-01-11
+% we want to adjust the new angle t' by a multiple of 360 so that | t'-angle0 | <= 180
+%(we don't want to make the ellipse turn more or less than it should)...
+dup angle0 sub dup abs 180 gt { 180 add 360 div floor 360 mul sub } { pop } ifelse
+% end bug fix
+} def
+%
+/EllipticArcArrow {
+ /d ED % is add or sub
+ /b ED % arrow procedure
+ /a1 ED % angle
+ gsave
+ newpath
+ 0 -1000 moveto
+ clip % Set clippath far from arrow.
+ newpath
+ 0 1 0 0 b % Draw arrow to determine length.
+ grestore
+% Length of arrow is on top of stack. Next 3 numbers are junk.
+%
+ a1 exch ArcAdjust % Angular position of base of arrow.
+ /a2 ED
+ pop pop pop
+ a2 cos rx mul xOrig add % hv 2007-08-29 x->xOrig
+ a2 sin ry mul yOrig add % hv 2007-08-29 y->yOrig
+ a1 cos rx mul xOrig add %
+ a1 sin ry mul yOrig add %
+% Now arrow tip coor and base coor are on stack.
+ b pop pop pop pop % Draw arrow, and discard coordinates.
+ a2 CLW 8 div
+% change value of d (test it by looking if `` 1 1 d '' gives 2 or not )
+ 1 1 d 2 eq { /d { sub } def } { /d { add } def } ifelse
+ ArcAdjust
+% resets original value of d
+ 1 1 d 2 eq { /d { sub } def } { /d { add } def } ifelse % Adjust angle to give overlap.
+} def
+%%------------------ tvz/DG/hv (2004-05-10) end -------------------%%
+%
+/Rot { CP CP translate 3 -1 roll neg rotate NET } def
+%
+/RotBegin {
+ tx@Dict /TMatrix known not { /TMatrix { } def /RAngle { 0 } def } if
+ /TMatrix [ TMatrix CM ] cvx def
+ /a ED
+ a Rot /RAngle [ RAngle dup a add ] cvx def
+} def
+%
+/RotEnd {
+ /TMatrix [ TMatrix setmatrix ] cvx def
+ /RAngle [ RAngle pop ] cvx def
+} def
+%
+/PutCoor { gsave CP T CM STV exch exec moveto setmatrix CP grestore } def
+/PutBegin { /TMatrix [ TMatrix CM ] cvx def CP 4 2 roll T moveto } def
+/PutEnd { CP /TMatrix [ TMatrix setmatrix ] cvx def moveto } def
+%
+/Uput {
+ /a ED
+ add 2 div /h ED 2
+ div /w ED
+ /s a sin def
+ /c a cos def
+ /b s abs c abs 2 copy gt dup
+ /q ED
+ { pop } { exch pop } ifelse def
+ /w1 c b div w mul def
+ /h1 s b div h mul def
+ q { w1 abs w sub dup c mul abs }{ h1 abs h sub dup s mul abs } ifelse
+} def
+%
+/UUput {
+ /z ED
+ abs /y ED
+ /x ED
+ q { x s div c mul abs y gt }{ x c div s mul abs y gt } ifelse
+ { x x mul y y mul sub z z mul add sqrt z add }
+ { q { x s div } { x c div } ifelse abs
+ } ifelse
+ a PtoC
+ h1 add exch
+ w1 add exch
+} def
+%
+/BeginOL {
+ dup (all) eq exch TheOL eq or
+ { IfVisible not { Visible /IfVisible true def } if }
+ { IfVisible { Invisible /IfVisible false def } if } ifelse
+} def
+%
+/InitOL {
+ /OLUnit [ 3000 3000 matrix defaultmatrix dtransform ] cvx def
+ /Visible { CP OLUnit idtransform T moveto } def
+ /Invisible { CP OLUnit neg exch neg exch idtransform T moveto } def
+ /BOL { BeginOL } def
+ /IfVisible true def
+} def
+%
+end
+%-----------------------------------------------------------------------------%
+%
+% END pstricks.pro
+
+%%EndProcSet
+%%BeginProcSet: pst-algparser.pro 0 0
+% $Id: pst-algparser.pro 801 2013-07-09 18:10:41Z herbert $
+%%
+%% PostScript prologue for PSTricks algorithm parser
+%% Version 0.04, 2011/10/21
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%%
+%%-----------------------------------------------------------------------------%
+%
+/AlgParser { tx@AlgToPs begin AlgToPs end } def % Dominique Rodriguez
+%
+/tx@CoreAnalyzerDict 100 dict def tx@CoreAnalyzerDict begin
+%
+% PS ANALYZER FOR ALGEBRAIC EXPRESSION V1.13
+%
+% 09/2011 DR factorial with ! added
+%
+% E->T|E+T
+% T->FS|T*FS
+% FS -> F | +FS | -FS
+% F->P|F^SF|P!
+% P->(E)|literal
+% literal->number|var|var[E]|func(params)
+% params->E|E,param
+% number->TOBEFINISHED
+%
+%% E expression, T term, SF signed factor, F factor, P power
+%
+%% parser
+%
+%% str
+%
+%% C->E<condition_operators>E
+%% STR index -> STR index+lenExpr
+/AnalyzeCond { AnalyzeExpr ReadCondOp AnalyzeExpr EvalCondOp } def
+%
+%% analyze Expression List (separator , or | )
+%% STR index -> STR index+lenExpr
+%% /AnalyzeListOfE {
+%% { NextNonBlankChar pop AnalyzeExpr%%dup Strlen eq { exit } if NextNonBlankChar
+%% NextNonBlankChar dup 0 eq { pop exit } if
+%% dup 44 ne 1 index 124 ne and { dup 41 ne { PROBLEMCONTACTBILLOU } { pop exit } ifelse } if
+%% pop NextNonBlankChar dup 0 eq { exit } if 124 ne { PROBLEMCONTACTBILLOU } if 1 add NextNonBlankChar 0 eq {toto} if } loop
+%% AnalyzeListOfEPostHook
+%% } def
+/AnalyzeListOfE {
+ /NotFirst false def
+ { NextNonBlankChar pop AnalyzeExpr
+ NotFirst { EvalListOfExpr } { /NotFirst true def } ifelse
+ dup Strlen eq { exit } if NextNonBlankChar
+ dup 44 ne 1 index 124 ne and
+ { dup 41 ne { PROBLEMCONTACTBILLOU } { pop exit } ifelse }
+ if pop 1 add } loop
+ AnalyzeListOfEPostHook
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% E->T|E+T
+%% STR index -> STR index+lenExpr
+/AnalyzeExpr {
+ AnalyzePreHook AnalyzeTerm IsEndingExpr
+ { dup 0 ne { 32 eq { NextNonBlankChar } if } { pop } ifelse }
+ { { RollOp 1 add NextNonBlankChar pop AnalyzeTerm PreEvalHook EvalAddSub IsEndingExpr { pop exit } if } loop }
+ ifelse
+ AnalyzePostHook
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% T->FS|T*FS
+%% STR index
+/AnalyzeTerm {
+ AnalyzePreHook AnalyzeSignedFactor IsEndingTerm
+ { dup 0 ne { 32 eq { NextNonBlankChar } if } { pop } ifelse }
+ { { RollOp 1 add NextNonBlankChar pop AnalyzeSignedFactor PreEvalHook EvalMulDiv IsEndingTerm { pop exit } if} loop }
+ ifelse
+ AnalyzePostHook
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% FS -> F | +FS | -FS
+%% STR index
+/AnalyzeSignedFactor {
+ AnalyzePreHook 2 copy get dup IsUnaryOp
+ { RollOp 1 add NextNonBlankChar pop AnalyzeSignedFactor EvalUnaryOp }
+ { pop AnalyzeFactor }
+ ifelse AnalyzePostHook
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% F->P|F^P|P!
+%% STR index
+/AnalyzeFactor {
+ AnalyzePreHook AnalyzePower IsEndingFactor
+ { dup 0 ne { 32 eq { NextNonBlankChar } if } { pop } ifelse }
+ { { dup 33 eq%% is there a ! DR 09/2011
+ { pop 1 add NextNonBlankChar pop EvalFactorial }
+ { RollOp 1 add NextNonBlankChar pop AnalyzePower PreEvalHook EvalPower }
+ ifelse
+ IsEndingFactor { pop exit } if } loop }
+ ifelse AnalyzePostHook
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% P->(E)|literal
+%% STR index
+/AnalyzePower {
+ %% depending of first char either a number, or a literal
+ 2 copy get dup 40 eq%%an open par
+ { pop 1 add NextNonBlankChar pop AnalyzeExpr 1 add NextNonBlankChar pop }
+ { AnalyzeLiteral }
+ ifelse
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% STR index STR[index] -> STR index
+%/AnalyzeLiteral { IsNumber { EvalNumber } { EvalLiteral } ifelse } def
+/AnalyzeLiteral { dup IsUnaryOp exch IsNumber or { EvalNumber } { EvalLiteral } ifelse } def%%dr 09102006
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% recognize + or -
+%% chr -> T/F
+/IsUnaryOp { dup 43 eq exch 45 eq or } bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% a number can contain only : 0123456789.
+%% chr -> T/F
+/IsNumber { dup 48 ge exch dup 57 le 3 -1 roll and exch 46 eq or } bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% STR index -> STR index number
+%% a number can be of the form [0-9]*.[0-9]*\([eE][+-]?[0-9]+\)?
+%% STR index -> STR index' number
+/ReadNumber {
+ exch dup 3 -1 roll dup 3 1 roll
+ %%read mantissa
+ { 1 add 2 copy dup Strlen eq { pop pop 0 exit } if get dup IsNumber not { exit } if pop } loop
+ dup 101 eq exch 69 eq or
+ %%% there is a "e" or "E" -> read exponant
+ { 1 add 2 copy get dup IsUnaryOp
+ { pop 1 add 2 copy get } if
+ { IsNumber not { exit } if 1 add 2 copy get } loop }
+ if
+ dup 4 1 roll
+ 3 -1 roll exch 1 index sub getinterval
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% a number can contain only : 0123456789.
+%% chr -> T/F
+/IsCondOp { dup 30 eq exch dup 60 ge exch 62 le and or } bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% STR index -> STR index number
+%% a number can be of the form [0-9]*.[0-9]*\([eE][+-]?[0-9]+\)?
+%% STR index -> STR index' number
+/ReadCondOp {
+ NextNonBlankChar 1 index 4 1 roll
+ { IsCondOp not { exit } if 1 add 2 copy get } loop
+ 2 copy 5 -1 roll
+ exch 1 index sub getinterval 3 1 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% a literal can contain only : 0123456789.
+%% chr -> T/F
+/IsLiteral {%
+ dup 48 ge exch dup 57 le 3 -1 roll and exch
+ dup 65 ge exch dup 90 le 3 -1 roll and 3 -1 roll or exch
+ dup 97 ge exch 122 le and or } bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% a literal can be of the form [a-zA-Z][a-zA-Z0-9]*\(\((Expression)\)|\(\[Expression\]\)\)?
+%% STR index -> literal STR index' nextchr
+/ReadLiteral {
+ exch dup 3 -1 roll dup 3 1 roll
+ %%read literal core
+ { 2 copy dup Strlen eq { pop pop 0 exit } if get dup IsLiteral not { exit } if pop 1 add } loop
+ 4 1 roll dup 5 1 roll 3 -1 roll exch 1 index sub getinterval 4 1 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% expr is ended by end of str or a clpar
+%% STR index -> STR index STR[index] T/F
+/IsEndingExpr {%
+ 2 copy dup Strlen eq
+ %% if end of str is reached -> end !
+ { pop pop 0 true }
+ %% ending chr -> clpar, comma, |, <, >, =, !,
+ {get dup dup 41 eq
+ exch dup 124 eq
+ exch dup 93 eq
+ exch dup 44 eq
+ exch dup 30 eq
+ exch dup 60 ge exch 62 le and or or or or or}
+ ifelse } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% expr is ended by end of str or a +-
+%% STR index -> STR index STR[index] T/F
+/IsEndingTerm { IsEndingExpr { true } { dup dup 43 eq exch 45 eq or } ifelse } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% expr is ended by end of str or */
+%% STR index -> STR index STR[index] T/F
+/IsEndingFactor { IsEndingTerm { true } { dup dup 42 eq exch 47 eq or } ifelse } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% expr is ended by end of str or ^
+%% STR index -> STR index STR[index] T/F
+/IsEndingPower { IsEndingFactor { true } { dup 94 eq } ifelse } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% STR index -> STR index STR[index]
+/NextNonBlankChar { { dup Strlen eq { 0 exit } if 2 copy get dup neBlkChar { exit } if pop 1 add } loop } bind def
+/neBlkChar { dup 32 ne exch dup 10 ne exch 9 ne and and } bind def
+%%%%%%%%%%%%%%%%%%%%%%%%
+%% DEBUG
+/BRK {false} def
+/BRKtrue {/BRK true def} def
+/BRKStop {BRK {BRKtoto} if } def
+/BRKEvalStop {BRK exch if } def
+/BRKBRK2true {BRK {BRK2true} if } def
+/BRK2 {false} def
+/BRK2true {/BRK2 true def} def
+/BRK2Stop {BRK2 {BRK2toto} if } def/BRK {false} def
+end
+%
+%-------------------------------------------------------------------------------%
+%
+/tx@AlgToPs 12 dict def tx@AlgToPs begin
+%
+%% algExpr -> PSVector
+/AlgToPs { tx@CoreAnalyzerDict begin InitParser AnalyzeListOfE pop pop EndingSequence end } def
+/EndingSequence { ExpressionVector aload length /end cvx exch 1 add array astore } def
+/InitParser { /ExpressionVector [ /tx@AddMathFunc cvx /begin cvx ] def dup length /Strlen exch def 0 } def
+/Strlen 0 def
+/EvalListOfExpr {} def%
+/EvalNumber {%
+ ReadNumber cvr /ExpressionVector ExpressionVector aload length dup 3 add -1 roll cvx
+ exch 1 add array astore def NextNonBlankChar pop } def
+/EvalAddSub {%
+ /ExpressionVector ExpressionVector aload length dup 5 add -1 roll
+ 43 eq { /add } { /sub } ifelse cvx exch 1 add array astore def
+} def
+/EvalMulDiv {%
+ /ExpressionVector ExpressionVector aload length dup 5 add -1 roll
+ 42 eq { /mul } { /div } ifelse cvx exch 1 add array astore def
+} def
+/EvalPower {%
+ /ExpressionVector ExpressionVector aload length dup 5 add -1 roll
+ pop /exp cvx exch 1 add array astore def
+} def
+/EvalFactorial {% DR 09/2011
+ /ExpressionVector ExpressionVector aload length
+ /fact cvx exch 1 add array astore def
+} def
+/EvalLiteral {%
+ ReadLiteral
+ dup 40 eq%%% there is an open par -> function call
+ { pop 2 index
+ dup (Sum) eq { EvalSum }
+ { dup (IfTE) eq { EvalCond }
+ { dup (Derive) eq { pop EvalDerive }
+ { pop 1 add NextNonBlankChar pop AnalyzeListOfE 2 index TrigoFunc
+ /ExpressionVector ExpressionVector aload length dup 5 add -1 roll cvn cvx
+ exch 1 add array astore def 1 add NextNonBlankChar pop } ifelse } ifelse} ifelse }
+ { /ExpressionVector ExpressionVector aload length dup 6 add -1 roll cvn cvx exch 1 add array astore def
+ dup 91 eq%%% there is an open bracket -> vector element
+ { pop 1 add NextNonBlankChar pop AnalyzeExpr
+ /ExpressionVector ExpressionVector aload length /cvi cvx exch /get cvx exch 2 add array astore def 1 add }
+ { pop NextNonBlankChar pop }
+ ifelse}
+ ifelse
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% the derive function : Derive(n,f(x))
+%% firstparindex lastparindex ->
+/EvalDerive {
+ %% manage the function descripiton
+ 1 add ReadNumber 3 1 roll NextNonBlankChar
+ 44 ne { ANALYZER_ERROR_missing_second_comma_in_Sum } if
+ 1 add NextNonBlankChar pop
+ 3 -1 roll cvi
+ dup 0 eq
+ { pop AnalyzeExpr 3 -1 roll pop 1 add }
+ { 1 sub 3 1 roll (x) exch tx@Derive begin DeriveIndexed end 4 -1 roll
+ { (x) tx@Derive begin Derive end } repeat
+ ExpressionVector exch /ExpressionVector [] def
+ AlgToPs aload length
+ /ExpressionVector 1 index 3 add -1 roll aload length dup 3 add -1 roll /l2 exch def /l1 exch def
+ l1 l2 add 1 add l2 neg roll l1 l2 add array astore def 3 -1 roll pop 1 add
+ 1 index length /Strlen exch def } ifelse
+} def
+/EvalSum {%
+ pop 1 add NextNonBlankChar pop
+ %% read the variable name
+ ReadLiteral pop NextNonBlankChar
+ 44 ne { ANALYZER_ERROR_missing_first_comma_in_Sum } if
+ %% read the initial value
+ 1 add NextNonBlankChar pop ReadNumber cvi 3 1 roll
+ 2 copy get 44 ne { ANALYZER_ERROR_missing_second_comma_in_Sum } if
+ %% read the increment value
+ 1 add NextNonBlankChar pop ReadNumber cvi 3 1 roll
+ 2 copy get 44 ne { ANALYZER_ERROR_missing_second_comma_in_Sum } if
+ %% read the limit value
+ 1 add NextNonBlankChar pop ReadNumber cvi 3 1 roll
+ 2 copy get 44 ne { ANALYZER_ERROR_missing_second_comma_in_Sum } if
+ /ExpressionVector ExpressionVector aload length dup 7 add -3 roll 0 4 1 roll
+ 5 -1 roll 4 add array astore def
+ %% keep ExpressionVector for later and create a new one for internal Sum computation
+ ExpressionVector 3 1 roll /ExpressionVector [ 6 -1 roll cvn /exch cvx /def cvx ] def
+ 1 add NextNonBlankChar pop AnalyzeExpr
+ %% add each term
+ /ExpressionVector ExpressionVector aload length 1 add /add cvx exch array astore def
+ /ExpressionVector 4 -1 roll aload length ExpressionVector cvx /for cvx 3 -1 roll 2 add
+ array astore def 3 -1 roll pop 1 add
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Convert to radians if trigo function call
+%% (name) ->
+/TrigoFunc {
+ dup (cos) eq 1 index (sin) eq or exch (tan) eq or
+ { /ExpressionVector ExpressionVector aload length Pi /div cvx 180 /mul cvx 5 -1 roll 4 add
+ array astore def
+ } if
+} def
+/EvalCond {%
+ pop 1 add AnalyzeCond NextNonBlankChar
+ 44 ne { ANALYZER_ERROR_missing_first_comma_in_IfTE } if
+ ExpressionVector 3 1 roll /ExpressionVector [] def
+ 1 add AnalyzeExpr ExpressionVector 3 1 roll /ExpressionVector [] def
+ NextNonBlankChar 44 ne { ANALYZER_ERROR_missing_second_comma_in_IfTE } if
+ 1 add AnalyzeExpr
+ NextNonBlankChar 41 ne { ANALYZER_ERROR_missing_ending parenthesis_in_IfTE } if
+ ExpressionVector
+ /ExpressionVector 6 -1 roll aload length dup
+ 6 add -1 roll cvx exch dup 4 add -1 roll cvx /ifelse cvx 3 -1 roll 3 add array astore def
+ 1 add 3 -1 roll pop
+} def
+%% CondOp STR index
+/EvalCondOp {%
+ 3 -1 roll
+ dup (=) eq { /eq } {%
+ dup (<) eq { /lt } {%
+ dup (>) eq { /gt } {%
+ dup (>=) eq { /ge } {%
+ dup (<=) eq { /ge } {%
+ dup (!=) eq { /ne } { ERROR_non_valid_conditional_operator }
+ ifelse } ifelse } ifelse } ifelse } ifelse } ifelse
+ cvx exch pop
+ /ExpressionVector ExpressionVector aload length dup 3 add -1 roll exch 1 add array astore def } def
+/EvalUnaryOp {
+ 3 -1 roll 45 eq { /ExpressionVector ExpressionVector aload length /neg cvx exch 1 add array astore def } if
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% H O O K S
+/AnalyzePreHook {} bind def
+/PreEvalHook {} bind def
+/AnalyzeListOfEPostHook {} bind def
+/AnalyzePostHook {} def
+/RollOp { 3 1 roll } bind def
+end %tx@CoreAnalyzerDict
+%
+%--------------------------------------------------------------------%
+%
+/tx@Derive 41 dict def tx@Derive begin
+%%increase ^^ for each function added
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% algExpr variable -> PSVector
+/Derive {%
+ 10240 string 3 1 roll 0 3 1 roll
+ /Variable exch def
+ tx@CoreAnalyzerDict begin InitParser AnalyzeListOfE end
+} def
+/Strlen 0 def
+/InitParser { dup length /Strlen exch def 0 } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% algExpr variable index -> PSVector
+/DeriveIndexed {%
+ 3 1 roll 10240 string 3 1 roll 0 3 1 roll
+ /Variable exch def
+ tx@CoreAnalyzerDict begin InitParser pop 4 -1 roll AnalyzeExpr 4 -2 roll pop pop 4 -2 roll exch pop end
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (u,v)'=-(u',v')
+/EvalListOfExpr {%
+ 4 2 roll 2 copy 9 -1 roll dup length 4 1 roll putinterval add AddPipe
+ 2 copy 7 -1 roll dup length 4 1 roll putinterval add
+ 6 -2 roll pop pop
+ 2 copy pop 0 6 2 roll GetIntervalNewStr 5 1 roll 2 copy 0 exch getinterval 6 1 roll } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (-u)'=-(u')
+/EvalUnaryOp {
+ 4 -2 roll 4 index (0) eq
+ { (0) StrConcat 7 -1 roll pop }
+ { 7 -1 roll 45 eq
+ { AddSub AddOpPar true } { false } ifelse
+ 3 1 roll 5 index StrConcat 3 -1 roll { AddClPar } if } ifelse
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ 7 -2 roll pop pop 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (number)'=0
+/EvalNumber { ReadNumber (0) 6 2 roll } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (u+v)'=u'+v'
+/EvalAddSub {%
+ 7 index dup (0) eq
+ { pop true }%% du=0 nothing added
+ { dup length exch 5 index 5 index 3 -1 roll putinterval 4 -1 roll add 3 1 roll false }
+ ifelse
+ 5 index dup (0) eq
+ { pop { (0) } { 4 -2 roll 2 copy pop 0 6 2 roll GetIntervalNewStr } ifelse }%%dv=0
+ { exch
+ { 5 -2 roll 7 index 45 eq { AddSub } if false } %%nothing yet added
+ { 5 -2 roll 7 index 43 eq%%something yet added
+ { AddAdd false } { AddSub AddOpPar true } ifelse }
+ ifelse 11 1 roll
+ 3 -1 roll StrConcat 10 -1 roll { AddClPar } if
+ 2 copy pop 0 6 2 roll GetIntervalNewStr }
+ ifelse
+ mark 11 -5 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (u*v)' or (u/v)'
+/EvalMulDiv { 6 index 42 eq {EvalMul} {EvalDiv} ifelse } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (u*v)'=u'*v+u*v'
+/EvalMul {%
+ 4 -2 roll 7 index dup (0) eq
+ { pop false }%%du=0
+ { (1) eq%%du=1
+ { false }
+ { AddOpPar 7 index StrConcat AddClPar AddMul AddOpPar true } ifelse
+ 3 1 roll 6 index StrConcat 3 -1 roll { AddClPar } if
+ true }%%du!=0
+ ifelse
+ 5 1 roll 5 index (0) eq
+ { 5 -1 roll not { (0) StrConcat } if }%%dv=0
+ { 5 -1 roll { AddAdd } if
+ 4 index (1) eq
+ { 8 index StrConcat }
+ { AddOpPar 8 index StrConcat AddClPar AddMul AddOpPar 4 index StrConcat AddClPar }
+ ifelse
+ }%%dv!=0
+ ifelse
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ mark 11 -5 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (u/v)'=(u'*v-u*v')/v^2
+/EvalDiv {%
+ 4 -2 roll
+ 4 index (0) eq%%dv=0 -> u'/v
+ { 7 index (0) eq { (0) StrConcat } { AddOpPar 7 index StrConcat AddClPar AddDiv 5 index StrConcat } ifelse }
+ { 7 index dup (0) eq
+ { pop }%%du=0
+ { (1) eq%%du=1
+ { false }
+ { AddOpPar 7 index StrConcat AddClPar AddMul AddOpPar true } ifelse
+ 3 1 roll 6 index StrConcat 3 -1 roll { AddClPar } if}%%du!=0
+ ifelse
+ AddSub
+ 4 index (1) eq
+ { 8 index StrConcat }
+ { AddOpPar 8 index StrConcat AddClPar AddMul AddOpPar 4 index StrConcat AddClPar }
+ ifelse
+ %}%%dv!=0
+ 2 copy GetIntervalNewStr 3 1 roll pop 0 AddOpPar 3 -1 roll StrConcat AddClPar
+ AddDiv AddOpPar 5 index StrConcat AddClPar 2 copy (^2) putinterval 2 add }
+ ifelse
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ mark 11 -5 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% str1 index str2 -> str1 index
+/StrConcat { dup length 4 2 roll 2 copy 6 -1 roll putinterval 3 -1 roll add } bind def
+/GetIntervalNewStr { 0 exch getinterval dup length string copy } bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (u^v)'=(u^v)'=u'vu^(v-1)+v'u^(v)ln(u)
+/EvalPower {%
+ 4 -2 roll 7 index (0) eq
+ {%%if du=0 then (u^v)'=v'ln(u)u^v
+ 4 index (0) eq
+ { (0) StrConcat }%%if dv=0 then (u^v)'=0
+ { 4 index (1) ne { AddOpPar 4 index StrConcat (\)*) StrConcat } if
+ 8 index (e) ne { (ln\() StrConcat 8 index StrConcat (\)*) StrConcat } if
+ AddOpPar 8 index StrConcat (\)^\() StrConcat 5 index StrConcat AddClPar } ifelse
+ }
+ {%%du!=0
+ 4 index (0) eq
+ {%%if dv=0 then (u^v)'=vu'u^(v-1)
+ 5 index dup IsStrNumber
+ { dup (0) eq
+ { StrConcat }
+ { dup dup (1) eq exch (1.0) eq or
+ { StrConcat }
+ { StrConcat
+ 7 index dup (1) ne exch (1.0) ne and%%%dr 09102006 insert du if <> 1
+ { (*\() StrConcat 7 index StrConcat (\)) StrConcat } if%%%dr 09102006
+ (*\() StrConcat 8 index StrConcat (\)) StrConcat
+ 5 index dup dup (2) eq exch (2.0) eq or
+ { pop } { cvr 1 sub 20 string cvs 3 1 roll (^) StrConcat 3 -1 roll StrConcat } ifelse } ifelse } ifelse }
+ { pop AddOpPar 5 index StrConcat (\)*\() StrConcat 8 index StrConcat (\)^\() StrConcat
+ 5 index StrConcat (-1\)) StrConcat } ifelse
+ }
+ {%%if dv!=0 and du!=0 then (u^v)'=u'vu^(v-1)+v'u^(v)ln(u)
+ 7 index (1) ne { AddOpPar 7 index StrConcat (\)*) StrConcat } if
+ AddOpPar 5 index StrConcat (\)*\() StrConcat
+ 8 index StrConcat (\)^\() StrConcat
+ 5 index StrConcat (-1\)+\() StrConcat
+ 4 index (1) ne { 4 index StrConcat (\)*\() StrConcat } if
+ 8 index StrConcat (\)^\() StrConcat
+ 5 index StrConcat (\)*ln\() StrConcat
+ 8 index StrConcat AddClPar
+ } ifelse
+ } ifelse
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ mark 11 -5 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% No derivative for factorial ! only cst => null derivative
+/EvalFactorial {% DR 09/2011
+ 4 index (0) eq
+ { (0) mark 8 -2 roll cleartomark 2 index 7 index dup 4 index exch sub getinterval exch 6 2 roll }
+ { DERIVATIVE_ENGINE_ERROR_no_variable_in_factorial } ifelse
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% str -> true/false
+/IsStrNumber {%
+ true exch
+ { dup 48 lt exch dup 57 gt 3 -1 roll or
+ exch dup 46 ne%%.
+ exch dup 43 ne%%+
+ exch 45 ne%%-
+ and and and { pop false } if } forall
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% literal switch -> func call, vector, variables
+/EvalLiteral {%
+ ReadLiteral dup 40 eq%%% there is an open par -> function call
+ { pop (EvalFunc_ ) 9 4 index StrConcat 0 exch getinterval cvn cvx exec }
+ { dup 91 eq%%% there is an open bracket -> vector element
+ { DERIVATIVE_ENGINE_ERROR_vector_not_yet_implemented }
+ { pop EvalVariable }
+ ifelse }
+ ifelse
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% first last parpos Expr[first:parpos-1] ->
+/EvalVariable { 2 index Variable eq { (1) } { (0) } ifelse 4 -1 roll exch 6 2 roll } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% (f(u))'=u'f'(u)
+/EvalFunc {
+ 4 2 roll 4 index (1) ne
+ { AddOpPar 4 index StrConcat (\)*) StrConcat } if
+ (Eval ) 4 8 index StrConcat 0 exch getinterval cvn cvx exec
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ mark 9 -3 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Func derivative -> Eval<func>
+/EvalFunc_sin {%
+ PreCommonFunc
+ { (cos\() StrConcat 5 index StrConcat AddClPar } if
+ PostCommonFunc } def
+/EvalFunc_cos {%
+ PreCommonFunc
+ { (\(-sin\() StrConcat 5 index StrConcat (\)\)) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_tan {%
+ PreCommonFunc
+ { dup 0 eq { (1) StrConcat } { 1 sub } ifelse (/cos\() StrConcat 5 index StrConcat (\)^2) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_asin {%
+ PreCommonFunc
+ { (1/sqrt\(1-\() StrConcat 5 index StrConcat (\)^2\)\)) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_acos {%
+ PreCommonFunc
+ { (-1/sqrt\(1-\() StrConcat 5 index StrConcat (\)^2\)\)) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_atg {%
+ PreCommonFunc
+ { (1/\(1+\() StrConcat 5 index StrConcat (\)^2\)\)) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_ln {%
+ PreCommonFunc
+ { dup 0 eq { (1) StrConcat } { 1 sub } ifelse (/\() StrConcat 5 index StrConcat AddClPar } if
+ PostCommonFunc } def
+/EvalFunc_exp {%
+ PreCommonFunc
+ { (exp\() StrConcat 5 index StrConcat AddClPar } if
+ PostCommonFunc } def
+/EvalFunc_EXP {%
+ PreCommonFunc
+ { (EXP\() StrConcat 5 index StrConcat AddClPar } if
+ PostCommonFunc } def
+/EvalFunc_sqrt {%
+ PreCommonFunc
+ { dup 0 eq { (1) StrConcat } { 1 sub } ifelse (/\(2*sqrt\() StrConcat 5 index StrConcat (\)\)) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_Fact {%
+ PreCommonFunc { DERIVATIVE_ENGINE_ERROR_no_variable_expression_in_Fact } if
+ PostCommonFunc } def
+/EvalFunc_sh {%
+ PreCommonFunc
+ { (ch\() StrConcat 5 index StrConcat AddClPar } if
+ PostCommonFunc } def
+/EvalFunc_ch {%
+ PreCommonFunc
+ { (sh\() StrConcat 5 index StrConcat AddClPar } if
+ PostCommonFunc } def
+/EvalFunc_th {%
+ PreCommonFunc
+ { dup 0 eq { (1) StrConcat } { 1 sub } ifelse (/ch\() StrConcat 5 index StrConcat (\)^2) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_Argsh {%
+ PreCommonFunc
+ { (1/sqrt\(1+\() StrConcat 5 index StrConcat (\)^2\)\)) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_Argch {%
+ PreCommonFunc
+ { (1/sqrt\(\() StrConcat 5 index StrConcat (\)^2-1\)\)) StrConcat } if
+ PostCommonFunc } def
+/EvalFunc_Argth {%
+ PreCommonFunc
+ { (1/\(1-\() StrConcat 5 index StrConcat (\)^2\)\)) StrConcat } if
+ PostCommonFunc } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+/PreCommonFunc {
+ 1 add NextNonBlankChar pop 3 -1 roll 5 1 roll AnalyzeExpr 1 add NextNonBlankChar pop
+ 4 2 roll 4 index (0) eq
+ { (0) StrConcat false }
+ { 4 index (1) ne { AddOpPar 4 index StrConcat (\)*) StrConcat } if true } ifelse
+} def
+/PostCommonFunc {
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ mark 9 -3 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+/EvalFunc_Derive {%
+ 1 add ReadNumber cvi 1 add dup cvr log 1 add cvi string cvs
+ 4 -1 roll pop 5 1 roll 1 add NextNonBlankChar pop AnalyzeExpr 1 add
+ 4 -2 roll (Derive\() StrConcat 7 -1 roll StrConcat (,) StrConcat 6 -1 roll StrConcat AddClPar
+ 2 copy pop 0 6 2 roll GetIntervalNewStr 6 -1 roll pop 2 index 6 index dup 4 index exch sub getinterval
+ exch 6 2 roll } def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% literal switch -> func call, vector, variables
+/EvalFunc_Sum {%
+ 1 add NextNonBlankChar pop
+ %% read the variable name
+ ReadLiteral pop 3 -1 roll pop NextNonBlankChar
+ 44 ne { ANALYZER_ERROR_missing_first_comma_in_Sum } if
+ %% read the initial value
+ 1 add NextNonBlankChar pop ReadNumber pop
+ 2 copy get 44 ne { ANALYZER_ERROR_missing_second_comma_in_Sum } if
+ %% read the increment value
+ 1 add NextNonBlankChar pop ReadNumber pop
+ 2 copy get 44 ne { ANALYZER_ERROR_missing_third_comma_in_Sum } if
+ %% read the limit value
+ 1 add NextNonBlankChar pop ReadNumber pop
+ 2 copy get 44 ne { ANALYZER_ERROR_missing_fourth_comma_in_Sum } if
+ 1 add NextNonBlankChar pop dup 6 1 roll 3 -1 roll pop AnalyzeExpr 1 add NextNonBlankChar pop
+ 4 -2 roll 3 index 8 index dup 9 index exch sub getinterval StrConcat
+ 4 index StrConcat AddClPar
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ mark 9 -3 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% literal switch -> func call, vector, variables
+/EvalFunc_IfTE {%
+ 3 -1 roll pop 1 add NextNonBlankChar pop SkipCond
+ NextNonBlankChar
+ 44 ne { ANALYZER_ERROR_missing_first_comma_in_IfTE } if
+ 1 add NextNonBlankChar pop dup 5 1 roll
+ AnalyzeExpr NextNonBlankChar
+ 44 ne { ANALYZER_ERROR_missing_second_comma_in_IfTE } if
+ 1 add NextNonBlankChar pop
+ AnalyzeExpr 1 add NextNonBlankChar pop
+ 4 -2 roll 3 index 10 index dup 11 index exch sub getinterval StrConcat
+ 6 index StrConcat (,) StrConcat 4 index StrConcat AddClPar
+ 2 copy pop 0 6 2 roll GetIntervalNewStr
+ mark 11 -5 roll cleartomark 2 index 6 index dup 4 index exch sub getinterval exch 6 2 roll
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% advance in str until a comma is found (no error detection!)
+%% str index -> str index'
+/SkipCond { { 1 add 2 copy get 44 eq {exit } if } loop } bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Convert to radians if trigo function call
+%% (name) ->
+/TrigoFunc {
+ dup (cos) eq 1 index (sin) eq or exch (tan) eq or
+ { /ExpressionVector ExpressionVector aload length Pi /div cvx 180 /mul cvx 5 -1 roll 4 add
+ array astore def
+ } if
+} def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% No derivative for condition....
+/EvalCondOp { 3 -1 roll pop } bind def
+/PutIntervalOneAdd {putinterval 1 add} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add open parenthesis in string at the given index
+%% str index -> str index+1
+/AddOpPar {2 copy (\() PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add close parenthesis in string at the given index
+%% str index -> str index+1
+/AddClPar {2 copy (\)) PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add 0 in string at the given index
+%% str index -> str index+1
+/AddZero {2 copy (0) PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add open parenthesis in string at the given index
+%% str index -> str index+1
+/AddMul {2 copy (*) PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add open parenthesis in string at the given index
+%% str index -> str index+1
+/AddDiv {2 copy (/) PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add a plus sign in string at the given index
+%% str index -> str index+1
+/AddAdd {2 copy (+) PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add a minus sign in string at the given index
+%% str index -> str index+1
+/AddSub {2 copy (-) PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% Add a pipe sign in string at the given index
+%% str index -> str index+1
+/AddPipe {2 copy (|) PutIntervalOneAdd} bind def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% H O O K S
+/AnalyzePreHook { dup 5 1 roll } bind def
+/PreEvalHook {} def
+/AnalyzePostHook { 7 -1 roll pop } bind def
+/AnalyzeListOfEPostHook { 6 -1 roll mark 6 1 roll cleartomark } bind def
+/RollOp { 5 1 roll } bind def
+end%%%tx@CoreAnalyzerDict
+/tx@AddMathFunc 12 dict def tx@AddMathFunc begin
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% NEW FUNC
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% function arcsine in radians asin(x)=atan(x/sqrt(1-x^2))
+%% x -> theta
+/asin {%
+ dup abs 1 gt { EQDFasinrangeerror } if
+ dup dup dup mul 1 exch sub sqrt atan exch 0 lt { 360 sub } if DegtoRad
+} def
+%% function arccosine in radians acos(x)=atan(sqrt(1-x^2)/x)
+%% x -> theta
+/acos {%
+ dup abs 1 gt { EQDFacosrangeerror } if
+ dup dup mul 1 exch sub sqrt exch atan DegtoRad
+} def
+%% function arctangent in radians
+%% x -> theta
+/atg { 1 atan dup 90 gt { 360 sub } if DegtoRad } bind def
+%% HYPERBOLIC FUNCTIONS
+/sh { dup Ex exch neg Ex sub 2 div } def
+/ch { dup Ex exch neg Ex add 2 div } def
+/th { dup sh exch ch div } def
+/Argsh { dup dup mul 1 add sqrt add ln } def
+/Argch { dup dup mul 1 sub sqrt add ln } def
+/Argth { dup 1 add exch 1 exch sub div ln 2 div } def
+%% modified exponential funtion for 0
+%% x n -> x^n
+/Exp { dup 0 eq { pop pop 1 } { exp } ifelse } bind def
+%% modified exponential funtion for 0
+%% x -> e^x
+/Ex { Euler exch exp } bind def
+%%
+%% factorial function
+%% n -> n!
+/Fact { 1 exch 2 exch 1 exch { mul } for } bind def
+/fact { Fact } bind def
+/! { Fact } bind def
+end
+%
+% END pst-algparser.pro
+
+%%EndProcSet
+%%BeginProcSet: pst-tools.pro 0 0
+% $Id: pst-tools.pro 713 2012-10-16 14:25:00Z herbert $
+%
+%% PostScript tools prologue for pstricks.tex.
+%% Version 0.03, 2012/10/16
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%
+%
+/Pi2 1.57079632679489661925640 def
+/factorial { % n on stack, returns n!
+ dup 0 eq { 1 }{
+ dup 1 gt { dup 1 sub factorial mul } if }
+ ifelse } def
+%
+/MoverN { % m n on stack, returns the binomial coefficient m over n
+ 2 dict begin
+ /n exch def /m exch def
+ n 0 eq { 1 }{
+ m n eq { 1 }{
+ m factorial n factorial m n sub factorial mul div } ifelse } ifelse
+ end
+} def
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% subroutines for complex numbers, given as an array [a b]
+% which is a+bi = Real+i Imag
+%
+/cxadd { % [a1 b1] [a2 b2] = [a1+a2 b1+b2]
+ dup 0 get % [a1 b1] [a2 b2] a2
+ 3 -1 roll % [a2 b2] a2 [a1 b1]
+ dup 0 get % [a2 b2] a2 [a1 b1] a1
+ 3 -1 roll % [a2 b2] [a1 b1] a1 a2
+ add % [a2 b2] [a1 b1] a1+a2
+ 3 1 roll % a1+a2 [a2 b2] [a1 b1]
+ 1 get % a1+a2 [a2 b2] b1
+ exch 1 get % a1+a2 b1 b2
+ add 2 array astore
+} def
+%
+/cxneg { % [a b]
+ dup 1 get % [a b] b
+ exch 0 get % b a
+ neg exch neg % -a -b
+ 2 array astore
+} def
+%
+/cxsub { cxneg cxadd } def % same as negative addition
+%
+% [a1 b1][a2 b2] = [a1a2-b1b2 a1b2+b1a2] = [a3 b3]
+/cxmul { % [a1 b1] [a2 b2]
+ dup 0 get % [a1 b1] [a2 b2] a2
+ exch 1 get % [a1 b1] a2 b2
+ 3 -1 roll % a2 b2 [a1 b1]
+ dup 0 get % a2 b2 [a1 b1] a1
+ exch 1 get % a2 b2 a1 b1
+ dup % a2 b2 a1 b1 b1
+ 5 -1 roll dup % b2 a1 b1 b1 a2 a2
+ 3 1 roll mul % b2 a1 b1 a2 b1a2
+ 5 -2 roll dup % b1 a2 b1a2 b2 a1 a1
+ 3 -1 roll dup % b1 a2 b1a2 a1 a1 b2 b2
+ 3 1 roll mul % b1 a2 b1a2 a1 b2 a1b2
+ 4 -1 roll add % b1 a2 a1 b2 b3
+ 4 2 roll mul % b1 b2 b3 a1a2
+ 4 2 roll mul sub % b3 a3
+ exch 2 array astore
+} def
+%
+% [a b]^2 = [a^2-b^2 2ab] = [a2 b2]
+/cxsqr { % [a b] square root
+ dup 0 get exch 1 get % a b
+ dup dup mul % a b b^2
+ 3 -1 roll % b b^2 a
+ dup dup mul % b b^2 a a^2
+ 3 -1 roll sub % b a a2
+ 3 1 roll mul 2 mul % a2 b2
+ 2 array astore
+} def
+%
+/cxsqrt { % [a b]
+% dup cxnorm sqrt /r exch def
+% cxarg 2 div RadtoDeg dup cos r mul exch sin r mul cxmake2
+ cxlog % log[a b]
+ 2 cxrdiv % log[a b]/2
+ aload pop exch % b a
+ 2.781 exch exp % b exp(a)
+ exch cxconv exch % [Re +iIm] exp(a)
+ cxrmul %
+} def
+%
+/cxarg { % [a b]
+ aload pop % a b
+ exch atan % arctan b/a
+ DegtoRad % arg(z)=atan(b/a)
+} def
+%
+% log[a b] = [a^2-b^2 2ab] = [a2 b2]
+/cxlog { % [a b]
+ dup % [a b][a b]
+ cxnorm % [a b] |z|
+ log % [a b] log|z|
+ exch % log|z|[a b]
+ cxarg % log|z| Theta
+ cxmake2 % [log|z| Theta]
+} def
+%
+% square of magnitude of complex number
+/cxnorm2 { % [a b]
+ dup 0 get exch 1 get % a b
+ dup mul % a b^2
+ exch dup mul add % a^2+b^2
+} def
+%
+/cxnorm { % [a b]
+ cxnorm2 sqrt
+} def
+%
+/cxconj { % conjugent complex
+ dup 0 get exch 1 get % a b
+ neg 2 array astore % [a -b]
+} def
+%
+/cxre { 0 get } def % real value
+/cxim { 1 get } def % imag value
+%
+% 1/[a b] = ([a -b]/(a^2+b^2)
+/cxrecip { % [a b]
+ dup cxnorm2 exch % n2 [a b]
+ dup 0 get exch 1 get % n2 a b
+ 3 -1 roll % a b n2
+ dup % a b n2 n2
+ 4 -1 roll exch div % b n2 a/n2
+ 3 1 roll div % a/n2 b/n2
+ neg 2 array astore
+} def
+%
+/cxmake1 { 0 2 array astore } def % make a complex number, real given
+/cxmake2 { 2 array astore } def % dito, both given
+%
+/cxdiv { cxrecip cxmul } def
+%
+% multiplikation by a real number
+/cxrmul { % [a b] r
+ exch aload pop % r a b
+ 3 -1 roll dup % a b r r
+ 3 1 roll mul % a r b*r
+ 3 1 roll mul % b*r a*r
+ exch 2 array astore % [a*r b*r]
+} def
+%
+% division by a real number
+/cxrdiv { % [a b] r
+ 1 exch div % [a b] 1/r
+ cxrmul
+} def
+%
+% exp(i theta) = cos(theta)+i sin(theta) polar<->cartesian
+/cxconv { % theta
+ RadtoDeg dup sin exch cos cxmake2
+} def
+
+%%%%% ### bubblesort ###
+%% syntax : array bubblesort --> array2 trie par ordre croissant
+%% code de Bill Casselman
+%% http://www.math.ubc.ca/people/faculty/cass/graphics/text/www/
+/bubblesort { % on stack must be an array [ ... ]
+4 dict begin
+ /a exch def
+ /n a length 1 sub def
+ n 0 gt {
+ % at this point only the n+1 items in the bottom of a remain to
+ % the sorted largest item in that blocks is to be moved up into
+ % position n
+ n {
+ 0 1 n 1 sub {
+ /i exch def
+ a i get a i 1 add get gt {
+ % if a[i] > a[i+1] swap a[i] and a[i+1]
+ a i 1 add
+ a i get
+ a i a i 1 add get
+ % set new a[i] = old a[i+1]
+ put
+ % set new a[i+1] = old a[i]
+ put
+ } if
+ } for
+ /n n 1 sub def
+ } repeat
+ } if
+ a % return the sorted array
+end
+} def
+%
+/concatstringarray{ % [(a) (b) ... (z)] --> (ab...z) 20100422
+ 0 1 index { length add } forall
+ string
+ 0 3 2 roll
+ { 3 copy putinterval length add }forall
+ pop
+} bind def
+%
+/dot2comma {% on stack a string (...)
+ 2 dict begin
+ /Output exch def
+ 0 1 Output length 1 sub {
+ /Index exch def
+ Output Index get 46 eq { Output Index 44 put } if
+ } for
+ Output
+ end
+} def
+%
+/rightTrim {
+ dup
+ length 1 sub -1 0 {
+ /i exch def dup i get 32 ne { exit } if
+ } for
+ 0 i 1 add getinterval
+ dup length string copy
+} bind def
+
+/psStringwidth /stringwidth load def
+/psShow /show load def
+
+%/stringwidth{ rightTrim psStringwidth } bind def
+
+%/show { rightTrim psShow } bind def
+%-----------------------------------------------------------------------------%
+% END pst-tools.pro
+
+%%EndProcSet
+%%BeginProcSet: pst-dots.pro 0 0
+% $Id: pst-dots.pro 801 2013-07-09 18:10:41Z herbert $
+%
+%% PostScript prologue for pstricks.tex.
+%% Version 2.02, 2009/06/16
+%%
+%% For distribution, see pstricks.tex.
+%%
+%% Timothy Van Zandt <tvz@Princeton.EDU>
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%%
+%% Modified by Etienne Riga - Dec. 16, 1999
+%% Modified by Etienne Riga - 2005/01/01 (er)
+%% to add /Diamond, /SolidDiamond and /BoldDiamond
+%% Modified by Herbert Voss (hv) - 2008/04/17
+%
+10 dict dup begin % hold local
+ /FontType 3 def
+ /FontMatrix [.001 0 0 .001 0 0] def
+% /FontBBox [-571.5 -742.5 571.5 742.5] def % changed to next line 20060616 hv
+ /FontBBox [-1000 -1000 1000 1000] def % See end of file in /BuildGlyph
+ /Encoding 256 array def
+ 0 1 255 {Encoding exch /.notdef put} for % fill the array with /.notdef
+ Encoding % replace with given dot names
+ dup (b) 0 get /Bullet put % get the numerical position of b in ASCII
+% % and save /Bullet at this place in Encoding
+ dup (c) 0 get /Circle put
+ dup (C) 0 get /BoldCircle put % 67
+ dup (u) 0 get /SolidTriangle put
+ dup (t) 0 get /Triangle put
+ dup (T) 0 get /BoldTriangle put
+ dup (r) 0 get /SolidSquare put
+ dup (s) 0 get /Square put
+ dup (S) 0 get /BoldSquare put
+ dup (q) 0 get /SolidPentagon put
+ dup (p) 0 get /Pentagon put
+ dup (P) 0 get /BoldPentagon put
+%%%
+ dup (k) 0 get /Asterisk put
+ dup (K) 0 get /BoldAsterisk put
+ dup (J) 0 get /SolidAsterisk put
+ dup (h) 0 get /Hexagon put
+ dup (H) 0 get /BoldHexagon put
+ dup (G) 0 get /SolidHexagon put
+ dup (f) 0 get /Octogon put % 2008-04-18 hv
+ dup (F) 0 get /BoldOctogon put % 2008-04-18 hv
+ dup (g) 0 get /SolidOctogon put % 2008-04-18 hv
+ dup (a) 0 get /Add put
+ dup (A) 0 get /BoldAdd put % 65
+ dup (x) 0 get /Mul put
+ dup (X) 0 get /BoldMul put
+ dup (m) 0 get /Oplus put
+ dup (M) 0 get /BOplus put
+ dup (e) 0 get /SolidOplus put
+ dup (n) 0 get /Otimes put
+ dup (N) 0 get /BOtimes put
+ dup (E) 0 get /SolidOtimes put
+ dup (i) 0 get /Bar put
+ dup (I) 0 get /BoldBar put
+ dup (l) 0 get /SolidDiamond put
+ dup (d) 0 get /Diamond put
+ (D) 0 get /BoldDiamond put
+%%%
+/CharProcs 47 dict def
+CharProcs begin
+ /CirclePath {0 0 500 0 360 arc closepath} def
+ /Bullet {CirclePath fill} def
+ /Circle {CirclePath .9 .9 scale CirclePath eofill} def
+ /BoldCircle {CirclePath .8 .8 scale CirclePath eofill} def
+ /TrianglePath {0 660 moveto -571.5 -330 lineto 571.5 -330 lineto closepath} def
+ /SolidTriangle {TrianglePath fill} def
+ /Triangle {TrianglePath .85 .85 scale TrianglePath eofill} def
+ /BoldTriangle {TrianglePath .7 .7 scale TrianglePath eofill} def
+ /SquarePath {-450 450 moveto 450 450 lineto 450 -450 lineto -450 -450 lineto closepath} def
+ /SolidSquare {SquarePath fill} def
+ /Square {SquarePath .89 .89 scale SquarePath eofill} def
+ /BoldSquare {SquarePath .78 .78 scale SquarePath eofill} def
+ /PentagonPath {
+ -337.8 -465 moveto 337.8 -465 lineto 546.6 177.6 lineto
+ 0 574.7 lineto -546.6 177.6 lineto closepath
+ } def
+ /SolidPentagon {PentagonPath fill} def
+ /Pentagon {PentagonPath .89 .89 scale PentagonPath eofill} def
+ /BoldPentagon {PentagonPath .78 .78 scale PentagonPath eofill} def
+%-------------- hv begin 2004/07/25 from: er 2003/03/24
+ /HexagonPath {
+ 0 550 moveto -476 275 lineto -476 -275 lineto
+ 0 -550 lineto 476 -275 lineto 476 275 lineto closepath
+ } def
+ /SolidHexagon {HexagonPath fill} def
+ /Hexagon {HexagonPath .89 .89 scale HexagonPath eofill} def
+ /BoldHexagon {HexagonPath .79 .79 scale HexagonPath eofill} def
+% 2008-04-18 hv
+ /OctogonPath {
+ 550 dup 22.5 tan mul dup neg dup add /xMove exch def
+ exch moveto 7 { xMove 0 rlineto 45 rotate } repeat closepath } def
+ /SolidOctogon { OctogonPath fill } def
+ /Octogon { OctogonPath .89 .89 scale OctogonPath eofill } def
+ /BoldOctogon { OctogonPath .79 .79 scale OctogonPath eofill } def
+%
+ /AsteriskPath {
+ 20 0 moveto 10 250 180 500 0 500 curveto
+ -180 500 -10 250 -20 0 curveto closepath
+ } def
+ /Asterisk {
+ AsteriskPath 60 rotate AsteriskPath 60 rotate AsteriskPath
+ 60 rotate AsteriskPath 60 rotate AsteriskPath 60 rotate AsteriskPath fill
+ } def
+%
+ /Basterp {50 250 220 500 0 500 curveto -220 500 -50 250 -50 30 cos 100 mul curveto} def
+ /BoldAsteriskPath {
+ 50 30 cos 100 mul moveto Basterp
+ 60 rotate Basterp 60 rotate Basterp
+ 60 rotate Basterp 60 rotate Basterp
+ 60 rotate Basterp closepath
+ } def
+ /BoldAsterisk {BoldAsteriskPath fill} def
+ /SolidAsterisk {CirclePath .9 .9 scale BoldAsteriskPath eofill} def
+ /CrossPath {
+ 40 550 moveto -40 550 lineto -40 40 lineto -550 40 lineto
+ -550 -40 lineto -40 -40 lineto -40 -550 lineto 40 -550 lineto
+ 40 -40 lineto 550 -40 lineto 550 40 lineto 40 40 lineto closepath
+ } def
+ /BoldCrossPath {80 550 moveto -80 550 lineto -80 80 lineto -550 80 lineto
+ -550 -80 lineto -80 -80 lineto -80 -550 lineto 80 -550 lineto
+ 80 -80 lineto 550 -80 lineto 550 80 lineto 80 80 lineto closepath
+ } def
+ /Add {CrossPath fill} def
+ /Mul {45 rotate CrossPath fill} def
+ /BoldAdd {BoldCrossPath fill} def
+ /BoldMul {45 rotate BoldCrossPath fill} def
+ /Oplus {CirclePath .9 .9 scale CirclePath eofill .775 .775 scale CrossPath fill } def
+ /SolidOplus {CirclePath .775 .775 scale BoldCrossPath eofill} def
+ /BOplus {CirclePath .8 .8 scale CirclePath eofill .775 .775 scale BoldCrossPath fill} def
+ /Otimes {CirclePath .9 .9 scale CirclePath eofill 45 rotate .775 .775 scale CrossPath fill} def
+ /BOtimes {CirclePath .8 .8 scale CirclePath eofill 45 rotate .775 .775 scale BoldCrossPath fill } def
+ /SolidOtimes {CirclePath 45 rotate .775 .775 scale BoldCrossPath eofill} def
+ /BarPath {40 660 moveto -40 660 lineto -40 -660 lineto 40 -660 lineto closepath} def
+ /Bar {BarPath fill} def
+ /BoldBarPath {80 660 moveto -80 660 lineto -80 -660 lineto 80 -660 lineto closepath} def
+ /BoldBar {BoldBarPath fill} def
+ /DiamondPath {0 742.5 moveto -428.5 0 lineto 0 -742.5 lineto 428.5 0 lineto closepath} def
+ /SolidDiamond {DiamondPath fill} def
+ /Diamond {DiamondPath .865 .865 scale DiamondPath eofill} def
+ /BoldDiamond {DiamondPath .73 .73 scale DiamondPath eofill} def
+%%%
+ /.notdef { } def
+end
+%
+/BuildGlyph {
+ exch
+ begin
+% Metrics 1 index get exec 0
+ 0 0
+% BBoxes 3 index get exec
+ -1000 -1000 1000 1000
+% -571.5 -742.5 571.5 742.5
+ setcachedevice
+ CharProcs begin load exec end
+ end
+} def
+%
+/BuildChar {
+ 1 index /Encoding get exch get
+ 1 index /BuildGlyph get exec
+} bind def
+%
+end
+/PSTricksDotFont exch definefont pop
+%
+%% end
+
+%%EndProcSet
+%%BeginProcSet: pst-coil.pro 0 0
+%!ps
+% PostScript prologue for pst-coil.tex.
+% Version 1.03, 2010/02/01
+% For distribution, see pstricks.tex.
+%
+/tx@CoilDict 40 dict def tx@CoilDict begin
+/CoilLoop {
+ /t ED
+ t sin AspectSin mul t 180 div AspectCos mul add t cos lineto } def
+/Coil {
+ /Inc ED
+ dup sin /AspectSin ED
+ cos /AspectCos ED
+ /ArmB ED
+ /ArmA ED
+ /h ED /w ED /y1 ED /x1 ED /y0 ED /x0 ED
+ x0 y0 translate y1 y0 sub x1 x0 sub 2 copy Pyth
+ /TotalLength ED
+ Atan rotate
+ /BeginAngle ArmA AspectCos Div w h mul Div 360 mul def
+ /EndAngle TotalLength ArmB sub AspectCos Div
+ w h mul Div 360 mul def
+ 1 0 0 0 ArrowA ArmA 0 lineto
+ /mtrx CM def
+ w h mul 2 Div w 2 Div scale BeginAngle Inc
+ EndAngle { CoilLoop } for
+ EndAngle CoilLoop mtrx setmatrix TotalLength ArmB sub 0 lineto CP
+% DG/SR modification begin - Jun. 2, 1998 - Patch 1 (from Michael Vulis)
+% TotalLength 0 ArrowB lineto } def
+ TotalLength 0 ArrowB lineto
+ pop pop pop pop } def
+% DG/SR modification end
+%
+/Sin {
+ /Func ED
+ /PointsPerPeriod ED
+ /ArmB ED
+ /ArmA ED
+ /Amplitude ED
+ /roundValue ED
+ /relativePeriod ED
+ /Periods ED
+ /y1 ED /x1 ED /y0 ED /x0 ED
+ x0 y0 translate y1 y0 sub x1 x0 sub 2 copy Pyth
+ dup /TotalLength ED
+ ArmA sub ArmB sub /SinLength ED
+ Atan rotate
+ 1 0 0 0 ArrowA ArmA 0 lineto
+ /mtrx CM def
+ relativePeriod
+ {}
+ { SinLength Periods div roundValue { cvi } if
+ /Periods ED } ifelse
+ /dxStep SinLength 360 div def % the default step for x pos
+ /xStep 360 PointsPerPeriod div def % the step for the for loop
+ 1 xStep 360 { % PointsPerPeriod times
+ dup dxStep mul ArmA add exch % x pos and value for the func
+ Periods mul Func Amplitude mul lineto
+ } for
+ mtrx setmatrix TotalLength ArmB sub 0 lineto CP
+ TotalLength 0 ArrowB lineto
+ pop pop pop pop
+} def
+%
+/AltCoil {
+ /Inc ED
+ dup sin /AspectSin ED
+ cos /AspectCos ED /h ED /w ED /EndAngle ED /BeginAngle ED
+ /mtrx CM def
+ w h mul 2 Div w 2 Div scale BeginAngle sin AspectSin mul
+ BeginAngle 180 div AspectCos mul add BeginAngle cos
+ /lineto load stopped { moveto } if
+ BeginAngle Inc EndAngle { CoilLoop } for
+ EndAngle CoilLoop mtrx setmatrix } def
+/ZigZag {
+ /ArmB ED /ArmA ED
+ 2 div /w ED
+ w mul /h ED /y1 ED /x1 ED /y0 ED /x0 ED
+ x1 y1 translate y0 y1 sub x0 x1 sub 2 copy Pyth
+ /TotalLength ED
+ Atan rotate TotalLength ArmA sub ArmB sub dup h div cvi /n ED n h mul
+ sub 2 div dup ArmA add
+ /ArmA ED ArmB add
+ /ArmB ED
+ /x ArmB h 2 div add def
+ mark 0 0 ArmB 0
+ n { x w /w w neg def /x x h add def } repeat
+ TotalLength ArmA sub 0 TotalLength 0 } def
+%
+end
+% END pst-coil.pro
+
+%%EndProcSet
+%%BeginProcSet: pst-node.pro 0 0
+% $Id: pst-node.pro 805 2013-07-11 13:18:11Z herbert $
+%%
+%% PostScript prologue for pst-node.tex.
+%% Version 1.14, 2012/09/18.
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%
+tx@Dict begin % from main pstricks dict
+ /T /translate load def
+ /CP /currentpoint load def
+% /startGlobal { true setglobal globaldict begin } bind def
+% /endGlobal { end false setglobal } bind def
+end
+/tx@NodeDict 400 dict def tx@NodeDict begin
+/NewNode { % on stack: { x y } boolean N@name type InitXnode
+ gsave
+ NodeScale % a bugfix for xelatex, it's empty for dvips
+ /next exch def % { x y } boolean N@name type
+ dict dup % { x y } boolean N@name dict dict
+ 3 1 roll def % { x y } boolean dict N@name dict def
+ exch { dup 3 1 roll def } if % { x y } dict boolean
+ begin % { x y } dict begin
+ tx@Dict begin
+ STV CP T exec % set scaling
+ end
+ /NodeMtrx CM def % save CM
+ next % InitXNode
+ end
+ grestore
+} def
+%
+/InitPnode {
+ /Y ED /X ED
+ /NodePos { NodeSep Cos mul NodeSep Sin mul } def
+} def
+%
+/InitCnode {
+ /r ED /Y ED /X ED
+ /NodePos { NodeSep r add dup Cos mul exch Sin mul } def
+} def
+%
+/GetRnodePos {
+ Cos 0 gt { /dx r NodeSep add def } { /dx l NodeSep sub def } ifelse
+ Sin 0 gt { /dy u NodeSep add def } { /dy d NodeSep sub def } ifelse
+ dx Sin mul abs dy
+ Cos mul abs gt { dy Cos mul Sin div dy } { dx dup Sin mul Cos Div } ifelse
+} def
+%
+/InitRnode {
+ /Y ED /X ED X sub /r ED /l X neg def Y add neg /d ED Y sub /u ED
+ /NodePos { GetRnodePos } def
+} def
+%
+/DiaNodePos {
+ w h mul w Sin mul abs h Cos mul abs add Div NodeSep add dup
+ Cos mul exch Sin mul
+} def
+%
+/TriNodePos {
+ Sin s lt
+ { d NodeSep sub dup Cos mul Sin Div exch }
+ { w h mul w Sin mul h Cos abs mul add Div
+ NodeSep add dup Cos mul exch Sin mul
+ } ifelse
+} def
+%
+/InitTriNode {
+ sub 2 div exch
+ 2 div exch
+ 2 copy T
+ 2 copy 4 index index /d ED
+ pop pop pop pop
+ -90 mul rotate
+ /NodeMtrx CM def
+ /X 0 def /Y 0 def
+ d sub abs neg /d ED
+ d add /h ED
+ 2 div h mul h d sub Div /w ED
+ /s d w Atan sin def
+ /NodePos { TriNodePos } def
+} def
+%
+/OvalNodePos {
+ /ww w NodeSep add def
+ /hh h NodeSep add def
+ Sin ww mul Cos hh mul Atan dup cos ww mul exch sin hh mul
+} def
+%
+/GetCenter { begin X Y NodeMtrx transform CM itransform end } def
+%
+/XYPos {
+ dup sin exch cos Do
+ /Cos ED /Sin ED /Dist ED
+ Cos 0 gt
+ { Dist Dist Sin mul Cos div }
+ { Cos 0 lt
+ { Dist neg Dist Sin mul Cos div neg }
+ { 0 Dist Sin mul } ifelse
+ } ifelse
+ Do
+} def
+%
+/GetEdge {
+ dup 0 eq
+ { pop begin 1 0 NodeMtrx dtransform
+ CM idtransform
+ exch atan sub
+ dup
+ sin /Sin ED
+ cos /Cos ED
+ /NodeSep ED
+ NodePos NodeMtrx dtransform CM idtransform end }
+ { 1 eq {{exch}} {{}} ifelse /Do ED pop XYPos } ifelse
+} def
+%
+/AddOffset {
+ 1 index 0 eq
+ { pop pop }
+ { 2 copy 5 2 roll cos mul add 4 1 roll sin mul sub exch } ifelse
+} def
+%
+/GetEdgeA {
+ NodeSepA AngleA NodeA NodeSepTypeA GetEdge
+ OffsetA AngleA AddOffset
+ yA add /yA1 ED
+ xA add /xA1 ED
+} def
+%
+/GetEdgeB {
+ NodeSepB AngleB NodeB NodeSepTypeB GetEdge
+ OffsetB AngleB AddOffset
+ yB add /yB1 ED
+ xB add /xB1 ED
+} def
+%
+/GetArmA {
+ ArmTypeA 0 eq
+ { /xA2 ArmA AngleA cos mul xA1 add def
+ /yA2 ArmA AngleA sin mul yA1 add def }
+ { ArmTypeA 1 eq {{exch}} {{}} ifelse
+ /Do ED
+ ArmA AngleA XYPos OffsetA AngleA AddOffset
+ yA add /yA2 ED
+ xA add /xA2 ED } ifelse
+} def
+%
+/GetArmB {
+ ArmTypeB 0 eq
+ { /xB2 ArmB AngleB cos mul xB1 add def
+ /yB2 ArmB AngleB sin mul yB1 add def }
+ { ArmTypeB 1 eq {{exch}} {{}} ifelse
+ /Do ED
+ ArmB AngleB XYPos OffsetB AngleB AddOffset
+ yB add /yB2 ED
+ xB add /xB2 ED } ifelse
+} def
+%
+/InitNC {
+ /b ED /a ED % second and first node
+ /NodeSepTypeB ED /NodeSepTypeA ED
+ /NodeSepB ED /NodeSepA ED
+ /OffsetB ED /OffsetA ED
+ tx@NodeDict a known tx@NodeDict b known and dup {
+ /NodeA a load def
+ /NodeB b load def
+ NodeA GetCenter /yA ED /xA ED
+ NodeB GetCenter /yB ED /xB ED } if
+} def
+%
+/LPutLine {
+ 4 copy
+ 3 -1 roll sub neg 3 1 roll sub Atan /NAngle ED
+ 1 t sub mul
+ 3 1 roll 1 t sub mul
+ 4 1 roll t mul add /Y ED
+ t mul add /X ED
+} def
+%
+/LPutLines {
+ mark LPutVar counttomark 2 div 1 sub /n ED
+% t floor dup n gt
+ t floor dup n ge % to allow npos<= hv 2008-08-14
+ { pop n 1 sub /t 1 def } { dup t sub neg /t ED } ifelse
+ cvi 2 mul { pop } repeat
+ LPutLine
+ cleartomark
+} def
+%
+/BezierMidpoint {
+ /y3 ED /x3 ED /y2 ED /x2 ED /y1 ED /x1 ED /y0 ED /x0 ED /t ED
+ /cx x1 x0 sub 3 mul def
+ /cy y1 y0 sub 3 mul def
+ /bx x2 x1 sub 3 mul cx sub def
+ /by y2 y1 sub 3 mul cy sub def
+ /ax x3 x0 sub cx sub bx sub def
+ /ay y3 y0 sub cy sub by sub def
+ ax t 3 exp mul bx t t mul mul add
+ cx t mul add x0 add ay t 3 exp mul
+ by t t mul mul add cy t mul add
+ y0 add 3 ay t t mul mul mul 2
+ by t mul mul add cy add 3 ax t t mul mul mul
+ 2 bx t mul mul add cx add atan /NAngle ED
+ /Y ED /X ED
+} def
+%
+/HPosBegin { yB yA ge { /t 1 t sub def } if /Y yB yA sub t mul yA add def
+} def
+/HPosEnd { /X Y yyA sub yyB yyA sub Div xxB xxA sub mul xxA add def
+/NAngle yyB yyA sub xxB xxA sub Atan def } def
+/HPutLine { HPosBegin /yyA ED /xxA ED /yyB ED /xxB ED HPosEnd } def
+/HPutLines { HPosBegin yB yA ge { /check { le } def } { /check { ge } def
+} ifelse /xxA xA def /yyA yA def mark xB yB LPutVar { dup Y check { exit
+} { /yyA ED /xxA ED } ifelse } loop /yyB ED /xxB ED cleartomark HPosEnd
+} def
+/VPosBegin { xB xA lt { /t 1 t sub def } if /X xB xA sub t mul xA add def
+} def
+/VPosEnd { /Y X xxA sub xxB xxA sub Div yyB yyA sub mul yyA add def
+/NAngle yyB yyA sub xxB xxA sub Atan def } def
+/VPutLine { VPosBegin /yyA ED /xxA ED /yyB ED /xxB ED VPosEnd } def
+/VPutLines { VPosBegin xB xA ge { /check { le } def } { /check { ge } def
+} ifelse /xxA xA def /yyA yA def mark xB yB LPutVar { 1 index X check {
+exit } { /yyA ED /xxA ED } ifelse } loop /yyB ED /xxB ED cleartomark
+VPosEnd } def
+/HPutCurve { gsave newpath /SaveLPutVar /LPutVar load def LPutVar 8 -2
+roll moveto curveto flattenpath /LPutVar [ {} {} {} {} pathforall ] cvx
+def grestore exec /LPutVar /SaveLPutVar load def } def
+
+/NCCoor {
+ /AngleA yB yA sub xB xA sub Atan def
+ /AngleB AngleA 180 add def
+ GetEdgeA GetEdgeB
+ /LPutVar [ xB1 yB1 xA1 yA1 ] cvx def
+ /LPutPos { LPutVar LPutLine } def
+ /HPutPos { LPutVar HPutLine } def
+ /VPutPos { LPutVar VPutLine } def
+ LPutVar
+} def
+%
+/NCLine {
+ NCCoor
+ tx@Dict begin
+ ArrowA CP 4 2 roll
+ ArrowB
+ lineto pop pop
+ end
+} def
+%
+/NCLines {
+ false NArray
+ n 0 eq
+ { NCLine }
+ { 2 copy yA sub exch xA sub Atan /AngleA ED
+ n 2 mul dup index exch index yB sub exch xB sub
+ Atan /AngleB ED
+ GetEdgeA GetEdgeB
+ /LPutVar [ xB1 yB1 n 2 mul 4 add 4 roll xA1 yA1 ] cvx def
+ mark LPutVar
+ tx@Dict begin false Line end
+ /LPutPos { LPutLines } def
+ /HPutPos { HPutLines } def
+ /VPutPos { VPutLines } def
+ } ifelse
+} def
+%
+/NCCurve {
+ GetEdgeA
+ GetEdgeB
+ xA1 xB1 sub yA1 yB1 sub Pyth 2 div dup 3 -1
+roll mul /ArmA ED mul /ArmB ED /ArmTypeA 0 def /ArmTypeB 0 def GetArmA
+GetArmB xA2 yA2 xA1 yA1 tx@Dict begin ArrowA end xB2 yB2 xB1 yB1 tx@Dict
+begin ArrowB end curveto /LPutVar [ xA1 yA1 xA2 yA2 xB2 yB2 xB1 yB1 ]
+cvx def /LPutPos { t LPutVar BezierMidpoint } def /HPutPos { { HPutLines
+} HPutCurve } def /VPutPos { { VPutLines } HPutCurve } def } def
+%
+/NCAngles {
+ GetEdgeA GetEdgeB GetArmA GetArmB
+ /mtrx AngleA matrix rotate def
+ xA2 yA2 mtrx transform pop
+ xB2 yB2 mtrx transform exch pop
+ mtrx itransform
+ /y0 ED /x0 ED
+ mark ArmB 0 ne { xB1 yB1 } if
+ xB2 yB2 x0 y0 xA2 yA2
+ ArmA 0 ne { xA1 yA1 } if
+ tx@Dict begin false Line end
+ /LPutVar [ xB1 yB1 xB2 yB2 x0 y0 xA2 yA2 xA1 yA1 ] cvx def
+ /LPutPos { LPutLines } def
+ /HPutPos { HPutLines } def
+ /VPutPos { VPutLines } def } def
+%
+/NCAngle {
+ GetEdgeA GetEdgeB GetArmB
+ /mtrx AngleA matrix rotate def
+ xB2 yB2 mtrx itransform pop xA1 yA1 mtrx itransform exch pop mtrx transform
+ /y0 ED /x0 ED
+ mark
+ ArmB 0 ne { xB1 yB1 } if
+ xB2 yB2 x0 y0 xA1 yA1
+ tx@Dict begin false Line end
+ /LPutVar [ xB1 yB1 xB2 yB2 x0 y0 xA1 yA1 ] cvx def
+ /LPutPos { LPutLines } def
+ /HPutPos { HPutLines } def
+ /VPutPos { VPutLines } def
+} def
+%
+/NCBar {
+ GetEdgeA GetEdgeB GetArmA GetArmB
+ /mtrx AngleA matrix rotate def
+ xA2 yA2 mtrx itransform pop
+ xB2 yB2 mtrx itransform pop
+ sub dup 0 mtrx transform
+ 3 -1 roll 0 gt
+ { /yB2 exch yB2 add def /xB2 exch xB2 add def }
+ { /yA2 exch neg yA2 add def /xA2 exch neg xA2 add def } ifelse
+ mark
+ ArmB 0 ne { xB1 yB1 } if
+ xB2 yB2 xA2 yA2 ArmA 0 ne { xA1 yA1 } if
+ tx@Dict begin false Line end
+ /LPutVar [ xB1 yB1 xB2 yB2 xA2 yA2 xA1 yA1 ] cvx def
+ /LPutPos { LPutLines } def
+ /HPutPos { HPutLines } def
+ /VPutPos { VPutLines } def
+} def
+%
+/NCDiag {
+ /lineAngle ED
+ GetEdgeA GetEdgeB GetArmA GetArmB mark
+ lineAngle abs 0 gt {
+ /xTemp xA2 10 add def
+ /yTemp yA2 lineAngle dup sin exch cos div 10 mul add def
+ /dY1 yTemp yA2 sub def
+ /dX1 xTemp xA2 sub def
+ /dY2 yB2 yB1 sub def
+ /dX2 xB2 xB1 sub def
+ dX1 abs 0.01 lt {
+ /m2 dY2 dX2 div def
+ /xB2 xA2 def
+ /yB2 xA2 xB1 sub m2 mul yB1 add def
+ }{
+ dX2 abs 0.01 lt {
+ /m1 dY1 dX1 div def
+ /xB2 xB1 def
+ /yB2 xB1 xA2 sub m1 mul yA2 add def
+ }{%
+ /m1 dY1 dX1 div def
+ /m2 dY2 dX2 div def
+ /xB2 m1 xA2 mul m2 xB1 mul sub yA2 sub yB1 add m1 m2 sub div def
+ /yB2 xB2 xA2 sub m1 mul yA2 add def
+ } ifelse
+ } ifelse
+ } if
+ ArmB 0 ne { xB1 yB1 } if
+ xB2 yB2 xA2 yA2
+ ArmA 0 ne { xA1 yA1 } if
+ tx@Dict begin false Line end
+ /LPutVar [ xB1 yB1 xB2 yB2 xA2 yA2 xA1 yA1 ] cvx def
+ /LPutPos { LPutLines } def
+ /HPutPos { HPutLines } def
+ /VPutPos { VPutLines } def
+%
+% GetEdgeA GetEdgeB GetArmA GetArmB mark
+% ArmB 0 ne { xB1 yB1 } if
+% xB2 yB2 xA2 yA2
+% ArmA 0 ne { xA1 yA1 } if
+% tx@Dict begin false Line end
+% /LPutVar [ xB1 yB1 xB2 yB2 xA2 yA2 xA1 yA1 ] cvx def
+% /LPutPos { LPutLines } def
+% /HPutPos { HPutLines } def
+% /VPutPos { VPutLines } def
+} def
+%
+/NCDiagg {
+ /lineAngle ED
+ GetEdgeA GetArmA
+ lineAngle abs 0 gt
+ { lineAngle }
+ { yB yA2 sub xB xA2 sub Atan 180 add } ifelse
+ /AngleB ED
+ GetEdgeB mark
+ lineAngle abs 0 gt {
+ /dY2 yA2 yA1 sub def
+ /dX2 xA2 xA1 sub def
+ lineAngle abs 90 eq {
+ /m2 dY2 dX2 div def
+ /yA2 xB xA2 sub m2 mul yA2 add def
+ /xA2 xB def
+ }{
+ /m1 lineAngle dup sin exch cos div def % tan alpha
+ dX2 abs 0.01 lt {
+ /yA2 xA1 xB sub m1 mul yB add def
+ /xA2 xA1 def
+ }{%
+ /m2 dY2 dX2 div def
+ /xA2 m1 xB mul m2 xA2 mul sub yA2 add yB sub m1 m2 sub div def
+ /yA2 xA2 xB sub m1 mul yB add def
+ } ifelse
+ } ifelse
+ } if
+ xB1 yB1 xA2 yA2
+ ArmA 0 ne { xA1 yA1 } if
+ tx@Dict begin false Line end
+ /LPutVar [ xB1 yB1 xA2 yA2 xA1 yA1 ] cvx def
+ /LPutPos { LPutLines } def
+ /HPutPos { HPutLines } def
+ /VPutPos { VPutLines } def
+%
+% GetEdgeA GetArmA
+% yB yA2 sub xB xA2 sub Atan 180 add /AngleB ED
+% GetEdgeB
+% mark
+% xB1 yB1 xA2 yA2
+% ArmA 0 ne { xA1 yA1 } if
+% tx@Dict begin false Line end
+% /LPutVar [ xB1 yB1 xA2 yA2 xA1 yA1 ] cvx def
+% /LPutPos { LPutLines } def
+% /HPutPos { HPutLines } def
+% /VPutPos { VPutLines } def
+} def
+%
+/NCLoop {
+ GetEdgeA GetEdgeB GetArmA GetArmB
+ /mtrx AngleA matrix rotate def
+ xA2 yA2 mtrx transform loopsize add /yA3 ED /xA3 ED
+ /xB3 xB2 yB2 mtrx transform pop def
+ xB3 yA3 mtrx itransform /yB3 ED /xB3 ED
+ xA3 yA3 mtrx itransform /yA3 ED /xA3 ED
+ mark ArmB 0 ne { xB1 yB1 } if
+ xB2 yB2 xB3 yB3 xA3 yA3 xA2 yA2 ArmA 0 ne { xA1 yA1 } if
+ tx@Dict begin false Line end
+ /LPutVar [ xB1 yB1 xB2 yB2 xB3 yB3 xA3 yA3 xA2 yA2 xA1 yA1 ] cvx def
+ /LPutPos { LPutLines } def
+ /HPutPos { HPutLines } def
+ /VPutPos { VPutLines } def
+} def
+%
+% DG/SR modification begin - May 9, 1997 - Patch 1
+%/NCCircle { 0 0 NodesepA nodeA \tx@GetEdge pop xA sub 2 div dup 2 exp r
+%r mul sub abs sqrt atan 2 mul /a ED r AngleA 90 add PtoC yA add exch xA add
+%exch 2 copy /LPutVar [ 4 2 roll r AngleA ] cvx def /LPutPos { LPutVar t 360
+%mul add dup 5 1 roll 90 sub \tx@PtoC 3 -1 roll add /Y ED add /X ED /NAngle ED
+%
+/NCCircle {
+ NodeSepA 0 NodeA 0 GetEdge pop
+ 2 div dup 2 exp r r mul sub abs sqrt
+ atan 2 mul /a ED
+ r AngleA 90 add PtoC yA add exch xA add
+ exch 2 copy
+ /LPutVar [ 4 2 roll r AngleA ] cvx def
+ /LPutPos {
+ LPutVar t 360 mul add dup 5 1 roll 90 sub PtoC
+ 3 -1 roll add
+ /Y ED add /X ED /NAngle ED
+% DG/SR modification end
+ } def
+ /HPutPos { LPutPos } def
+ /VPutPos { LPutPos } def
+ r AngleA 90 sub a add AngleA 270 add a sub
+ tx@Dict begin
+ /angleB ED /angleA ED /r ED
+ /c 57.2957 r Div def
+ /y ED /x ED
+} def
+%
+/NCBox {
+ /d ED /h ED
+ /AngleB yB yA sub xB xA sub Atan def
+ /AngleA AngleB 180 add def
+ GetEdgeA GetEdgeB
+ /dx d AngleB sin mul def
+ /dy d AngleB cos mul neg def
+ /hx h AngleB sin mul neg def
+ /hy h AngleB cos mul def
+ /LPutVar [
+ xA1 hx add yA1 hy add xB1 hx add yB1 hy add
+ xB1 dx add yB1 dy add xA1 dx add yA1 dy add ] cvx def
+ /LPutPos { LPutLines } def
+ /HPutPos { xB yB xA yA LPutLine } def
+ /VPutPos { HPutPos } def
+ mark
+ LPutVar tx@Dict begin false Polygon end
+} def
+%
+/NCArcBox {
+ /l ED neg /d ED /h ED /a ED
+ /AngleA yB yA sub xB xA sub Atan def
+ /AngleB AngleA 180 add def
+ /tA AngleA a sub 90 add def
+ /tB tA a 2 mul add def
+ /r xB xA sub tA cos tB cos sub Div dup 0 eq { pop 1 } if def
+ /x0 xA r tA cos mul add def
+ /y0 yA r tA sin mul add def
+ /c 57.2958 r div def
+ /AngleA AngleA a sub 180 add def
+ /AngleB AngleB a add 180 add def
+ GetEdgeA GetEdgeB
+ /AngleA tA 180 add yA yA1 sub xA xA1 sub Pyth c mul sub def
+ /AngleB tB 180 add yB yB1 sub xB xB1 sub Pyth c mul add def
+ l 0 eq {
+ x0 y0 r h add AngleA AngleB arc x0 y0 r d add AngleB AngleA arcn
+ }{
+ x0 y0 translate
+ /tA AngleA l c mul add def
+ /tB AngleB l c mul sub def
+ 0 0 r h add tA tB arc r h add
+ AngleB PtoC r d add
+ AngleB PtoC 2 copy
+ 6 2 roll l arcto 4 { pop } repeat
+ r d add tB PtoC l arcto 4 { pop } repeat
+ 0 0 r d add tB tA arcn r d add
+ AngleA PtoC r h add
+ AngleA PtoC 2 copy 6 2 roll
+ l arcto 4 { pop } repeat
+ r h add tA PtoC l arcto 4 { pop } repeat
+ } ifelse
+ closepath
+ /LPutVar [ x0 y0 r AngleA AngleB h d ] cvx def
+ /LPutPos {
+ LPutVar /d ED /h ED
+ /AngleB ED /AngleA ED
+ /r ED /y0 ED /x0 ED
+ t 1 le {
+ r h add AngleA 1 t sub mul AngleB t mul add dup 90 add /NAngle ED PtoC
+ }{t 2 lt {
+ /NAngle AngleB 180 add def r 2 t sub
+ h mul t 1 sub d mul add add AngleB PtoC
+ }{
+ t 3 lt {
+ r d add AngleB 3 t sub mul AngleA 2 t sub
+ mul add dup 90 sub /NAngle ED PtoC
+ }{
+ /NAngle AngleA 180 add def
+ r 4 t sub d mul t 3 sub h mul add add AngleA PtoC
+ } ifelse
+ } ifelse
+ } ifelse
+ y0 add /Y ED x0 add /X ED
+ } def
+ /HPutPos { LPutPos } def
+ /VPutPos { LPutPos } def
+} def
+%
+/Tfan { /AngleA yB yA sub xB xA sub Atan def GetEdgeA w xA1 xB sub yA1 yB
+sub Pyth Pyth w Div CLW 2 div mul 2 div dup AngleA sin mul yA1 add /yA1
+ED AngleA cos mul xA1 add /xA1 ED /LPutVar [ xA1 yA1 m { xB w add yB xB
+w sub yB } { xB yB w sub xB yB w add } ifelse xA1 yA1 ] cvx def /LPutPos
+{ LPutLines } def /VPutPos@ { LPutVar flag { 8 4 roll pop pop pop pop }
+{ pop pop pop pop 4 2 roll } ifelse } def /VPutPos { VPutPos@ VPutLine }
+def /HPutPos { VPutPos@ HPutLine } def mark LPutVar tx@Dict begin
+/ArrowA { moveto } def /ArrowB { } def false Line closepath end } def
+%
+/LPutCoor {
+ NAngle
+ tx@Dict begin /NAngle ED end
+ gsave
+ CM STV
+ CP Y sub neg exch X sub neg exch moveto
+ setmatrix CP
+ grestore
+} def
+%
+/LPut {
+ tx@NodeDict /LPutPos known
+ { LPutPos } { CP /Y ED /X ED /NAngle 0 def } ifelse
+ LPutCoor
+} def
+%
+/HPutAdjust {
+ Sin Cos mul 0 eq
+ { 0 }
+ { d Cos mul Sin div flag not { neg } if
+ h Cos mul Sin div flag { neg } if
+ 2 copy gt { pop } { exch pop } ifelse
+ } ifelse
+ s add flag { r add neg }{ l add } ifelse
+ X add /X ED
+} def
+%
+/VPutAdjust {
+ Sin Cos mul
+ 0 eq
+ { 0 }
+ { l Sin mul Cos div flag { neg } if
+ r Sin mul Cos div flag not { neg } if
+ 2 copy gt { pop } { exch pop } ifelse
+ } ifelse
+ s add flag { d add } { h add neg } ifelse
+ Y add /Y ED
+} def
+%
+%
+end
+%
+% END pst-node.pro
+
+%%EndProcSet
+%%BeginProcSet: pst-math.pro 0 0
+% -*- Mode: Postscript -*-
+% pst-math.pro --- PostScript header file pst-math.pro
+%
+% Author : Christophe JORSSEN
+% Author : Herbert Voß <hvoss@tug.org>
+% Created the : Sat 20 March 2004
+% Last Mod : $Date: 2010/10/02 $
+% Version : 0.62 $
+%
+/PI 3.14159265359 def
+/ENeperian 2.71828182846 def
+%
+/DegToRad {PI mul 180 div} bind def
+/RadToDeg {180 mul PI div} bind def
+%
+/COS {RadToDeg cos} bind def
+/SIN {RadToDeg sin} bind def
+/TAN {dup SIN exch COS Div} bind def
+/tan {dup sin exch cos Div} bind def
+/ATAN {neg -1 atan 180 sub DegToRad} bind def
+/ACOS {dup dup mul neg 1 add sqrt exch atan DegToRad} bind def
+/acos {dup dup mul neg 1 add sqrt exch atan} bind def
+/ASIN {neg dup dup mul neg 1 add sqrt neg atan 180 sub DegToRad} bind def
+/asin {neg dup dup mul neg 1 add sqrt neg atan 180 sub} bind def
+%
+/EXP {ENeperian exch exp} bind def
+%
+/COSH {dup EXP exch neg EXP add 2 div} bind def
+/SINH {dup EXP exch neg EXP sub 2 div} bind def
+/TANH {dup SINH exch COSH div} bind def
+/ACOSH {dup dup mul 1 sub sqrt add ln} bind def
+/ASINH {dup dup mul 1 add sqrt add ln} bind def
+/ATANH {dup 1 add exch neg 1 add Div ln 2 div} bind def
+%
+%/SINC {dup SIN exch Div} bind def
+/SINC { dup 0 eq { pop 1 } { dup SIN exch div } ifelse } bind def
+
+/GAUSS {dup mul 2 mul dup 4 -2 roll sub dup mul exch div neg EXP exch PI mul sqrt div} bind def
+%
+/GAMMA { 2 dict begin % hv 2007-08-30
+ /z exch def
+ 1.000000000190015 % p(0)
+ 0 1 5 { % on stack is 0 1 2 3 4 5
+ dup % n-1 n-1
+ [ 76.18009172947146
+ -86.50532032941677
+ 24.0140982483091
+ -1.231739572450155
+ 0.1208650973866179E-2
+ -0.5395239384953E-5 ] exch get exch % p(n) n-1
+ 1 add z add div % p(n)/(z+n)
+ add % build the sum
+ } for
+ Pi 2 mul sqrt z div mul
+ z 5.5 add z 0.5 add exp mul ENeperian z 5.5 add neg exp mul
+ end } bind def
+%
+/GAMMALN {dup dup dup 5.5 add dup ln 3 -1 roll .5 add mul sub neg 1.000000000190015
+ 0 1 5 {
+ [76.18009172947146 -86.50532032941677 24.0140982483091 -1.231739572450155
+ .1208650973866179E-2 -.5395239384953E-5 2.5066282746310005] exch get
+ 4 -1 roll 1 add dup 5 1 roll div add} for
+ 4 -1 roll div 2.5066282746310005 mul ln add exch pop} bind def
+/BETA {2 copy add GAMMALN neg exch GAMMALN 3 -1 roll GAMMALN EXP} bind def
+%
+/HORNER {aload length
+ dup 2 add -1 roll
+ exch 1 sub {
+ dup 4 1 roll
+ mul add exch
+ } repeat
+ pop
+} bind def
+%
+/BESSEL_J0 {dup abs 8 lt {
+ dup mul dup [57568490574 -13362590354 651619640.7 -11214424.18 77392.33017 -184.9052456] HORNER
+ exch [57568490411 1029532985 9494680.718 59272.64853 267.8532712 1] HORNER
+ Div}
+ {abs dup .636619772 exch div sqrt exch dup .785398164 sub exch 8 exch div dup dup mul dup
+ [1 -1.098628627E-2 .2734510407E-4 -.2073370639E-5 .2093887211E-6] HORNER
+ 3 index COS mul
+ exch [-.1562499995E-1 .1430488765E-3 -.6911147651E-5 .7621095161E-6 -.934945152E-7] HORNER
+ 4 -1 roll SIN mul 3 -1 roll mul neg add mul}
+ ifelse} bind def
+%
+/BESSEL_Y0 {dup 8 lt {
+ dup dup mul dup [-2957821389 7062834065 -512359803.6 10879881.29 -86327.92757 228.4622733] HORNER
+ exch [40076544269 745249964.8 7189466.438 47447.26470 226.1030244 1] HORNER
+ Div exch dup ln exch BESSEL_J0 .636619772 mul mul add}
+ {dup .636619772 exch div sqrt exch dup .785398164 sub exch 8 exch div dup dup mul dup
+ [1 -.1098628627E-2 .2734510407E-4 -.2073370639E-5 .2093887211E-6] HORNER
+ 3 index SIN mul
+ exch [-.1562499995E-1 .1430488765E-3 -.6911147651E-5 .7621095161E-6 -.934945152E-7] HORNER
+ 4 -1 roll COS mul 3 -1 roll mul add mul}
+ ifelse} bind def
+%
+/BESSEL_J1 {dup abs 8 lt {
+ dup dup mul dup 3 -2 roll [72362614232 -7895059235 242396853.1 -2972611.439 15704.48260 -30.16036606] HORNER mul
+ exch [144725228442 2300535178 18583304.74 99447.43394 376.9991397 1] HORNER
+ Div}
+ {dup abs dup .636619772 exch div sqrt exch dup 2.356194491 sub exch 8 exch div dup dup mul dup
+ [1 .183105E-2 -.3516396496E-4 .2457520174E-5 -.240337019E-6] HORNER
+ 3 index COS mul
+ exch [.04687499995 6.2002690873E-3 .8449199096E-5 -.88228987E-6 .105787412E-6] HORNER
+ 4 -1 roll SIN mul 3 -1 roll mul neg add mul exch dup abs Div mul}
+ ifelse} bind def
+%
+/BESSEL_Y1 {dup 8 lt {
+ dup dup dup mul dup [-.4900604943E13 .1275274390E13 -.5153428139E11 .7349264551E9 -.4237922726E7 .8511937935E4] HORNER
+ exch [.2499580570E14 .4244419664E12 .3733650367E10 .2245904002E8 .1020426050E6 .3549632885E3 1] HORNER
+ Div mul exch dup dup ln exch BESSEL_J1 mul exch 1 exch div sub .636619772 mul add}
+ {dup .636619772 exch div sqrt exch dup 2.356194491 sub exch 8 exch div dup dup mul dup
+ [1 .183105E-2 -.3516396496E-4 .2457520174E-5 -.240337019E-6] HORNER
+ 3 index SIN mul
+ exch [.04687499995 -.2002690873E-3 .8449199096E-5 6.88228987E-6 .105787412E-6] HORNER
+ 4 -1 roll COS mul 3 -1 roll mul add mul}
+ ifelse} bind def
+%
+% En cours...
+/BESSEL_Yn {dup 0 eq {pop BESSEL_Y0}{dup 1 eq {pop BESSEL_Y1}{
+ exch dup BESSEL_Y0 exch dup BESSEL_Y1 exch 2 exch Div {
+ mul 3 -1 roll mul 2 index sub pstack} for
+ } ifelse } ifelse } bind def
+%
+/SIMPSON { 1 dict begin %% on stack a b var f ierr Dominik Rodriguez
+ 3 index 5 index sub % compute h
+ 1 % a b var f ierr h n
+ 4 index 7 index def 3 index exec % a b var f ierr h n f(a)
+ 5 index 7 index def 4 index exec add % a b var f ierr h n f(a)+f(b)
+ 5 index 8 index 4 index 2 div add def 4 index exec % a b var f ierr h n f(a)+f(b) f(a+h/2)
+ exch 1 index 4 mul add 0 % a b var f ierr h n old=f(a+h/2) Estim=f(a)+f(b)+4f(a+h/2) NbLoop
+ { % a b var f ierr h n old Estim NbLoop
+ 5 -1 roll 2 div dup 6 1 roll % h<-h/2
+ 5 -1 roll 2 mul 5 1 roll % n<-2n
+ % a b var f ierr h n old Estim NbLoop h
+ 2 div 10 index add 0 % a b var f ierr h n old Estim NbLoop a+h/2 Cumul
+ 5 index {
+ 1 index 10 index exch def 8 index exec add exch 6 index add exch
+ } repeat % a b var f ierr h n old Estim NbLoop a+nh/2 Cumul
+ exch pop % a b var f ierr h n old Estim NbLoop New
+ 2 index 1 index 4 mul 6 -1 roll 2 mul sub sub % a b var f ierr h n Estim NbLoop New Diff
+ 4 -1 roll 2 mul 1 index sub 4 1 roll % a b var f ierr h n Estim NbLoop New Diff
+ exch 4 1 roll % a b var f ierr h n old Estim NbLoop Diff
+ 5 index 6 div mul abs 6 index lt { exit } if
+ 1 add dup 9 eq { exit } if
+ } loop % a b var f ierr h n old Estim NbLoop
+ exch 5 -1 roll 6 div mul mark 10 2 roll cleartomark
+end
+} def
+% ------------------------------------ math stuff ----------------------------------
+%
+% Matrix A in arrays of rows A[[row1][row2]...]
+% with [row1]=[a11 a12 ... b1]
+% returns on stack solution vector X=[x1 x2 ... xn]
+/SolveLinEqSystem { % on stack matrix M=[A,b] (A*x=b)
+ 10 dict begin % hold all ocal
+ /A exch def
+ /Rows A length def % Rows = number of rows
+ /Cols A 0 get length def % Cols = number of columns
+ /Index [ 0 1 Rows 1 sub { } for ] def % Index = [0 1 2 ... Rows-1]
+ /col 0 def
+ /row 0 def
+ /PR Rows array def % PR[c] = pivot row for row row
+ { % starts the loop, find pivot entry in row r
+ col Cols ge row Rows ge or { exit } if % col < Cols and row < Rows else exit
+ /pRow row def % pRow = pivot row
+ /max A row get col get abs def % get A[row[col]], first A[0,0]
+ row 1 add 1 Rows 1 sub { % starts for loop 1 1 Rows-1
+ /j exch def % index counter
+ /x A j get col get abs def % get A[j[r]]
+ x max gt { % x>max, then save position
+ /pRow j def
+ /max x def
+ } if
+ } for % now we have the row with biggest A[0,1]
+ % with pRow = the pivot row
+ max 0 gt { % swap entries pRow and row in i
+ /tmp Index row get def
+ Index row Index pRow get put
+ Index pRow tmp put % and columns pRow and row in A
+ /tmp A row get def
+ A row A pRow get put
+ A pRow tmp put % pivot
+ /row0 A row get def % the pivoting row
+ /p0 row0 col get def % the pivot value
+ row 1 add 1 Rows 1 sub { % start for loop
+ /j exch def
+ /c1 A j get def
+ /p c1 col get p0 div def
+ c1 col p put % subtract (p1/p0)*row[i] from row[j]
+ col 1 add 1 Cols 1 sub { % start for loop
+ /i exch def
+ c1 dup i exch % c1 i c1
+ i get row0 i get p mul sub put
+ } for
+ } for
+ PR row col put
+ /col col 1 add def
+ /row row 1 add def
+ }{ % all zero entries
+ /row row 1 add def % continue loop with same row
+ } ifelse
+ } loop
+ /X A def % solution vector
+ A Rows 1 sub get dup
+ Cols 1 sub get exch
+ Cols 2 sub get div
+ X Rows 1 sub 3 -1 roll put % X[n]
+ Rows 2 sub -1 0 { % for loop to calculate X[i]
+ /xi exch def % current index
+ A xi get % i-th row
+ /Axi exch def
+ /sum 0 def
+ Cols 2 sub -1 xi 1 add {
+ /n exch def
+ /sum sum Axi n get X n get mul add def
+ } for
+ Axi Cols 1 sub get % b=Axi[Cols-1]
+ sum sub % b-sum
+ Axi xi get div % b-sum / Axi[xi]
+ X xi 3 -1 roll put % X[xi]
+ } for
+ X
+ end
+} def
+%
+/c@_0 2.515517 def
+/c@_1 0.802853 def
+/c@_2 0.010328 def
+/d@_1 1.432788 def
+/d@_2 0.189269 def
+/d@_3 0.001308 def
+/norminv {
+ 5 dict begin
+ neg 1 add 1 exch div ln 2 mul sqrt
+ /t exch def
+ /t2 t dup mul def
+ /t3 t2 t mul def
+ c@_0 c@_1 t mul add c@_2 t2 mul add 1 d@_1 t mul add
+ d@_2 t2 mul add d@_3 t3 mul add div neg t add
+ end
+} def
+%end{norminv Michael Sharpe}
+%
+%
+% END pst-math.pro
+
+%%EndProcSet
+%%BeginProcSet: pst-3d.pro 0 0
+%% $Id: pst-3d.pro 247 2010-01-04 22:45:42Z herbert $
+% PostScript prologue for pst-3d.tex.
+% Version 0.01, 2010/01/01
+%
+/tx@3Ddict 300 dict def
+tx@3Ddict begin
+%
+/SetMatrixThreeD {
+ dup sin /e ED cos /f ED
+ /p3 ED /p2 ED /p1 ED
+ p1 0 eq
+ { /a 0 def /b p2 0 le { 1 } { -1 } ifelse def
+ p3 p2 abs
+ }
+ { p2 0 eq
+ { /a p1 0 lt { -1 } { 1 } ifelse def /b 0 def
+ p3 p1 abs
+ }
+ { p1 dup mul p2 dup mul add sqrt dup
+ p1 exch div /a ED
+ p2 exch div neg /b ED
+ p3 p1 a div
+ }
+ ifelse
+ }
+ ifelse
+ atan dup sin /c ED cos /d ED
+ /Matrix3D
+ [
+ b f mul c a mul e mul sub
+ a f mul c b mul e mul add
+ d e mul
+ b e mul neg c a mul f mul sub
+ a e mul neg c b mul f mul add
+ d f mul
+ ] def
+} def
+%
+/ProjThreeD {
+ /z ED /y ED /x ED
+ Matrix3D aload pop
+ z mul exch y mul add exch x mul add
+ 4 1 roll
+ z mul exch y mul add exch x mul add
+ exch
+} def
+%
+/SetMatrixEmbed {
+ SetMatrixThreeD
+ Matrix3D aload pop
+ /z3 ED /z2 ED /z1 ED /x3 ED /x2 ED /x1 ED
+ SetMatrixThreeD
+ [
+ Matrix3D aload pop
+ z3 mul exch z2 mul add exch z1 mul add 4 1 roll
+ z3 mul exch z2 mul add exch z1 mul add
+ Matrix3D aload pop
+ x3 mul exch x2 mul add exch x1 mul add 4 1 roll
+ x3 mul exch x2 mul add exch x1 mul add
+ 3 -1 roll 3 -1 roll 4 -1 roll 8 -3 roll 3 copy
+ x3 mul exch x2 mul add exch x1 mul add 4 1 roll
+ z3 mul exch z2 mul add exch z1 mul add
+ ]
+ concat
+} def
+%
+/TMSave {
+ tx@Dict /TMatrix known not { /TMatrix { } def /RAngle { 0 } def } if
+ /TMatrix [ TMatrix CM ] cvx def
+} def
+%
+/TMRestore { CP /TMatrix [ TMatrix setmatrix ] cvx def moveto } def
+%
+/TMChange {
+ TMSave
+ /cp [ currentpoint ] cvx def % ??? Check this later.
+ CM
+ CP T STV
+ CM matrix invertmatrix % Inv(M')
+ matrix concatmatrix % M Inv(M')
+ exch exec
+ concat cp moveto
+} def
+%
+end % of tx@3Ddict
+%%
+%% End of file `pst-3d.pro'.
+
+%%EndProcSet
+%%BeginProcSet: pstricks-add.pro 0 0
+%% $Id: pstricks-add.pro 328 2010-05-24 15:56:43Z herbert $
+% PostScript prologue for pstricks-add.tex.
+% Version 0.23, 2009/12/17
+%
+/tx@addDict 410 dict def tx@addDict begin
+%%
+realtime srand % set random generator
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+/GTriangle {
+ gsave
+ /mtrx CM def
+ /colorA ED /colorB ED /colorC ED % save the colors
+ /yA ED /xA ED % save the origin
+ xA yA translate
+ rotate % \psk@gangle
+ /yB ED /xB ED /yC ED /xC ED % save other coordinates
+ /ds [ % save data in a array
+ 0 0 0 colorA aload pop % fd x y xr xg xb
+ 0 xB xA sub yB yA sub colorB aload pop
+ 0 xC xA sub yC yA sub colorC aload pop
+% 1 xC xB add yB colorA aload pop % for use with 4 points ABCD
+ ] def
+ newpath
+ <<
+ /ShadingType 4 % single Gouraud
+ /ColorSpace [ /DeviceRGB ]
+ /DataSource ds
+ >>
+ shfill
+ closepath
+ mtrx
+ setmatrix grestore} def
+%
+/RGBtoCMYK { % on stack r g b -> C M Y K
+ 3 dict begin
+ /Blue ED /Green ED /Red ED
+ 1 Red sub % Cyan
+ 1 Green sub % Magenta
+ 1 Blue sub % Yellow
+ 0 % Black
+ end
+} def
+%
+/CMYKtoGRAY { % on stack c m y k -> gray
+ exch 0.11 mul add
+ exch 0.59 mul add
+ exch 0.3 mul add
+ dup 1 gt { pop 1 } if
+ neg 1 add
+} def
+%
+/RGBtoGRAY { % on stack r g b -> gray
+ 0.11 mul
+ exch 0.59 mul add
+ exch 0.3 mul add
+} def
+%
+/HSBtoGRAY {
+ 6 dict begin
+ /b exch def
+ /s exch def 6 mul dup cvi dup
+ /i exch def sub
+ /f exch def
+ /F [[0 1 f sub 1][f 0 1][1 0 1 f sub][1 f 0][1 f sub 1 0][0 1 f][0 1 1]] def
+ F i get { s mul neg 1 add b mul} forall
+ 0.11 mul
+ exch 0.59 mul add
+ exch 0.3 mul add
+ end
+} def
+%
+%% convertisseur longueur d'onde ->R,G,B Manuel Luque
+%% lambda max=780 nanometres
+%% lambda min=380 nanometres
+%% adaptation de :
+%% http://www.physics.sfasu.edu/astro/color.html
+%% www.efg2.com/lab
+%
+/Gamma 0.8 def
+/calculateRGB {
+ lambda 379 le {/Red 0 def /Green 0 def /Blue 0 def} if
+ lambda 781 ge {/Red 0 def /Green 0 def /Blue 0 def} if
+ lambda 380 ge {lambda 439 le {
+ /R {lambda 440 sub neg 440 380 sub div} def
+ /Red R factor mul Gamma exp def
+ /G 0 def
+ /Green G factor mul Gamma exp def
+ /B 1 def
+ /Blue B factor mul Gamma exp def} if
+ } if
+ lambda 440 ge { lambda 489 le {
+ /G {lambda 440 sub 490 440 sub div} def
+ /Green G factor mul Gamma exp def
+ /R 0 def /Red 0 def
+ /B 1 def
+ /Blue B factor mul Gamma exp def } if
+ } if
+ lambda 490 ge {lambda 509 le {
+ /B {lambda 510 sub neg 510 490 sub div} def
+ /Blue B factor mul Gamma exp def
+ /R 0 def /Red 0 def
+ /G 1 def
+ /Green G factor mul Gamma exp def } if
+ } if
+ lambda 510 ge {lambda 579 le {
+ /R {lambda 510 sub 580 510 sub div } def
+ /Red R factor mul Gamma exp def
+ /Blue 0 def
+ /G 1 def
+ /Green G factor mul Gamma exp def } if
+ } if
+ lambda 580 ge {lambda 644 le {
+ /G {lambda 645 sub neg 645 580 sub div } def
+ /Green G factor mul Gamma exp def
+ /Blue 0 def
+ /R 1 def
+ /Red R factor mul Gamma exp def } if
+ } if
+ lambda 645 ge { lambda 780 le {
+ /Red 1 factor mul Gamma exp def
+ /Blue 0 def
+ /Green 0 def } if
+ } if
+} def
+%
+/factor {
+ lambda 380 ge {lambda 419 le { 0.3 0.7 lambda 380 sub mul 420 380 sub div add} if } if
+ lambda 420 ge {lambda 700 le { 1 } if } if
+ lambda 701 ge {lambda 780 le { 0.3 0.7 780 lambda sub mul 780 700 sub div add} if } if
+} def
+%
+/wavelengthToRGB { % the wavelength in nm must be on top of the stack
+ cvi /lambda exch def % no floating point here
+ calculateRGB
+} def % now the colors are saved in Red Green Blue
+%
+/wavelengthToGRAY { % the wavelength in nm must be on top of the stack
+ cvi /lambda exch def % no floating point here
+ calculateRGB
+ Red Green Blue RGBtoGRAY
+} def % now the gray color is on the stack
+%
+/wavelengthToCMYK { % the wavelength in nm must be on top of the stack
+ cvi /lambda exch def % no floating point here
+ gsave
+ calculateRGB Red Green Blue RGBtoCMYK
+ /Black ED /Yellow ED /Magenta ED /Cyan ED
+ grestore
+} def % now the colors are saved in Cyan Magenta Yellow Black
+%
+/axfill {
+ 8 dict begin
+ /xw exch def /nl exch def
+ /C1 exch def /y1 exch def/x1 exch def
+ /C0 exch def /y0 exch def/x0 exch def
+ << /ShadingType 2
+ /ColorSpace /DeviceRGB
+ /Coords [ x0 y0 x1 y1 ]
+ /EmulatorHints [ xw 2 div dup ]
+ /Function <<
+ /FunctionType 2
+ /Domain [0 1]
+ /C0 C0
+ /C1 C1
+ /N 1
+ >>
+ >> shfill
+ end
+} bind def
+%
+%/amplHand {.8} def
+%/dtHand 2 def
+/varHand { rand sin amplHand mul add } def
+/MovetoByHand { moveto } def
+%/MovetoByHand { /y0 ED /x0 ED x0 y0 moveto } def
+/LinetoByHand { 4 dict begin
+ /y1 ED /x1 ED
+ currentpoint /y0 ED /x0 ED
+ x0 x1 sub dup mul y0 y1 sub dup mul add sqrt /dEnd ED
+ 0 dtHand dEnd { dup
+ x1 x0 sub mul dEnd div x0 add varHand exch
+ y1 y0 sub mul dEnd div y0 add varHand lineto
+ } for
+% /x0 x1 def /y0 y1 def
+ end
+} def
+%
+end
+%
+% END pstricks-add.pro
+
+%%EndProcSet
+%%BeginProcSet: pst-func.pro 0 0
+%% $Id: pst-func.pro 355 2010-06-21 10:02:44Z herbert $
+%%
+%% This is file `pst-func.pro',
+%%
+%% IMPORTANT NOTICE:
+%%
+%% Package `pst-func'
+%%
+%% Herbert Voss <hvoss@tug.org>
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%%
+%% DESCRIPTION:
+%% `pst-func' is a PSTricks package to plot special math functions
+%%
+%%
+%% version 0.13 / 2010-06-21 Herbert Voss
+%
+/tx@FuncDict 100 dict def
+tx@FuncDict begin
+%
+/eps1 1.0e-05 def
+/eps2 1.0e-04 def
+/eps8 1.0e-08 def
+/Pi2 1.57079632679489661925640 def
+/CEuler 0.5772156649 def % Euler-Mascheroni constant
+%
+/factorial { % n on stack, returns n!
+ dup 0 eq { 1 }{
+ dup 1 gt { dup 1 sub factorial mul } if }
+ ifelse } def
+%
+/MoverN { % m n on stack, returns the binomial coefficient m over n
+ 2 dict begin
+ /n exch def /m exch def
+ n 0 eq { 1 }{
+ m n eq { 1 }{
+ m factorial n factorial m n sub factorial mul div } ifelse } ifelse
+ end
+} def
+%
+/Pascal [
+ [ 1 ] % 0
+ [ 1 1 ] % 1
+ [ 1 2 1 ] % 2
+ [ 1 3 3 1 ] % 3
+ [ 1 4 6 4 1 ] % 4
+ [ 1 5 10 10 5 1 ] % 5
+ [ 1 6 15 20 15 6 1 ] % 6
+ [ 1 7 21 35 35 21 7 1 ] % 7
+ [ 1 8 28 56 70 56 28 8 1 ] % 8
+ [ 1 9 36 84 126 126 84 36 9 1 ] % 9
+] def
+%
+/GetBezierCoor { % t on stack
+ 10 dict begin % hold all local
+ /t ED
+ /t1 1 t sub def % t1=1-t
+ /Coeff Pascal BezierType get def % get the coefficients
+ 0 0 % initial values for x y
+ BezierType -1 0 { % BezierType,...,2,1,0
+ /I ED % I=BezierType,...,2,1,0
+ /J BezierType I sub def % J=0,1,2,...,BezierType
+ /T t I exp Coeff J get mul def % coeff(J)*t^I
+ /T1 t1 J exp def % t1^J
+ Points I dup add 1 add get % y(2*I+1)
+ T mul T1 mul add % the y coordinate
+ exch % y x
+ Points I dup add get % x(2*I)
+ T mul T1 mul add % the x coordinate
+ exch % x y
+ } for % x y on stack
+ end
+} def
+%
+/BezierCurve { % on stack [ coors psk@plotpoints BezierType
+% 10 dict begin
+ /BezierType ED
+ 1 exch div /epsilon ED
+ ] /Points ED % yi xi ... y3 x3 y2 x2 y1 x1 y0 x0
+ epsilon GetBezierCoor % next Bezier point
+ Points 0 get Points 1 get % starting point
+ ArrowA moveto
+ epsilon epsilon 1 {
+ /t ED
+ t GetBezierCoor
+ t 0.9999 lt { lineto }{ 1 epsilon sub GetBezierCoor 4 2 roll ArrowB pop pop pop pop } ifelse
+ } for
+% end
+} def
+%
+/Bernstein { % on stack tStart tEnd plotpoints i n
+ 12 dict begin % hold all local
+ /envelope ED % plot envelope?
+ /n ED
+ /i ED
+ /ni n i sub def
+ /epsilon ED % step=1/plotpoints
+ /tEnd ED
+ /tStart ED
+%
+% B_{i,n}(t)=\binom{n}{i}t^i(1-t)^{n-i} (Bernstein)
+% f_n(x)=\frac{1}{\sqrt{\pi n\cdot x(1-x)}} (envelope)
+%
+ n i MoverN /noveri ED % \binom{n}{i}
+ [ % for the array of points
+ tStart epsilon tEnd {
+ dup dup /t ED % leave one on stack
+ neg 1 add /t1 ED % t1=1-t
+ envelope
+ { t t1 mul 4 mul Pi2 mul n mul sqrt 1 exch Div } % envelope
+ { noveri t i exp mul t1 ni exp mul } ifelse % t f(t)
+ ScreenCoor % convert to screen coor
+ } for
+ end
+ false /Lineto /lineto load def Line
+} def
+%
+/Si { % integral sin from 0 to x (arg on stack)
+ /arg exch def
+ /Sum arg def
+ /sign -1 def
+ /index 3 def
+ {
+ arg index exp index div index factorial div sign mul
+ dup abs eps8 lt { pop exit } if
+ Sum add /Sum exch def
+ /sign sign neg def
+ /index index 2 add def
+ } loop
+ Sum
+} def
+/si { % integral sin from x to infty -> si(x)=Si(x)-pi/2
+ Si Pi2 sub
+} def
+/Ci { % integral cosin from x to infty (arg on stack)
+ abs /arg exch def
+ arg 0 eq { 0 } {
+ /argExp 1 def
+ /fact 1 def
+ /Sum CEuler arg ln add def
+ /sign -1 def
+ /index 2 def
+ {
+ /argExp argExp arg arg mul mul def
+ /fact fact index 1 sub index mul mul def
+ argExp index div fact div sign mul
+ dup abs exch Sum add /Sum exch def
+ eps8 lt { exit } if
+ /sign sign neg def
+ /index index 2 add def
+ } loop
+ Sum
+ } ifelse
+} def
+/ci { % integral cosin from x to infty -> ci(x)=-Ci(x)+ln(x)+CEuler
+ dup Ci neg exch abs ln add CEuler add
+} def
+%
+/MaxIter 255 def
+/func { coeff Derivation FuncValue } def
+/func' { coeff Derivation 1 add FuncValue } def
+/func'' { coeff Derivation 2 add FuncValue } def
+%
+/NewtonMehrfach {% the start value must be on top of the stack
+ /Nx exch def
+ /Iter 0 def
+ {
+ /Iter Iter 1 add def
+ Nx func /F exch def % f(Nx)
+ F abs eps2 lt { exit } if
+ Nx func' /FS exch def % f'(Nx)
+ FS 0 eq { /FS 1.0e-06 def } if
+ Nx func'' /F2S exch def % f''(Nx)
+ 1.0 1.0 F F2S mul FS dup mul div sub div /J exch def
+ J F mul FS div /Diff exch def
+ /Nx Nx Diff sub def
+ Diff abs eps1 lt Iter MaxIter gt or { exit } if
+ } loop
+ Nx % the returned value ist the zero point
+} def
+
+/Steffensen {% the start value must be on top of the stack
+ /y0 exch def % the start value
+ /Iter 0 def
+ {
+ y0 func /F exch def
+ F abs eps2 lt { exit } if
+ y0 F sub /Phi exch def
+ Phi func /F2 exch def
+ F2 abs eps2 le { exit }{
+ Phi y0 sub dup mul Phi F2 sub 2 Phi mul sub y0 add Div /Diff exch def
+ y0 Diff sub /y0 exch def
+ Diff abs eps1 le { exit } if
+ } ifelse
+ /Iter Iter 1 add def
+ Iter MaxIter gt { exit } if
+ } loop
+ y0 % the returned value ist the zero point
+} def
+%
+/Horner {% x [coeff] must be on top of the stack
+ aload length
+ dup 2 add -1 roll
+ exch 1 sub {
+ dup 4 1 roll
+ mul add exch
+ } repeat
+ pop % the y value is on top of the stack
+} def
+%
+/FuncValue {% x [coeff] Derivation must be on top of the stack
+ {
+ aload % a0 a1 a2 ... a(n-1) [array]
+ length % a0 a1 a2 ... a(n-1) n
+ 1 sub /grad exch def % a0 a1 a2 ... a(n-1)
+ grad -1 1 { % for n=grad step -1 until 1
+ /n exch def % Laufvariable speichern
+ n % a0 a1 a2 ... a(n-1) n
+ mul % a0 a1 a2 ... a(n-1)*n
+ grad 1 add % a0 a1 a2 ... a(n-1)*n grad+1
+ 1 roll % an*na0 a1 a2 ... a(n-2)
+ } for
+ pop % loesche a0
+ grad array astore % [ a1 a2 ... a(n-2)]
+ } repeat
+ Horner
+} def
+%
+/FindZeros { % dxN dxZ must be on top of the stack (x0..x1 the intervall) => []
+ 12 dict begin
+ /dxZ exch def /dxN exch def
+ /pstZeros [] def
+ x0 dxZ x1 { % suche Nullstellen
+ /xWert exch def
+ xWert NewtonMehrfach
+ %xWert Steffensen
+ /xNull exch def
+ pstZeros aload length /Laenge exch def % now test if value is a new one
+ Laenge 0 eq
+ { xNull 1 }
+ { /newZero true def
+ Laenge {
+ xNull sub abs dxN lt { /newZero false def } if
+ } repeat
+ pstZeros aload pop
+ newZero { xNull Laenge 1 add } { Laenge } ifelse } ifelse
+ array astore
+ /pstZeros exch def
+ } for
+ pstZeros % the end array is now on the stack
+ end
+} def
+%
+/Simpson { % on stack must be a b M --- simple version ---
+% /SFunc must be defined
+ /M ED /b ED /a ED
+ /h b a sub M 2 mul div def
+ /s1 0 def
+ /s2 0 def
+ 1 1 M {
+ /k exch def
+ /x k 2 mul 1 sub h mul a add def
+ /s1 s1 x SFunc add def
+ } for
+ 1 1 M 1 sub {
+ /k exch def
+ /x k 2 mul h mul a add def
+ /s2 s2 x SFunc add def
+ } for
+ /I a SFunc b SFunc add s1 4 mul add s2 2 mul add 3 div h mul def
+} def
+%
+/LogGamma { 5 dict begin % z on stack
+ /z ED
+ /sum 0 def
+ /k 1 def
+ {
+ z k div dup 1 add ln sub dup
+ abs eps8 lt { pop exit } if
+ sum add /sum exch def
+ /k k 1 add def
+ } loop
+ sum z ln sub CEuler z mul sub
+ end
+} def
+%
+/ChebyshevT { 5 dict begin % z on stack
+ /xtmp exch def
+ /n exch def
+ 0 0 1 n .5 mul floor {
+ /k exch def
+ xtmp xtmp mul 1 sub k exp
+ xtmp n 2 k mul sub exp mul
+ n 2 k mul MoverN mul
+ add
+ } for
+ end
+} def
+%
+/ChebyshevU {5 dict begin % z on stack
+ /xtmp exch def
+ /n exch def
+ 0 0 1 n .5 mul floor {
+ /k exch def
+ xtmp xtmp mul 1 sub k exp
+ xtmp n 2 k mul sub exp mul
+ n 1 add 2 k mul 1 add MoverN mul
+ add
+ } for
+ end
+} def
+%
+% subroutines for complex numbers, given as an array [a b]
+% which is a+bi = Real+i Imag
+%
+/cxadd { % [a1 b1] [a2 b2] = [a1+a2 b1+b2]
+ dup 0 get % [a1 b1] [a2 b2] a2
+ 3 -1 roll % [a2 b2] a2 [a1 b1]
+ dup 0 get % [a2 b2] a2 [a1 b1] a1
+ 3 -1 roll % [a2 b2] [a1 b1] a1 a2
+ add % [a2 b2] [a1 b1] a1+a2
+ 3 1 roll % a1+a2 [a2 b2] [a1 b1]
+ 1 get % a1+a2 [a2 b2] b1
+ exch 1 get % a1+a2 b1 b2
+ add 2 array astore
+} def
+%
+/cxneg { % [a b]
+ dup 1 get % [a b] b
+ exch 0 get % b a
+ neg exch neg % -a -b
+ 2 array astore
+} def
+%
+/cxsub { cxneg cxadd } def % same as negative addition
+%
+% [a1 b1][a2 b2] = [a1a2-b1b2 a1b2+b1a2] = [a3 b3]
+/cxmul { % [a1 b1] [a2 b2]
+ dup 0 get % [a1 b1] [a2 b2] a2
+ exch 1 get % [a1 b1] a2 b2
+ 3 -1 roll % a2 b2 [a1 b1]
+ dup 0 get % a2 b2 [a1 b1] a1
+ exch 1 get % a2 b2 a1 b1
+ dup % a2 b2 a1 b1 b1
+ 5 -1 roll dup % b2 a1 b1 b1 a2 a2
+ 3 1 roll mul % b2 a1 b1 a2 b1a2
+ 5 -2 roll dup % b1 a2 b1a2 b2 a1 a1
+ 3 -1 roll dup % b1 a2 b1a2 a1 a1 b2 b2
+ 3 1 roll mul % b1 a2 b1a2 a1 b2 a1b2
+ 4 -1 roll add % b1 a2 a1 b2 b3
+ 4 2 roll mul % b1 b2 b3 a1a2
+ 4 2 roll mul sub % b3 a3
+ exch 2 array astore
+} def
+%
+% [a b]^2 = [a^2-b^2 2ab] = [a2 b2]
+/cxsqr { % [a b] square root
+ dup 0 get exch 1 get % a b
+ dup dup mul % a b b^2
+ 3 -1 roll % b b^2 a
+ dup dup mul % b b^2 a a^2
+ 3 -1 roll sub % b a a2
+ 3 1 roll mul 2 mul % a2 b2
+ 2 array astore
+} def
+%
+/cxsqrt { % [a b]
+% dup cxnorm sqrt /r exch def
+% cxarg 2 div RadtoDeg dup cos r mul exch sin r mul cxmake2
+ cxlog % log[a b]
+ 2 cxrdiv % log[a b]/2
+ aload pop exch % b a
+ 2.781 exch exp % b exp(a)
+ exch cxconv exch % [Re +iIm] exp(a)
+ cxrmul %
+} def
+%
+/cxarg { % [a b]
+ aload pop % a b
+ exch atan % arctan b/a
+ DegtoRad % arg(z)=atan(b/a)
+} def
+%
+% log[a b] = [a^2-b^2 2ab] = [a2 b2]
+/cxlog { % [a b]
+ dup % [a b][a b]
+ cxnorm % [a b] |z|
+ log % [a b] log|z|
+ exch % log|z|[a b]
+ cxarg % log|z| Theta
+ cxmake2 % [log|z| Theta]
+} def
+%
+% square of magnitude of complex number
+/cxnorm2 { % [a b]
+ dup 0 get exch 1 get % a b
+ dup mul % a b^2
+ exch dup mul add % a^2+b^2
+} def
+%
+/cxnorm { % [a b]
+ cxnorm2 sqrt
+} def
+%
+/cxconj { % conjugent complex
+ dup 0 get exch 1 get % a b
+ neg 2 array astore % [a -b]
+} def
+%
+/cxre { 0 get } def % real value
+/cxim { 1 get } def % imag value
+%
+% 1/[a b] = ([a -b]/(a^2+b^2)
+/cxrecip { % [a b]
+ dup cxnorm2 exch % n2 [a b]
+ dup 0 get exch 1 get % n2 a b
+ 3 -1 roll % a b n2
+ dup % a b n2 n2
+ 4 -1 roll exch div % b n2 a/n2
+ 3 1 roll div % a/n2 b/n2
+ neg 2 array astore
+} def
+%
+/cxmake1 { 0 2 array astore } def % make a complex number, real given
+/cxmake2 { 2 array astore } def % dito, both given
+%
+/cxdiv { cxrecip cxmul } def
+%
+% multiplikation by a real number
+/cxrmul { % [a b] r
+ exch aload pop % r a b
+ 3 -1 roll dup % a b r r
+ 3 1 roll mul % a r b*r
+ 3 1 roll mul % b*r a*r
+ exch 2 array astore % [a*r b*r]
+} def
+%
+% division by a real number
+/cxrdiv { % [a b] r
+ 1 exch div % [a b] 1/r
+ cxrmul
+} def
+%
+% exp(i theta) = cos(theta)+i sin(theta) polar<->cartesian
+/cxconv { % theta
+ RadtoDeg dup sin exch cos cxmake2
+} def
+%
+end
+
+%%EndProcSet
+%%BeginProcSet: pst-3dplot.pro 0 0
+%% $Id: pst-3dplot.pro 236 2009-12-31 08:59:43Z herbert $
+%%
+%% This is file `pst-3dplot.pro',
+%%
+%% IMPORTANT NOTICE:
+%%
+%% Package `pst-3dplot.tex'
+%%
+%% Herbert Voss <voss _at_ PSTricks.de>
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%%
+%% DESCRIPTION:
+%% `pst-3dplot' is a PSTricks package to draw 3d curves and graphical objects
+%%
+%%
+%% version 0.30 / 2010-01-01 Herbert Voss <voss _at_ PSTricks.de>
+%% with contributions of Darrell Lamm <darrell.lamm _at_ gtri.gatech.edu<
+%%
+%
+/tx@3DPlotDict 200 dict def
+tx@3DPlotDict begin
+%
+/printDot { gsave 2 copy 2 0 360 arc fill stroke grestore } def
+%
+/saveCoor {
+ dzUnit mul /z ED
+ dyUnit mul /y ED
+ dxUnit mul /x ED
+} def
+%
+/ConvertTo2D {
+ RotatePoint
+ 1 { % dummy loop, will run only 1 time, allows exit
+ coorType 0 le { % the default |
+ /x2D x leftHanded not { neg } if Alpha cos mul y Alpha sin mul add def % /\ co system
+ /y2D x leftHanded { neg } if Alpha sin mul y Alpha cos mul add neg Beta sin mul z Beta cos mul add def
+ exit } if
+ coorType 1 le {
+ /x2D y x Alpha 90 sub sin mul sub def % |/_ co system, no shortened x axis
+ /y2D z x Alpha 90 sub cos mul sub def
+ exit } if
+ coorType 2 le { % coorType |/_ with a 1/sqrt(2) shortend x-axis and 135 degrees
+ /x2D y x 0.5 mul sub def
+ /y2D z x 0.5 mul sub def
+ exit } if
+ coorType 3 le { % coorType |/_ with a 1/sqrt(2) shortend x-axis and 135 degrees
+ /x2D y x -0.5 mul sub def
+ /y2D z x -0.5 mul sub def
+ exit } if
+ coorType 4 le { % Normalbild in Trimetrie Skalierung so, dass coorType2
+ /x2D x -0.5 mul y 1 mul add def
+ /y2D x -0.5 mul y -0.25 mul add z 1 mul add def
+ exit } if
+ } repeat
+} def
+%
+/Conv3D2D { /z ED /y ED /x ED ConvertTo2D x2D y2D } def
+%
+/ConvertToCartesian {
+ /latitude exch def
+ /longitude exch def
+ /Radius exch def
+ 1 { % dummy loop, will run only 1 time, allows exit
+ SphericalCoorType 0 le { % the default |
+ /z { Radius latitude sin mul } def
+ /x { Radius longitude cos mul latitude cos mul } def
+ /y { Radius longitude sin mul latitude cos mul } def
+ exit } if
+ SphericalCoorType 2 le {
+ /z { Radius longitude cos mul } def
+ /x { Radius longitude sin mul latitude cos mul} def
+ /y { Radius longitude sin mul latitude sin mul } def
+ exit } if
+ } repeat
+} def
+%
+/ConvCylToCartesian { % r phi h -> x y z
+ 3 1 roll % h r phi
+ /Phi ED
+ /Radius ED % h->z on stack
+ Radius Phi cos mul exch % x z
+ Radius Phi sin mul exch % x y z
+} def
+%
+/SphericalTo2D {
+ x y z ConvertToCartesian ConvertTo2D
+} def
+%
+/CylinderTo2D { % r phi h
+ x y z ConvCylToCartesian ConvertTo2D
+} def
+%
+/convertStackTo2D {
+ counttomark
+ /n ED /n3 n 3 div cvi def
+ n3 {
+ n -3 roll
+ SphericalCoor { ConvertToCartesian } { saveCoor } ifelse
+ ConvertTo2D
+ x2D xUnit y2D yUnit
+ /n n 1 sub def
+ } repeat
+} def
+%
+% the angle in the parameter equation for an ellipse is not proportional to the real angle!
+% phi=atan(b*tan(angle)/a)+floor(angle/180+0.5)*180
+%
+/getPhi { % on stack: vecA vecB angle
+ 3 dict begin
+ /angle exch def /vecB exch def /vecA exch def
+ angle cvi 90 mod 0 eq { angle } { vecA angle tan mul vecB atan
+ angle 180 div .5 add floor 180 mul add } ifelse
+ end
+} def
+%
+/RotSet (set ) def
+%
+/eulerRotation false def
+% Matrix multiplication procedure
+/matmul {
+
+ /M@tMulDict 20 dict def
+ M@tMulDict begin
+ /m2 ED
+ /m1 ED
+ m1 dup length 2 sub 2 getinterval aload pop
+ /col1max ED
+ /row1max ED
+ m2 dup length 2 sub 2 getinterval aload pop
+ /col2max ED
+ /row2max ED
+ /m3 row1max col2max mul 2 add array def
+ m3 dup length 2 sub row1max col2max 2 array astore putinterval
+ 0 1 row1max 1 sub {
+ /row ED
+ 0 1 col2max 1 sub {
+ /col ED
+ /sum 0 def
+ 0 1 col1max 1 sub{
+ /rowcol ED
+ sum
+ m1 row col1max mul rowcol add get
+ m2 rowcol col2max mul col add get
+ mul add
+ /sum ED
+ } for
+ m3 row col2max mul col add sum put
+ } for
+ } for
+ m3
+ end % end of M@tMulDict
+
+} def
+%
+/SetMQuaternion {
+
+ /MnewTOold 11 array def
+
+ /Qu@ternionDict 30 dict def
+ Qu@ternionDict begin
+
+ /normRotVec xRotVec yRotVec zRotVec 3 array astore VecNorm def
+ normRotVec 0 gt
+ {/xRotVecNorm xRotVec normRotVec div def
+ /yRotVecNorm yRotVec normRotVec div def
+ /zRotVecNorm zRotVec normRotVec div def
+ RotAngle}
+ {/xRotVecNorm 1 def
+ /yRotVecNorm 0 def
+ /zRotVecNorm 0 def
+ 0} ifelse
+
+ 2 div dup
+ /q0 exch cos def
+ sin dup dup
+ /q1 exch xRotVecNorm mul def
+ /q2 exch yRotVecNorm mul def
+ /q3 exch zRotVecNorm mul def
+
+ /q0q0 q0 q0 mul def
+ /q0q1 q0 q1 mul def
+ /q0q2 q0 q2 mul def
+ /q0q3 q0 q3 mul def
+
+ /q1q1 q1 q1 mul def
+ /q1q2 q1 q2 mul def
+ /q1q3 q1 q3 mul def
+
+ /q2q2 q2 q2 mul def
+ /q2q3 q2 q3 mul def
+
+ /q3q3 q3 q3 mul def
+
+ MnewTOold 0 q0q0 q1q1 add q2q2 sub q3q3 sub put
+ MnewTOold 1 q1q2 q0q3 sub 2 mul put
+ MnewTOold 2 q1q3 q0q2 add 2 mul put
+
+ MnewTOold 3 q1q2 q0q3 add 2 mul put
+ MnewTOold 4 q0q0 q1q1 sub q2q2 add q3q3 sub put
+ MnewTOold 5 q2q3 q0q1 sub 2 mul put
+
+ MnewTOold 6 q1q3 q0q2 sub 2 mul put
+ MnewTOold 7 q2q3 q0q1 add 2 mul put
+ MnewTOold 8 q0q0 q1q1 sub q2q2 sub q3q3 add put
+
+ MnewTOold 9 3 put
+ MnewTOold 10 3 put
+
+ end % end of Qu@ternionDict
+
+} def
+%
+/SetMxyz {
+ 1.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0 1.0 3 3 11 array astore /MnewTOold ED
+ RotSequence cvx exec % Now create a new MnewTOold using xyz, etc.
+} def
+%
+/ConcatMQuaternion {
+ MnewTOold % Push onto stack
+ SetMQuaternion % Uses [xyz]RotVec and RotAngle to make MnewToOld
+ MnewTOold matmul /MnewTOold ED
+} def
+%
+/ConcatMxyz {
+ MnewTOold % Push onto stack
+ SetMxyz % Uses RotX, etc. to set MnewTOold
+ MnewTOold matmul /MnewTOold ED
+} def
+%
+/RotatePoint{
+ MnewTOold x y z 3 1 5 array astore matmul
+ 0 3 getinterval aload pop
+ /z ED
+ /y ED
+ /x ED
+} def
+%
+/makeMoldTOnew {
+ /MoldTOnew 11 array def
+ MoldTOnew 0 MnewTOold 0 get put
+ MoldTOnew 1 MnewTOold 3 get put
+ MoldTOnew 2 MnewTOold 6 get put
+ MoldTOnew 3 MnewTOold 1 get put
+ MoldTOnew 4 MnewTOold 4 get put
+ MoldTOnew 5 MnewTOold 7 get put
+ MoldTOnew 6 MnewTOold 2 get put
+ MoldTOnew 7 MnewTOold 5 get put
+ MoldTOnew 8 MnewTOold 8 get put
+ MoldTOnew 9 3 put
+ MoldTOnew 10 3 put
+} def
+%
+/RotXaxis {
+ eulerRotation
+ {1 0 0}
+ {makeMoldTOnew MoldTOnew 1 0 0 3 1 5 array astore matmul
+ 0 3 getinterval aload pop} ifelse
+ /zRotVec ED
+ /yRotVec ED
+ /xRotVec ED
+ /RotAngle RotX def
+ ConcatMQuaternion
+} def
+/RotYaxis {
+ eulerRotation
+ {0 1 0}
+ {makeMoldTOnew MoldTOnew 0 1 0 3 1 5 array astore matmul
+ 0 3 getinterval aload pop} ifelse
+ /zRotVec ED
+ /yRotVec ED
+ /xRotVec ED
+ /RotAngle RotY def
+ ConcatMQuaternion
+} def
+/RotZaxis {
+ eulerRotation
+ {0 0 1}
+ {makeMoldTOnew MoldTOnew 0 0 1 3 1 5 array astore matmul
+ 0 3 getinterval aload pop} ifelse
+ /zRotVec ED
+ /yRotVec ED
+ /xRotVec ED
+ /RotAngle RotZ def
+ ConcatMQuaternion
+} def
+/xyz { RotXaxis RotYaxis RotZaxis } def
+/yxz { RotYaxis RotXaxis RotZaxis } def
+/yzx { RotYaxis RotZaxis RotXaxis } def
+/xzy { RotXaxis RotZaxis RotYaxis } def
+/zxy { RotZaxis RotXaxis RotYaxis } def
+/zyx { RotZaxis RotYaxis RotXaxis } def
+/quaternion { } def % Null
+%
+/VecNorm { 0 exch { dup mul add } forall sqrt } def
+%
+/UnitVec { % on stack is [a]; returns a vector with [a][a]/|a|=1
+ dup VecNorm /norm ED
+ norm 0 lt {/norm 0 def} if
+ { norm div } forall 3 array astore } def
+%
+/AxB { % on the stack are the two vectors [a][b]
+ aload pop /b3 ED /b2 ED /b1 ED
+ aload pop /a3 ED /a2 ED /a1 ED
+ a2 b3 mul a3 b2 mul sub
+ a3 b1 mul a1 b3 mul sub
+ a1 b2 mul a2 b1 mul sub
+ 3 array astore } def
+%
+/AaddB { % on the stack are the two vectors [a][b]
+ aload pop /b3 ED /b2 ED /b1 ED
+ aload pop /a3 ED /a2 ED /a1 ED
+ a1 b1 add a2 b2 add a3 b3 add
+ 3 array astore } def
+%
+/AmulC { % on stack is [a] and c; returns [a] mul c
+ /factor ED { factor mul } forall 3 array astore } def
+%
+%
+/setColorLight { % expects 7 values on stack C M Y K xL yL zL
+% les rayons de lumi�re
+ xLight dup mul yLight dup mul zLight dup mul add add sqrt /NormeLight ED
+% the color values
+ /K ED
+ /Yellow ED
+ /Magenta ED
+ /Cyan ED
+} def
+%
+/facetteSphere {
+ newpath
+ /Xpoint Rsphere theta cos mul phi cos mul CX add def
+ /Ypoint Rsphere theta sin mul phi cos mul CY add def
+ /Zpoint Rsphere phi sin mul CZ add def
+ Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end moveto
+ theta 1 theta increment add {%
+ /theta1 ED
+ /Xpoint Rsphere theta1 cos mul phi cos mul CX add def
+ /Ypoint Rsphere theta1 sin mul phi cos mul CY add def
+ /Zpoint Rsphere phi sin mul CZ add def
+ Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
+ } for
+ phi 1 phi increment add {
+ /phi1 ED
+ /Xpoint Rsphere theta increment add cos mul phi1 cos mul CX add def
+ /Ypoint Rsphere theta increment add sin mul phi1 cos mul CY add def
+ /Zpoint Rsphere phi1 sin mul CZ add def
+ Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
+ } for
+ theta increment add -1 theta {%
+ /theta1 ED
+ /Xpoint Rsphere theta1 cos mul phi increment add cos mul CX add def
+ /Ypoint Rsphere theta1 sin mul phi increment add cos mul CY add def
+ /Zpoint Rsphere phi increment add sin mul CZ add def
+ Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
+ } for
+ phi increment add -1 phi {
+ /phi1 ED
+ /Xpoint Rsphere theta cos mul phi1 cos mul CX add def
+ /Ypoint Rsphere theta sin mul phi1 cos mul CY add def
+ /Zpoint Rsphere phi1 sin mul CZ add def
+ Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
+ } for
+ closepath
+} def
+%
+/MaillageSphere {
+% on stack must be x y z Radius increment C M Y K
+ setColorLight
+ /increment ED
+ /Rsphere ED
+ /CZ ED
+ /CY ED
+ /CX ED
+ /StartTheta 0 def
+ /condition { PSfacetteSphere 0 ge } def
+ -90 increment 90 increment sub {%
+ /phi ED
+ StartTheta increment 360 StartTheta add increment sub {%
+ /theta ED
+ % Centre de la facette
+ /Xpoint Rsphere theta increment 2 div add cos mul phi increment 2 div add cos mul CX add def
+ /Ypoint Rsphere theta increment 2 div add sin mul phi increment 2 div add cos mul CY add def
+ /Zpoint Rsphere phi increment 2 div add sin mul CZ add def
+ % normale � la facette
+ /nXfacette Xpoint CX sub def
+ /nYfacette Ypoint CY sub def
+ /nZfacette Zpoint CZ sub def
+ % test de visibilit�
+ /PSfacetteSphere
+ vX nXfacette mul
+ vY nYfacette mul add
+ vZ nZfacette mul add
+ def
+ condition {
+ gsave
+ facetteSphere
+ /cosV { 1 xLight nXfacette mul
+ yLight nYfacette mul
+ zLight nZfacette mul
+ add add
+ NormeLight
+ nXfacette dup mul
+ nYfacette dup mul
+ nZfacette dup mul
+ add add sqrt mul div sub } bind def
+ Cyan cosV mul Magenta cosV mul Yellow cosV mul K cosV mul setcmykcolor fill
+ grestore
+% 0 setgray
+ showgrid { facetteSphere stroke } if
+ } if
+ } for
+ % /StartTheta StartTheta increment 2 div add def
+ } for
+} def
+%
+%---------------------- Cylinder ---------------------------
+%
+/PlanCoupeCylinder { %
+ /TableauxPoints [
+ 0 1 359 {
+ /phi ED
+ [ Radius phi Height ConvCyl2d ] % on décrit le cercle
+ } for
+ ] def
+ newpath
+ TableauxPoints 0 get aload pop moveto
+ 1 1 359 { TableauxPoints exch get aload pop lineto } for
+ closepath
+} def
+%
+/facetteCylinder { %
+ newpath
+ Radius phi currentHeight ConvCyl2d moveto
+ phi 1 phi dAngle add { % loop variable on stack
+ Radius exch currentHeight ConvCyl2d lineto
+ } for
+ phi dAngle add -1 phi { % fill dHeight
+ Radius exch currentHeight dHeight add ConvCyl2d lineto
+ } for
+ closepath
+ } def % facette
+%
+/MaillageCylinder { % on stack true or false for saving values
+ { setColorLight % expects 4 values on stack C M Y K
+ /dHeight ED /dAngle ED /Height ED /Radius ED
+ /CZ ED /CY ED /CX ED } if
+%
+ 0 dHeight Height dHeight sub {
+ /currentHeight ED
+ 0 dAngle 360 dAngle sub {
+ /phi ED
+% Normal vector of the center
+ /nXfacetteCylinder Radius phi dAngle 2 div add cos mul CX add def
+ /nYfacetteCylinder Radius phi dAngle 2 div add sin mul CY add def
+ /nZfacetteCylinder currentHeight dHeight 2 div add CZ add def
+ /NormeN
+ nXfacetteCylinder dup mul
+ nYfacetteCylinder dup mul
+ nZfacetteCylinder dup mul
+ add add sqrt def
+ NormeN 0 eq { /NormeN 1e-10 def } if
+% test de visibilité
+ /PSfacetteCylinder
+ vX nXfacetteCylinder mul
+ vY nYfacetteCylinder mul add
+ vZ nZfacetteCylinder mul add def
+ condition {
+ facetteCylinder
+ /cosV
+ 1 xLight nXfacetteCylinder mul
+ yLight nYfacetteCylinder mul
+ zLight nZfacetteCylinder mul
+ add add
+ NormeLight NormeN mul div sub def
+ Cyan Magenta Yellow K
+ cosV mul 4 1 roll cosV mul 4 1 roll
+ cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
+ setcmykcolor fill
+ showgrid {
+ 0 setgray
+ facetteCylinder % drawing the segments
+ stroke } if
+ } if
+ } for
+ } for
+} def
+%
+%------------------------ Cylinder type II -----------------------
+%
+/MoveTo { Conv3D2D moveto } def
+/LineTo { Conv3D2D lineto } def
+
+/IIIDEllipse { % x y z rA rB startAngle endAngle Wedge
+ /dAngle 1 def
+ /isWedge ED
+ /endAngle ED
+ /startAngle ED
+ /radiusB ED
+ /radiusA ED
+ startAngle cos radiusA mul startAngle sin radiusB mul 0
+ isWedge { 0 0 moveto LineTo }{ MoveTo } ifelse
+ /Angle startAngle def
+ startAngle dAngle endAngle {
+ /Angle ED
+ Angle cos radiusA mul Angle sin radiusB mul 0 LineTo
+ } for
+ isWedge { 0 0 lineto } if
+} def
+
+/IIIDCircle { % x y z r startAngle endAngle Wedge
+ 7 3 roll % startAngle endAngle Wedge x y z r
+ dup % startAngle endAngle Wedge x y z r r
+ 8 -3 roll
+ IIIDEllipse
+} def
+
+/IIIDWedge { % x y z r startAngle endAngle
+ true IIIDCircle
+} def
+
+/IIIDCylinder {% x y z r h start end wedge
+ /isWedge ED
+ /increment ED
+ /endAngle ED
+ /startAngle ED
+ /height ED
+ /radius ED
+ startAngle increment endAngle {
+ /Angle ED
+ radius Angle 0 ConvCylToCartesian MoveTo
+ radius Angle height ConvCylToCartesian LineTo
+ } for
+ stroke
+} def
+%
+%---------------------- Box ---------------------------
+%
+/PlanCoupeBox { % x y z
+ /TableauxPoints [
+ [ CX CY CZ Height add ConvBox2d ] % top or bottom
+ [ CX CY Depth add CZ Height add ConvBox2d ]
+ [ CX Width add CY Depth add CZ Height add ConvBox2d ]
+ [ CX Width add CY CZ Height add ConvBox2d ]
+ [ CX CY CZ Height add ConvBox2d ] % bottom
+ ] def
+ newpath
+ TableauxPoints 0 get aload pop moveto
+ 0 1 3 {
+ TableauxPoints exch get aload pop
+ lineto } for
+ closepath
+} def
+%
+/facetteBox { %
+ newpath
+ dup
+ 1 eq { % back
+ CX CY CZ ConvBox2d moveto
+ CX CY CZ Height add ConvBox2d lineto
+ CX Width add CY CZ Height add ConvBox2d lineto
+ CX Width add CY CZ ConvBox2d lineto
+ CX CY CZ ConvBox2d lineto
+ } if
+ dup
+ 2 eq { % right
+ CX CY CZ ConvBox2d moveto
+ CX CY CZ Height add ConvBox2d lineto
+ CX CY Depth add CZ Height add ConvBox2d lineto
+ CX CY Depth add CZ ConvBox2d lineto
+ CX CY CZ ConvBox2d lineto
+ } if
+ dup
+ 3 eq { % left
+ CX Width add CY CZ ConvBox2d moveto
+ CX Width add CY Depth add CZ ConvBox2d lineto
+ CX Width add CY Depth add CZ Height add ConvBox2d lineto
+ CX Width add CY CZ Height add ConvBox2d lineto
+ CX Width add CY CZ ConvBox2d lineto
+ } if
+ 4 eq { % front
+ CX CY Depth add CZ ConvBox2d moveto
+ CX CY Depth add CZ Height add ConvBox2d lineto
+ CX Width add CY Depth add CZ Height add ConvBox2d lineto
+ CX Width add CY Depth add CZ ConvBox2d lineto
+ CX CY Depth add CZ ConvBox2d lineto
+ } if
+ closepath
+ } def % facette
+%
+/TestPlane { % on stack x y z of the plane center and # of plane
+ /nZfacetteBox ED /nYfacetteBox ED /nXfacetteBox ED
+ /Plane ED
+ /NormeN
+ nXfacetteBox dup mul
+ nYfacetteBox dup mul
+ nZfacetteBox dup mul
+ add add sqrt def
+ NormeN 0 eq { /NormeN 1e-10 def } if
+% test de visibilit�
+ /PSfacetteBox
+ vX nXfacetteBox mul
+ vY nYfacetteBox mul add
+ vZ nZfacetteBox mul add def
+ condition {
+ Plane facetteBox
+ /cosV
+ 1 xLight nXfacetteBox mul
+ yLight nYfacetteBox mul
+ zLight nZfacetteBox mul
+ add add
+ NormeLight NormeN mul div sub def
+ Cyan Magenta Yellow K
+ cosV mul 4 1 roll cosV mul 4 1 roll
+ cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
+ setcmykcolor fill
+ 0 setgray
+ Plane facetteBox % drawing the segments
+ stroke
+ } if
+} def
+%
+/MaillageBox { % on stack true or false for saving values
+ { setColorLight % expects 4 values on stack C M Y K
+ /Depth ED /Height ED /Width ED
+ /CZ ED /CY ED /CX ED } if
+%
+% Normal vector of the box center
+ /PlaneSet [
+ [ Width 2 div CX add
+ CY
+ Height 2 div CZ add ] % normal back
+ [ CX
+ Depth 2 div CY add
+ Height 2 div CZ add ] % normal right
+ [ Width CX add
+ Depth 2 div CY add
+ Height 2 div CZ add ] % normal left
+ [ Width 2 div CX add
+ Depth CY add
+ Height 2 div CZ add ] % normal front
+ ] def
+ PlaneSequence length 0 eq { % user defined?
+ Alpha abs cvi 360 mod /iAlpha ED
+ iAlpha 90 lt { [ 1 2 3 4 ]
+ }{ iAlpha 180 lt { [ 2 4 1 3 ]
+ }{ iAlpha 270 lt { [ 3 4 1 2 ] }{ [ 3 1 4 2] } ifelse } ifelse } ifelse
+ }{ PlaneSequence } ifelse
+ { dup 1 sub PlaneSet exch get aload pop TestPlane } forall
+} def
+%
+%--------------------------- Paraboloid -----------------------------
+/PlanCoupeParaboloid {
+ /Z height store
+ /V {Z sqrt} bind def
+ /TableauxPoints [
+ 0 1 359 {
+ /U ED [ U U Z V calculate2DPoint ] % on d�crit le cercle
+ } for
+ ] def
+ newpath
+ TableauxPoints 0 get aload pop moveto
+ 0 1 359 {
+ /compteur ED
+ TableauxPoints compteur get aload pop
+ lineto } for
+ closepath
+} def
+%
+/facetteParaboloid{
+ newpath
+ U U Z V calculate2DPoint moveto
+ U 1 U increment add {%
+ /U1 ED
+ U1 U1 Z V calculate2DPoint lineto
+ } for
+ Z pas10 Z pas add pas10 add{
+ /Z1 ED
+ /V {Z1 sqrt} bind def
+ U1 U1 Z1 V calculate2DPoint lineto
+ } for
+ U increment add -1 U {%
+ /U2 ED
+ U2 U2 Z pas add V calculate2DPoint lineto
+ } for
+ Z pas add pas10 sub pas10 neg Z pas10 sub {
+ /Z2 ED
+ /V Z2 abs sqrt def
+ U U Z2 V calculate2DPoint lineto
+ } for
+ closepath
+} def % facette
+%
+/MaillageParaboloid {
+ % on stack true or false for saving values
+ { setColorLight % expects 7 values on stack C M Y K xL yL zL
+% /CZ ED /CY ED /CX ED
+ } if
+ 0 pas height pas sub {%
+ /Z ED
+ /V Z sqrt def
+ 0 increment 360 increment sub {%
+ /U ED
+% Centre de la facette
+ /Ucentre U increment 2 div add def
+ /Vcentre Z pas 2 div add sqrt def
+% normale à la facette
+ /nXfacetteParaboloid 2 Vcentre dup mul mul Ucentre cos mul radius mul def
+ /nYfacetteParaboloid 2 Vcentre dup mul mul Ucentre sin mul radius mul def
+ /nZfacetteParaboloid Vcentre neg radius dup mul mul def
+ /NormeN {
+ nXfacetteParaboloid dup mul
+ nYfacetteParaboloid dup mul
+ nZfacetteParaboloid dup mul
+ add add sqrt} bind def
+ NormeN 0 eq {/NormeN 1e-10 def} if
+% test de visibilit�
+ /PSfacetteParaboloid vX nXfacetteParaboloid mul
+ vY nYfacetteParaboloid mul add
+ vZ nZfacetteParaboloid mul add def
+ condition {
+ facetteParaboloid
+ /cosV 1 xLight nXfacetteParaboloid mul
+ yLight nYfacetteParaboloid mul
+ zLight nZfacetteParaboloid mul
+ add add
+ NormeLight
+ NormeN mul div sub def
+ Cyan Magenta Yellow K
+ cosV mul 4 1 roll cosV mul 4 1 roll cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
+ setcmykcolor fill
+ showgrid {
+ 0 setgray
+ facetteParaboloid
+ stroke } if
+ } if
+ } for
+ } for
+} def
+%
+% ------------------------------------ math stuff ----------------------------------
+%
+% Matrix A in arrays of rows A[[row1][row2]...]
+% with [row1]=[a11 a12 ... b1]
+% returns on stack solution vector X=[x1 x2 ... xn]
+/SolveLinEqSystem { % on stack matrix M=[A,b] (A*x=b)
+ 10 dict begin % hold all ocal
+ /A exch def
+ /Rows A length def % Rows = number of rows
+ /Cols A 0 get length def % Cols = number of columns
+ /Index [ 0 1 Rows 1 sub { } for ] def % Index = [0 1 2 ... Rows-1]
+ /col 0 def
+ /row 0 def
+ /PR Rows array def % PR[c] = pivot row for row row
+ { % starts the loop, find pivot entry in row r
+ col Cols ge row Rows ge or { exit } if % col < Cols and row < Rows else exit
+ /pRow row def % pRow = pivot row
+ /max A row get col get abs def % get A[row[col]], first A[0,0]
+ row 1 add 1 Rows 1 sub { % starts for loop 1 1 Rows-1
+ /j exch def % index counter
+ /x A j get col get abs def % get A[j[r]]
+ x max gt { % x>max, then save position
+ /pRow j def
+ /max x def
+ } if
+ } for % now we have the row with biggest A[0,1]
+ % with pRow = the pivot row
+ max 0 gt { % swap entries pRow and row in i
+ /tmp Index row get def
+ Index row Index pRow get put
+ Index pRow tmp put % and columns pRow and row in A
+ /tmp A row get def
+ A row A pRow get put
+ A pRow tmp put % pivot
+ /row0 A row get def % the pivoting row
+ /p0 row0 col get def % the pivot value
+ row 1 add 1 Rows 1 sub { % start for loop
+ /j exch def
+ /c1 A j get def
+ /p c1 col get p0 div def
+ c1 col p put % subtract (p1/p0)*row[i] from row[j]
+ col 1 add 1 Cols 1 sub { % start for loop
+ /i exch def
+ c1 dup i exch % c1 i c1
+ i get row0 i get p mul sub put
+ } for
+ } for
+ PR row col put
+ /col col 1 add def
+ /row row 1 add def
+ }{ % all zero entries
+ /row row 1 add def % continue loop with same row
+ } ifelse
+ } loop
+ /X A def % solution vector
+ A Rows 1 sub get dup
+ Cols 1 sub get exch
+ Cols 2 sub get div
+ X Rows 1 sub 3 -1 roll put % X[n]
+ Rows 2 sub -1 0 { % for loop to calculate X[i]
+ /xi exch def % current index
+ A xi get % i-th row
+ /Axi exch def
+ /sum 0 def
+ Cols 2 sub -1 xi 1 add {
+ /n exch def
+ /sum sum Axi n get X n get mul add def
+ } for
+ Axi Cols 1 sub get % b=Axi[Cols-1]
+ sum sub % b-sum
+ Axi xi get div % b-sum / Axi[xi]
+ X xi 3 -1 roll put % X[xi]
+ } for
+ X
+ end
+} def
+%
+% u -> e_u with |e_u|=1
+/vector-unit { 1 dict begin
+ dup vector-length 1 exch div
+ vector-scale
+ end
+} def
+%
+% u v -> u+v
+/vector-add { 1 dict begin
+ /v exch def
+ [ exch
+ 0 % u i
+ exch { % i u[i]
+ v % i u[i] v
+ 2 index get add % i u[i]+v[i]
+ exch 1 add % i
+ } forall
+ pop
+ ]
+ end
+} def
+%
+% u v -> u-v
+/vector-sub { 1 dict begin
+ /v exch def
+ [ exch
+ 0 % u i
+ exch { % i u[i]
+ v % i u[i] v
+ 2 index get sub % i u[i]+v[i]
+ exch 1 add % i
+ } forall
+ pop
+ ]
+end } def
+%
+% [v] c -> [c.v]
+/vector-scale { 1 dict begin
+ /c exch def
+ [ exch
+ { % s i u[i]
+ c mul % s i u[i] v
+ } forall
+ ]
+ end } def
+%
+%
+% [u] [v] -> [u x v]
+/vector-prod { %% x1 y1 z1 x2 y2 z2
+6 dict begin
+ aload pop
+ /zp exch def /yp exch def /xp exch def
+ aload pop
+ /z exch def /y exch def /x exch def
+ [ y zp mul z yp mul sub
+ z xp mul x zp mul sub
+ x yp mul y xp mul sub ]
+end
+} def
+%
+% [u] [v] -> u.v
+/vector-mul { %% x1 y1 z1 x2 y2 z2
+6 dict begin
+ aload pop
+ /zp exch def /yp exch def /xp exch def
+ aload pop
+ /z exch def /y exch def /x exch def
+ x xp mul y yp mul add z zp mul add
+end
+} def
+%
+% [x y z ... ] -> r
+% watch out for overflow
+/vector-length { 1 dict begin
+dup
+% find maximum entry
+/max 0 def
+{ % max
+ abs dup max gt {
+ % if abs gt max
+ /max exch def
+ } {
+ pop
+ } ifelse
+} forall
+max 0 ne {
+ 0 exch
+ { % 0 v[i]
+ max div dup mul add
+ } forall
+ sqrt
+ max mul
+} {
+ pop 0
+} ifelse
+end } def
+%
+end % tx@3DPlotDict
+
+
+%%EndProcSet
+%%BeginProcSet: special.pro 0 0
+%!
+TeXDict begin/SDict 200 dict N SDict begin/@SpecialDefaults{/hs 612 N
+/vs 792 N/ho 0 N/vo 0 N/hsc 1 N/vsc 1 N/ang 0 N/CLIP 0 N/rwiSeen false N
+/rhiSeen false N/letter{}N/note{}N/a4{}N/legal{}N}B/@scaleunit 100 N
+/@hscale{@scaleunit div/hsc X}B/@vscale{@scaleunit div/vsc X}B/@hsize{
+/hs X/CLIP 1 N}B/@vsize{/vs X/CLIP 1 N}B/@clip{/CLIP 2 N}B/@hoffset{/ho
+X}B/@voffset{/vo X}B/@angle{/ang X}B/@rwi{10 div/rwi X/rwiSeen true N}B
+/@rhi{10 div/rhi X/rhiSeen true N}B/@llx{/llx X}B/@lly{/lly X}B/@urx{
+/urx X}B/@ury{/ury X}B/magscale true def end/@MacSetUp{userdict/md known
+{userdict/md get type/dicttype eq{userdict begin md length 10 add md
+maxlength ge{/md md dup length 20 add dict copy def}if end md begin
+/letter{}N/note{}N/legal{}N/od{txpose 1 0 mtx defaultmatrix dtransform S
+atan/pa X newpath clippath mark{transform{itransform moveto}}{transform{
+itransform lineto}}{6 -2 roll transform 6 -2 roll transform 6 -2 roll
+transform{itransform 6 2 roll itransform 6 2 roll itransform 6 2 roll
+curveto}}{{closepath}}pathforall newpath counttomark array astore/gc xdf
+pop ct 39 0 put 10 fz 0 fs 2 F/|______Courier fnt invertflag{PaintBlack}
+if}N/txpose{pxs pys scale ppr aload pop por{noflips{pop S neg S TR pop 1
+-1 scale}if xflip yflip and{pop S neg S TR 180 rotate 1 -1 scale ppr 3
+get ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg TR}if xflip
+yflip not and{pop S neg S TR pop 180 rotate ppr 3 get ppr 1 get neg sub
+neg 0 TR}if yflip xflip not and{ppr 1 get neg ppr 0 get neg TR}if}{
+noflips{TR pop pop 270 rotate 1 -1 scale}if xflip yflip and{TR pop pop
+90 rotate 1 -1 scale ppr 3 get ppr 1 get neg sub neg ppr 2 get ppr 0 get
+neg sub neg TR}if xflip yflip not and{TR pop pop 90 rotate ppr 3 get ppr
+1 get neg sub neg 0 TR}if yflip xflip not and{TR pop pop 270 rotate ppr
+2 get ppr 0 get neg sub neg 0 S TR}if}ifelse scaleby96{ppr aload pop 4
+-1 roll add 2 div 3 1 roll add 2 div 2 copy TR .96 dup scale neg S neg S
+TR}if}N/cp{pop pop showpage pm restore}N end}if}if}N/normalscale{
+Resolution 72 div VResolution 72 div neg scale magscale{DVImag dup scale
+}if 0 setgray}N/psfts{S 65781.76 div N}N/startTexFig{/psf$SavedState
+save N userdict maxlength dict begin/magscale true def normalscale
+currentpoint TR/psf$ury psfts/psf$urx psfts/psf$lly psfts/psf$llx psfts
+/psf$y psfts/psf$x psfts currentpoint/psf$cy X/psf$cx X/psf$sx psf$x
+psf$urx psf$llx sub div N/psf$sy psf$y psf$ury psf$lly sub div N psf$sx
+psf$sy scale psf$cx psf$sx div psf$llx sub psf$cy psf$sy div psf$ury sub
+TR/showpage{}N/erasepage{}N/copypage{}N/p 3 def @MacSetUp}N/doclip{
+psf$llx psf$lly psf$urx psf$ury currentpoint 6 2 roll newpath 4 copy 4 2
+roll moveto 6 -1 roll S lineto S lineto S lineto closepath clip newpath
+moveto}N/endTexFig{end psf$SavedState restore}N/@beginspecial{SDict
+begin/SpecialSave save N gsave normalscale currentpoint TR
+@SpecialDefaults count/ocount X/dcount countdictstack N}N/@setspecial{
+CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs neg 0 rlineto
+closepath clip}if ho vo TR hsc vsc scale ang rotate rwiSeen{rwi urx llx
+sub div rhiSeen{rhi ury lly sub div}{dup}ifelse scale llx neg lly neg TR
+}{rhiSeen{rhi ury lly sub div dup scale llx neg lly neg TR}if}ifelse
+CLIP 2 eq{newpath llx lly moveto urx lly lineto urx ury lineto llx ury
+lineto closepath clip}if/showpage{}N/erasepage{}N/copypage{}N newpath}N
+/@endspecial{count ocount sub{pop}repeat countdictstack dcount sub{end}
+repeat grestore SpecialSave restore end}N/@defspecial{SDict begin}N
+/@fedspecial{end}B/li{lineto}B/rl{rlineto}B/rc{rcurveto}B/np{/SaveX
+currentpoint/SaveY X N 1 setlinecap newpath}N/st{stroke SaveX SaveY
+moveto}N/fil{fill SaveX SaveY moveto}N/ellipse{/endangle X/startangle X
+/yrad X/xrad X/savematrix matrix currentmatrix N TR xrad yrad scale 0 0
+1 startangle endangle arc savematrix setmatrix}N end
+
+%%EndProcSet
+%%BeginProcSet: color.pro 0 0
+%!
+TeXDict begin/setcmykcolor where{pop}{/setcmykcolor{dup 10 eq{pop
+setrgbcolor}{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll
+}repeat setrgbcolor pop}ifelse}B}ifelse/TeXcolorcmyk{setcmykcolor}def
+/TeXcolorrgb{setrgbcolor}def/TeXcolorgrey{setgray}def/TeXcolorgray{
+setgray}def/TeXcolorhsb{sethsbcolor}def/currentcmykcolor where{pop}{
+/currentcmykcolor{currentrgbcolor 10}B}ifelse/DC{exch dup userdict exch
+known{pop pop}{X}ifelse}B/GreenYellow{0.15 0 0.69 0 setcmykcolor}DC
+/Yellow{0 0 1 0 setcmykcolor}DC/Goldenrod{0 0.10 0.84 0 setcmykcolor}DC
+/Dandelion{0 0.29 0.84 0 setcmykcolor}DC/Apricot{0 0.32 0.52 0
+setcmykcolor}DC/Peach{0 0.50 0.70 0 setcmykcolor}DC/Melon{0 0.46 0.50 0
+setcmykcolor}DC/YellowOrange{0 0.42 1 0 setcmykcolor}DC/Orange{0 0.61
+0.87 0 setcmykcolor}DC/BurntOrange{0 0.51 1 0 setcmykcolor}DC
+/Bittersweet{0 0.75 1 0.24 setcmykcolor}DC/RedOrange{0 0.77 0.87 0
+setcmykcolor}DC/Mahogany{0 0.85 0.87 0.35 setcmykcolor}DC/Maroon{0 0.87
+0.68 0.32 setcmykcolor}DC/BrickRed{0 0.89 0.94 0.28 setcmykcolor}DC/Red{
+0 1 1 0 setcmykcolor}DC/OrangeRed{0 1 0.50 0 setcmykcolor}DC/RubineRed{
+0 1 0.13 0 setcmykcolor}DC/WildStrawberry{0 0.96 0.39 0 setcmykcolor}DC
+/Salmon{0 0.53 0.38 0 setcmykcolor}DC/CarnationPink{0 0.63 0 0
+setcmykcolor}DC/Magenta{0 1 0 0 setcmykcolor}DC/VioletRed{0 0.81 0 0
+setcmykcolor}DC/Rhodamine{0 0.82 0 0 setcmykcolor}DC/Mulberry{0.34 0.90
+0 0.02 setcmykcolor}DC/RedViolet{0.07 0.90 0 0.34 setcmykcolor}DC
+/Fuchsia{0.47 0.91 0 0.08 setcmykcolor}DC/Lavender{0 0.48 0 0
+setcmykcolor}DC/Thistle{0.12 0.59 0 0 setcmykcolor}DC/Orchid{0.32 0.64 0
+0 setcmykcolor}DC/DarkOrchid{0.40 0.80 0.20 0 setcmykcolor}DC/Purple{
+0.45 0.86 0 0 setcmykcolor}DC/Plum{0.50 1 0 0 setcmykcolor}DC/Violet{
+0.79 0.88 0 0 setcmykcolor}DC/RoyalPurple{0.75 0.90 0 0 setcmykcolor}DC
+/BlueViolet{0.86 0.91 0 0.04 setcmykcolor}DC/Periwinkle{0.57 0.55 0 0
+setcmykcolor}DC/CadetBlue{0.62 0.57 0.23 0 setcmykcolor}DC
+/CornflowerBlue{0.65 0.13 0 0 setcmykcolor}DC/MidnightBlue{0.98 0.13 0
+0.43 setcmykcolor}DC/NavyBlue{0.94 0.54 0 0 setcmykcolor}DC/RoyalBlue{1
+0.50 0 0 setcmykcolor}DC/Blue{1 1 0 0 setcmykcolor}DC/Cerulean{0.94 0.11
+0 0 setcmykcolor}DC/Cyan{1 0 0 0 setcmykcolor}DC/ProcessBlue{0.96 0 0 0
+setcmykcolor}DC/SkyBlue{0.62 0 0.12 0 setcmykcolor}DC/Turquoise{0.85 0
+0.20 0 setcmykcolor}DC/TealBlue{0.86 0 0.34 0.02 setcmykcolor}DC
+/Aquamarine{0.82 0 0.30 0 setcmykcolor}DC/BlueGreen{0.85 0 0.33 0
+setcmykcolor}DC/Emerald{1 0 0.50 0 setcmykcolor}DC/JungleGreen{0.99 0
+0.52 0 setcmykcolor}DC/SeaGreen{0.69 0 0.50 0 setcmykcolor}DC/Green{1 0
+1 0 setcmykcolor}DC/ForestGreen{0.91 0 0.88 0.12 setcmykcolor}DC
+/PineGreen{0.92 0 0.59 0.25 setcmykcolor}DC/LimeGreen{0.50 0 1 0
+setcmykcolor}DC/YellowGreen{0.44 0 0.74 0 setcmykcolor}DC/SpringGreen{
+0.26 0 0.76 0 setcmykcolor}DC/OliveGreen{0.64 0 0.95 0.40 setcmykcolor}
+DC/RawSienna{0 0.72 1 0.45 setcmykcolor}DC/Sepia{0 0.83 1 0.70
+setcmykcolor}DC/Brown{0 0.81 1 0.60 setcmykcolor}DC/Tan{0.14 0.42 0.56 0
+setcmykcolor}DC/Gray{0 0 0 0.50 setcmykcolor}DC/Black{0 0 0 1
+setcmykcolor}DC/White{0 0 0 0 setcmykcolor}DC end
+
+%%EndProcSet
+TeXDict begin 40258437 52099151 1000 600 600 (testps-fig1.dvi)
+@start end
+%%EndProlog
+%%BeginSetup
+%%Feature: *Resolution 600dpi
+TeXDict begin
+ end
+%%EndSetup
+%%Page: 1 1
+TeXDict begin 1 0 bop 0 TeXcolorgray Black 165 192 a
+tx@Dict begin gsave STV CP T /ps@rot 0 def grestore end
+
+165 192 a 165 192 a
+tx@Dict begin gsave STV CP T /ps@refangle 0. def grestore end
+ 165 192 a 0 TeXcolorgray 165 192
+a
+tx@Dict begin gsave STV CP T /ps@rot 0 def grestore end
+ 165 192 a 290 1373 a @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 12.0 0.0 12.0 144.0 /Lineto /lineto
+load def 1 setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n
+2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4
+mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED
+/Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 14.47614 0.0 14.47614 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 16.95209 0.0 16.95209 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 19.42822 0.0 19.42822 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 21.90436 0.0 21.90436 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 24.38031 0.0 24.38031 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 26.85645 0.0 26.85645 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 29.33258 0.0 29.33258 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 31.80872 0.0 31.80872 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 34.28467 0.0 34.28467 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 36.7608 0.0 36.7608 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 39.23694 0.0 39.23694 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 41.71289 0.0 41.71289 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 44.18903 0.0 44.18903 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 46.66516 0.0 46.66516 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 49.14111 0.0 49.14111 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 51.61725 0.0 51.61725 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 54.09338 0.0 54.09338 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 56.56952 0.0 56.56952 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 59.04547 0.0 59.04547 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 61.5216 0.0 61.5216 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 63.99774 0.0 63.99774 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 66.4737 0.0 66.4737 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 68.94983 0.0 68.94983 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 71.42596 0.0 71.42596 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 73.90192 0.0 73.90192 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 76.37805 0.0 76.37805 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 78.85419 0.0 78.85419 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 81.33032 0.0 81.33032 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 83.80627 0.0 83.80627 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 86.28241 0.0 86.28241 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 88.75854 0.0 88.75854 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 91.2345 0.0 91.2345 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 93.71063 0.0 93.71063 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 96.18677 0.0 96.18677 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 98.66272 0.0 98.66272 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 101.13885 0.0 101.13885 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 103.61499 0.0 103.61499 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 106.09113 0.0 106.09113 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 108.56708 0.0 108.56708 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 111.04321 0.0 111.04321 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 113.51935 0.0 113.51935 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 115.9953 0.0 115.9953 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 118.47144 0.0 118.47144 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 120.94757 0.0 120.94757 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 123.42352 0.0 123.42352 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 125.89966 0.0 125.89966 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 128.3758 0.0 128.3758 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 130.85193 0.0 130.85193 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 133.32788 0.0 133.32788 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 135.80402 0.0 135.80402 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 138.28015 0.0 138.28015 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 140.7561 0.0 140.7561 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 143.23224 0.0 143.23224 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 145.70837 0.0 145.70837 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 148.18433 0.0 148.18433 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 150.66046 0.0 150.66046 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 153.1366 0.0 153.1366 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 155.61255 0.0 155.61255 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 158.08868 0.0 158.08868 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 160.56482 0.0 160.56482 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 163.04095 0.0 163.04095 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 165.5169 0.0 165.5169 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 167.99304 0.0 167.99304 144.0 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 0.0 12.0 0.0 /Lineto /lineto
+load def 1 setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n
+2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4
+mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED
+/Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 2.2857 12.0 2.2857 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 4.5716 12.0 4.5716 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 6.8573 12.0 6.8573 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 9.143 12.0 9.143 /Lineto /lineto
+load def 1 setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n
+2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4
+mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED
+/Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 11.42871 12.0 11.42871 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 13.7146 12.0 13.7146 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 16.0003 12.0 16.0003 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 18.28601 12.0 18.28601 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 20.5719 12.0 20.5719 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 22.8576 12.0 22.8576 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 25.14331 12.0 25.14331 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 27.4292 12.0 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 29.7149 12.0 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 32.00061 12.0 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 34.28632 12.0 34.28632 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 36.5722 12.0 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 38.85791 12.0 38.85791 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 41.14362 12.0 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 43.4295 12.0 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 45.71521 12.0 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 48.00092 12.0 48.00092 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 50.2868 12.0 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 52.57251 12.0 52.57251 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 54.85822 12.0 54.85822 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 57.14392 12.0 57.14392 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 59.42981 12.0 59.42981 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 61.71552 12.0 61.71552 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 64.00122 12.0 64.00122 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 66.28711 12.0 66.28711 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 68.57281 12.0 68.57281 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 70.85852 12.0 70.85852 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 73.14441 12.0 73.14441 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 75.43011 12.0 75.43011 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 77.71582 12.0 77.71582 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 80.00153 12.0 80.00153 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 82.28741 12.0 82.28741 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 84.57312 12.0 84.57312 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 86.85883 12.0 86.85883 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 89.14471 12.0 89.14471 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 91.43042 12.0 91.43042 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 93.71613 12.0 93.71613 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 96.00183 12.0 96.00183 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 98.28772 12.0 98.28772 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 100.57343 12.0 100.57343 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 102.85913 12.0 102.85913 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 105.14502 12.0 105.14502 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 107.43073 12.0 107.43073 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 109.71643 12.0 109.71643 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 112.00232 12.0 112.00232 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 114.28802 12.0 114.28802 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 116.57373 12.0 116.57373 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 118.85944 12.0 118.85944 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 121.14532 12.0 121.14532 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 123.43103 12.0 123.43103 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 125.71674 12.0 125.71674 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 128.00262 12.0 128.00262 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 130.28833 12.0 130.28833 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 132.57404 12.0 132.57404 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 134.85992 12.0 134.85992 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 137.14563 12.0 137.14563 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 139.43134 12.0 139.43134 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 141.71704 12.0 141.71704 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def [ 168.0 144.00293 12.0 144.00293 /Lineto
+/lineto load def 1 setlinejoin false NArray n 0 eq not { n 1 eq {
+0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup 1.4 mul
+exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1 ED /y2
+ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength
+mul add y1 Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy
+/y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1
+sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos
+ArrowPos dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin
+ArrowPos mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def
+/dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi {
+/ArrowPos ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add
+y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse
+pop pop Lineto } repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat
+} ifelse CP 4 2 roll ArrowB L pop pop } if gsave 0.2 SLW 0 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.5 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def /t 0 def /t1 0.5 def /dt t1 t sub 199
+div def /F@pstplot ((1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0-1.5)*(2.0)+15*t^2*(1-t)^4*(2.0+2)*(2.0)+
+20*t^3*(1-t)^3*(2.0+6)*(2.0)+15*t^4*(1-t)^2*(2.0+5)*(2.0)+6*t^5*(1-t)*(2.0+1.5)*(2.0)+t^6*(2.0)*(2.0)|(1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0+2)*(2.0)+15*t^2*(1-t)^4*(2.0+5)*(2.0)+
+20*t^3*(1-t)^3*(2.0+3)*(2.0)+15*t^4*(1-t)^2*(2.0-1)*(2.0)+6*t^5*(1-t)*(2.0-2)*(2.0)+t^6*(2.0)*(2.0))
+ tx@AlgToPs begin AlgToPs end cvx def /xy { F@pstplot 12.0 mul exch
+12.0 mul exch } def /ps@Exit false def xy moveto 199 1 sub { /t t
+dt add def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0 mul
+lt { moveto }{ L } ifelse } ifelse ps@Exit { exit } if } repeat ps@Exit
+not { /t t1 def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0
+mul lt { moveto }{ L } ifelse } ifelse } if gsave 0 0 0.5 0 setcmykcolor
+ 1. .setopacityalpha fill grestore gsave 0.5 SLW 0 setgray 1. .setopacityalpha
+ 1 setlinejoin 0 setlinecap stroke grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.5 SLW 0 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def /t 0.5 def /t1 1 def /dt t1 t sub 199
+div def /F@pstplot ((1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0-1.5)*(2.0)+15*t^2*(1-t)^4*(2.0+2)*(2.0)+
+20*t^3*(1-t)^3*(2.0+6)*(2.0)+15*t^4*(1-t)^2*(2.0+5)*(2.0)+6*t^5*(1-t)*(2.0+1.5)*(2.0)+t^6*(2.0)*(2.0)|(1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0+2)*(2.0)+15*t^2*(1-t)^4*(2.0+5)*(2.0)+
+20*t^3*(1-t)^3*(2.0+3)*(2.0)+15*t^4*(1-t)^2*(2.0-1)*(2.0)+6*t^5*(1-t)*(2.0-2)*(2.0)+t^6*(2.0)*(2.0))
+ tx@AlgToPs begin AlgToPs end cvx def /xy { F@pstplot 12.0 mul exch
+12.0 mul exch } def /ps@Exit false def xy moveto 199 1 sub { /t t
+dt add def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0 mul
+lt { moveto }{ L } ifelse } ifelse ps@Exit { exit } if } repeat ps@Exit
+not { /t t1 def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0
+mul lt { moveto }{ L } ifelse } ifelse } if gsave 0 0 0.5 0 setcmykcolor
+ 1. .setopacityalpha fill grestore gsave 0.5 SLW 0 setgray 1. .setopacityalpha
+ 1 setlinejoin 0 setlinecap stroke grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 45.71521 46.66516
+48.00092 49.1413 48.00092 49.1413 45.71521 46.66516 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 48.00092 46.66516
+50.28662 49.1413 50.28662 49.1413 48.00092 46.66516 48.00092 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 48.00092 46.66516
+50.28662 49.1413 50.28662 49.1413 48.00092 46.66516 48.00092 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 48.00092 46.66516
+50.28662 49.1413 50.28662 49.1413 48.00092 46.66516 48.00092 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 48.00092 46.66516
+50.28662 49.1413 50.28662 49.1413 48.00092 46.66516 48.00092 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 48.00092 46.66516
+50.28662 49.1413 50.28662 49.1413 48.00092 46.66516 48.00092 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 48.00092 46.66516
+50.28662 49.1413 50.28662 49.1413 48.00092 46.66516 48.00092 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 48.00092 44.18903
+50.28662 46.66516 50.28662 46.66516 48.00092 44.18903 48.00092 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 48.00092 44.18903
+50.28662 46.66516 50.28662 46.66516 48.00092 44.18903 48.00092 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 50.2868 44.18903
+52.57251 46.66516 52.57251 46.66516 50.2868 44.18903 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 50.2868 44.18903
+52.57251 46.66516 52.57251 46.66516 50.2868 44.18903 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 50.2868 44.18903
+52.57251 46.66516 52.57251 46.66516 50.2868 44.18903 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 50.2868 44.18903
+52.57251 46.66516 52.57251 46.66516 50.2868 44.18903 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 50.2868 44.18903
+52.57251 46.66516 52.57251 46.66516 50.2868 44.18903 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 50.2868 44.18903
+52.57251 46.66516 52.57251 46.66516 50.2868 44.18903 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 50.2868 44.18903
+52.57251 46.66516 52.57251 46.66516 50.2868 44.18903 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 50.2868 44.18903
+52.57251 46.66516 52.57251 46.66516 50.2868 44.18903 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 52.57251 44.18903
+54.85822 46.66516 54.85822 46.66516 52.57251 44.18903 52.57251 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 52.57251 44.18903
+54.85822 46.66516 54.85822 46.66516 52.57251 44.18903 52.57251 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 52.57251 44.18903
+54.85822 46.66516 54.85822 46.66516 52.57251 44.18903 52.57251 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 52.57251 44.18903
+54.85822 46.66516 54.85822 46.66516 52.57251 44.18903 52.57251 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 52.57251 41.71289
+54.85822 44.18903 54.85822 44.18903 52.57251 41.71289 52.57251 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 52.57251 41.71289
+54.85822 44.18903 54.85822 44.18903 52.57251 41.71289 52.57251 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 52.57251 41.71289
+54.85822 44.18903 54.85822 44.18903 52.57251 41.71289 52.57251 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 54.85822 41.71289
+57.14392 44.18903 57.14392 44.18903 54.85822 41.71289 54.85822 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 54.85822 41.71289
+57.14392 44.18903 57.14392 44.18903 54.85822 41.71289 54.85822 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 54.85822 41.71289
+57.14392 44.18903 57.14392 44.18903 54.85822 41.71289 54.85822 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 54.85822 41.71289
+57.14392 44.18903 57.14392 44.18903 54.85822 41.71289 54.85822 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 54.85822 41.71289
+57.14392 44.18903 57.14392 44.18903 54.85822 41.71289 54.85822 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 54.85822 41.71289
+57.14392 44.18903 57.14392 44.18903 54.85822 41.71289 54.85822 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 54.85822 41.71289
+57.14392 44.18903 57.14392 44.18903 54.85822 41.71289 54.85822 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 54.85822 41.71289
+57.14392 44.18903 57.14392 44.18903 54.85822 41.71289 54.85822 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 57.14392 41.71289
+59.42963 44.18903 59.42963 44.18903 57.14392 41.71289 57.14392 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 57.14392 41.71289
+59.42963 44.18903 59.42963 44.18903 57.14392 41.71289 57.14392 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 57.14392 41.71289
+59.42963 44.18903 59.42963 44.18903 57.14392 41.71289 57.14392 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 57.14392 41.71289
+59.42963 44.18903 59.42963 44.18903 57.14392 41.71289 57.14392 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 57.14392 41.71289
+59.42963 44.18903 59.42963 44.18903 57.14392 41.71289 57.14392 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 57.14392 41.71289
+59.42963 44.18903 59.42963 44.18903 57.14392 41.71289 57.14392 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 57.14392 41.71289
+59.42963 44.18903 59.42963 44.18903 57.14392 41.71289 57.14392 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 57.14392 41.71289
+59.42963 44.18903 59.42963 44.18903 57.14392 41.71289 57.14392 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 59.42981 41.71289
+61.71552 44.18903 61.71552 44.18903 59.42981 41.71289 59.42981 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 59.42981 41.71289
+61.71552 44.18903 61.71552 44.18903 59.42981 41.71289 59.42981 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 59.42981 39.23694
+61.71552 41.71307 61.71552 41.71307 59.42981 39.23694 59.42981 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 59.42981 39.23694
+61.71552 41.71307 61.71552 41.71307 59.42981 39.23694 59.42981 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 59.42981 39.23694
+61.71552 41.71307 61.71552 41.71307 59.42981 39.23694 59.42981 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 59.42981 39.23694
+61.71552 41.71307 61.71552 41.71307 59.42981 39.23694 59.42981 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 59.42981 39.23694
+61.71552 41.71307 61.71552 41.71307 59.42981 39.23694 59.42981 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 61.71552 39.23694
+64.00122 41.71307 64.00122 41.71307 61.71552 39.23694 61.71552 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 61.71552 39.23694
+64.00122 41.71307 64.00122 41.71307 61.71552 39.23694 61.71552 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 61.71552 39.23694
+64.00122 41.71307 64.00122 41.71307 61.71552 39.23694 61.71552 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 61.71552 39.23694
+64.00122 41.71307 64.00122 41.71307 61.71552 39.23694 61.71552 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 61.71552 39.23694
+64.00122 41.71307 64.00122 41.71307 61.71552 39.23694 61.71552 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 61.71552 39.23694
+64.00122 41.71307 64.00122 41.71307 61.71552 39.23694 61.71552 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 61.71552 39.23694
+64.00122 41.71307 64.00122 41.71307 61.71552 39.23694 61.71552 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 64.00122 39.23694
+66.28693 41.71307 66.28693 41.71307 64.00122 39.23694 64.00122 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 64.00122 39.23694
+66.28693 41.71307 66.28693 41.71307 64.00122 39.23694 64.00122 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 64.00122 39.23694
+66.28693 41.71307 66.28693 41.71307 64.00122 39.23694 64.00122 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 64.00122 39.23694
+66.28693 41.71307 66.28693 41.71307 64.00122 39.23694 64.00122 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 64.00122 39.23694
+66.28693 41.71307 66.28693 41.71307 64.00122 39.23694 64.00122 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 64.00122 39.23694
+66.28693 41.71307 66.28693 41.71307 64.00122 39.23694 64.00122 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 64.00122 39.23694
+66.28693 41.71307 66.28693 41.71307 64.00122 39.23694 64.00122 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 64.00122 39.23694
+66.28693 41.71307 66.28693 41.71307 64.00122 39.23694 64.00122 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 66.28711 39.23694
+68.57281 41.71307 68.57281 41.71307 66.28711 39.23694 66.28711 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 66.28711 39.23694
+68.57281 41.71307 68.57281 41.71307 66.28711 39.23694 66.28711 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 66.28711 39.23694
+68.57281 41.71307 68.57281 41.71307 66.28711 39.23694 66.28711 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 66.28711 39.23694
+68.57281 41.71307 68.57281 41.71307 66.28711 39.23694 66.28711 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 66.28711 39.23694
+68.57281 41.71307 68.57281 41.71307 66.28711 39.23694 66.28711 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 66.28711 39.23694
+68.57281 41.71307 68.57281 41.71307 66.28711 39.23694 66.28711 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 66.28711 39.23694
+68.57281 41.71307 68.57281 41.71307 66.28711 39.23694 66.28711 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 66.28711 39.23694
+68.57281 41.71307 68.57281 41.71307 66.28711 39.23694 66.28711 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 68.57281 39.23694
+70.85852 41.71307 70.85852 41.71307 68.57281 39.23694 68.57281 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 68.57281 39.23694
+70.85852 41.71307 70.85852 41.71307 68.57281 39.23694 68.57281 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 68.57281 39.23694
+70.85852 41.71307 70.85852 41.71307 68.57281 39.23694 68.57281 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 68.57281 39.23694
+70.85852 41.71307 70.85852 41.71307 68.57281 39.23694 68.57281 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 68.57281 39.23694
+70.85852 41.71307 70.85852 41.71307 68.57281 39.23694 68.57281 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 68.57281 39.23694
+70.85852 41.71307 70.85852 41.71307 68.57281 39.23694 68.57281 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 68.57281 39.23694
+70.85852 41.71307 70.85852 41.71307 68.57281 39.23694 68.57281 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 70.85852 39.23694
+73.14423 41.71307 73.14423 41.71307 70.85852 39.23694 70.85852 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 70.85852 39.23694
+73.14423 41.71307 73.14423 41.71307 70.85852 39.23694 70.85852 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 70.85852 39.23694
+73.14423 41.71307 73.14423 41.71307 70.85852 39.23694 70.85852 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 70.85852 39.23694
+73.14423 41.71307 73.14423 41.71307 70.85852 39.23694 70.85852 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 70.85852 39.23694
+73.14423 41.71307 73.14423 41.71307 70.85852 39.23694 70.85852 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 70.85852 39.23694
+73.14423 41.71307 73.14423 41.71307 70.85852 39.23694 70.85852 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 70.85852 39.23694
+73.14423 41.71307 73.14423 41.71307 70.85852 39.23694 70.85852 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 70.85852 39.23694
+73.14423 41.71307 73.14423 41.71307 70.85852 39.23694 70.85852 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 73.14441 39.23694
+75.43011 41.71307 75.43011 41.71307 73.14441 39.23694 73.14441 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 73.14441 39.23694
+75.43011 41.71307 75.43011 41.71307 73.14441 39.23694 73.14441 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 73.14441 39.23694
+75.43011 41.71307 75.43011 41.71307 73.14441 39.23694 73.14441 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 73.14441 39.23694
+75.43011 41.71307 75.43011 41.71307 73.14441 39.23694 73.14441 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 73.14441 39.23694
+75.43011 41.71307 75.43011 41.71307 73.14441 39.23694 73.14441 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 73.14441 39.23694
+75.43011 41.71307 75.43011 41.71307 73.14441 39.23694 73.14441 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 73.14441 39.23694
+75.43011 41.71307 75.43011 41.71307 73.14441 39.23694 73.14441 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 73.14441 39.23694
+75.43011 41.71307 75.43011 41.71307 73.14441 39.23694 73.14441 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 75.43011 39.23694
+77.71582 41.71307 77.71582 41.71307 75.43011 39.23694 75.43011 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 75.43011 39.23694
+77.71582 41.71307 77.71582 41.71307 75.43011 39.23694 75.43011 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 75.43011 39.23694
+77.71582 41.71307 77.71582 41.71307 75.43011 39.23694 75.43011 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 39.23694 75.43011 39.23694
+77.71582 41.71307 77.71582 41.71307 75.43011 39.23694 75.43011 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 75.43011 41.71289
+77.71582 44.18903 77.71582 44.18903 75.43011 41.71289 75.43011 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 75.43011 41.71289
+77.71582 44.18903 77.71582 44.18903 75.43011 41.71289 75.43011 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 75.43011 41.71289
+77.71582 44.18903 77.71582 44.18903 75.43011 41.71289 75.43011 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 75.43011 41.71289
+77.71582 44.18903 77.71582 44.18903 75.43011 41.71289 75.43011 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 77.71582 41.71289
+80.00153 44.18903 80.00153 44.18903 77.71582 41.71289 77.71582 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 77.71582 41.71289
+80.00153 44.18903 80.00153 44.18903 77.71582 41.71289 77.71582 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 77.71582 41.71289
+80.00153 44.18903 80.00153 44.18903 77.71582 41.71289 77.71582 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 77.71582 41.71289
+80.00153 44.18903 80.00153 44.18903 77.71582 41.71289 77.71582 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 77.71582 41.71289
+80.00153 44.18903 80.00153 44.18903 77.71582 41.71289 77.71582 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 77.71582 41.71289
+80.00153 44.18903 80.00153 44.18903 77.71582 41.71289 77.71582 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 77.71582 41.71289
+80.00153 44.18903 80.00153 44.18903 77.71582 41.71289 77.71582 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 77.71582 41.71289
+80.00153 44.18903 80.00153 44.18903 77.71582 41.71289 77.71582 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 80.00153 41.71289
+82.28723 44.18903 82.28723 44.18903 80.00153 41.71289 80.00153 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 80.00153 41.71289
+82.28723 44.18903 82.28723 44.18903 80.00153 41.71289 80.00153 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 80.00153 41.71289
+82.28723 44.18903 82.28723 44.18903 80.00153 41.71289 80.00153 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 80.00153 41.71289
+82.28723 44.18903 82.28723 44.18903 80.00153 41.71289 80.00153 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 80.00153 41.71289
+82.28723 44.18903 82.28723 44.18903 80.00153 41.71289 80.00153 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 80.00153 41.71289
+82.28723 44.18903 82.28723 44.18903 80.00153 41.71289 80.00153 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 80.00153 41.71289
+82.28723 44.18903 82.28723 44.18903 80.00153 41.71289 80.00153 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 80.00153 41.71289
+82.28723 44.18903 82.28723 44.18903 80.00153 41.71289 80.00153 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 82.28741 41.71289
+84.57312 44.18903 84.57312 44.18903 82.28741 41.71289 82.28741 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 82.28741 41.71289
+84.57312 44.18903 84.57312 44.18903 82.28741 41.71289 82.28741 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 82.28741 41.71289
+84.57312 44.18903 84.57312 44.18903 82.28741 41.71289 82.28741 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 82.28741 41.71289
+84.57312 44.18903 84.57312 44.18903 82.28741 41.71289 82.28741 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 41.71289 82.28741 41.71289
+84.57312 44.18903 84.57312 44.18903 82.28741 41.71289 82.28741 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 82.28741 44.18903
+84.57312 46.66516 84.57312 46.66516 82.28741 44.18903 82.28741 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 82.28741 44.18903
+84.57312 46.66516 84.57312 46.66516 82.28741 44.18903 82.28741 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 82.28741 44.18903
+84.57312 46.66516 84.57312 46.66516 82.28741 44.18903 82.28741 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 84.57312 44.18903
+86.85883 46.66516 86.85883 46.66516 84.57312 44.18903 84.57312 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 84.57312 44.18903
+86.85883 46.66516 86.85883 46.66516 84.57312 44.18903 84.57312 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 84.57312 44.18903
+86.85883 46.66516 86.85883 46.66516 84.57312 44.18903 84.57312 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 84.57312 44.18903
+86.85883 46.66516 86.85883 46.66516 84.57312 44.18903 84.57312 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 84.57312 44.18903
+86.85883 46.66516 86.85883 46.66516 84.57312 44.18903 84.57312 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 84.57312 44.18903
+86.85883 46.66516 86.85883 46.66516 84.57312 44.18903 84.57312 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 84.57312 44.18903
+86.85883 46.66516 86.85883 46.66516 84.57312 44.18903 84.57312 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 84.57312 44.18903
+86.85883 46.66516 86.85883 46.66516 84.57312 44.18903 84.57312 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 84.57312 44.18903
+86.85883 46.66516 86.85883 46.66516 84.57312 44.18903 84.57312 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 86.85883 44.18903
+89.14453 46.66516 89.14453 46.66516 86.85883 44.18903 86.85883 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 86.85883 44.18903
+89.14453 46.66516 89.14453 46.66516 86.85883 44.18903 86.85883 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 86.85883 44.18903
+89.14453 46.66516 89.14453 46.66516 86.85883 44.18903 86.85883 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 86.85883 44.18903
+89.14453 46.66516 89.14453 46.66516 86.85883 44.18903 86.85883 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 44.18903 86.85883 44.18903
+89.14453 46.66516 89.14453 46.66516 86.85883 44.18903 86.85883 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 86.85883 46.66516
+89.14453 49.1413 89.14453 49.1413 86.85883 46.66516 86.85883 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 86.85883 46.66516
+89.14453 49.1413 89.14453 49.1413 86.85883 46.66516 86.85883 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 86.85883 46.66516
+89.14453 49.1413 89.14453 49.1413 86.85883 46.66516 86.85883 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 86.85883 46.66516
+89.14453 49.1413 89.14453 49.1413 86.85883 46.66516 86.85883 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 89.14471 46.66516
+91.43042 49.1413 91.43042 49.1413 89.14471 46.66516 89.14471 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 89.14471 46.66516
+91.43042 49.1413 91.43042 49.1413 89.14471 46.66516 89.14471 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 89.14471 46.66516
+91.43042 49.1413 91.43042 49.1413 89.14471 46.66516 89.14471 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 89.14471 46.66516
+91.43042 49.1413 91.43042 49.1413 89.14471 46.66516 89.14471 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 89.14471 46.66516
+91.43042 49.1413 91.43042 49.1413 89.14471 46.66516 89.14471 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 89.14471 46.66516
+91.43042 49.1413 91.43042 49.1413 89.14471 46.66516 89.14471 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 89.14471 46.66516
+91.43042 49.1413 91.43042 49.1413 89.14471 46.66516 89.14471 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 89.14471 46.66516
+91.43042 49.1413 91.43042 49.1413 89.14471 46.66516 89.14471 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 89.14471 46.66516
+91.43042 49.1413 91.43042 49.1413 89.14471 46.66516 89.14471 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 91.43042 46.66516
+93.71613 49.1413 93.71613 49.1413 91.43042 46.66516 91.43042 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 91.43042 46.66516
+93.71613 49.1413 93.71613 49.1413 91.43042 46.66516 91.43042 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 91.43042 49.14111
+93.71613 51.61725 93.71613 51.61725 91.43042 49.14111 91.43042 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 91.43042 49.14111
+93.71613 51.61725 93.71613 51.61725 91.43042 49.14111 91.43042 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 91.43042 49.14111
+93.71613 51.61725 93.71613 51.61725 91.43042 49.14111 91.43042 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 91.43042 49.14111
+93.71613 51.61725 93.71613 51.61725 91.43042 49.14111 91.43042 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 91.43042 49.14111
+93.71613 51.61725 93.71613 51.61725 91.43042 49.14111 91.43042 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 91.43042 49.14111
+93.71613 51.61725 93.71613 51.61725 91.43042 49.14111 91.43042 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 91.43042 49.14111
+93.71613 51.61725 93.71613 51.61725 91.43042 49.14111 91.43042 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 91.43042 49.14111
+93.71613 51.61725 93.71613 51.61725 91.43042 49.14111 91.43042 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 93.71613 49.14111
+96.00183 51.61725 96.00183 51.61725 93.71613 49.14111 93.71613 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 93.71613 49.14111
+96.00183 51.61725 96.00183 51.61725 93.71613 49.14111 93.71613 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 93.71613 49.14111
+96.00183 51.61725 96.00183 51.61725 93.71613 49.14111 93.71613 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 93.71613 49.14111
+96.00183 51.61725 96.00183 51.61725 93.71613 49.14111 93.71613 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 93.71613 49.14111
+96.00183 51.61725 96.00183 51.61725 93.71613 49.14111 93.71613 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 93.71613 51.61725
+96.00183 54.09338 96.00183 54.09338 93.71613 51.61725 93.71613 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 93.71613 51.61725
+96.00183 54.09338 96.00183 54.09338 93.71613 51.61725 93.71613 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 93.71613 51.61725
+96.00183 54.09338 96.00183 54.09338 93.71613 51.61725 93.71613 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 93.71613 51.61725
+96.00183 54.09338 96.00183 54.09338 93.71613 51.61725 93.71613 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 93.71613 51.61725
+96.00183 54.09338 96.00183 54.09338 93.71613 51.61725 93.71613 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 96.00183 51.61725
+98.28754 54.09338 98.28754 54.09338 96.00183 51.61725 96.00183 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 96.00183 51.61725
+98.28754 54.09338 98.28754 54.09338 96.00183 51.61725 96.00183 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 96.00183 51.61725
+98.28754 54.09338 98.28754 54.09338 96.00183 51.61725 96.00183 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 96.00183 51.61725
+98.28754 54.09338 98.28754 54.09338 96.00183 51.61725 96.00183 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 96.00183 51.61725
+98.28754 54.09338 98.28754 54.09338 96.00183 51.61725 96.00183 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 96.00183 51.61725
+98.28754 54.09338 98.28754 54.09338 96.00183 51.61725 96.00183 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 96.00183 51.61725
+98.28754 54.09338 98.28754 54.09338 96.00183 51.61725 96.00183 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 96.00183 54.09338
+98.28754 56.56952 98.28754 56.56952 96.00183 54.09338 96.00183 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 96.00183 54.09338
+98.28754 56.56952 98.28754 56.56952 96.00183 54.09338 96.00183 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 96.00183 54.09338
+98.28754 56.56952 98.28754 56.56952 96.00183 54.09338 96.00183 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 96.00183 54.09338
+98.28754 56.56952 98.28754 56.56952 96.00183 54.09338 96.00183 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 98.28772 54.09338
+100.57343 56.56952 100.57343 56.56952 98.28772 54.09338 98.28772
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 98.28772 54.09338
+100.57343 56.56952 100.57343 56.56952 98.28772 54.09338 98.28772
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 98.28772 54.09338
+100.57343 56.56952 100.57343 56.56952 98.28772 54.09338 98.28772
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 98.28772 54.09338
+100.57343 56.56952 100.57343 56.56952 98.28772 54.09338 98.28772
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 98.28772 54.09338
+100.57343 56.56952 100.57343 56.56952 98.28772 54.09338 98.28772
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 98.28772 54.09338
+100.57343 56.56952 100.57343 56.56952 98.28772 54.09338 98.28772
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 98.28772 56.56952
+100.57343 59.04565 100.57343 59.04565 98.28772 56.56952 98.28772
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 98.28772 56.56952
+100.57343 59.04565 100.57343 59.04565 98.28772 56.56952 98.28772
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 98.28772 56.56952
+100.57343 59.04565 100.57343 59.04565 98.28772 56.56952 98.28772
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 98.28772 56.56952
+100.57343 59.04565 100.57343 59.04565 98.28772 56.56952 98.28772
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 98.28772 56.56952
+100.57343 59.04565 100.57343 59.04565 98.28772 56.56952 98.28772
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 98.28772 56.56952
+100.57343 59.04565 100.57343 59.04565 98.28772 56.56952 98.28772
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 100.57343 56.56952
+102.85913 59.04565 102.85913 59.04565 100.57343 56.56952 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 100.57343 56.56952
+102.85913 59.04565 102.85913 59.04565 100.57343 56.56952 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 100.57343 56.56952
+102.85913 59.04565 102.85913 59.04565 100.57343 56.56952 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 100.57343 56.56952
+102.85913 59.04565 102.85913 59.04565 100.57343 56.56952 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 100.57343 56.56952
+102.85913 59.04565 102.85913 59.04565 100.57343 56.56952 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 100.57343 59.04547
+102.85913 61.5216 102.85913 61.5216 100.57343 59.04547 100.57343
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 100.57343 59.04547
+102.85913 61.5216 102.85913 61.5216 100.57343 59.04547 100.57343
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 100.57343 59.04547
+102.85913 61.5216 102.85913 61.5216 100.57343 59.04547 100.57343
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 100.57343 59.04547
+102.85913 61.5216 102.85913 61.5216 100.57343 59.04547 100.57343
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 100.57343 59.04547
+102.85913 61.5216 102.85913 61.5216 100.57343 59.04547 100.57343
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 100.57343 59.04547
+102.85913 61.5216 102.85913 61.5216 100.57343 59.04547 100.57343
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 100.57343 59.04547
+102.85913 61.5216 102.85913 61.5216 100.57343 59.04547 100.57343
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 102.85913 59.04547
+105.14484 61.5216 105.14484 61.5216 102.85913 59.04547 102.85913
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 102.85913 59.04547
+105.14484 61.5216 105.14484 61.5216 102.85913 59.04547 102.85913
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 102.85913 59.04547
+105.14484 61.5216 105.14484 61.5216 102.85913 59.04547 102.85913
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 102.85913 61.5216
+105.14484 63.99774 105.14484 63.99774 102.85913 61.5216 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 102.85913 61.5216
+105.14484 63.99774 105.14484 63.99774 102.85913 61.5216 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 102.85913 61.5216
+105.14484 63.99774 105.14484 63.99774 102.85913 61.5216 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 102.85913 61.5216
+105.14484 63.99774 105.14484 63.99774 102.85913 61.5216 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 102.85913 61.5216
+105.14484 63.99774 105.14484 63.99774 102.85913 61.5216 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 102.85913 61.5216
+105.14484 63.99774 105.14484 63.99774 102.85913 61.5216 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 102.85913 61.5216
+105.14484 63.99774 105.14484 63.99774 102.85913 61.5216 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 102.85913 61.5216
+105.14484 63.99774 105.14484 63.99774 102.85913 61.5216 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 102.85913 61.5216
+105.14484 63.99774 105.14484 63.99774 102.85913 61.5216 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 102.85913 61.5216
+105.14484 63.99774 105.14484 63.99774 102.85913 61.5216 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 102.85913 63.99774
+105.14484 66.47388 105.14484 66.47388 102.85913 63.99774 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 105.14502 63.99774
+107.43073 66.47388 107.43073 66.47388 105.14502 63.99774 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 105.14502 63.99774
+107.43073 66.47388 107.43073 66.47388 105.14502 63.99774 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 105.14502 63.99774
+107.43073 66.47388 107.43073 66.47388 105.14502 63.99774 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 105.14502 63.99774
+107.43073 66.47388 107.43073 66.47388 105.14502 63.99774 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 105.14502 63.99774
+107.43073 66.47388 107.43073 66.47388 105.14502 63.99774 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 105.14502 63.99774
+107.43073 66.47388 107.43073 66.47388 105.14502 63.99774 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 105.14502 63.99774
+107.43073 66.47388 107.43073 66.47388 105.14502 63.99774 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 105.14502 63.99774
+107.43073 66.47388 107.43073 66.47388 105.14502 63.99774 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 105.14502 66.4737
+107.43073 68.94983 107.43073 68.94983 105.14502 66.4737 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 105.14502 66.4737
+107.43073 68.94983 107.43073 68.94983 105.14502 66.4737 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 105.14502 66.4737
+107.43073 68.94983 107.43073 68.94983 105.14502 66.4737 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 105.14502 66.4737
+107.43073 68.94983 107.43073 68.94983 105.14502 66.4737 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 105.14502 66.4737
+107.43073 68.94983 107.43073 68.94983 105.14502 66.4737 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 105.14502 66.4737
+107.43073 68.94983 107.43073 68.94983 105.14502 66.4737 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 105.14502 66.4737
+107.43073 68.94983 107.43073 68.94983 105.14502 66.4737 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 105.14502 66.4737
+107.43073 68.94983 107.43073 68.94983 105.14502 66.4737 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 107.43073 66.4737
+109.71643 68.94983 109.71643 68.94983 107.43073 66.4737 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 107.43073 68.94983
+109.71643 71.42596 109.71643 71.42596 107.43073 68.94983 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 107.43073 68.94983
+109.71643 71.42596 109.71643 71.42596 107.43073 68.94983 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 107.43073 68.94983
+109.71643 71.42596 109.71643 71.42596 107.43073 68.94983 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 107.43073 68.94983
+109.71643 71.42596 109.71643 71.42596 107.43073 68.94983 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 107.43073 68.94983
+109.71643 71.42596 109.71643 71.42596 107.43073 68.94983 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 107.43073 68.94983
+109.71643 71.42596 109.71643 71.42596 107.43073 68.94983 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 107.43073 68.94983
+109.71643 71.42596 109.71643 71.42596 107.43073 68.94983 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 107.43073 68.94983
+109.71643 71.42596 109.71643 71.42596 107.43073 68.94983 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 107.43073 68.94983
+109.71643 71.42596 109.71643 71.42596 107.43073 68.94983 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 71.42596 107.43073 71.42596
+109.71643 73.9021 109.71643 73.9021 107.43073 71.42596 107.43073
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 71.42596 107.43073 71.42596
+109.71643 73.9021 109.71643 73.9021 107.43073 71.42596 107.43073
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 71.42596 107.43073 71.42596
+109.71643 73.9021 109.71643 73.9021 107.43073 71.42596 107.43073
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 71.42596 107.43073 71.42596
+109.71643 73.9021 109.71643 73.9021 107.43073 71.42596 107.43073
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 71.42596 107.43073 71.42596
+109.71643 73.9021 109.71643 73.9021 107.43073 71.42596 107.43073
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 71.42596 107.43073 71.42596
+109.71643 73.9021 109.71643 73.9021 107.43073 71.42596 107.43073
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 71.42596 107.43073 71.42596
+109.71643 73.9021 109.71643 73.9021 107.43073 71.42596 107.43073
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 71.42596 107.43073 71.42596
+109.71643 73.9021 109.71643 73.9021 107.43073 71.42596 107.43073
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 71.42596 107.43073 71.42596
+109.71643 73.9021 109.71643 73.9021 107.43073 71.42596 107.43073
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 73.90192 107.43073 73.90192
+109.71643 76.37805 109.71643 76.37805 107.43073 73.90192 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 73.90192 109.71643 73.90192
+112.00214 76.37805 112.00214 76.37805 109.71643 73.90192 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 73.90192 109.71643 73.90192
+112.00214 76.37805 112.00214 76.37805 109.71643 73.90192 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 73.90192 109.71643 73.90192
+112.00214 76.37805 112.00214 76.37805 109.71643 73.90192 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 73.90192 109.71643 73.90192
+112.00214 76.37805 112.00214 76.37805 109.71643 73.90192 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 73.90192 109.71643 73.90192
+112.00214 76.37805 112.00214 76.37805 109.71643 73.90192 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 73.90192 109.71643 73.90192
+112.00214 76.37805 112.00214 76.37805 109.71643 73.90192 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 73.90192 109.71643 73.90192
+112.00214 76.37805 112.00214 76.37805 109.71643 73.90192 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 73.90192 109.71643 73.90192
+112.00214 76.37805 112.00214 76.37805 109.71643 73.90192 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.37805 109.71643 76.37805
+112.00214 78.85419 112.00214 78.85419 109.71643 76.37805 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.37805 109.71643 76.37805
+112.00214 78.85419 112.00214 78.85419 109.71643 76.37805 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.37805 109.71643 76.37805
+112.00214 78.85419 112.00214 78.85419 109.71643 76.37805 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.37805 109.71643 76.37805
+112.00214 78.85419 112.00214 78.85419 109.71643 76.37805 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.37805 109.71643 76.37805
+112.00214 78.85419 112.00214 78.85419 109.71643 76.37805 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.37805 109.71643 76.37805
+112.00214 78.85419 112.00214 78.85419 109.71643 76.37805 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.37805 109.71643 76.37805
+112.00214 78.85419 112.00214 78.85419 109.71643 76.37805 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.37805 109.71643 76.37805
+112.00214 78.85419 112.00214 78.85419 109.71643 76.37805 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 78.85419 109.71643 78.85419
+112.00214 81.33032 112.00214 81.33032 109.71643 78.85419 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 78.85419 109.71643 78.85419
+112.00214 81.33032 112.00214 81.33032 109.71643 78.85419 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 78.85419 109.71643 78.85419
+112.00214 81.33032 112.00214 81.33032 109.71643 78.85419 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 78.85419 109.71643 78.85419
+112.00214 81.33032 112.00214 81.33032 109.71643 78.85419 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 78.85419 109.71643 78.85419
+112.00214 81.33032 112.00214 81.33032 109.71643 78.85419 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 78.85419 109.71643 78.85419
+112.00214 81.33032 112.00214 81.33032 109.71643 78.85419 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 78.85419 109.71643 78.85419
+112.00214 81.33032 112.00214 81.33032 109.71643 78.85419 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 78.85419 109.71643 78.85419
+112.00214 81.33032 112.00214 81.33032 109.71643 78.85419 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 78.85419 109.71643 78.85419
+112.00214 81.33032 112.00214 81.33032 109.71643 78.85419 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33032 109.71643 81.33032
+112.00214 83.80646 112.00214 83.80646 109.71643 81.33032 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33032 109.71643 81.33032
+112.00214 83.80646 112.00214 83.80646 109.71643 81.33032 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33032 109.71643 81.33032
+112.00214 83.80646 112.00214 83.80646 109.71643 81.33032 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33032 112.00232 81.33032
+114.28802 83.80646 114.28802 83.80646 112.00232 81.33032 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33032 112.00232 81.33032
+114.28802 83.80646 114.28802 83.80646 112.00232 81.33032 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33032 112.00232 81.33032
+114.28802 83.80646 114.28802 83.80646 112.00232 81.33032 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33032 112.00232 81.33032
+114.28802 83.80646 114.28802 83.80646 112.00232 81.33032 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33032 112.00232 81.33032
+114.28802 83.80646 114.28802 83.80646 112.00232 81.33032 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33032 112.00232 81.33032
+114.28802 83.80646 114.28802 83.80646 112.00232 81.33032 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 83.80627 112.00232 83.80627
+114.28802 86.28241 114.28802 86.28241 112.00232 83.80627 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 83.80627 112.00232 83.80627
+114.28802 86.28241 114.28802 86.28241 112.00232 83.80627 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 83.80627 112.00232 83.80627
+114.28802 86.28241 114.28802 86.28241 112.00232 83.80627 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 83.80627 112.00232 83.80627
+114.28802 86.28241 114.28802 86.28241 112.00232 83.80627 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 83.80627 112.00232 83.80627
+114.28802 86.28241 114.28802 86.28241 112.00232 83.80627 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 83.80627 112.00232 83.80627
+114.28802 86.28241 114.28802 86.28241 112.00232 83.80627 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 83.80627 112.00232 83.80627
+114.28802 86.28241 114.28802 86.28241 112.00232 83.80627 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 83.80627 112.00232 83.80627
+114.28802 86.28241 114.28802 86.28241 112.00232 83.80627 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 86.28241 112.00232 86.28241
+114.28802 88.75854 114.28802 88.75854 112.00232 86.28241 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 86.28241 112.00232 86.28241
+114.28802 88.75854 114.28802 88.75854 112.00232 86.28241 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 86.28241 112.00232 86.28241
+114.28802 88.75854 114.28802 88.75854 112.00232 86.28241 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 86.28241 112.00232 86.28241
+114.28802 88.75854 114.28802 88.75854 112.00232 86.28241 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 86.28241 112.00232 86.28241
+114.28802 88.75854 114.28802 88.75854 112.00232 86.28241 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 86.28241 112.00232 86.28241
+114.28802 88.75854 114.28802 88.75854 112.00232 86.28241 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 86.28241 112.00232 86.28241
+114.28802 88.75854 114.28802 88.75854 112.00232 86.28241 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 86.28241 112.00232 86.28241
+114.28802 88.75854 114.28802 88.75854 112.00232 86.28241 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 86.28241 112.00232 86.28241
+114.28802 88.75854 114.28802 88.75854 112.00232 86.28241 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 88.75854 112.00232 88.75854
+114.28802 91.23468 114.28802 91.23468 112.00232 88.75854 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 88.75854 112.00232 88.75854
+114.28802 91.23468 114.28802 91.23468 112.00232 88.75854 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 88.75854 112.00232 88.75854
+114.28802 91.23468 114.28802 91.23468 112.00232 88.75854 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 88.75854 112.00232 88.75854
+114.28802 91.23468 114.28802 91.23468 112.00232 88.75854 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 88.75854 112.00232 88.75854
+114.28802 91.23468 114.28802 91.23468 112.00232 88.75854 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 88.75854 112.00232 88.75854
+114.28802 91.23468 114.28802 91.23468 112.00232 88.75854 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 88.75854 112.00232 88.75854
+114.28802 91.23468 114.28802 91.23468 112.00232 88.75854 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 88.75854 112.00232 88.75854
+114.28802 91.23468 114.28802 91.23468 112.00232 88.75854 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 91.2345 112.00232 91.2345
+114.28802 93.71063 114.28802 93.71063 112.00232 91.2345 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 91.2345 112.00232 91.2345
+114.28802 93.71063 114.28802 93.71063 112.00232 91.2345 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 91.2345 112.00232 91.2345
+114.28802 93.71063 114.28802 93.71063 112.00232 91.2345 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 91.2345 112.00232 91.2345
+114.28802 93.71063 114.28802 93.71063 112.00232 91.2345 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 91.2345 112.00232 91.2345
+114.28802 93.71063 114.28802 93.71063 112.00232 91.2345 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 91.2345 112.00232 91.2345
+114.28802 93.71063 114.28802 93.71063 112.00232 91.2345 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 91.2345 112.00232 91.2345
+114.28802 93.71063 114.28802 93.71063 112.00232 91.2345 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 91.2345 112.00232 91.2345
+114.28802 93.71063 114.28802 93.71063 112.00232 91.2345 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 91.2345 112.00232 91.2345
+114.28802 93.71063 114.28802 93.71063 112.00232 91.2345 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 112.00232 93.71063
+114.28802 96.18677 114.28802 96.18677 112.00232 93.71063 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 112.00232 93.71063
+114.28802 96.18677 114.28802 96.18677 112.00232 93.71063 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 112.00232 93.71063
+114.28802 96.18677 114.28802 96.18677 112.00232 93.71063 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 112.00232 93.71063
+114.28802 96.18677 114.28802 96.18677 112.00232 93.71063 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 112.00232 93.71063
+114.28802 96.18677 114.28802 96.18677 112.00232 93.71063 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 112.00232 93.71063
+114.28802 96.18677 114.28802 96.18677 112.00232 93.71063 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 112.00232 93.71063
+114.28802 96.18677 114.28802 96.18677 112.00232 93.71063 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 112.00232 93.71063
+114.28802 96.18677 114.28802 96.18677 112.00232 93.71063 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 112.00232 93.71063
+114.28802 96.18677 114.28802 96.18677 112.00232 93.71063 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 96.18677 112.00232 96.18677
+114.28802 98.6629 114.28802 98.6629 112.00232 96.18677 112.00232
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 96.18677 112.00232 96.18677
+114.28802 98.6629 114.28802 98.6629 112.00232 96.18677 112.00232
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 96.18677 112.00232 96.18677
+114.28802 98.6629 114.28802 98.6629 112.00232 96.18677 112.00232
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 96.18677 112.00232 96.18677
+114.28802 98.6629 114.28802 98.6629 112.00232 96.18677 112.00232
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 96.18677 112.00232 96.18677
+114.28802 98.6629 114.28802 98.6629 112.00232 96.18677 112.00232
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 96.18677 112.00232 96.18677
+114.28802 98.6629 114.28802 98.6629 112.00232 96.18677 112.00232
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 96.18677 112.00232 96.18677
+114.28802 98.6629 114.28802 98.6629 112.00232 96.18677 112.00232
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 96.18677 112.00232 96.18677
+114.28802 98.6629 114.28802 98.6629 112.00232 96.18677 112.00232
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 112.00232 98.66272
+114.28802 101.13885 114.28802 101.13885 112.00232 98.66272 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 112.00232 98.66272
+114.28802 101.13885 114.28802 101.13885 112.00232 98.66272 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 112.00232 98.66272
+114.28802 101.13885 114.28802 101.13885 112.00232 98.66272 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 112.00232 98.66272
+114.28802 101.13885 114.28802 101.13885 112.00232 98.66272 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 112.00232 98.66272
+114.28802 101.13885 114.28802 101.13885 112.00232 98.66272 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 112.00232 98.66272
+114.28802 101.13885 114.28802 101.13885 112.00232 98.66272 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 112.00232 98.66272
+114.28802 101.13885 114.28802 101.13885 112.00232 98.66272 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 112.00232 98.66272
+114.28802 101.13885 114.28802 101.13885 112.00232 98.66272 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 112.00232 98.66272
+114.28802 101.13885 114.28802 101.13885 112.00232 98.66272 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 112.00232 98.66272
+114.28802 101.13885 114.28802 101.13885 112.00232 98.66272 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 112.00232 101.13885
+114.28802 103.61499 114.28802 103.61499 112.00232 101.13885 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 112.00232 101.13885
+114.28802 103.61499 114.28802 103.61499 112.00232 101.13885 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 112.00232 101.13885
+114.28802 103.61499 114.28802 103.61499 112.00232 101.13885 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 112.00232 101.13885
+114.28802 103.61499 114.28802 103.61499 112.00232 101.13885 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 112.00232 101.13885
+114.28802 103.61499 114.28802 103.61499 112.00232 101.13885 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 112.00232 101.13885
+114.28802 103.61499 114.28802 103.61499 112.00232 101.13885 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 112.00232 101.13885
+114.28802 103.61499 114.28802 103.61499 112.00232 101.13885 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 112.00232 101.13885
+114.28802 103.61499 114.28802 103.61499 112.00232 101.13885 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 112.00232 101.13885
+114.28802 103.61499 114.28802 103.61499 112.00232 101.13885 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 112.00232 103.61499
+114.28802 106.09113 114.28802 106.09113 112.00232 103.61499 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 112.00232 103.61499
+114.28802 106.09113 114.28802 106.09113 112.00232 103.61499 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 112.00232 103.61499
+114.28802 106.09113 114.28802 106.09113 112.00232 103.61499 112.00232
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 109.71643 103.61499
+112.00214 106.09113 112.00214 106.09113 109.71643 103.61499 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 109.71643 103.61499
+112.00214 106.09113 112.00214 106.09113 109.71643 103.61499 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 109.71643 103.61499
+112.00214 106.09113 112.00214 106.09113 109.71643 103.61499 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 109.71643 103.61499
+112.00214 106.09113 112.00214 106.09113 109.71643 103.61499 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 109.71643 103.61499
+112.00214 106.09113 112.00214 106.09113 109.71643 103.61499 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 109.71643 103.61499
+112.00214 106.09113 112.00214 106.09113 109.71643 103.61499 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 109.71643 106.09113
+112.00214 108.56726 112.00214 108.56726 109.71643 106.09113 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 109.71643 106.09113
+112.00214 108.56726 112.00214 108.56726 109.71643 106.09113 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 109.71643 106.09113
+112.00214 108.56726 112.00214 108.56726 109.71643 106.09113 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 109.71643 106.09113
+112.00214 108.56726 112.00214 108.56726 109.71643 106.09113 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 109.71643 106.09113
+112.00214 108.56726 112.00214 108.56726 109.71643 106.09113 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 109.71643 106.09113
+112.00214 108.56726 112.00214 108.56726 109.71643 106.09113 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 109.71643 106.09113
+112.00214 108.56726 112.00214 108.56726 109.71643 106.09113 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 109.71643 106.09113
+112.00214 108.56726 112.00214 108.56726 109.71643 106.09113 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 109.71643 106.09113
+112.00214 108.56726 112.00214 108.56726 109.71643 106.09113 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 109.71643 106.09113
+112.00214 108.56726 112.00214 108.56726 109.71643 106.09113 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 109.71643 108.56708
+112.00214 111.04321 112.00214 111.04321 109.71643 108.56708 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 109.71643 108.56708
+112.00214 111.04321 112.00214 111.04321 109.71643 108.56708 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 109.71643 108.56708
+112.00214 111.04321 112.00214 111.04321 109.71643 108.56708 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 109.71643 108.56708
+112.00214 111.04321 112.00214 111.04321 109.71643 108.56708 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 109.71643 108.56708
+112.00214 111.04321 112.00214 111.04321 109.71643 108.56708 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 109.71643 108.56708
+112.00214 111.04321 112.00214 111.04321 109.71643 108.56708 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 109.71643 108.56708
+112.00214 111.04321 112.00214 111.04321 109.71643 108.56708 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 109.71643 108.56708
+112.00214 111.04321 112.00214 111.04321 109.71643 108.56708 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 109.71643 108.56708
+112.00214 111.04321 112.00214 111.04321 109.71643 108.56708 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 109.71643 111.04321
+112.00214 113.51935 112.00214 113.51935 109.71643 111.04321 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 109.71643 111.04321
+112.00214 113.51935 112.00214 113.51935 109.71643 111.04321 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 109.71643 111.04321
+112.00214 113.51935 112.00214 113.51935 109.71643 111.04321 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 109.71643 111.04321
+112.00214 113.51935 112.00214 113.51935 109.71643 111.04321 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 109.71643 111.04321
+112.00214 113.51935 112.00214 113.51935 109.71643 111.04321 109.71643
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 107.43073 111.04321
+109.71643 113.51935 109.71643 113.51935 107.43073 111.04321 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 107.43073 111.04321
+109.71643 113.51935 109.71643 113.51935 107.43073 111.04321 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 107.43073 111.04321
+109.71643 113.51935 109.71643 113.51935 107.43073 111.04321 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 107.43073 111.04321
+109.71643 113.51935 109.71643 113.51935 107.43073 111.04321 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 107.43073 111.04321
+109.71643 113.51935 109.71643 113.51935 107.43073 111.04321 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 107.43073 113.51935
+109.71643 115.99548 109.71643 115.99548 107.43073 113.51935 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 107.43073 113.51935
+109.71643 115.99548 109.71643 115.99548 107.43073 113.51935 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 107.43073 113.51935
+109.71643 115.99548 109.71643 115.99548 107.43073 113.51935 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 107.43073 113.51935
+109.71643 115.99548 109.71643 115.99548 107.43073 113.51935 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 107.43073 113.51935
+109.71643 115.99548 109.71643 115.99548 107.43073 113.51935 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 107.43073 113.51935
+109.71643 115.99548 109.71643 115.99548 107.43073 113.51935 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 107.43073 113.51935
+109.71643 115.99548 109.71643 115.99548 107.43073 113.51935 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 107.43073 113.51935
+109.71643 115.99548 109.71643 115.99548 107.43073 113.51935 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 107.43073 113.51935
+109.71643 115.99548 109.71643 115.99548 107.43073 113.51935 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 107.43073 113.51935
+109.71643 115.99548 109.71643 115.99548 107.43073 113.51935 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 107.43073 113.51935
+109.71643 115.99548 109.71643 115.99548 107.43073 113.51935 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 107.43073 115.9953
+109.71643 118.47144 109.71643 118.47144 107.43073 115.9953 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 107.43073 115.9953
+109.71643 118.47144 109.71643 118.47144 107.43073 115.9953 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 107.43073 115.9953
+109.71643 118.47144 109.71643 118.47144 107.43073 115.9953 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 107.43073 115.9953
+109.71643 118.47144 109.71643 118.47144 107.43073 115.9953 107.43073
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 105.14502 115.9953
+107.43073 118.47144 107.43073 118.47144 105.14502 115.9953 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 105.14502 115.9953
+107.43073 118.47144 107.43073 118.47144 105.14502 115.9953 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 105.14502 115.9953
+107.43073 118.47144 107.43073 118.47144 105.14502 115.9953 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 105.14502 115.9953
+107.43073 118.47144 107.43073 118.47144 105.14502 115.9953 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 105.14502 115.9953
+107.43073 118.47144 107.43073 118.47144 105.14502 115.9953 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 105.14502 115.9953
+107.43073 118.47144 107.43073 118.47144 105.14502 115.9953 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 105.14502 115.9953
+107.43073 118.47144 107.43073 118.47144 105.14502 115.9953 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 105.14502 118.47144
+107.43073 120.94757 107.43073 120.94757 105.14502 118.47144 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 105.14502 118.47144
+107.43073 120.94757 107.43073 120.94757 105.14502 118.47144 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 105.14502 118.47144
+107.43073 120.94757 107.43073 120.94757 105.14502 118.47144 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 105.14502 118.47144
+107.43073 120.94757 107.43073 120.94757 105.14502 118.47144 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 105.14502 118.47144
+107.43073 120.94757 107.43073 120.94757 105.14502 118.47144 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 105.14502 118.47144
+107.43073 120.94757 107.43073 120.94757 105.14502 118.47144 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 105.14502 118.47144
+107.43073 120.94757 107.43073 120.94757 105.14502 118.47144 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 105.14502 118.47144
+107.43073 120.94757 107.43073 120.94757 105.14502 118.47144 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 105.14502 118.47144
+107.43073 120.94757 107.43073 120.94757 105.14502 118.47144 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 105.14502 118.47144
+107.43073 120.94757 107.43073 120.94757 105.14502 118.47144 105.14502
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 102.85913 118.47144
+105.14484 120.94757 105.14484 120.94757 102.85913 118.47144 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 102.85913 120.94757
+105.14484 123.4237 105.14484 123.4237 102.85913 120.94757 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 102.85913 120.94757
+105.14484 123.4237 105.14484 123.4237 102.85913 120.94757 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 102.85913 120.94757
+105.14484 123.4237 105.14484 123.4237 102.85913 120.94757 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 102.85913 120.94757
+105.14484 123.4237 105.14484 123.4237 102.85913 120.94757 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 102.85913 120.94757
+105.14484 123.4237 105.14484 123.4237 102.85913 120.94757 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 102.85913 120.94757
+105.14484 123.4237 105.14484 123.4237 102.85913 120.94757 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 102.85913 120.94757
+105.14484 123.4237 105.14484 123.4237 102.85913 120.94757 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 102.85913 120.94757
+105.14484 123.4237 105.14484 123.4237 102.85913 120.94757 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 102.85913 120.94757
+105.14484 123.4237 105.14484 123.4237 102.85913 120.94757 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 102.85913 120.94757
+105.14484 123.4237 105.14484 123.4237 102.85913 120.94757 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 102.85913 120.94757
+105.14484 123.4237 105.14484 123.4237 102.85913 120.94757 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 102.85913 120.94757
+105.14484 123.4237 105.14484 123.4237 102.85913 120.94757 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 102.85913 120.94757
+105.14484 123.4237 105.14484 123.4237 102.85913 120.94757 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 102.85913 123.42352
+105.14484 125.89966 105.14484 125.89966 102.85913 123.42352 102.85913
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 100.57343 123.42352
+102.85913 125.89966 102.85913 125.89966 100.57343 123.42352 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 100.57343 123.42352
+102.85913 125.89966 102.85913 125.89966 100.57343 123.42352 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 100.57343 123.42352
+102.85913 125.89966 102.85913 125.89966 100.57343 123.42352 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 100.57343 123.42352
+102.85913 125.89966 102.85913 125.89966 100.57343 123.42352 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 100.57343 123.42352
+102.85913 125.89966 102.85913 125.89966 100.57343 123.42352 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 100.57343 123.42352
+102.85913 125.89966 102.85913 125.89966 100.57343 123.42352 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 100.57343 123.42352
+102.85913 125.89966 102.85913 125.89966 100.57343 123.42352 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 100.57343 123.42352
+102.85913 125.89966 102.85913 125.89966 100.57343 123.42352 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 100.57343 123.42352
+102.85913 125.89966 102.85913 125.89966 100.57343 123.42352 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 100.57343 123.42352
+102.85913 125.89966 102.85913 125.89966 100.57343 123.42352 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 100.57343 123.42352
+102.85913 125.89966 102.85913 125.89966 100.57343 123.42352 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 100.57343 123.42352
+102.85913 125.89966 102.85913 125.89966 100.57343 123.42352 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 100.57343 125.89966
+102.85913 128.3758 102.85913 128.3758 100.57343 125.89966 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 100.57343 125.89966
+102.85913 128.3758 102.85913 128.3758 100.57343 125.89966 100.57343
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 98.28772 125.89966
+100.57343 128.3758 100.57343 128.3758 98.28772 125.89966 98.28772
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 98.28772 125.89966
+100.57343 128.3758 100.57343 128.3758 98.28772 125.89966 98.28772
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 98.28772 125.89966
+100.57343 128.3758 100.57343 128.3758 98.28772 125.89966 98.28772
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 98.28772 125.89966
+100.57343 128.3758 100.57343 128.3758 98.28772 125.89966 98.28772
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 98.28772 125.89966
+100.57343 128.3758 100.57343 128.3758 98.28772 125.89966 98.28772
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 98.28772 125.89966
+100.57343 128.3758 100.57343 128.3758 98.28772 125.89966 98.28772
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 98.28772 125.89966
+100.57343 128.3758 100.57343 128.3758 98.28772 125.89966 98.28772
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 98.28772 125.89966
+100.57343 128.3758 100.57343 128.3758 98.28772 125.89966 98.28772
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 98.28772 125.89966
+100.57343 128.3758 100.57343 128.3758 98.28772 125.89966 98.28772
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 98.28772 125.89966
+100.57343 128.3758 100.57343 128.3758 98.28772 125.89966 98.28772
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 98.28772 125.89966
+100.57343 128.3758 100.57343 128.3758 98.28772 125.89966 98.28772
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 98.28772 125.89966
+100.57343 128.3758 100.57343 128.3758 98.28772 125.89966 98.28772
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 98.28772 125.89966
+100.57343 128.3758 100.57343 128.3758 98.28772 125.89966 98.28772
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 96.00183 128.3758
+98.28754 130.85193 98.28754 130.85193 96.00183 128.3758 96.00183
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 96.00183 128.3758
+98.28754 130.85193 98.28754 130.85193 96.00183 128.3758 96.00183
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 96.00183 128.3758
+98.28754 130.85193 98.28754 130.85193 96.00183 128.3758 96.00183
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 96.00183 128.3758
+98.28754 130.85193 98.28754 130.85193 96.00183 128.3758 96.00183
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 96.00183 128.3758
+98.28754 130.85193 98.28754 130.85193 96.00183 128.3758 96.00183
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 96.00183 128.3758
+98.28754 130.85193 98.28754 130.85193 96.00183 128.3758 96.00183
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 96.00183 128.3758
+98.28754 130.85193 98.28754 130.85193 96.00183 128.3758 96.00183
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 96.00183 128.3758
+98.28754 130.85193 98.28754 130.85193 96.00183 128.3758 96.00183
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 96.00183 128.3758
+98.28754 130.85193 98.28754 130.85193 96.00183 128.3758 96.00183
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 96.00183 128.3758
+98.28754 130.85193 98.28754 130.85193 96.00183 128.3758 96.00183
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 96.00183 128.3758
+98.28754 130.85193 98.28754 130.85193 96.00183 128.3758 96.00183
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 96.00183 128.3758
+98.28754 130.85193 98.28754 130.85193 96.00183 128.3758 96.00183
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 93.71613 128.3758
+96.00183 130.85193 96.00183 130.85193 93.71613 128.3758 93.71613
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 93.71613 128.3758
+96.00183 130.85193 96.00183 130.85193 93.71613 128.3758 93.71613
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 93.71613 128.3758
+96.00183 130.85193 96.00183 130.85193 93.71613 128.3758 93.71613
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 93.71613 128.3758
+96.00183 130.85193 96.00183 130.85193 93.71613 128.3758 93.71613
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 93.71613 130.85193
+96.00183 133.32806 96.00183 133.32806 93.71613 130.85193 93.71613
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 93.71613 130.85193
+96.00183 133.32806 96.00183 133.32806 93.71613 130.85193 93.71613
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 93.71613 130.85193
+96.00183 133.32806 96.00183 133.32806 93.71613 130.85193 93.71613
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 93.71613 130.85193
+96.00183 133.32806 96.00183 133.32806 93.71613 130.85193 93.71613
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 93.71613 130.85193
+96.00183 133.32806 96.00183 133.32806 93.71613 130.85193 93.71613
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 93.71613 130.85193
+96.00183 133.32806 96.00183 133.32806 93.71613 130.85193 93.71613
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 93.71613 130.85193
+96.00183 133.32806 96.00183 133.32806 93.71613 130.85193 93.71613
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 93.71613 130.85193
+96.00183 133.32806 96.00183 133.32806 93.71613 130.85193 93.71613
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 91.43042 130.85193
+93.71613 133.32806 93.71613 133.32806 91.43042 130.85193 91.43042
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 91.43042 130.85193
+93.71613 133.32806 93.71613 133.32806 91.43042 130.85193 91.43042
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 91.43042 130.85193
+93.71613 133.32806 93.71613 133.32806 91.43042 130.85193 91.43042
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 91.43042 130.85193
+93.71613 133.32806 93.71613 133.32806 91.43042 130.85193 91.43042
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 91.43042 130.85193
+93.71613 133.32806 93.71613 133.32806 91.43042 130.85193 91.43042
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 91.43042 130.85193
+93.71613 133.32806 93.71613 133.32806 91.43042 130.85193 91.43042
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 91.43042 130.85193
+93.71613 133.32806 93.71613 133.32806 91.43042 130.85193 91.43042
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 91.43042 130.85193
+93.71613 133.32806 93.71613 133.32806 91.43042 130.85193 91.43042
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 91.43042 130.85193
+93.71613 133.32806 93.71613 133.32806 91.43042 130.85193 91.43042
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 91.43042 130.85193
+93.71613 133.32806 93.71613 133.32806 91.43042 130.85193 91.43042
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 89.14471 130.85193
+91.43042 133.32806 91.43042 133.32806 89.14471 130.85193 89.14471
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 89.14471 130.85193
+91.43042 133.32806 91.43042 133.32806 89.14471 130.85193 89.14471
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 89.14471 130.85193
+91.43042 133.32806 91.43042 133.32806 89.14471 130.85193 89.14471
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 89.14471 133.32788
+91.43042 135.80402 91.43042 135.80402 89.14471 133.32788 89.14471
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 89.14471 133.32788
+91.43042 135.80402 91.43042 135.80402 89.14471 133.32788 89.14471
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 89.14471 133.32788
+91.43042 135.80402 91.43042 135.80402 89.14471 133.32788 89.14471
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 89.14471 133.32788
+91.43042 135.80402 91.43042 135.80402 89.14471 133.32788 89.14471
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 89.14471 133.32788
+91.43042 135.80402 91.43042 135.80402 89.14471 133.32788 89.14471
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 89.14471 133.32788
+91.43042 135.80402 91.43042 135.80402 89.14471 133.32788 89.14471
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 89.14471 133.32788
+91.43042 135.80402 91.43042 135.80402 89.14471 133.32788 89.14471
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 89.14471 133.32788
+91.43042 135.80402 91.43042 135.80402 89.14471 133.32788 89.14471
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 86.85883 133.32788
+89.14453 135.80402 89.14453 135.80402 86.85883 133.32788 86.85883
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 86.85883 133.32788
+89.14453 135.80402 89.14453 135.80402 86.85883 133.32788 86.85883
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 86.85883 133.32788
+89.14453 135.80402 89.14453 135.80402 86.85883 133.32788 86.85883
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 86.85883 133.32788
+89.14453 135.80402 89.14453 135.80402 86.85883 133.32788 86.85883
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 86.85883 133.32788
+89.14453 135.80402 89.14453 135.80402 86.85883 133.32788 86.85883
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 86.85883 133.32788
+89.14453 135.80402 89.14453 135.80402 86.85883 133.32788 86.85883
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 86.85883 133.32788
+89.14453 135.80402 89.14453 135.80402 86.85883 133.32788 86.85883
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 86.85883 133.32788
+89.14453 135.80402 89.14453 135.80402 86.85883 133.32788 86.85883
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 86.85883 133.32788
+89.14453 135.80402 89.14453 135.80402 86.85883 133.32788 86.85883
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 86.85883 133.32788
+89.14453 135.80402 89.14453 135.80402 86.85883 133.32788 86.85883
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 84.57312 133.32788
+86.85883 135.80402 86.85883 135.80402 84.57312 133.32788 84.57312
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 84.57312 133.32788
+86.85883 135.80402 86.85883 135.80402 84.57312 133.32788 84.57312
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 84.57312 133.32788
+86.85883 135.80402 86.85883 135.80402 84.57312 133.32788 84.57312
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 84.57312 133.32788
+86.85883 135.80402 86.85883 135.80402 84.57312 133.32788 84.57312
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 84.57312 133.32788
+86.85883 135.80402 86.85883 135.80402 84.57312 133.32788 84.57312
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 84.57312 133.32788
+86.85883 135.80402 86.85883 135.80402 84.57312 133.32788 84.57312
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 84.57312 133.32788
+86.85883 135.80402 86.85883 135.80402 84.57312 133.32788 84.57312
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 84.57312 133.32788
+86.85883 135.80402 86.85883 135.80402 84.57312 133.32788 84.57312
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 84.57312 133.32788
+86.85883 135.80402 86.85883 135.80402 84.57312 133.32788 84.57312
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 84.57312 135.80402
+86.85883 138.28015 86.85883 138.28015 84.57312 135.80402 84.57312
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 82.28741 135.80402
+84.57312 138.28015 84.57312 138.28015 82.28741 135.80402 82.28741
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 82.28741 135.80402
+84.57312 138.28015 84.57312 138.28015 82.28741 135.80402 82.28741
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 82.28741 135.80402
+84.57312 138.28015 84.57312 138.28015 82.28741 135.80402 82.28741
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 82.28741 135.80402
+84.57312 138.28015 84.57312 138.28015 82.28741 135.80402 82.28741
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 82.28741 135.80402
+84.57312 138.28015 84.57312 138.28015 82.28741 135.80402 82.28741
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 82.28741 135.80402
+84.57312 138.28015 84.57312 138.28015 82.28741 135.80402 82.28741
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 82.28741 135.80402
+84.57312 138.28015 84.57312 138.28015 82.28741 135.80402 82.28741
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 82.28741 135.80402
+84.57312 138.28015 84.57312 138.28015 82.28741 135.80402 82.28741
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 82.28741 135.80402
+84.57312 138.28015 84.57312 138.28015 82.28741 135.80402 82.28741
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 82.28741 135.80402
+84.57312 138.28015 84.57312 138.28015 82.28741 135.80402 82.28741
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 82.28741 135.80402
+84.57312 138.28015 84.57312 138.28015 82.28741 135.80402 82.28741
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 80.00153 135.80402
+82.28723 138.28015 82.28723 138.28015 80.00153 135.80402 80.00153
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 80.00153 135.80402
+82.28723 138.28015 82.28723 138.28015 80.00153 135.80402 80.00153
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 80.00153 135.80402
+82.28723 138.28015 82.28723 138.28015 80.00153 135.80402 80.00153
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 80.00153 135.80402
+82.28723 138.28015 82.28723 138.28015 80.00153 135.80402 80.00153
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 80.00153 135.80402
+82.28723 138.28015 82.28723 138.28015 80.00153 135.80402 80.00153
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 80.00153 135.80402
+82.28723 138.28015 82.28723 138.28015 80.00153 135.80402 80.00153
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 80.00153 135.80402
+82.28723 138.28015 82.28723 138.28015 80.00153 135.80402 80.00153
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 80.00153 135.80402
+82.28723 138.28015 82.28723 138.28015 80.00153 135.80402 80.00153
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 80.00153 135.80402
+82.28723 138.28015 82.28723 138.28015 80.00153 135.80402 80.00153
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 77.71582 135.80402
+80.00153 138.28015 80.00153 138.28015 77.71582 135.80402 77.71582
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 77.71582 135.80402
+80.00153 138.28015 80.00153 138.28015 77.71582 135.80402 77.71582
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 77.71582 135.80402
+80.00153 138.28015 80.00153 138.28015 77.71582 135.80402 77.71582
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 77.71582 135.80402
+80.00153 138.28015 80.00153 138.28015 77.71582 135.80402 77.71582
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 77.71582 135.80402
+80.00153 138.28015 80.00153 138.28015 77.71582 135.80402 77.71582
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 77.71582 135.80402
+80.00153 138.28015 80.00153 138.28015 77.71582 135.80402 77.71582
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 77.71582 135.80402
+80.00153 138.28015 80.00153 138.28015 77.71582 135.80402 77.71582
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 77.71582 135.80402
+80.00153 138.28015 80.00153 138.28015 77.71582 135.80402 77.71582
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 77.71582 135.80402
+80.00153 138.28015 80.00153 138.28015 77.71582 135.80402 77.71582
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 77.71582 135.80402
+80.00153 138.28015 80.00153 138.28015 77.71582 135.80402 77.71582
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 75.43011 135.80402
+77.71582 138.28015 77.71582 138.28015 75.43011 135.80402 75.43011
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 75.43011 135.80402
+77.71582 138.28015 77.71582 138.28015 75.43011 135.80402 75.43011
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 75.43011 135.80402
+77.71582 138.28015 77.71582 138.28015 75.43011 135.80402 75.43011
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 75.43011 135.80402
+77.71582 138.28015 77.71582 138.28015 75.43011 135.80402 75.43011
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 75.43011 135.80402
+77.71582 138.28015 77.71582 138.28015 75.43011 135.80402 75.43011
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 75.43011 135.80402
+77.71582 138.28015 77.71582 138.28015 75.43011 135.80402 75.43011
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 75.43011 135.80402
+77.71582 138.28015 77.71582 138.28015 75.43011 135.80402 75.43011
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 75.43011 135.80402
+77.71582 138.28015 77.71582 138.28015 75.43011 135.80402 75.43011
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 75.43011 135.80402
+77.71582 138.28015 77.71582 138.28015 75.43011 135.80402 75.43011
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 73.14441 135.80402
+75.43011 138.28015 75.43011 138.28015 73.14441 135.80402 73.14441
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 73.14441 135.80402
+75.43011 138.28015 75.43011 138.28015 73.14441 135.80402 73.14441
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 73.14441 135.80402
+75.43011 138.28015 75.43011 138.28015 73.14441 135.80402 73.14441
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 73.14441 135.80402
+75.43011 138.28015 75.43011 138.28015 73.14441 135.80402 73.14441
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 73.14441 135.80402
+75.43011 138.28015 75.43011 138.28015 73.14441 135.80402 73.14441
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 73.14441 135.80402
+75.43011 138.28015 75.43011 138.28015 73.14441 135.80402 73.14441
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 73.14441 135.80402
+75.43011 138.28015 75.43011 138.28015 73.14441 135.80402 73.14441
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 73.14441 135.80402
+75.43011 138.28015 75.43011 138.28015 73.14441 135.80402 73.14441
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 73.14441 135.80402
+75.43011 138.28015 75.43011 138.28015 73.14441 135.80402 73.14441
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 73.14441 135.80402
+75.43011 138.28015 75.43011 138.28015 73.14441 135.80402 73.14441
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 70.85852 135.80402
+73.14423 138.28015 73.14423 138.28015 70.85852 135.80402 70.85852
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 70.85852 135.80402
+73.14423 138.28015 73.14423 138.28015 70.85852 135.80402 70.85852
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 70.85852 135.80402
+73.14423 138.28015 73.14423 138.28015 70.85852 135.80402 70.85852
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 70.85852 135.80402
+73.14423 138.28015 73.14423 138.28015 70.85852 135.80402 70.85852
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 70.85852 135.80402
+73.14423 138.28015 73.14423 138.28015 70.85852 135.80402 70.85852
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 70.85852 135.80402
+73.14423 138.28015 73.14423 138.28015 70.85852 135.80402 70.85852
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 70.85852 135.80402
+73.14423 138.28015 73.14423 138.28015 70.85852 135.80402 70.85852
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 70.85852 135.80402
+73.14423 138.28015 73.14423 138.28015 70.85852 135.80402 70.85852
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 70.85852 135.80402
+73.14423 138.28015 73.14423 138.28015 70.85852 135.80402 70.85852
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 68.57281 135.80402
+70.85852 138.28015 70.85852 138.28015 68.57281 135.80402 68.57281
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 68.57281 135.80402
+70.85852 138.28015 70.85852 138.28015 68.57281 135.80402 68.57281
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 68.57281 135.80402
+70.85852 138.28015 70.85852 138.28015 68.57281 135.80402 68.57281
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 68.57281 135.80402
+70.85852 138.28015 70.85852 138.28015 68.57281 135.80402 68.57281
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 68.57281 135.80402
+70.85852 138.28015 70.85852 138.28015 68.57281 135.80402 68.57281
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 68.57281 135.80402
+70.85852 138.28015 70.85852 138.28015 68.57281 135.80402 68.57281
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 68.57281 135.80402
+70.85852 138.28015 70.85852 138.28015 68.57281 135.80402 68.57281
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 68.57281 135.80402
+70.85852 138.28015 70.85852 138.28015 68.57281 135.80402 68.57281
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 68.57281 135.80402
+70.85852 138.28015 70.85852 138.28015 68.57281 135.80402 68.57281
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 66.28711 135.80402
+68.57281 138.28015 68.57281 138.28015 66.28711 135.80402 66.28711
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 66.28711 135.80402
+68.57281 138.28015 68.57281 138.28015 66.28711 135.80402 66.28711
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 66.28711 135.80402
+68.57281 138.28015 68.57281 138.28015 66.28711 135.80402 66.28711
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 66.28711 135.80402
+68.57281 138.28015 68.57281 138.28015 66.28711 135.80402 66.28711
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 66.28711 135.80402
+68.57281 138.28015 68.57281 138.28015 66.28711 135.80402 66.28711
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 66.28711 135.80402
+68.57281 138.28015 68.57281 138.28015 66.28711 135.80402 66.28711
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 66.28711 135.80402
+68.57281 138.28015 68.57281 138.28015 66.28711 135.80402 66.28711
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 66.28711 135.80402
+68.57281 138.28015 68.57281 138.28015 66.28711 135.80402 66.28711
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 66.28711 135.80402
+68.57281 138.28015 68.57281 138.28015 66.28711 135.80402 66.28711
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 66.28711 135.80402
+68.57281 138.28015 68.57281 138.28015 66.28711 135.80402 66.28711
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 64.00122 135.80402
+66.28693 138.28015 66.28693 138.28015 64.00122 135.80402 64.00122
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 64.00122 135.80402
+66.28693 138.28015 66.28693 138.28015 64.00122 135.80402 64.00122
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 64.00122 135.80402
+66.28693 138.28015 66.28693 138.28015 64.00122 135.80402 64.00122
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 64.00122 135.80402
+66.28693 138.28015 66.28693 138.28015 64.00122 135.80402 64.00122
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 64.00122 135.80402
+66.28693 138.28015 66.28693 138.28015 64.00122 135.80402 64.00122
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 64.00122 135.80402
+66.28693 138.28015 66.28693 138.28015 64.00122 135.80402 64.00122
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 64.00122 135.80402
+66.28693 138.28015 66.28693 138.28015 64.00122 135.80402 64.00122
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 64.00122 135.80402
+66.28693 138.28015 66.28693 138.28015 64.00122 135.80402 64.00122
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 64.00122 135.80402
+66.28693 138.28015 66.28693 138.28015 64.00122 135.80402 64.00122
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 61.71552 135.80402
+64.00122 138.28015 64.00122 138.28015 61.71552 135.80402 61.71552
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 61.71552 135.80402
+64.00122 138.28015 64.00122 138.28015 61.71552 135.80402 61.71552
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 135.80402 61.71552 135.80402
+64.00122 138.28015 64.00122 138.28015 61.71552 135.80402 61.71552
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 61.71552 133.32788
+64.00122 135.80402 64.00122 135.80402 61.71552 133.32788 61.71552
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 61.71552 133.32788
+64.00122 135.80402 64.00122 135.80402 61.71552 133.32788 61.71552
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 61.71552 133.32788
+64.00122 135.80402 64.00122 135.80402 61.71552 133.32788 61.71552
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 61.71552 133.32788
+64.00122 135.80402 64.00122 135.80402 61.71552 133.32788 61.71552
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 61.71552 133.32788
+64.00122 135.80402 64.00122 135.80402 61.71552 133.32788 61.71552
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 61.71552 133.32788
+64.00122 135.80402 64.00122 135.80402 61.71552 133.32788 61.71552
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 61.71552 133.32788
+64.00122 135.80402 64.00122 135.80402 61.71552 133.32788 61.71552
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 59.42981 133.32788
+61.71552 135.80402 61.71552 135.80402 59.42981 133.32788 59.42981
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 59.42981 133.32788
+61.71552 135.80402 61.71552 135.80402 59.42981 133.32788 59.42981
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 59.42981 133.32788
+61.71552 135.80402 61.71552 135.80402 59.42981 133.32788 59.42981
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 59.42981 133.32788
+61.71552 135.80402 61.71552 135.80402 59.42981 133.32788 59.42981
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 59.42981 133.32788
+61.71552 135.80402 61.71552 135.80402 59.42981 133.32788 59.42981
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 59.42981 133.32788
+61.71552 135.80402 61.71552 135.80402 59.42981 133.32788 59.42981
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 59.42981 133.32788
+61.71552 135.80402 61.71552 135.80402 59.42981 133.32788 59.42981
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 59.42981 133.32788
+61.71552 135.80402 61.71552 135.80402 59.42981 133.32788 59.42981
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 59.42981 133.32788
+61.71552 135.80402 61.71552 135.80402 59.42981 133.32788 59.42981
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 57.14392 133.32788
+59.42963 135.80402 59.42963 135.80402 57.14392 133.32788 57.14392
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 57.14392 133.32788
+59.42963 135.80402 59.42963 135.80402 57.14392 133.32788 57.14392
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 57.14392 133.32788
+59.42963 135.80402 59.42963 135.80402 57.14392 133.32788 57.14392
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 57.14392 133.32788
+59.42963 135.80402 59.42963 135.80402 57.14392 133.32788 57.14392
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 57.14392 133.32788
+59.42963 135.80402 59.42963 135.80402 57.14392 133.32788 57.14392
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 57.14392 133.32788
+59.42963 135.80402 59.42963 135.80402 57.14392 133.32788 57.14392
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 57.14392 133.32788
+59.42963 135.80402 59.42963 135.80402 57.14392 133.32788 57.14392
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 57.14392 133.32788
+59.42963 135.80402 59.42963 135.80402 57.14392 133.32788 57.14392
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 57.14392 133.32788
+59.42963 135.80402 59.42963 135.80402 57.14392 133.32788 57.14392
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 57.14392 133.32788
+59.42963 135.80402 59.42963 135.80402 57.14392 133.32788 57.14392
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 54.85822 133.32788
+57.14392 135.80402 57.14392 135.80402 54.85822 133.32788 54.85822
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 133.32788 54.85822 133.32788
+57.14392 135.80402 57.14392 135.80402 54.85822 133.32788 54.85822
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 54.85822 130.85193
+57.14392 133.32806 57.14392 133.32806 54.85822 130.85193 54.85822
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 54.85822 130.85193
+57.14392 133.32806 57.14392 133.32806 54.85822 130.85193 54.85822
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 54.85822 130.85193
+57.14392 133.32806 57.14392 133.32806 54.85822 130.85193 54.85822
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 54.85822 130.85193
+57.14392 133.32806 57.14392 133.32806 54.85822 130.85193 54.85822
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 54.85822 130.85193
+57.14392 133.32806 57.14392 133.32806 54.85822 130.85193 54.85822
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 54.85822 130.85193
+57.14392 133.32806 57.14392 133.32806 54.85822 130.85193 54.85822
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 54.85822 130.85193
+57.14392 133.32806 57.14392 133.32806 54.85822 130.85193 54.85822
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 54.85822 130.85193
+57.14392 133.32806 57.14392 133.32806 54.85822 130.85193 54.85822
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 52.57251 130.85193
+54.85822 133.32806 54.85822 133.32806 52.57251 130.85193 52.57251
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 52.57251 130.85193
+54.85822 133.32806 54.85822 133.32806 52.57251 130.85193 52.57251
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 52.57251 130.85193
+54.85822 133.32806 54.85822 133.32806 52.57251 130.85193 52.57251
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 52.57251 130.85193
+54.85822 133.32806 54.85822 133.32806 52.57251 130.85193 52.57251
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 52.57251 130.85193
+54.85822 133.32806 54.85822 133.32806 52.57251 130.85193 52.57251
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 52.57251 130.85193
+54.85822 133.32806 54.85822 133.32806 52.57251 130.85193 52.57251
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 52.57251 130.85193
+54.85822 133.32806 54.85822 133.32806 52.57251 130.85193 52.57251
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 52.57251 130.85193
+54.85822 133.32806 54.85822 133.32806 52.57251 130.85193 52.57251
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 52.57251 130.85193
+54.85822 133.32806 54.85822 133.32806 52.57251 130.85193 52.57251
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 52.57251 130.85193
+54.85822 133.32806 54.85822 133.32806 52.57251 130.85193 52.57251
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 50.2868 130.85193
+52.57251 133.32806 52.57251 133.32806 50.2868 130.85193 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 130.85193 50.2868 130.85193
+52.57251 133.32806 52.57251 133.32806 50.2868 130.85193 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 50.2868 128.3758
+52.57251 130.85193 52.57251 130.85193 50.2868 128.3758 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 50.2868 128.3758
+52.57251 130.85193 52.57251 130.85193 50.2868 128.3758 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 50.2868 128.3758
+52.57251 130.85193 52.57251 130.85193 50.2868 128.3758 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 50.2868 128.3758
+52.57251 130.85193 52.57251 130.85193 50.2868 128.3758 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 50.2868 128.3758
+52.57251 130.85193 52.57251 130.85193 50.2868 128.3758 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 50.2868 128.3758
+52.57251 130.85193 52.57251 130.85193 50.2868 128.3758 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 50.2868 128.3758
+52.57251 130.85193 52.57251 130.85193 50.2868 128.3758 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 50.2868 128.3758
+52.57251 130.85193 52.57251 130.85193 50.2868 128.3758 50.2868 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 48.00092 128.3758
+50.28662 130.85193 50.28662 130.85193 48.00092 128.3758 48.00092
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 48.00092 128.3758
+50.28662 130.85193 50.28662 130.85193 48.00092 128.3758 48.00092
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 48.00092 128.3758
+50.28662 130.85193 50.28662 130.85193 48.00092 128.3758 48.00092
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 48.00092 128.3758
+50.28662 130.85193 50.28662 130.85193 48.00092 128.3758 48.00092
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 48.00092 128.3758
+50.28662 130.85193 50.28662 130.85193 48.00092 128.3758 48.00092
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 48.00092 128.3758
+50.28662 130.85193 50.28662 130.85193 48.00092 128.3758 48.00092
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 48.00092 128.3758
+50.28662 130.85193 50.28662 130.85193 48.00092 128.3758 48.00092
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 128.3758 48.00092 128.3758
+50.28662 130.85193 50.28662 130.85193 48.00092 128.3758 48.00092
+/Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n
+3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed }
+if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 48.00092 125.89966
+50.28662 128.3758 50.28662 128.3758 48.00092 125.89966 48.00092 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 48.00092 125.89966
+50.28662 128.3758 50.28662 128.3758 48.00092 125.89966 48.00092 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 48.00092 125.89966
+50.28662 128.3758 50.28662 128.3758 48.00092 125.89966 48.00092 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 45.71521 125.89966
+48.00092 128.3758 48.00092 128.3758 45.71521 125.89966 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 45.71521 125.89966
+48.00092 128.3758 48.00092 128.3758 45.71521 125.89966 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 45.71521 125.89966
+48.00092 128.3758 48.00092 128.3758 45.71521 125.89966 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 45.71521 125.89966
+48.00092 128.3758 48.00092 128.3758 45.71521 125.89966 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 45.71521 125.89966
+48.00092 128.3758 48.00092 128.3758 45.71521 125.89966 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 45.71521 125.89966
+48.00092 128.3758 48.00092 128.3758 45.71521 125.89966 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 45.71521 125.89966
+48.00092 128.3758 48.00092 128.3758 45.71521 125.89966 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 45.71521 125.89966
+48.00092 128.3758 48.00092 128.3758 45.71521 125.89966 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 45.71521 125.89966
+48.00092 128.3758 48.00092 128.3758 45.71521 125.89966 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 45.71521 125.89966
+48.00092 128.3758 48.00092 128.3758 45.71521 125.89966 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 45.71521 125.89966
+48.00092 128.3758 48.00092 128.3758 45.71521 125.89966 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 125.89966 43.4295 125.89966
+45.71521 128.3758 45.71521 128.3758 43.4295 125.89966 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 43.4295 123.42352
+45.71521 125.89966 45.71521 125.89966 43.4295 123.42352 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 43.4295 123.42352
+45.71521 125.89966 45.71521 125.89966 43.4295 123.42352 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 43.4295 123.42352
+45.71521 125.89966 45.71521 125.89966 43.4295 123.42352 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 43.4295 123.42352
+45.71521 125.89966 45.71521 125.89966 43.4295 123.42352 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 43.4295 123.42352
+45.71521 125.89966 45.71521 125.89966 43.4295 123.42352 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 43.4295 123.42352
+45.71521 125.89966 45.71521 125.89966 43.4295 123.42352 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 43.4295 123.42352
+45.71521 125.89966 45.71521 125.89966 43.4295 123.42352 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 43.4295 123.42352
+45.71521 125.89966 45.71521 125.89966 43.4295 123.42352 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 43.4295 123.42352
+45.71521 125.89966 45.71521 125.89966 43.4295 123.42352 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 43.4295 123.42352
+45.71521 125.89966 45.71521 125.89966 43.4295 123.42352 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 41.14362 123.42352
+43.42932 125.89966 43.42932 125.89966 41.14362 123.42352 41.14362
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 41.14362 123.42352
+43.42932 125.89966 43.42932 125.89966 41.14362 123.42352 41.14362
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 123.42352 41.14362 123.42352
+43.42932 125.89966 43.42932 125.89966 41.14362 123.42352 41.14362
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 41.14362 120.94757
+43.42932 123.4237 43.42932 123.4237 41.14362 120.94757 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 41.14362 120.94757
+43.42932 123.4237 43.42932 123.4237 41.14362 120.94757 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 41.14362 120.94757
+43.42932 123.4237 43.42932 123.4237 41.14362 120.94757 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 41.14362 120.94757
+43.42932 123.4237 43.42932 123.4237 41.14362 120.94757 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 41.14362 120.94757
+43.42932 123.4237 43.42932 123.4237 41.14362 120.94757 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 41.14362 120.94757
+43.42932 123.4237 43.42932 123.4237 41.14362 120.94757 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 41.14362 120.94757
+43.42932 123.4237 43.42932 123.4237 41.14362 120.94757 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 41.14362 120.94757
+43.42932 123.4237 43.42932 123.4237 41.14362 120.94757 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 41.14362 120.94757
+43.42932 123.4237 43.42932 123.4237 41.14362 120.94757 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 38.85791 120.94757
+41.14362 123.4237 41.14362 123.4237 38.85791 120.94757 38.85791 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 38.85791 120.94757
+41.14362 123.4237 41.14362 123.4237 38.85791 120.94757 38.85791 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 120.94757 38.85791 120.94757
+41.14362 123.4237 41.14362 123.4237 38.85791 120.94757 38.85791 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 38.85791 118.47144
+41.14362 120.94757 41.14362 120.94757 38.85791 118.47144 38.85791
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 38.85791 118.47144
+41.14362 120.94757 41.14362 120.94757 38.85791 118.47144 38.85791
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 38.85791 118.47144
+41.14362 120.94757 41.14362 120.94757 38.85791 118.47144 38.85791
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 38.85791 118.47144
+41.14362 120.94757 41.14362 120.94757 38.85791 118.47144 38.85791
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 38.85791 118.47144
+41.14362 120.94757 41.14362 120.94757 38.85791 118.47144 38.85791
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 38.85791 118.47144
+41.14362 120.94757 41.14362 120.94757 38.85791 118.47144 38.85791
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 38.85791 118.47144
+41.14362 120.94757 41.14362 120.94757 38.85791 118.47144 38.85791
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 38.85791 118.47144
+41.14362 120.94757 41.14362 120.94757 38.85791 118.47144 38.85791
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 38.85791 118.47144
+41.14362 120.94757 41.14362 120.94757 38.85791 118.47144 38.85791
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 38.85791 118.47144
+41.14362 120.94757 41.14362 120.94757 38.85791 118.47144 38.85791
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 38.85791 118.47144
+41.14362 120.94757 41.14362 120.94757 38.85791 118.47144 38.85791
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 118.47144 36.5722 118.47144
+38.85791 120.94757 38.85791 120.94757 36.5722 118.47144 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 36.5722 115.9953
+38.85791 118.47144 38.85791 118.47144 36.5722 115.9953 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 36.5722 115.9953
+38.85791 118.47144 38.85791 118.47144 36.5722 115.9953 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 36.5722 115.9953
+38.85791 118.47144 38.85791 118.47144 36.5722 115.9953 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 36.5722 115.9953
+38.85791 118.47144 38.85791 118.47144 36.5722 115.9953 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 36.5722 115.9953
+38.85791 118.47144 38.85791 118.47144 36.5722 115.9953 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 36.5722 115.9953
+38.85791 118.47144 38.85791 118.47144 36.5722 115.9953 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 36.5722 115.9953
+38.85791 118.47144 38.85791 118.47144 36.5722 115.9953 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 36.5722 115.9953
+38.85791 118.47144 38.85791 118.47144 36.5722 115.9953 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 36.5722 115.9953
+38.85791 118.47144 38.85791 118.47144 36.5722 115.9953 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 36.5722 115.9953
+38.85791 118.47144 38.85791 118.47144 36.5722 115.9953 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 115.9953 36.5722 115.9953
+38.85791 118.47144 38.85791 118.47144 36.5722 115.9953 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 36.5722 113.51935
+38.85791 115.99548 38.85791 115.99548 36.5722 113.51935 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 36.5722 113.51935
+38.85791 115.99548 38.85791 115.99548 36.5722 113.51935 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 34.28632 113.51935
+36.57202 115.99548 36.57202 115.99548 34.28632 113.51935 34.28632
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 34.28632 113.51935
+36.57202 115.99548 36.57202 115.99548 34.28632 113.51935 34.28632
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 34.28632 113.51935
+36.57202 115.99548 36.57202 115.99548 34.28632 113.51935 34.28632
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 34.28632 113.51935
+36.57202 115.99548 36.57202 115.99548 34.28632 113.51935 34.28632
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 34.28632 113.51935
+36.57202 115.99548 36.57202 115.99548 34.28632 113.51935 34.28632
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 34.28632 113.51935
+36.57202 115.99548 36.57202 115.99548 34.28632 113.51935 34.28632
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 34.28632 113.51935
+36.57202 115.99548 36.57202 115.99548 34.28632 113.51935 34.28632
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 113.51935 34.28632 113.51935
+36.57202 115.99548 36.57202 115.99548 34.28632 113.51935 34.28632
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 34.28632 111.04321
+36.57202 113.51935 36.57202 113.51935 34.28632 111.04321 34.28632
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 34.28632 111.04321
+36.57202 113.51935 36.57202 113.51935 34.28632 111.04321 34.28632
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 34.28632 111.04321
+36.57202 113.51935 36.57202 113.51935 34.28632 111.04321 34.28632
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 34.28632 111.04321
+36.57202 113.51935 36.57202 113.51935 34.28632 111.04321 34.28632
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 34.28632 111.04321
+36.57202 113.51935 36.57202 113.51935 34.28632 111.04321 34.28632
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 34.28632 111.04321
+36.57202 113.51935 36.57202 113.51935 34.28632 111.04321 34.28632
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 34.28632 111.04321
+36.57202 113.51935 36.57202 113.51935 34.28632 111.04321 34.28632
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 34.28632 111.04321
+36.57202 113.51935 36.57202 113.51935 34.28632 111.04321 34.28632
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 32.00061 111.04321
+34.28632 113.51935 34.28632 113.51935 32.00061 111.04321 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 111.04321 32.00061 111.04321
+34.28632 113.51935 34.28632 113.51935 32.00061 111.04321 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 32.00061 108.56708
+34.28632 111.04321 34.28632 111.04321 32.00061 108.56708 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 32.00061 108.56708
+34.28632 111.04321 34.28632 111.04321 32.00061 108.56708 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 32.00061 108.56708
+34.28632 111.04321 34.28632 111.04321 32.00061 108.56708 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 32.00061 108.56708
+34.28632 111.04321 34.28632 111.04321 32.00061 108.56708 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 32.00061 108.56708
+34.28632 111.04321 34.28632 111.04321 32.00061 108.56708 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 32.00061 108.56708
+34.28632 111.04321 34.28632 111.04321 32.00061 108.56708 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 32.00061 108.56708
+34.28632 111.04321 34.28632 111.04321 32.00061 108.56708 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 32.00061 108.56708
+34.28632 111.04321 34.28632 111.04321 32.00061 108.56708 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 32.00061 108.56708
+34.28632 111.04321 34.28632 111.04321 32.00061 108.56708 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 108.56708 32.00061 108.56708
+34.28632 111.04321 34.28632 111.04321 32.00061 108.56708 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 32.00061 106.09113
+34.28632 108.56726 34.28632 108.56726 32.00061 106.09113 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 32.00061 106.09113
+34.28632 108.56726 34.28632 108.56726 32.00061 106.09113 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 32.00061 106.09113
+34.28632 108.56726 34.28632 108.56726 32.00061 106.09113 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 32.00061 106.09113
+34.28632 108.56726 34.28632 108.56726 32.00061 106.09113 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 32.00061 106.09113
+34.28632 108.56726 34.28632 108.56726 32.00061 106.09113 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 32.00061 106.09113
+34.28632 108.56726 34.28632 108.56726 32.00061 106.09113 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 32.00061 106.09113
+34.28632 108.56726 34.28632 108.56726 32.00061 106.09113 32.00061
+ /Lineto /lineto load def 1 setlinejoin false NArray n 2 eq { 0 0
+/n 3 def } if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed
+} if n 2 mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1
+def x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto
+/n n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub
+x12 x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11
+sub Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos
+add def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add
+y11 Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 29.7149 106.09113
+32.00061 108.56726 32.00061 108.56726 29.7149 106.09113 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 106.09113 29.7149 106.09113
+32.00061 108.56726 32.00061 108.56726 29.7149 106.09113 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 29.7149 103.61499
+32.00061 106.09113 32.00061 106.09113 29.7149 103.61499 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 29.7149 103.61499
+32.00061 106.09113 32.00061 106.09113 29.7149 103.61499 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 29.7149 103.61499
+32.00061 106.09113 32.00061 106.09113 29.7149 103.61499 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 29.7149 103.61499
+32.00061 106.09113 32.00061 106.09113 29.7149 103.61499 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 29.7149 103.61499
+32.00061 106.09113 32.00061 106.09113 29.7149 103.61499 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 29.7149 103.61499
+32.00061 106.09113 32.00061 106.09113 29.7149 103.61499 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 29.7149 103.61499
+32.00061 106.09113 32.00061 106.09113 29.7149 103.61499 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 29.7149 103.61499
+32.00061 106.09113 32.00061 106.09113 29.7149 103.61499 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 103.61499 29.7149 103.61499
+32.00061 106.09113 32.00061 106.09113 29.7149 103.61499 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 29.7149 101.13885
+32.00061 103.61499 32.00061 103.61499 29.7149 101.13885 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 29.7149 101.13885
+32.00061 103.61499 32.00061 103.61499 29.7149 101.13885 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 29.7149 101.13885
+32.00061 103.61499 32.00061 103.61499 29.7149 101.13885 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 29.7149 101.13885
+32.00061 103.61499 32.00061 103.61499 29.7149 101.13885 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 29.7149 101.13885
+32.00061 103.61499 32.00061 103.61499 29.7149 101.13885 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 29.7149 101.13885
+32.00061 103.61499 32.00061 103.61499 29.7149 101.13885 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 29.7149 101.13885
+32.00061 103.61499 32.00061 103.61499 29.7149 101.13885 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 29.7149 101.13885
+32.00061 103.61499 32.00061 103.61499 29.7149 101.13885 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 101.13885 29.7149 101.13885
+32.00061 103.61499 32.00061 103.61499 29.7149 101.13885 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 29.7149 98.66272
+32.00061 101.13885 32.00061 101.13885 29.7149 98.66272 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 29.7149 98.66272
+32.00061 101.13885 32.00061 101.13885 29.7149 98.66272 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 29.7149 98.66272
+32.00061 101.13885 32.00061 101.13885 29.7149 98.66272 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 29.7149 98.66272
+32.00061 101.13885 32.00061 101.13885 29.7149 98.66272 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 29.7149 98.66272
+32.00061 101.13885 32.00061 101.13885 29.7149 98.66272 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 27.4292 98.66272
+29.7149 101.13885 29.7149 101.13885 27.4292 98.66272 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 27.4292 98.66272
+29.7149 101.13885 29.7149 101.13885 27.4292 98.66272 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 27.4292 98.66272
+29.7149 101.13885 29.7149 101.13885 27.4292 98.66272 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 98.66272 27.4292 98.66272
+29.7149 101.13885 29.7149 101.13885 27.4292 98.66272 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 96.18677 27.4292 96.18677
+29.7149 98.6629 29.7149 98.6629 27.4292 96.18677 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 96.18677 27.4292 96.18677
+29.7149 98.6629 29.7149 98.6629 27.4292 96.18677 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 96.18677 27.4292 96.18677
+29.7149 98.6629 29.7149 98.6629 27.4292 96.18677 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 96.18677 27.4292 96.18677
+29.7149 98.6629 29.7149 98.6629 27.4292 96.18677 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 96.18677 27.4292 96.18677
+29.7149 98.6629 29.7149 98.6629 27.4292 96.18677 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 96.18677 27.4292 96.18677
+29.7149 98.6629 29.7149 98.6629 27.4292 96.18677 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 96.18677 27.4292 96.18677
+29.7149 98.6629 29.7149 98.6629 27.4292 96.18677 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 96.18677 27.4292 96.18677
+29.7149 98.6629 29.7149 98.6629 27.4292 96.18677 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 27.4292 93.71063
+29.7149 96.18677 29.7149 96.18677 27.4292 93.71063 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 27.4292 93.71063
+29.7149 96.18677 29.7149 96.18677 27.4292 93.71063 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 27.4292 93.71063
+29.7149 96.18677 29.7149 96.18677 27.4292 93.71063 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 27.4292 93.71063
+29.7149 96.18677 29.7149 96.18677 27.4292 93.71063 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 27.4292 93.71063
+29.7149 96.18677 29.7149 96.18677 27.4292 93.71063 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 27.4292 93.71063
+29.7149 96.18677 29.7149 96.18677 27.4292 93.71063 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 27.4292 93.71063
+29.7149 96.18677 29.7149 96.18677 27.4292 93.71063 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 27.4292 93.71063
+29.7149 96.18677 29.7149 96.18677 27.4292 93.71063 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 93.71063 27.4292 93.71063
+29.7149 96.18677 29.7149 96.18677 27.4292 93.71063 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 91.2345 27.4292 91.2345
+29.7149 93.71063 29.7149 93.71063 27.4292 91.2345 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 91.2345 27.4292 91.2345
+29.7149 93.71063 29.7149 93.71063 27.4292 91.2345 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 91.2345 27.4292 91.2345
+29.7149 93.71063 29.7149 93.71063 27.4292 91.2345 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 91.2345 27.4292 91.2345
+29.7149 93.71063 29.7149 93.71063 27.4292 91.2345 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 91.2345 27.4292 91.2345
+29.7149 93.71063 29.7149 93.71063 27.4292 91.2345 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 91.2345 27.4292 91.2345
+29.7149 93.71063 29.7149 93.71063 27.4292 91.2345 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 91.2345 27.4292 91.2345
+29.7149 93.71063 29.7149 93.71063 27.4292 91.2345 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 91.2345 27.4292 91.2345
+29.7149 93.71063 29.7149 93.71063 27.4292 91.2345 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 88.75854 27.4292 88.75854
+29.7149 91.23468 29.7149 91.23468 27.4292 88.75854 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 88.75854 27.4292 88.75854
+29.7149 91.23468 29.7149 91.23468 27.4292 88.75854 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 88.75854 27.4292 88.75854
+29.7149 91.23468 29.7149 91.23468 27.4292 88.75854 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 88.75854 27.4292 88.75854
+29.7149 91.23468 29.7149 91.23468 27.4292 88.75854 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 88.75854 27.4292 88.75854
+29.7149 91.23468 29.7149 91.23468 27.4292 88.75854 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 88.75854 27.4292 88.75854
+29.7149 91.23468 29.7149 91.23468 27.4292 88.75854 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 88.75854 27.4292 88.75854
+29.7149 91.23468 29.7149 91.23468 27.4292 88.75854 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 88.75854 27.4292 88.75854
+29.7149 91.23468 29.7149 91.23468 27.4292 88.75854 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 88.75854 27.4292 88.75854
+29.7149 91.23468 29.7149 91.23468 27.4292 88.75854 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 86.28241 27.4292 86.28241
+29.7149 88.75854 29.7149 88.75854 27.4292 86.28241 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 86.28241 27.4292 86.28241
+29.7149 88.75854 29.7149 88.75854 27.4292 86.28241 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 86.28241 27.4292 86.28241
+29.7149 88.75854 29.7149 88.75854 27.4292 86.28241 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 86.28241 27.4292 86.28241
+29.7149 88.75854 29.7149 88.75854 27.4292 86.28241 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 86.28241 27.4292 86.28241
+29.7149 88.75854 29.7149 88.75854 27.4292 86.28241 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 86.28241 27.4292 86.28241
+29.7149 88.75854 29.7149 88.75854 27.4292 86.28241 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 86.28241 27.4292 86.28241
+29.7149 88.75854 29.7149 88.75854 27.4292 86.28241 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 86.28241 27.4292 86.28241
+29.7149 88.75854 29.7149 88.75854 27.4292 86.28241 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 83.80627 27.4292 83.80627
+29.7149 86.28241 29.7149 86.28241 27.4292 83.80627 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 83.80627 27.4292 83.80627
+29.7149 86.28241 29.7149 86.28241 27.4292 83.80627 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 83.80627 27.4292 83.80627
+29.7149 86.28241 29.7149 86.28241 27.4292 83.80627 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 83.80627 27.4292 83.80627
+29.7149 86.28241 29.7149 86.28241 27.4292 83.80627 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 83.80627 27.4292 83.80627
+29.7149 86.28241 29.7149 86.28241 27.4292 83.80627 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 83.80627 27.4292 83.80627
+29.7149 86.28241 29.7149 86.28241 27.4292 83.80627 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 83.80627 27.4292 83.80627
+29.7149 86.28241 29.7149 86.28241 27.4292 83.80627 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 83.80627 27.4292 83.80627
+29.7149 86.28241 29.7149 86.28241 27.4292 83.80627 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33032 27.4292 81.33032
+29.7149 83.80646 29.7149 83.80646 27.4292 81.33032 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33032 27.4292 81.33032
+29.7149 83.80646 29.7149 83.80646 27.4292 81.33032 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33032 27.4292 81.33032
+29.7149 83.80646 29.7149 83.80646 27.4292 81.33032 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33032 27.4292 81.33032
+29.7149 83.80646 29.7149 83.80646 27.4292 81.33032 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33032 27.4292 81.33032
+29.7149 83.80646 29.7149 83.80646 27.4292 81.33032 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33032 27.4292 81.33032
+29.7149 83.80646 29.7149 83.80646 27.4292 81.33032 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33032 27.4292 81.33032
+29.7149 83.80646 29.7149 83.80646 27.4292 81.33032 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 81.33032 27.4292 81.33032
+29.7149 83.80646 29.7149 83.80646 27.4292 81.33032 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 78.85419 27.4292 78.85419
+29.7149 81.33032 29.7149 81.33032 27.4292 78.85419 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 78.85419 27.4292 78.85419
+29.7149 81.33032 29.7149 81.33032 27.4292 78.85419 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 78.85419 27.4292 78.85419
+29.7149 81.33032 29.7149 81.33032 27.4292 78.85419 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 78.85419 27.4292 78.85419
+29.7149 81.33032 29.7149 81.33032 27.4292 78.85419 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 78.85419 27.4292 78.85419
+29.7149 81.33032 29.7149 81.33032 27.4292 78.85419 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 78.85419 27.4292 78.85419
+29.7149 81.33032 29.7149 81.33032 27.4292 78.85419 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 78.85419 27.4292 78.85419
+29.7149 81.33032 29.7149 81.33032 27.4292 78.85419 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 78.85419 27.4292 78.85419
+29.7149 81.33032 29.7149 81.33032 27.4292 78.85419 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.37805 27.4292 76.37805
+29.7149 78.85419 29.7149 78.85419 27.4292 76.37805 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.37805 27.4292 76.37805
+29.7149 78.85419 29.7149 78.85419 27.4292 76.37805 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.37805 27.4292 76.37805
+29.7149 78.85419 29.7149 78.85419 27.4292 76.37805 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.37805 27.4292 76.37805
+29.7149 78.85419 29.7149 78.85419 27.4292 76.37805 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.37805 27.4292 76.37805
+29.7149 78.85419 29.7149 78.85419 27.4292 76.37805 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.37805 27.4292 76.37805
+29.7149 78.85419 29.7149 78.85419 27.4292 76.37805 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.37805 27.4292 76.37805
+29.7149 78.85419 29.7149 78.85419 27.4292 76.37805 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.37805 27.4292 76.37805
+29.7149 78.85419 29.7149 78.85419 27.4292 76.37805 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 76.37805 27.4292 76.37805
+29.7149 78.85419 29.7149 78.85419 27.4292 76.37805 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 73.90192 27.4292 73.90192
+29.7149 76.37805 29.7149 76.37805 27.4292 73.90192 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 73.90192 27.4292 73.90192
+29.7149 76.37805 29.7149 76.37805 27.4292 73.90192 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 73.90192 27.4292 73.90192
+29.7149 76.37805 29.7149 76.37805 27.4292 73.90192 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 73.90192 27.4292 73.90192
+29.7149 76.37805 29.7149 76.37805 27.4292 73.90192 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 73.90192 27.4292 73.90192
+29.7149 76.37805 29.7149 76.37805 27.4292 73.90192 27.4292 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 73.90192 29.7149 73.90192
+32.00061 76.37805 32.00061 76.37805 29.7149 73.90192 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 73.90192 29.7149 73.90192
+32.00061 76.37805 32.00061 76.37805 29.7149 73.90192 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 73.90192 29.7149 73.90192
+32.00061 76.37805 32.00061 76.37805 29.7149 73.90192 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 71.42596 29.7149 71.42596
+32.00061 73.9021 32.00061 73.9021 29.7149 71.42596 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 71.42596 29.7149 71.42596
+32.00061 73.9021 32.00061 73.9021 29.7149 71.42596 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 71.42596 29.7149 71.42596
+32.00061 73.9021 32.00061 73.9021 29.7149 71.42596 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 71.42596 29.7149 71.42596
+32.00061 73.9021 32.00061 73.9021 29.7149 71.42596 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 71.42596 29.7149 71.42596
+32.00061 73.9021 32.00061 73.9021 29.7149 71.42596 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 71.42596 29.7149 71.42596
+32.00061 73.9021 32.00061 73.9021 29.7149 71.42596 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 71.42596 29.7149 71.42596
+32.00061 73.9021 32.00061 73.9021 29.7149 71.42596 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 71.42596 29.7149 71.42596
+32.00061 73.9021 32.00061 73.9021 29.7149 71.42596 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 29.7149 68.94983
+32.00061 71.42596 32.00061 71.42596 29.7149 68.94983 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 29.7149 68.94983
+32.00061 71.42596 32.00061 71.42596 29.7149 68.94983 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 29.7149 68.94983
+32.00061 71.42596 32.00061 71.42596 29.7149 68.94983 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 29.7149 68.94983
+32.00061 71.42596 32.00061 71.42596 29.7149 68.94983 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 29.7149 68.94983
+32.00061 71.42596 32.00061 71.42596 29.7149 68.94983 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 29.7149 68.94983
+32.00061 71.42596 32.00061 71.42596 29.7149 68.94983 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 29.7149 68.94983
+32.00061 71.42596 32.00061 71.42596 29.7149 68.94983 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 29.7149 68.94983
+32.00061 71.42596 32.00061 71.42596 29.7149 68.94983 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 68.94983 29.7149 68.94983
+32.00061 71.42596 32.00061 71.42596 29.7149 68.94983 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 29.7149 66.4737
+32.00061 68.94983 32.00061 68.94983 29.7149 66.4737 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 29.7149 66.4737
+32.00061 68.94983 32.00061 68.94983 29.7149 66.4737 29.7149 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 32.00061 66.4737
+34.28632 68.94983 34.28632 68.94983 32.00061 66.4737 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 32.00061 66.4737
+34.28632 68.94983 34.28632 68.94983 32.00061 66.4737 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 32.00061 66.4737
+34.28632 68.94983 34.28632 68.94983 32.00061 66.4737 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 32.00061 66.4737
+34.28632 68.94983 34.28632 68.94983 32.00061 66.4737 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 32.00061 66.4737
+34.28632 68.94983 34.28632 68.94983 32.00061 66.4737 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 66.4737 32.00061 66.4737
+34.28632 68.94983 34.28632 68.94983 32.00061 66.4737 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 32.00061 63.99774
+34.28632 66.47388 34.28632 66.47388 32.00061 63.99774 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 32.00061 63.99774
+34.28632 66.47388 34.28632 66.47388 32.00061 63.99774 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 32.00061 63.99774
+34.28632 66.47388 34.28632 66.47388 32.00061 63.99774 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 32.00061 63.99774
+34.28632 66.47388 34.28632 66.47388 32.00061 63.99774 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 32.00061 63.99774
+34.28632 66.47388 34.28632 66.47388 32.00061 63.99774 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 32.00061 63.99774
+34.28632 66.47388 34.28632 66.47388 32.00061 63.99774 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 32.00061 63.99774
+34.28632 66.47388 34.28632 66.47388 32.00061 63.99774 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 32.00061 63.99774
+34.28632 66.47388 34.28632 66.47388 32.00061 63.99774 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 63.99774 32.00061 63.99774
+34.28632 66.47388 34.28632 66.47388 32.00061 63.99774 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 32.00061 61.5216
+34.28632 63.99774 34.28632 63.99774 32.00061 61.5216 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 32.00061 61.5216
+34.28632 63.99774 34.28632 63.99774 32.00061 61.5216 32.00061 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 34.28632 61.5216
+36.57202 63.99774 36.57202 63.99774 34.28632 61.5216 34.28632 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 34.28632 61.5216
+36.57202 63.99774 36.57202 63.99774 34.28632 61.5216 34.28632 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 34.28632 61.5216
+36.57202 63.99774 36.57202 63.99774 34.28632 61.5216 34.28632 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 34.28632 61.5216
+36.57202 63.99774 36.57202 63.99774 34.28632 61.5216 34.28632 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 34.28632 61.5216
+36.57202 63.99774 36.57202 63.99774 34.28632 61.5216 34.28632 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 34.28632 61.5216
+36.57202 63.99774 36.57202 63.99774 34.28632 61.5216 34.28632 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 61.5216 34.28632 61.5216
+36.57202 63.99774 36.57202 63.99774 34.28632 61.5216 34.28632 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 34.28632 59.04547
+36.57202 61.5216 36.57202 61.5216 34.28632 59.04547 34.28632 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 34.28632 59.04547
+36.57202 61.5216 36.57202 61.5216 34.28632 59.04547 34.28632 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 34.28632 59.04547
+36.57202 61.5216 36.57202 61.5216 34.28632 59.04547 34.28632 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 34.28632 59.04547
+36.57202 61.5216 36.57202 61.5216 34.28632 59.04547 34.28632 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 34.28632 59.04547
+36.57202 61.5216 36.57202 61.5216 34.28632 59.04547 34.28632 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 34.28632 59.04547
+36.57202 61.5216 36.57202 61.5216 34.28632 59.04547 34.28632 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 36.5722 59.04547
+38.85791 61.5216 38.85791 61.5216 36.5722 59.04547 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 36.5722 59.04547
+38.85791 61.5216 38.85791 61.5216 36.5722 59.04547 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 59.04547 36.5722 59.04547
+38.85791 61.5216 38.85791 61.5216 36.5722 59.04547 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 36.5722 56.56952
+38.85791 59.04565 38.85791 59.04565 36.5722 56.56952 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 36.5722 56.56952
+38.85791 59.04565 38.85791 59.04565 36.5722 56.56952 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 36.5722 56.56952
+38.85791 59.04565 38.85791 59.04565 36.5722 56.56952 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 36.5722 56.56952
+38.85791 59.04565 38.85791 59.04565 36.5722 56.56952 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 36.5722 56.56952
+38.85791 59.04565 38.85791 59.04565 36.5722 56.56952 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 36.5722 56.56952
+38.85791 59.04565 38.85791 59.04565 36.5722 56.56952 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 36.5722 56.56952
+38.85791 59.04565 38.85791 59.04565 36.5722 56.56952 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 36.5722 56.56952
+38.85791 59.04565 38.85791 59.04565 36.5722 56.56952 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 56.56952 36.5722 56.56952
+38.85791 59.04565 38.85791 59.04565 36.5722 56.56952 36.5722 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 38.85791 54.09338
+41.14362 56.56952 41.14362 56.56952 38.85791 54.09338 38.85791 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 38.85791 54.09338
+41.14362 56.56952 41.14362 56.56952 38.85791 54.09338 38.85791 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 38.85791 54.09338
+41.14362 56.56952 41.14362 56.56952 38.85791 54.09338 38.85791 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 38.85791 54.09338
+41.14362 56.56952 41.14362 56.56952 38.85791 54.09338 38.85791 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 38.85791 54.09338
+41.14362 56.56952 41.14362 56.56952 38.85791 54.09338 38.85791 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 38.85791 54.09338
+41.14362 56.56952 41.14362 56.56952 38.85791 54.09338 38.85791 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 38.85791 54.09338
+41.14362 56.56952 41.14362 56.56952 38.85791 54.09338 38.85791 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 38.85791 54.09338
+41.14362 56.56952 41.14362 56.56952 38.85791 54.09338 38.85791 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 38.85791 54.09338
+41.14362 56.56952 41.14362 56.56952 38.85791 54.09338 38.85791 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 54.09338 38.85791 54.09338
+41.14362 56.56952 41.14362 56.56952 38.85791 54.09338 38.85791 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 41.14362 51.61725
+43.42932 54.09338 43.42932 54.09338 41.14362 51.61725 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 41.14362 51.61725
+43.42932 54.09338 43.42932 54.09338 41.14362 51.61725 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 41.14362 51.61725
+43.42932 54.09338 43.42932 54.09338 41.14362 51.61725 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 41.14362 51.61725
+43.42932 54.09338 43.42932 54.09338 41.14362 51.61725 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 41.14362 51.61725
+43.42932 54.09338 43.42932 54.09338 41.14362 51.61725 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 41.14362 51.61725
+43.42932 54.09338 43.42932 54.09338 41.14362 51.61725 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 41.14362 51.61725
+43.42932 54.09338 43.42932 54.09338 41.14362 51.61725 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 41.14362 51.61725
+43.42932 54.09338 43.42932 54.09338 41.14362 51.61725 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 41.14362 51.61725
+43.42932 54.09338 43.42932 54.09338 41.14362 51.61725 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 51.61725 41.14362 51.61725
+43.42932 54.09338 43.42932 54.09338 41.14362 51.61725 41.14362 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 43.4295 49.14111
+45.71521 51.61725 45.71521 51.61725 43.4295 49.14111 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 43.4295 49.14111
+45.71521 51.61725 45.71521 51.61725 43.4295 49.14111 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 43.4295 49.14111
+45.71521 51.61725 45.71521 51.61725 43.4295 49.14111 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 43.4295 49.14111
+45.71521 51.61725 45.71521 51.61725 43.4295 49.14111 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 43.4295 49.14111
+45.71521 51.61725 45.71521 51.61725 43.4295 49.14111 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 43.4295 49.14111
+45.71521 51.61725 45.71521 51.61725 43.4295 49.14111 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 43.4295 49.14111
+45.71521 51.61725 45.71521 51.61725 43.4295 49.14111 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 43.4295 49.14111
+45.71521 51.61725 45.71521 51.61725 43.4295 49.14111 43.4295 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 45.71521 49.14111
+48.00092 51.61725 48.00092 51.61725 45.71521 49.14111 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 45.71521 49.14111
+48.00092 51.61725 48.00092 51.61725 45.71521 49.14111 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 49.14111 45.71521 49.14111
+48.00092 51.61725 48.00092 51.61725 45.71521 49.14111 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 45.71521 46.66516
+48.00092 49.1413 48.00092 49.1413 45.71521 46.66516 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 45.71521 46.66516
+48.00092 49.1413 48.00092 49.1413 45.71521 46.66516 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 45.71521 46.66516
+48.00092 49.1413 48.00092 49.1413 45.71521 46.66516 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 45.71521 46.66516
+48.00092 49.1413 48.00092 49.1413 45.71521 46.66516 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial
+@beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.2 SLW 0 setgray [ 46.66516 45.71521 46.66516
+48.00092 49.1413 48.00092 49.1413 45.71521 46.66516 45.71521 /Lineto
+/lineto load def 1 setlinejoin false NArray n 2 eq { 0 0 /n 3 def
+} if n 3 lt { n { pop pop } repeat }{ n 3 gt { CheckClosed } if n 2
+mul -2 roll /y0 ED /x0 ED /y1 ED /x1 ED /xx1 x1 def /yy1 y1 def x1
+y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1 moveto /n
+n 2 sub def /drawArrows { x11 y11 0.5 1 gt { /Alpha y12 y11 sub x12
+x11 sub atan def /ArrowPos 0. def /Length x12 x11 sub y12 y11 sub
+Pyth def /dArrowPos 0.5 abs def { /ArrowPos ArrowPos dArrowPos add
+def ArrowPos Length gt { exit } if x11 Alpha cos ArrowPos mul add y11
+Alpha sin ArrowPos mul add currentdict /ArrowInside known { ArrowInside
+} if pop pop } loop }{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1.
+ 1.0 add div }{ 0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos
+add def x12 x11 sub ArrowPos mul x11 add y12 y11 sub ArrowPos mul y11
+add currentdict /ArrowInside known { ArrowInside } if pop pop } repeat
+} ifelse pop pop Lineto } def n { 4 copy /y11 ED /x11 ED /y12 ED /x12
+ED drawArrows } repeat x1 y1 x0 y0 6 4 roll 2 copy /y11 ED /x11 ED
+/y12 y0 def /x12 x0 def drawArrows /y11 y0 def /x11 x0 def /y12 yy1
+def /x12 xx1 def drawArrows pop pop closepath } ifelse gsave 1 0.1
+0.1 setrgbcolor 1. .setopacityalpha fill grestore gsave 0.2 SLW
+0 setgray 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke
+ grestore end
+
+@endspecial @beginspecial
+@setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.5 SLW 1 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def /t 0 def /t1 0.5 def /dt t1 t sub 199
+div def /F@pstplot ((1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0-1.5)*(2.0)+15*t^2*(1-t)^4*(2.0+2)*(2.0)+
+20*t^3*(1-t)^3*(2.0+6)*(2.0)+15*t^4*(1-t)^2*(2.0+5)*(2.0)+6*t^5*(1-t)*(2.0+1.5)*(2.0)+t^6*(2.0)*(2.0)|(1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0+2)*(2.0)+15*t^2*(1-t)^4*(2.0+5)*(2.0)+
+20*t^3*(1-t)^3*(2.0+3)*(2.0)+15*t^4*(1-t)^2*(2.0-1)*(2.0)+6*t^5*(1-t)*(2.0-2)*(2.0)+t^6*(2.0)*(2.0))
+ tx@AlgToPs begin AlgToPs end cvx def /xy { F@pstplot 12.0 mul exch
+12.0 mul exch } def /ps@Exit false def xy moveto 199 1 sub { /t t
+dt add def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0 mul
+lt { moveto }{ L } ifelse } ifelse ps@Exit { exit } if } repeat ps@Exit
+not { /t t1 def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0
+mul lt { moveto }{ L } ifelse } ifelse } if gsave 0.5 SLW 1 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial @beginspecial @setspecial
+ tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { } def
+/ArrowInside { } def 0.5 SLW 1 setgray /ArrowA { moveto } def /ArrowB
+{ } def /ArrowInside { } def /t 0.5 def /t1 1 def /dt t1 t sub 199
+div def /F@pstplot ((1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0-1.5)*(2.0)+15*t^2*(1-t)^4*(2.0+2)*(2.0)+
+20*t^3*(1-t)^3*(2.0+6)*(2.0)+15*t^4*(1-t)^2*(2.0+5)*(2.0)+6*t^5*(1-t)*(2.0+1.5)*(2.0)+t^6*(2.0)*(2.0)|(1-t)^6*(2.0)*(2.0)+6*t*(1-t)^5*(2.0+2)*(2.0)+15*t^2*(1-t)^4*(2.0+5)*(2.0)+
+20*t^3*(1-t)^3*(2.0+3)*(2.0)+15*t^4*(1-t)^2*(2.0-1)*(2.0)+6*t^5*(1-t)*(2.0-2)*(2.0)+t^6*(2.0)*(2.0))
+ tx@AlgToPs begin AlgToPs end cvx def /xy { F@pstplot 12.0 mul exch
+12.0 mul exch } def /ps@Exit false def xy moveto 199 1 sub { /t t
+dt add def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0 mul
+lt { moveto }{ L } ifelse } ifelse ps@Exit { exit } if } repeat ps@Exit
+not { /t t1 def xy dup 1.e30 12.0 mul gt { moveto }{ dup -1.e30 12.0
+mul lt { moveto }{ L } ifelse } ifelse } if gsave 0.5 SLW 1 setgray
+ 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+end
+
+@endspecial
+0 TeXcolorgray 0 TeXcolorgray eop end
+%%Trailer
+
+userdict /end-hook known{end-hook}if
+%%EOF
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vec1.eps b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vecb1.eps
index b45000cb96e..8954f47408c 100644
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vec1.eps
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vecb1.eps
@@ -1,17 +1,17 @@
%!PS-Adobe-3.0 EPSF-3.0
-%%Creator: dvips(k) 5.992 Copyright 2012 Radical Eye Software
+%%Creator: dvips(k) 5.993 Copyright 2013 Radical Eye Software
%%Title: testps-fig1.dvi
-%%CreationDate: Tue Oct 01 20:06:45 2013
+%%CreationDate: Tue Apr 01 22:39:21 2014
%%Pages: 1
%%PageOrder: Ascend
-%%BoundingBox: 101 519 279 699
+%%BoundingBox: 101 519 281 699
%%DocumentFonts: CMR8 CMSY8
%%DocumentPaperSizes: Letter
%%EndComments
%DVIPSWebPage: (www.radicaleye.com)
%DVIPSCommandLine: DVIPS.EXE testps-fig1
%DVIPSParameters: dpi=600
-%DVIPSSource: TeX output 2013.10.01:2006
+%DVIPSSource: TeX output 2014.04.01:2239
%%BeginProcSet: tex.pro 0 0
%!
/TeXDict 300 dict def TeXDict begin/N{def}def/B{bind def}N/S{exch}N/X{S
@@ -43,19 +43,21 @@ SI restore userdict/eop-hook known{eop-hook}if showpage}N/@start{
userdict/start-hook known{start-hook}if pop/VResolution X/Resolution X
1000 div/DVImag X/IEn 256 array N 2 string 0 1 255{IEn S A 360 add 36 4
index cvrs cvn put}for pop 65781.76 div/vsize X 65781.76 div/hsize X}N
-/p{show}N/RMat[1 0 0 -1 0 0]N/BDot 260 string N/Rx 0 N/Ry 0 N/V{}B/RV/v{
-/Ry X/Rx X V}B statusdict begin/product where{pop false[(Display)(NeXT)
-(LaserWriter 16/600)]{A length product length le{A length product exch 0
-exch getinterval eq{pop true exit}if}{pop}ifelse}forall}{false}ifelse
-end{{gsave TR -.1 .1 TR 1 1 scale Rx Ry false RMat{BDot}imagemask
-grestore}}{{gsave TR -.1 .1 TR Rx Ry scale 1 1 false RMat{BDot}
-imagemask grestore}}ifelse B/QV{gsave newpath transform round exch round
-exch itransform moveto Rx 0 rlineto 0 Ry neg rlineto Rx neg 0 rlineto
-fill grestore}B/a{moveto}B/delta 0 N/tail{A/delta X 0 rmoveto}B/M{S p
-delta add tail}B/b{S p tail}B/c{-4 M}B/d{-3 M}B/e{-2 M}B/f{-1 M}B/g{0 M}
-B/h{1 M}B/i{2 M}B/j{3 M}B/k{4 M}B/w{0 rmoveto}B/l{p -4 w}B/m{p -3 w}B/n{
-p -2 w}B/o{p -1 w}B/q{p 1 w}B/r{p 2 w}B/s{p 3 w}B/t{p 4 w}B/x{0 S
-rmoveto}B/y{3 2 roll p a}B/bos{/SS save N}B/eos{SS restore}B end
+/dir 0 def/dyy{/dir 0 def}B/dyt{/dir 1 def}B/dty{/dir 2 def}B/dtt{/dir 3
+def}B/p{dir 2 eq{-90 rotate show 90 rotate}{dir 3 eq{-90 rotate show 90
+rotate}{show}ifelse}ifelse}N/RMat[1 0 0 -1 0 0]N/BDot 260 string N/Rx 0
+N/Ry 0 N/V{}B/RV/v{/Ry X/Rx X V}B statusdict begin/product where{pop
+false[(Display)(NeXT)(LaserWriter 16/600)]{A length product length le{A
+length product exch 0 exch getinterval eq{pop true exit}if}{pop}ifelse}
+forall}{false}ifelse end{{gsave TR -.1 .1 TR 1 1 scale Rx Ry false RMat{
+BDot}imagemask grestore}}{{gsave TR -.1 .1 TR Rx Ry scale 1 1 false RMat
+{BDot}imagemask grestore}}ifelse B/QV{gsave newpath transform round exch
+round exch itransform moveto Rx 0 rlineto 0 Ry neg rlineto Rx neg 0
+rlineto fill grestore}B/a{moveto}B/delta 0 N/tail{A/delta X 0 rmoveto}B
+/M{S p delta add tail}B/b{S p tail}B/c{-4 M}B/d{-3 M}B/e{-2 M}B/f{-1 M}
+B/g{0 M}B/h{1 M}B/i{2 M}B/j{3 M}B/k{4 M}B/w{0 rmoveto}B/l{p -4 w}B/m{p
+-3 w}B/n{p -2 w}B/o{p -1 w}B/q{p 1 w}B/r{p 2 w}B/s{p 3 w}B/t{p 4 w}B/x{
+0 S rmoveto}B/y{3 2 roll p a}B/bos{/SS save N}B/eos{SS restore}B end
%%EndProcSet
%%BeginProcSet: pstricks.pro 0 0
@@ -4021,941 +4023,21 @@ tx@FuncDict begin
end
%%EndProcSet
-%%BeginProcSet: pst-3dplot.pro 0 0
-%% $Id: pst-3dplot.pro 236 2009-12-31 08:59:43Z herbert $
-%%
-%% This is file `pst-3dplot.pro',
-%%
-%% IMPORTANT NOTICE:
-%%
-%% Package `pst-3dplot.tex'
-%%
-%% Herbert Voss <voss _at_ PSTricks.de>
-%%
-%% This program can be redistributed and/or modified under the terms
-%% of the LaTeX Project Public License Distributed from CTAN archives
-%% in directory macros/latex/base/lppl.txt.
-%%
-%% DESCRIPTION:
-%% `pst-3dplot' is a PSTricks package to draw 3d curves and graphical objects
-%%
-%%
-%% version 0.30 / 2010-01-01 Herbert Voss <voss _at_ PSTricks.de>
-%% with contributions of Darrell Lamm <darrell.lamm _at_ gtri.gatech.edu<
-%%
-%
-/tx@3DPlotDict 200 dict def
-tx@3DPlotDict begin
-%
-/printDot { gsave 2 copy 2 0 360 arc fill stroke grestore } def
-%
-/saveCoor {
- dzUnit mul /z ED
- dyUnit mul /y ED
- dxUnit mul /x ED
-} def
-%
-/ConvertTo2D {
- RotatePoint
- 1 { % dummy loop, will run only 1 time, allows exit
- coorType 0 le { % the default |
- /x2D x leftHanded not { neg } if Alpha cos mul y Alpha sin mul add def % /\ co system
- /y2D x leftHanded { neg } if Alpha sin mul y Alpha cos mul add neg Beta sin mul z Beta cos mul add def
- exit } if
- coorType 1 le {
- /x2D y x Alpha 90 sub sin mul sub def % |/_ co system, no shortened x axis
- /y2D z x Alpha 90 sub cos mul sub def
- exit } if
- coorType 2 le { % coorType |/_ with a 1/sqrt(2) shortend x-axis and 135 degrees
- /x2D y x 0.5 mul sub def
- /y2D z x 0.5 mul sub def
- exit } if
- coorType 3 le { % coorType |/_ with a 1/sqrt(2) shortend x-axis and 135 degrees
- /x2D y x -0.5 mul sub def
- /y2D z x -0.5 mul sub def
- exit } if
- coorType 4 le { % Normalbild in Trimetrie Skalierung so, dass coorType2
- /x2D x -0.5 mul y 1 mul add def
- /y2D x -0.5 mul y -0.25 mul add z 1 mul add def
- exit } if
- } repeat
-} def
-%
-/Conv3D2D { /z ED /y ED /x ED ConvertTo2D x2D y2D } def
-%
-/ConvertToCartesian {
- /latitude exch def
- /longitude exch def
- /Radius exch def
- 1 { % dummy loop, will run only 1 time, allows exit
- SphericalCoorType 0 le { % the default |
- /z { Radius latitude sin mul } def
- /x { Radius longitude cos mul latitude cos mul } def
- /y { Radius longitude sin mul latitude cos mul } def
- exit } if
- SphericalCoorType 2 le {
- /z { Radius longitude cos mul } def
- /x { Radius longitude sin mul latitude cos mul} def
- /y { Radius longitude sin mul latitude sin mul } def
- exit } if
- } repeat
-} def
-%
-/ConvCylToCartesian { % r phi h -> x y z
- 3 1 roll % h r phi
- /Phi ED
- /Radius ED % h->z on stack
- Radius Phi cos mul exch % x z
- Radius Phi sin mul exch % x y z
-} def
-%
-/SphericalTo2D {
- x y z ConvertToCartesian ConvertTo2D
-} def
-%
-/CylinderTo2D { % r phi h
- x y z ConvCylToCartesian ConvertTo2D
-} def
-%
-/convertStackTo2D {
- counttomark
- /n ED /n3 n 3 div cvi def
- n3 {
- n -3 roll
- SphericalCoor { ConvertToCartesian } { saveCoor } ifelse
- ConvertTo2D
- x2D xUnit y2D yUnit
- /n n 1 sub def
- } repeat
-} def
-%
-% the angle in the parameter equation for an ellipse is not proportional to the real angle!
-% phi=atan(b*tan(angle)/a)+floor(angle/180+0.5)*180
-%
-/getPhi { % on stack: vecA vecB angle
- 3 dict begin
- /angle exch def /vecB exch def /vecA exch def
- angle cvi 90 mod 0 eq { angle } { vecA angle tan mul vecB atan
- angle 180 div .5 add floor 180 mul add } ifelse
- end
-} def
-%
-/RotSet (set ) def
-%
-/eulerRotation false def
-% Matrix multiplication procedure
-/matmul {
-
- /M@tMulDict 20 dict def
- M@tMulDict begin
- /m2 ED
- /m1 ED
- m1 dup length 2 sub 2 getinterval aload pop
- /col1max ED
- /row1max ED
- m2 dup length 2 sub 2 getinterval aload pop
- /col2max ED
- /row2max ED
- /m3 row1max col2max mul 2 add array def
- m3 dup length 2 sub row1max col2max 2 array astore putinterval
- 0 1 row1max 1 sub {
- /row ED
- 0 1 col2max 1 sub {
- /col ED
- /sum 0 def
- 0 1 col1max 1 sub{
- /rowcol ED
- sum
- m1 row col1max mul rowcol add get
- m2 rowcol col2max mul col add get
- mul add
- /sum ED
- } for
- m3 row col2max mul col add sum put
- } for
- } for
- m3
- end % end of M@tMulDict
-
-} def
-%
-/SetMQuaternion {
-
- /MnewTOold 11 array def
-
- /Qu@ternionDict 30 dict def
- Qu@ternionDict begin
-
- /normRotVec xRotVec yRotVec zRotVec 3 array astore VecNorm def
- normRotVec 0 gt
- {/xRotVecNorm xRotVec normRotVec div def
- /yRotVecNorm yRotVec normRotVec div def
- /zRotVecNorm zRotVec normRotVec div def
- RotAngle}
- {/xRotVecNorm 1 def
- /yRotVecNorm 0 def
- /zRotVecNorm 0 def
- 0} ifelse
-
- 2 div dup
- /q0 exch cos def
- sin dup dup
- /q1 exch xRotVecNorm mul def
- /q2 exch yRotVecNorm mul def
- /q3 exch zRotVecNorm mul def
-
- /q0q0 q0 q0 mul def
- /q0q1 q0 q1 mul def
- /q0q2 q0 q2 mul def
- /q0q3 q0 q3 mul def
-
- /q1q1 q1 q1 mul def
- /q1q2 q1 q2 mul def
- /q1q3 q1 q3 mul def
-
- /q2q2 q2 q2 mul def
- /q2q3 q2 q3 mul def
-
- /q3q3 q3 q3 mul def
-
- MnewTOold 0 q0q0 q1q1 add q2q2 sub q3q3 sub put
- MnewTOold 1 q1q2 q0q3 sub 2 mul put
- MnewTOold 2 q1q3 q0q2 add 2 mul put
-
- MnewTOold 3 q1q2 q0q3 add 2 mul put
- MnewTOold 4 q0q0 q1q1 sub q2q2 add q3q3 sub put
- MnewTOold 5 q2q3 q0q1 sub 2 mul put
-
- MnewTOold 6 q1q3 q0q2 sub 2 mul put
- MnewTOold 7 q2q3 q0q1 add 2 mul put
- MnewTOold 8 q0q0 q1q1 sub q2q2 sub q3q3 add put
-
- MnewTOold 9 3 put
- MnewTOold 10 3 put
-
- end % end of Qu@ternionDict
-
-} def
-%
-/SetMxyz {
- 1.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0 1.0 3 3 11 array astore /MnewTOold ED
- RotSequence cvx exec % Now create a new MnewTOold using xyz, etc.
-} def
-%
-/ConcatMQuaternion {
- MnewTOold % Push onto stack
- SetMQuaternion % Uses [xyz]RotVec and RotAngle to make MnewToOld
- MnewTOold matmul /MnewTOold ED
-} def
-%
-/ConcatMxyz {
- MnewTOold % Push onto stack
- SetMxyz % Uses RotX, etc. to set MnewTOold
- MnewTOold matmul /MnewTOold ED
-} def
-%
-/RotatePoint{
- MnewTOold x y z 3 1 5 array astore matmul
- 0 3 getinterval aload pop
- /z ED
- /y ED
- /x ED
-} def
-%
-/makeMoldTOnew {
- /MoldTOnew 11 array def
- MoldTOnew 0 MnewTOold 0 get put
- MoldTOnew 1 MnewTOold 3 get put
- MoldTOnew 2 MnewTOold 6 get put
- MoldTOnew 3 MnewTOold 1 get put
- MoldTOnew 4 MnewTOold 4 get put
- MoldTOnew 5 MnewTOold 7 get put
- MoldTOnew 6 MnewTOold 2 get put
- MoldTOnew 7 MnewTOold 5 get put
- MoldTOnew 8 MnewTOold 8 get put
- MoldTOnew 9 3 put
- MoldTOnew 10 3 put
-} def
-%
-/RotXaxis {
- eulerRotation
- {1 0 0}
- {makeMoldTOnew MoldTOnew 1 0 0 3 1 5 array astore matmul
- 0 3 getinterval aload pop} ifelse
- /zRotVec ED
- /yRotVec ED
- /xRotVec ED
- /RotAngle RotX def
- ConcatMQuaternion
-} def
-/RotYaxis {
- eulerRotation
- {0 1 0}
- {makeMoldTOnew MoldTOnew 0 1 0 3 1 5 array astore matmul
- 0 3 getinterval aload pop} ifelse
- /zRotVec ED
- /yRotVec ED
- /xRotVec ED
- /RotAngle RotY def
- ConcatMQuaternion
-} def
-/RotZaxis {
- eulerRotation
- {0 0 1}
- {makeMoldTOnew MoldTOnew 0 0 1 3 1 5 array astore matmul
- 0 3 getinterval aload pop} ifelse
- /zRotVec ED
- /yRotVec ED
- /xRotVec ED
- /RotAngle RotZ def
- ConcatMQuaternion
-} def
-/xyz { RotXaxis RotYaxis RotZaxis } def
-/yxz { RotYaxis RotXaxis RotZaxis } def
-/yzx { RotYaxis RotZaxis RotXaxis } def
-/xzy { RotXaxis RotZaxis RotYaxis } def
-/zxy { RotZaxis RotXaxis RotYaxis } def
-/zyx { RotZaxis RotYaxis RotXaxis } def
-/quaternion { } def % Null
-%
-/VecNorm { 0 exch { dup mul add } forall sqrt } def
-%
-/UnitVec { % on stack is [a]; returns a vector with [a][a]/|a|=1
- dup VecNorm /norm ED
- norm 0 lt {/norm 0 def} if
- { norm div } forall 3 array astore } def
-%
-/AxB { % on the stack are the two vectors [a][b]
- aload pop /b3 ED /b2 ED /b1 ED
- aload pop /a3 ED /a2 ED /a1 ED
- a2 b3 mul a3 b2 mul sub
- a3 b1 mul a1 b3 mul sub
- a1 b2 mul a2 b1 mul sub
- 3 array astore } def
-%
-/AaddB { % on the stack are the two vectors [a][b]
- aload pop /b3 ED /b2 ED /b1 ED
- aload pop /a3 ED /a2 ED /a1 ED
- a1 b1 add a2 b2 add a3 b3 add
- 3 array astore } def
-%
-/AmulC { % on stack is [a] and c; returns [a] mul c
- /factor ED { factor mul } forall 3 array astore } def
-%
-%
-/setColorLight { % expects 7 values on stack C M Y K xL yL zL
-% les rayons de lumi�re
- xLight dup mul yLight dup mul zLight dup mul add add sqrt /NormeLight ED
-% the color values
- /K ED
- /Yellow ED
- /Magenta ED
- /Cyan ED
-} def
-%
-/facetteSphere {
- newpath
- /Xpoint Rsphere theta cos mul phi cos mul CX add def
- /Ypoint Rsphere theta sin mul phi cos mul CY add def
- /Zpoint Rsphere phi sin mul CZ add def
- Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end moveto
- theta 1 theta increment add {%
- /theta1 ED
- /Xpoint Rsphere theta1 cos mul phi cos mul CX add def
- /Ypoint Rsphere theta1 sin mul phi cos mul CY add def
- /Zpoint Rsphere phi sin mul CZ add def
- Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
- } for
- phi 1 phi increment add {
- /phi1 ED
- /Xpoint Rsphere theta increment add cos mul phi1 cos mul CX add def
- /Ypoint Rsphere theta increment add sin mul phi1 cos mul CY add def
- /Zpoint Rsphere phi1 sin mul CZ add def
- Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
- } for
- theta increment add -1 theta {%
- /theta1 ED
- /Xpoint Rsphere theta1 cos mul phi increment add cos mul CX add def
- /Ypoint Rsphere theta1 sin mul phi increment add cos mul CY add def
- /Zpoint Rsphere phi increment add sin mul CZ add def
- Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
- } for
- phi increment add -1 phi {
- /phi1 ED
- /Xpoint Rsphere theta cos mul phi1 cos mul CX add def
- /Ypoint Rsphere theta sin mul phi1 cos mul CY add def
- /Zpoint Rsphere phi1 sin mul CZ add def
- Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
- } for
- closepath
-} def
-%
-/MaillageSphere {
-% on stack must be x y z Radius increment C M Y K
- setColorLight
- /increment ED
- /Rsphere ED
- /CZ ED
- /CY ED
- /CX ED
- /StartTheta 0 def
- /condition { PSfacetteSphere 0 ge } def
- -90 increment 90 increment sub {%
- /phi ED
- StartTheta increment 360 StartTheta add increment sub {%
- /theta ED
- % Centre de la facette
- /Xpoint Rsphere theta increment 2 div add cos mul phi increment 2 div add cos mul CX add def
- /Ypoint Rsphere theta increment 2 div add sin mul phi increment 2 div add cos mul CY add def
- /Zpoint Rsphere phi increment 2 div add sin mul CZ add def
- % normale � la facette
- /nXfacette Xpoint CX sub def
- /nYfacette Ypoint CY sub def
- /nZfacette Zpoint CZ sub def
- % test de visibilit�
- /PSfacetteSphere
- vX nXfacette mul
- vY nYfacette mul add
- vZ nZfacette mul add
- def
- condition {
- gsave
- facetteSphere
- /cosV { 1 xLight nXfacette mul
- yLight nYfacette mul
- zLight nZfacette mul
- add add
- NormeLight
- nXfacette dup mul
- nYfacette dup mul
- nZfacette dup mul
- add add sqrt mul div sub } bind def
- Cyan cosV mul Magenta cosV mul Yellow cosV mul K cosV mul setcmykcolor fill
- grestore
-% 0 setgray
- showgrid { facetteSphere stroke } if
- } if
- } for
- % /StartTheta StartTheta increment 2 div add def
- } for
-} def
-%
-%---------------------- Cylinder ---------------------------
-%
-/PlanCoupeCylinder { %
- /TableauxPoints [
- 0 1 359 {
- /phi ED
- [ Radius phi Height ConvCyl2d ] % on décrit le cercle
- } for
- ] def
- newpath
- TableauxPoints 0 get aload pop moveto
- 1 1 359 { TableauxPoints exch get aload pop lineto } for
- closepath
-} def
-%
-/facetteCylinder { %
- newpath
- Radius phi currentHeight ConvCyl2d moveto
- phi 1 phi dAngle add { % loop variable on stack
- Radius exch currentHeight ConvCyl2d lineto
- } for
- phi dAngle add -1 phi { % fill dHeight
- Radius exch currentHeight dHeight add ConvCyl2d lineto
- } for
- closepath
- } def % facette
-%
-/MaillageCylinder { % on stack true or false for saving values
- { setColorLight % expects 4 values on stack C M Y K
- /dHeight ED /dAngle ED /Height ED /Radius ED
- /CZ ED /CY ED /CX ED } if
-%
- 0 dHeight Height dHeight sub {
- /currentHeight ED
- 0 dAngle 360 dAngle sub {
- /phi ED
-% Normal vector of the center
- /nXfacetteCylinder Radius phi dAngle 2 div add cos mul CX add def
- /nYfacetteCylinder Radius phi dAngle 2 div add sin mul CY add def
- /nZfacetteCylinder currentHeight dHeight 2 div add CZ add def
- /NormeN
- nXfacetteCylinder dup mul
- nYfacetteCylinder dup mul
- nZfacetteCylinder dup mul
- add add sqrt def
- NormeN 0 eq { /NormeN 1e-10 def } if
-% test de visibilité
- /PSfacetteCylinder
- vX nXfacetteCylinder mul
- vY nYfacetteCylinder mul add
- vZ nZfacetteCylinder mul add def
- condition {
- facetteCylinder
- /cosV
- 1 xLight nXfacetteCylinder mul
- yLight nYfacetteCylinder mul
- zLight nZfacetteCylinder mul
- add add
- NormeLight NormeN mul div sub def
- Cyan Magenta Yellow K
- cosV mul 4 1 roll cosV mul 4 1 roll
- cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
- setcmykcolor fill
- showgrid {
- 0 setgray
- facetteCylinder % drawing the segments
- stroke } if
- } if
- } for
- } for
-} def
-%
-%------------------------ Cylinder type II -----------------------
-%
-/MoveTo { Conv3D2D moveto } def
-/LineTo { Conv3D2D lineto } def
-
-/IIIDEllipse { % x y z rA rB startAngle endAngle Wedge
- /dAngle 1 def
- /isWedge ED
- /endAngle ED
- /startAngle ED
- /radiusB ED
- /radiusA ED
- startAngle cos radiusA mul startAngle sin radiusB mul 0
- isWedge { 0 0 moveto LineTo }{ MoveTo } ifelse
- /Angle startAngle def
- startAngle dAngle endAngle {
- /Angle ED
- Angle cos radiusA mul Angle sin radiusB mul 0 LineTo
- } for
- isWedge { 0 0 lineto } if
-} def
-
-/IIIDCircle { % x y z r startAngle endAngle Wedge
- 7 3 roll % startAngle endAngle Wedge x y z r
- dup % startAngle endAngle Wedge x y z r r
- 8 -3 roll
- IIIDEllipse
-} def
-
-/IIIDWedge { % x y z r startAngle endAngle
- true IIIDCircle
-} def
-
-/IIIDCylinder {% x y z r h start end wedge
- /isWedge ED
- /increment ED
- /endAngle ED
- /startAngle ED
- /height ED
- /radius ED
- startAngle increment endAngle {
- /Angle ED
- radius Angle 0 ConvCylToCartesian MoveTo
- radius Angle height ConvCylToCartesian LineTo
- } for
- stroke
-} def
-%
-%---------------------- Box ---------------------------
-%
-/PlanCoupeBox { % x y z
- /TableauxPoints [
- [ CX CY CZ Height add ConvBox2d ] % top or bottom
- [ CX CY Depth add CZ Height add ConvBox2d ]
- [ CX Width add CY Depth add CZ Height add ConvBox2d ]
- [ CX Width add CY CZ Height add ConvBox2d ]
- [ CX CY CZ Height add ConvBox2d ] % bottom
- ] def
- newpath
- TableauxPoints 0 get aload pop moveto
- 0 1 3 {
- TableauxPoints exch get aload pop
- lineto } for
- closepath
-} def
-%
-/facetteBox { %
- newpath
- dup
- 1 eq { % back
- CX CY CZ ConvBox2d moveto
- CX CY CZ Height add ConvBox2d lineto
- CX Width add CY CZ Height add ConvBox2d lineto
- CX Width add CY CZ ConvBox2d lineto
- CX CY CZ ConvBox2d lineto
- } if
- dup
- 2 eq { % right
- CX CY CZ ConvBox2d moveto
- CX CY CZ Height add ConvBox2d lineto
- CX CY Depth add CZ Height add ConvBox2d lineto
- CX CY Depth add CZ ConvBox2d lineto
- CX CY CZ ConvBox2d lineto
- } if
- dup
- 3 eq { % left
- CX Width add CY CZ ConvBox2d moveto
- CX Width add CY Depth add CZ ConvBox2d lineto
- CX Width add CY Depth add CZ Height add ConvBox2d lineto
- CX Width add CY CZ Height add ConvBox2d lineto
- CX Width add CY CZ ConvBox2d lineto
- } if
- 4 eq { % front
- CX CY Depth add CZ ConvBox2d moveto
- CX CY Depth add CZ Height add ConvBox2d lineto
- CX Width add CY Depth add CZ Height add ConvBox2d lineto
- CX Width add CY Depth add CZ ConvBox2d lineto
- CX CY Depth add CZ ConvBox2d lineto
- } if
- closepath
- } def % facette
-%
-/TestPlane { % on stack x y z of the plane center and # of plane
- /nZfacetteBox ED /nYfacetteBox ED /nXfacetteBox ED
- /Plane ED
- /NormeN
- nXfacetteBox dup mul
- nYfacetteBox dup mul
- nZfacetteBox dup mul
- add add sqrt def
- NormeN 0 eq { /NormeN 1e-10 def } if
-% test de visibilit�
- /PSfacetteBox
- vX nXfacetteBox mul
- vY nYfacetteBox mul add
- vZ nZfacetteBox mul add def
- condition {
- Plane facetteBox
- /cosV
- 1 xLight nXfacetteBox mul
- yLight nYfacetteBox mul
- zLight nZfacetteBox mul
- add add
- NormeLight NormeN mul div sub def
- Cyan Magenta Yellow K
- cosV mul 4 1 roll cosV mul 4 1 roll
- cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
- setcmykcolor fill
- 0 setgray
- Plane facetteBox % drawing the segments
- stroke
- } if
-} def
-%
-/MaillageBox { % on stack true or false for saving values
- { setColorLight % expects 4 values on stack C M Y K
- /Depth ED /Height ED /Width ED
- /CZ ED /CY ED /CX ED } if
-%
-% Normal vector of the box center
- /PlaneSet [
- [ Width 2 div CX add
- CY
- Height 2 div CZ add ] % normal back
- [ CX
- Depth 2 div CY add
- Height 2 div CZ add ] % normal right
- [ Width CX add
- Depth 2 div CY add
- Height 2 div CZ add ] % normal left
- [ Width 2 div CX add
- Depth CY add
- Height 2 div CZ add ] % normal front
- ] def
- PlaneSequence length 0 eq { % user defined?
- Alpha abs cvi 360 mod /iAlpha ED
- iAlpha 90 lt { [ 1 2 3 4 ]
- }{ iAlpha 180 lt { [ 2 4 1 3 ]
- }{ iAlpha 270 lt { [ 3 4 1 2 ] }{ [ 3 1 4 2] } ifelse } ifelse } ifelse
- }{ PlaneSequence } ifelse
- { dup 1 sub PlaneSet exch get aload pop TestPlane } forall
-} def
-%
-%--------------------------- Paraboloid -----------------------------
-/PlanCoupeParaboloid {
- /Z height store
- /V {Z sqrt} bind def
- /TableauxPoints [
- 0 1 359 {
- /U ED [ U U Z V calculate2DPoint ] % on d�crit le cercle
- } for
- ] def
- newpath
- TableauxPoints 0 get aload pop moveto
- 0 1 359 {
- /compteur ED
- TableauxPoints compteur get aload pop
- lineto } for
- closepath
-} def
-%
-/facetteParaboloid{
- newpath
- U U Z V calculate2DPoint moveto
- U 1 U increment add {%
- /U1 ED
- U1 U1 Z V calculate2DPoint lineto
- } for
- Z pas10 Z pas add pas10 add{
- /Z1 ED
- /V {Z1 sqrt} bind def
- U1 U1 Z1 V calculate2DPoint lineto
- } for
- U increment add -1 U {%
- /U2 ED
- U2 U2 Z pas add V calculate2DPoint lineto
- } for
- Z pas add pas10 sub pas10 neg Z pas10 sub {
- /Z2 ED
- /V Z2 abs sqrt def
- U U Z2 V calculate2DPoint lineto
- } for
- closepath
-} def % facette
-%
-/MaillageParaboloid {
- % on stack true or false for saving values
- { setColorLight % expects 7 values on stack C M Y K xL yL zL
-% /CZ ED /CY ED /CX ED
- } if
- 0 pas height pas sub {%
- /Z ED
- /V Z sqrt def
- 0 increment 360 increment sub {%
- /U ED
-% Centre de la facette
- /Ucentre U increment 2 div add def
- /Vcentre Z pas 2 div add sqrt def
-% normale à la facette
- /nXfacetteParaboloid 2 Vcentre dup mul mul Ucentre cos mul radius mul def
- /nYfacetteParaboloid 2 Vcentre dup mul mul Ucentre sin mul radius mul def
- /nZfacetteParaboloid Vcentre neg radius dup mul mul def
- /NormeN {
- nXfacetteParaboloid dup mul
- nYfacetteParaboloid dup mul
- nZfacetteParaboloid dup mul
- add add sqrt} bind def
- NormeN 0 eq {/NormeN 1e-10 def} if
-% test de visibilit�
- /PSfacetteParaboloid vX nXfacetteParaboloid mul
- vY nYfacetteParaboloid mul add
- vZ nZfacetteParaboloid mul add def
- condition {
- facetteParaboloid
- /cosV 1 xLight nXfacetteParaboloid mul
- yLight nYfacetteParaboloid mul
- zLight nZfacetteParaboloid mul
- add add
- NormeLight
- NormeN mul div sub def
- Cyan Magenta Yellow K
- cosV mul 4 1 roll cosV mul 4 1 roll cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
- setcmykcolor fill
- showgrid {
- 0 setgray
- facetteParaboloid
- stroke } if
- } if
- } for
- } for
-} def
-%
-% ------------------------------------ math stuff ----------------------------------
-%
-% Matrix A in arrays of rows A[[row1][row2]...]
-% with [row1]=[a11 a12 ... b1]
-% returns on stack solution vector X=[x1 x2 ... xn]
-/SolveLinEqSystem { % on stack matrix M=[A,b] (A*x=b)
- 10 dict begin % hold all ocal
- /A exch def
- /Rows A length def % Rows = number of rows
- /Cols A 0 get length def % Cols = number of columns
- /Index [ 0 1 Rows 1 sub { } for ] def % Index = [0 1 2 ... Rows-1]
- /col 0 def
- /row 0 def
- /PR Rows array def % PR[c] = pivot row for row row
- { % starts the loop, find pivot entry in row r
- col Cols ge row Rows ge or { exit } if % col < Cols and row < Rows else exit
- /pRow row def % pRow = pivot row
- /max A row get col get abs def % get A[row[col]], first A[0,0]
- row 1 add 1 Rows 1 sub { % starts for loop 1 1 Rows-1
- /j exch def % index counter
- /x A j get col get abs def % get A[j[r]]
- x max gt { % x>max, then save position
- /pRow j def
- /max x def
- } if
- } for % now we have the row with biggest A[0,1]
- % with pRow = the pivot row
- max 0 gt { % swap entries pRow and row in i
- /tmp Index row get def
- Index row Index pRow get put
- Index pRow tmp put % and columns pRow and row in A
- /tmp A row get def
- A row A pRow get put
- A pRow tmp put % pivot
- /row0 A row get def % the pivoting row
- /p0 row0 col get def % the pivot value
- row 1 add 1 Rows 1 sub { % start for loop
- /j exch def
- /c1 A j get def
- /p c1 col get p0 div def
- c1 col p put % subtract (p1/p0)*row[i] from row[j]
- col 1 add 1 Cols 1 sub { % start for loop
- /i exch def
- c1 dup i exch % c1 i c1
- i get row0 i get p mul sub put
- } for
- } for
- PR row col put
- /col col 1 add def
- /row row 1 add def
- }{ % all zero entries
- /row row 1 add def % continue loop with same row
- } ifelse
- } loop
- /X A def % solution vector
- A Rows 1 sub get dup
- Cols 1 sub get exch
- Cols 2 sub get div
- X Rows 1 sub 3 -1 roll put % X[n]
- Rows 2 sub -1 0 { % for loop to calculate X[i]
- /xi exch def % current index
- A xi get % i-th row
- /Axi exch def
- /sum 0 def
- Cols 2 sub -1 xi 1 add {
- /n exch def
- /sum sum Axi n get X n get mul add def
- } for
- Axi Cols 1 sub get % b=Axi[Cols-1]
- sum sub % b-sum
- Axi xi get div % b-sum / Axi[xi]
- X xi 3 -1 roll put % X[xi]
- } for
- X
- end
-} def
-%
-% u -> e_u with |e_u|=1
-/vector-unit { 1 dict begin
- dup vector-length 1 exch div
- vector-scale
- end
-} def
-%
-% u v -> u+v
-/vector-add { 1 dict begin
- /v exch def
- [ exch
- 0 % u i
- exch { % i u[i]
- v % i u[i] v
- 2 index get add % i u[i]+v[i]
- exch 1 add % i
- } forall
- pop
- ]
- end
-} def
-%
-% u v -> u-v
-/vector-sub { 1 dict begin
- /v exch def
- [ exch
- 0 % u i
- exch { % i u[i]
- v % i u[i] v
- 2 index get sub % i u[i]+v[i]
- exch 1 add % i
- } forall
- pop
- ]
-end } def
-%
-% [v] c -> [c.v]
-/vector-scale { 1 dict begin
- /c exch def
- [ exch
- { % s i u[i]
- c mul % s i u[i] v
- } forall
- ]
- end } def
-%
-%
-% [u] [v] -> [u x v]
-/vector-prod { %% x1 y1 z1 x2 y2 z2
-6 dict begin
- aload pop
- /zp exch def /yp exch def /xp exch def
- aload pop
- /z exch def /y exch def /x exch def
- [ y zp mul z yp mul sub
- z xp mul x zp mul sub
- x yp mul y xp mul sub ]
-end
-} def
-%
-% [u] [v] -> u.v
-/vector-mul { %% x1 y1 z1 x2 y2 z2
-6 dict begin
- aload pop
- /zp exch def /yp exch def /xp exch def
- aload pop
- /z exch def /y exch def /x exch def
- x xp mul y yp mul add z zp mul add
-end
-} def
-%
-% [x y z ... ] -> r
-% watch out for overflow
-/vector-length { 1 dict begin
-dup
-% find maximum entry
-/max 0 def
-{ % max
- abs dup max gt {
- % if abs gt max
- /max exch def
- } {
- pop
- } ifelse
-} forall
-max 0 ne {
- 0 exch
- { % 0 v[i]
- max div dup mul add
- } forall
- sqrt
- max mul
-} {
- pop 0
-} ifelse
-end } def
-%
-end % tx@3DPlotDict
-
-
-%%EndProcSet
%%BeginProcSet: texps.pro 0 0
%!
TeXDict begin/rf{findfont dup length 1 add dict begin{1 index/FID ne 2
index/UniqueID ne and{def}{pop pop}ifelse}forall[1 index 0 6 -1 roll
-exec 0 exch 5 -1 roll VResolution Resolution div mul neg 0 0]/Metrics
-exch def dict begin Encoding{exch dup type/integertype ne{pop pop 1 sub
-dup 0 le{pop}{[}ifelse}{FontMatrix 0 get div Metrics 0 get div def}
-ifelse}forall Metrics/Metrics currentdict end def[2 index currentdict
-end definefont 3 -1 roll makefont/setfont cvx]cvx def}def/ObliqueSlant{
-dup sin S cos div neg}B/SlantFont{4 index mul add}def/ExtendFont{3 -1
-roll mul exch}def/ReEncodeFont{CharStrings rcheck{/Encoding false def
-dup[exch{dup CharStrings exch known not{pop/.notdef/Encoding true def}
-if}forall Encoding{]exch pop}{cleartomark}ifelse}if/Encoding exch def}
-def end
+exec 0 exch 5 -1 roll VResolution Resolution div mul neg 0 0]FontType 0
+ne{/Metrics exch def dict begin Encoding{exch dup type/integertype ne{
+pop pop 1 sub dup 0 le{pop}{[}ifelse}{FontMatrix 0 get div Metrics 0 get
+div def}ifelse}forall Metrics/Metrics currentdict end def}{{1 index type
+/nametype eq{exit}if exch pop}loop}ifelse[2 index currentdict end
+definefont 3 -1 roll makefont/setfont cvx]cvx def}def/ObliqueSlant{dup
+sin S cos div neg}B/SlantFont{4 index mul add}def/ExtendFont{3 -1 roll
+mul exch}def/ReEncodeFont{CharStrings rcheck{/Encoding false def dup[
+exch{dup CharStrings exch known not{pop/.notdef/Encoding true def}if}
+forall Encoding{]exch pop}{cleartomark}ifelse}if/Encoding exch def}def
+end
%%EndProcSet
%%BeginProcSet: special.pro 0 0
@@ -4995,25 +4077,26 @@ currentpoint TR/psf$ury psfts/psf$urx psfts/psf$lly psfts/psf$llx psfts
/psf$y psfts/psf$x psfts currentpoint/psf$cy X/psf$cx X/psf$sx psf$x
psf$urx psf$llx sub div N/psf$sy psf$y psf$ury psf$lly sub div N psf$sx
psf$sy scale psf$cx psf$sx div psf$llx sub psf$cy psf$sy div psf$ury sub
-TR/showpage{}N/erasepage{}N/copypage{}N/p 3 def @MacSetUp}N/doclip{
-psf$llx psf$lly psf$urx psf$ury currentpoint 6 2 roll newpath 4 copy 4 2
-roll moveto 6 -1 roll S lineto S lineto S lineto closepath clip newpath
-moveto}N/endTexFig{end psf$SavedState restore}N/@beginspecial{SDict
-begin/SpecialSave save N gsave normalscale currentpoint TR
-@SpecialDefaults count/ocount X/dcount countdictstack N}N/@setspecial{
-CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs neg 0 rlineto
-closepath clip}if ho vo TR hsc vsc scale ang rotate rwiSeen{rwi urx llx
-sub div rhiSeen{rhi ury lly sub div}{dup}ifelse scale llx neg lly neg TR
-}{rhiSeen{rhi ury lly sub div dup scale llx neg lly neg TR}if}ifelse
-CLIP 2 eq{newpath llx lly moveto urx lly lineto urx ury lineto llx ury
-lineto closepath clip}if/showpage{}N/erasepage{}N/copypage{}N newpath}N
-/@endspecial{count ocount sub{pop}repeat countdictstack dcount sub{end}
-repeat grestore SpecialSave restore end}N/@defspecial{SDict begin}N
-/@fedspecial{end}B/li{lineto}B/rl{rlineto}B/rc{rcurveto}B/np{/SaveX
-currentpoint/SaveY X N 1 setlinecap newpath}N/st{stroke SaveX SaveY
-moveto}N/fil{fill SaveX SaveY moveto}N/ellipse{/endangle X/startangle X
-/yrad X/xrad X/savematrix matrix currentmatrix N TR xrad yrad scale 0 0
-1 startangle endangle arc savematrix setmatrix}N end
+TR/showpage{}N/erasepage{}N/setpagedevice{pop}N/copypage{}N/p 3 def
+@MacSetUp}N/doclip{psf$llx psf$lly psf$urx psf$ury currentpoint 6 2 roll
+newpath 4 copy 4 2 roll moveto 6 -1 roll S lineto S lineto S lineto
+closepath clip newpath moveto}N/endTexFig{end psf$SavedState restore}N
+/@beginspecial{SDict begin/SpecialSave save N gsave normalscale
+currentpoint TR @SpecialDefaults count/ocount X/dcount countdictstack N}
+N/@setspecial{CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs
+neg 0 rlineto closepath clip}if ho vo TR hsc vsc scale ang rotate
+rwiSeen{rwi urx llx sub div rhiSeen{rhi ury lly sub div}{dup}ifelse
+scale llx neg lly neg TR}{rhiSeen{rhi ury lly sub div dup scale llx neg
+lly neg TR}if}ifelse CLIP 2 eq{newpath llx lly moveto urx lly lineto urx
+ury lineto llx ury lineto closepath clip}if/showpage{}N/erasepage{}N
+/setpagedevice{pop}N/copypage{}N newpath}N/@endspecial{count ocount sub{
+pop}repeat countdictstack dcount sub{end}repeat grestore SpecialSave
+restore end}N/@defspecial{SDict begin}N/@fedspecial{end}B/li{lineto}B
+/rl{rlineto}B/rc{rcurveto}B/np{/SaveX currentpoint/SaveY X N 1
+setlinecap newpath}N/st{stroke SaveX SaveY moveto}N/fil{fill SaveX SaveY
+moveto}N/ellipse{/endangle X/startangle X/yrad X/xrad X/savematrix
+matrix currentmatrix N TR xrad yrad scale 0 0 1 startangle endangle arc
+savematrix setmatrix}N end
%%EndProcSet
%%BeginProcSet: color.pro 0 0
@@ -5561,40 +4644,44 @@ TeXDict begin
%%EndSetup
%%Page: 1 1
TeXDict begin 1 0 bop 0 TeXcolorgray Black 165 192 a
-tx@Dict begin gsave STV CP T /ps@rot 0 def grestore end
+ /pssetRGBcolor /setrgbcolor load def /pssetCMYKcolor /setcmykcolor
+load def /pssetGraycolor /setgray load def
165 192 a 165 192 a
+tx@Dict begin gsave STV CP T /ps@rot 0 def grestore end
+ 165 192 a 165 192 a
tx@Dict begin gsave STV CP T /ps@refangle 0. def grestore end
- 165 192 a 0 TeXcolorgray 165 192
-a
+ 165 192 a 0 TeXcolorgray
+165 192 a
tx@Dict begin gsave STV CP T /ps@rot 0 def grestore end
165 192 a 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
998 901 a 998 901 a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+(sin(-3.00)*cos(-3.00))^2))|-3.00+((0.35)*t)*(1/sqrt(1+(sin(-3.00)*cos(-3.00))^2))*(sin(-3.00)*cos(-3.00))
) AlgParser cvx def end
- 998 901 a 998
-901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+ 998
+901 a 998 901 a
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
- 998 901 a @beginspecial @setspecial
+ 998 901 a @beginspecial
+@setspecial
tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { BeginArrow
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5608,24 +4695,23 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
-
-
+
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
- 998 901 a 998 901 a
+ 998 901 a 998 901
+a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+(sin(-2.6)*cos(-3.00))^2))|-3.00+((0.35)*t)*(1/sqrt(1+(sin(-2.6)*cos(-3.00))^2))*(sin(-2.6)*cos(-3.00))
) AlgParser cvx def end
- 998 901 a
-998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+ 998 901 a 998 901 a
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5633,14 +4719,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5654,8 +4740,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -5665,12 +4751,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+(sin(-2.2)*cos(-3.00))^2))|-3.00+((0.35)*t)*(1/sqrt(1+(sin(-2.2)*cos(-3.00))^2))*(sin(-2.2)*cos(-3.00))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5685,7 +4771,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5700,7 +4786,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -5709,12 +4795,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+(sin(-1.8)*cos(-3.00))^2))|-3.00+((0.35)*t)*(1/sqrt(1+(sin(-1.8)*cos(-3.00))^2))*(sin(-1.8)*cos(-3.00))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5729,7 +4815,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5744,7 +4830,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -5753,12 +4839,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+(sin(-1.4)*cos(-3.00))^2))|-3.00+((0.35)*t)*(1/sqrt(1+(sin(-1.4)*cos(-3.00))^2))*(sin(-1.4)*cos(-3.00))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5773,7 +4859,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5788,7 +4874,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -5797,12 +4883,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+(sin(-1.0)*cos(-3.00))^2))|-3.00+((0.35)*t)*(1/sqrt(1+(sin(-1.0)*cos(-3.00))^2))*(sin(-1.0)*cos(-3.00))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5817,7 +4903,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5832,7 +4918,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -5841,12 +4927,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+(sin(-0.6)*cos(-3.00))^2))|-3.00+((0.35)*t)*(1/sqrt(1+(sin(-0.6)*cos(-3.00))^2))*(sin(-0.6)*cos(-3.00))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5854,14 +4940,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5875,8 +4961,9 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
+end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -5885,12 +4972,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+(sin(-0.2)*cos(-3.00))^2))|-3.00+((0.35)*t)*(1/sqrt(1+(sin(-0.2)*cos(-3.00))^2))*(sin(-0.2)*cos(-3.00))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5898,14 +4985,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5919,8 +5006,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -5930,12 +5017,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+(sin(0.2)*cos(-3.00))^2))|-3.00+((0.35)*t)*(1/sqrt(1+(sin(0.2)*cos(-3.00))^2))*(sin(0.2)*cos(-3.00))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5943,14 +5030,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5964,8 +5051,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -5975,12 +5062,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+(sin(0.6)*cos(-3.00))^2))|-3.00+((0.35)*t)*(1/sqrt(1+(sin(0.6)*cos(-3.00))^2))*(sin(0.6)*cos(-3.00))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5988,14 +5075,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6009,8 +5096,9 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
+end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6019,12 +5107,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+(sin(1.0)*cos(-3.00))^2))|-3.00+((0.35)*t)*(1/sqrt(1+(sin(1.0)*cos(-3.00))^2))*(sin(1.0)*cos(-3.00))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6039,7 +5127,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6054,7 +5142,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6063,12 +5151,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+(sin(1.4)*cos(-3.00))^2))|-3.00+((0.35)*t)*(1/sqrt(1+(sin(1.4)*cos(-3.00))^2))*(sin(1.4)*cos(-3.00))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6083,7 +5171,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6098,7 +5186,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6107,12 +5195,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+(sin(1.8)*cos(-3.00))^2))|-3.00+((0.35)*t)*(1/sqrt(1+(sin(1.8)*cos(-3.00))^2))*(sin(1.8)*cos(-3.00))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6127,7 +5215,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6142,7 +5230,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6151,12 +5239,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+(sin(2.2)*cos(-3.00))^2))|-3.00+((0.35)*t)*(1/sqrt(1+(sin(2.2)*cos(-3.00))^2))*(sin(2.2)*cos(-3.00))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6171,7 +5259,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6186,7 +5274,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6195,12 +5283,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+(sin(2.6)*cos(-3.00))^2))|-3.00+((0.35)*t)*(1/sqrt(1+(sin(2.6)*cos(-3.00))^2))*(sin(2.6)*cos(-3.00))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6208,14 +5296,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6229,8 +5317,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6240,12 +5328,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+(sin(-3.00)*cos(-2.6))^2))|-2.6+((0.35)*t)*(1/sqrt(1+(sin(-3.00)*cos(-2.6))^2))*(sin(-3.00)*cos(-2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6253,14 +5341,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6274,8 +5362,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6285,12 +5373,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+(sin(-2.6)*cos(-2.6))^2))|-2.6+((0.35)*t)*(1/sqrt(1+(sin(-2.6)*cos(-2.6))^2))*(sin(-2.6)*cos(-2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6298,14 +5386,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6319,8 +5407,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6330,12 +5418,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+(sin(-2.2)*cos(-2.6))^2))|-2.6+((0.35)*t)*(1/sqrt(1+(sin(-2.2)*cos(-2.6))^2))*(sin(-2.2)*cos(-2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6350,7 +5438,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6365,7 +5453,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6374,12 +5462,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+(sin(-1.8)*cos(-2.6))^2))|-2.6+((0.35)*t)*(1/sqrt(1+(sin(-1.8)*cos(-2.6))^2))*(sin(-1.8)*cos(-2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6394,7 +5482,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6409,7 +5497,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6418,12 +5506,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+(sin(-1.4)*cos(-2.6))^2))|-2.6+((0.35)*t)*(1/sqrt(1+(sin(-1.4)*cos(-2.6))^2))*(sin(-1.4)*cos(-2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6438,7 +5526,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6453,7 +5541,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6462,12 +5550,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+(sin(-1.0)*cos(-2.6))^2))|-2.6+((0.35)*t)*(1/sqrt(1+(sin(-1.0)*cos(-2.6))^2))*(sin(-1.0)*cos(-2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6482,7 +5570,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6497,7 +5585,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6506,12 +5594,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+(sin(-0.6)*cos(-2.6))^2))|-2.6+((0.35)*t)*(1/sqrt(1+(sin(-0.6)*cos(-2.6))^2))*(sin(-0.6)*cos(-2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6519,14 +5607,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6540,8 +5628,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6551,12 +5639,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+(sin(-0.2)*cos(-2.6))^2))|-2.6+((0.35)*t)*(1/sqrt(1+(sin(-0.2)*cos(-2.6))^2))*(sin(-0.2)*cos(-2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6564,14 +5652,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6585,8 +5673,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6596,12 +5684,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+(sin(0.2)*cos(-2.6))^2))|-2.6+((0.35)*t)*(1/sqrt(1+(sin(0.2)*cos(-2.6))^2))*(sin(0.2)*cos(-2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6609,14 +5697,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6630,8 +5718,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6641,12 +5729,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+(sin(0.6)*cos(-2.6))^2))|-2.6+((0.35)*t)*(1/sqrt(1+(sin(0.6)*cos(-2.6))^2))*(sin(0.6)*cos(-2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6654,14 +5742,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6675,8 +5763,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6686,12 +5774,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+(sin(1.0)*cos(-2.6))^2))|-2.6+((0.35)*t)*(1/sqrt(1+(sin(1.0)*cos(-2.6))^2))*(sin(1.0)*cos(-2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6706,7 +5794,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6721,7 +5809,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6730,12 +5818,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+(sin(1.4)*cos(-2.6))^2))|-2.6+((0.35)*t)*(1/sqrt(1+(sin(1.4)*cos(-2.6))^2))*(sin(1.4)*cos(-2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6750,7 +5838,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6765,7 +5853,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6774,12 +5862,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+(sin(1.8)*cos(-2.6))^2))|-2.6+((0.35)*t)*(1/sqrt(1+(sin(1.8)*cos(-2.6))^2))*(sin(1.8)*cos(-2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6794,7 +5882,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6809,7 +5897,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6818,12 +5906,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+(sin(2.2)*cos(-2.6))^2))|-2.6+((0.35)*t)*(1/sqrt(1+(sin(2.2)*cos(-2.6))^2))*(sin(2.2)*cos(-2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6838,7 +5926,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6853,7 +5941,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6862,12 +5950,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+(sin(2.6)*cos(-2.6))^2))|-2.6+((0.35)*t)*(1/sqrt(1+(sin(2.6)*cos(-2.6))^2))*(sin(2.6)*cos(-2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6875,14 +5963,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6896,8 +5984,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6907,12 +5995,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+(sin(-3.00)*cos(-2.2))^2))|-2.2+((0.35)*t)*(1/sqrt(1+(sin(-3.00)*cos(-2.2))^2))*(sin(-3.00)*cos(-2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6920,14 +6008,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6941,8 +6029,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6952,12 +6040,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+(sin(-2.6)*cos(-2.2))^2))|-2.2+((0.35)*t)*(1/sqrt(1+(sin(-2.6)*cos(-2.2))^2))*(sin(-2.6)*cos(-2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6965,14 +6053,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6986,8 +6074,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6997,12 +6085,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+(sin(-2.2)*cos(-2.2))^2))|-2.2+((0.35)*t)*(1/sqrt(1+(sin(-2.2)*cos(-2.2))^2))*(sin(-2.2)*cos(-2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7010,14 +6098,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7031,8 +6119,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7042,12 +6130,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+(sin(-1.8)*cos(-2.2))^2))|-2.2+((0.35)*t)*(1/sqrt(1+(sin(-1.8)*cos(-2.2))^2))*(sin(-1.8)*cos(-2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7055,14 +6143,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7076,8 +6164,9 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
+end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -7086,12 +6175,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+(sin(-1.4)*cos(-2.2))^2))|-2.2+((0.35)*t)*(1/sqrt(1+(sin(-1.4)*cos(-2.2))^2))*(sin(-1.4)*cos(-2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7099,14 +6188,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7120,8 +6209,9 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
+end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -7130,12 +6220,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+(sin(-1.0)*cos(-2.2))^2))|-2.2+((0.35)*t)*(1/sqrt(1+(sin(-1.0)*cos(-2.2))^2))*(sin(-1.0)*cos(-2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7143,14 +6233,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7164,8 +6254,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7175,12 +6265,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+(sin(-0.6)*cos(-2.2))^2))|-2.2+((0.35)*t)*(1/sqrt(1+(sin(-0.6)*cos(-2.2))^2))*(sin(-0.6)*cos(-2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7188,14 +6278,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7209,8 +6299,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7220,12 +6310,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+(sin(-0.2)*cos(-2.2))^2))|-2.2+((0.35)*t)*(1/sqrt(1+(sin(-0.2)*cos(-2.2))^2))*(sin(-0.2)*cos(-2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7233,14 +6323,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7254,8 +6344,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7265,12 +6355,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+(sin(0.2)*cos(-2.2))^2))|-2.2+((0.35)*t)*(1/sqrt(1+(sin(0.2)*cos(-2.2))^2))*(sin(0.2)*cos(-2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7278,14 +6368,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7299,8 +6389,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7310,12 +6400,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+(sin(0.6)*cos(-2.2))^2))|-2.2+((0.35)*t)*(1/sqrt(1+(sin(0.6)*cos(-2.2))^2))*(sin(0.6)*cos(-2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7323,14 +6413,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7344,8 +6434,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7355,12 +6445,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+(sin(1.0)*cos(-2.2))^2))|-2.2+((0.35)*t)*(1/sqrt(1+(sin(1.0)*cos(-2.2))^2))*(sin(1.0)*cos(-2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7368,14 +6458,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7389,8 +6479,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7400,12 +6490,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+(sin(1.4)*cos(-2.2))^2))|-2.2+((0.35)*t)*(1/sqrt(1+(sin(1.4)*cos(-2.2))^2))*(sin(1.4)*cos(-2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7413,14 +6503,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7434,8 +6524,9 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
+end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -7444,12 +6535,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+(sin(1.8)*cos(-2.2))^2))|-2.2+((0.35)*t)*(1/sqrt(1+(sin(1.8)*cos(-2.2))^2))*(sin(1.8)*cos(-2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7457,14 +6548,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7478,8 +6569,9 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
+end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -7488,12 +6580,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+(sin(2.2)*cos(-2.2))^2))|-2.2+((0.35)*t)*(1/sqrt(1+(sin(2.2)*cos(-2.2))^2))*(sin(2.2)*cos(-2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7501,14 +6593,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7522,8 +6614,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7533,12 +6625,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+(sin(2.6)*cos(-2.2))^2))|-2.2+((0.35)*t)*(1/sqrt(1+(sin(2.6)*cos(-2.2))^2))*(sin(2.6)*cos(-2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7546,14 +6638,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7567,8 +6659,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7578,12 +6670,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+(sin(-3.00)*cos(-1.8))^2))|-1.8+((0.35)*t)*(1/sqrt(1+(sin(-3.00)*cos(-1.8))^2))*(sin(-3.00)*cos(-1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7591,30 +6683,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -7623,12 +6715,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+(sin(-2.6)*cos(-1.8))^2))|-1.8+((0.35)*t)*(1/sqrt(1+(sin(-2.6)*cos(-1.8))^2))*(sin(-2.6)*cos(-1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7636,14 +6728,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7657,8 +6749,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7668,12 +6760,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+(sin(-2.2)*cos(-1.8))^2))|-1.8+((0.35)*t)*(1/sqrt(1+(sin(-2.2)*cos(-1.8))^2))*(sin(-2.2)*cos(-1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7681,14 +6773,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7702,8 +6794,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7713,12 +6805,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+(sin(-1.8)*cos(-1.8))^2))|-1.8+((0.35)*t)*(1/sqrt(1+(sin(-1.8)*cos(-1.8))^2))*(sin(-1.8)*cos(-1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7726,14 +6818,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7747,8 +6839,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7758,12 +6850,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+(sin(-1.4)*cos(-1.8))^2))|-1.8+((0.35)*t)*(1/sqrt(1+(sin(-1.4)*cos(-1.8))^2))*(sin(-1.4)*cos(-1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7771,14 +6863,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7792,8 +6884,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7803,12 +6895,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+(sin(-1.0)*cos(-1.8))^2))|-1.8+((0.35)*t)*(1/sqrt(1+(sin(-1.0)*cos(-1.8))^2))*(sin(-1.0)*cos(-1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7816,14 +6908,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7837,8 +6929,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7848,12 +6940,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+(sin(-0.6)*cos(-1.8))^2))|-1.8+((0.35)*t)*(1/sqrt(1+(sin(-0.6)*cos(-1.8))^2))*(sin(-0.6)*cos(-1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7861,14 +6953,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7882,8 +6974,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7893,12 +6985,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+(sin(-0.2)*cos(-1.8))^2))|-1.8+((0.35)*t)*(1/sqrt(1+(sin(-0.2)*cos(-1.8))^2))*(sin(-0.2)*cos(-1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7906,30 +6998,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -7938,12 +7030,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+(sin(0.2)*cos(-1.8))^2))|-1.8+((0.35)*t)*(1/sqrt(1+(sin(0.2)*cos(-1.8))^2))*(sin(0.2)*cos(-1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7951,30 +7043,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -7983,12 +7075,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+(sin(0.6)*cos(-1.8))^2))|-1.8+((0.35)*t)*(1/sqrt(1+(sin(0.6)*cos(-1.8))^2))*(sin(0.6)*cos(-1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7996,14 +7088,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8017,8 +7109,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8028,12 +7120,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+(sin(1.0)*cos(-1.8))^2))|-1.8+((0.35)*t)*(1/sqrt(1+(sin(1.0)*cos(-1.8))^2))*(sin(1.0)*cos(-1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8041,14 +7133,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8062,8 +7154,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8073,12 +7165,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+(sin(1.4)*cos(-1.8))^2))|-1.8+((0.35)*t)*(1/sqrt(1+(sin(1.4)*cos(-1.8))^2))*(sin(1.4)*cos(-1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8086,14 +7178,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8107,8 +7199,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8118,12 +7210,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+(sin(1.8)*cos(-1.8))^2))|-1.8+((0.35)*t)*(1/sqrt(1+(sin(1.8)*cos(-1.8))^2))*(sin(1.8)*cos(-1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8131,14 +7223,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8152,8 +7244,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8163,12 +7255,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+(sin(2.2)*cos(-1.8))^2))|-1.8+((0.35)*t)*(1/sqrt(1+(sin(2.2)*cos(-1.8))^2))*(sin(2.2)*cos(-1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8176,14 +7268,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8197,8 +7289,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8208,12 +7300,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+(sin(2.6)*cos(-1.8))^2))|-1.8+((0.35)*t)*(1/sqrt(1+(sin(2.6)*cos(-1.8))^2))*(sin(2.6)*cos(-1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8221,14 +7313,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8242,8 +7334,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8253,12 +7345,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+(sin(-3.00)*cos(-1.4))^2))|-1.4+((0.35)*t)*(1/sqrt(1+(sin(-3.00)*cos(-1.4))^2))*(sin(-3.00)*cos(-1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8266,30 +7358,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8298,12 +7390,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+(sin(-2.6)*cos(-1.4))^2))|-1.4+((0.35)*t)*(1/sqrt(1+(sin(-2.6)*cos(-1.4))^2))*(sin(-2.6)*cos(-1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8311,14 +7403,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8332,8 +7424,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8343,12 +7435,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+(sin(-2.2)*cos(-1.4))^2))|-1.4+((0.35)*t)*(1/sqrt(1+(sin(-2.2)*cos(-1.4))^2))*(sin(-2.2)*cos(-1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8356,14 +7448,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8377,8 +7469,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8388,12 +7480,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+(sin(-1.8)*cos(-1.4))^2))|-1.4+((0.35)*t)*(1/sqrt(1+(sin(-1.8)*cos(-1.4))^2))*(sin(-1.8)*cos(-1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8401,14 +7493,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8422,8 +7514,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8433,12 +7525,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+(sin(-1.4)*cos(-1.4))^2))|-1.4+((0.35)*t)*(1/sqrt(1+(sin(-1.4)*cos(-1.4))^2))*(sin(-1.4)*cos(-1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8446,14 +7538,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8467,8 +7559,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8478,12 +7570,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+(sin(-1.0)*cos(-1.4))^2))|-1.4+((0.35)*t)*(1/sqrt(1+(sin(-1.0)*cos(-1.4))^2))*(sin(-1.0)*cos(-1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8491,14 +7583,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8512,8 +7604,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8523,12 +7615,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+(sin(-0.6)*cos(-1.4))^2))|-1.4+((0.35)*t)*(1/sqrt(1+(sin(-0.6)*cos(-1.4))^2))*(sin(-0.6)*cos(-1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8536,14 +7628,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8557,8 +7649,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8568,12 +7660,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+(sin(-0.2)*cos(-1.4))^2))|-1.4+((0.35)*t)*(1/sqrt(1+(sin(-0.2)*cos(-1.4))^2))*(sin(-0.2)*cos(-1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8581,30 +7673,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8613,12 +7705,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+(sin(0.2)*cos(-1.4))^2))|-1.4+((0.35)*t)*(1/sqrt(1+(sin(0.2)*cos(-1.4))^2))*(sin(0.2)*cos(-1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8626,30 +7718,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8658,12 +7750,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+(sin(0.6)*cos(-1.4))^2))|-1.4+((0.35)*t)*(1/sqrt(1+(sin(0.6)*cos(-1.4))^2))*(sin(0.6)*cos(-1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8671,14 +7763,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8692,8 +7784,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8703,12 +7795,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+(sin(1.0)*cos(-1.4))^2))|-1.4+((0.35)*t)*(1/sqrt(1+(sin(1.0)*cos(-1.4))^2))*(sin(1.0)*cos(-1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8716,14 +7808,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8737,8 +7829,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8748,12 +7840,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+(sin(1.4)*cos(-1.4))^2))|-1.4+((0.35)*t)*(1/sqrt(1+(sin(1.4)*cos(-1.4))^2))*(sin(1.4)*cos(-1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8761,14 +7853,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8782,8 +7874,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8793,12 +7885,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+(sin(1.8)*cos(-1.4))^2))|-1.4+((0.35)*t)*(1/sqrt(1+(sin(1.8)*cos(-1.4))^2))*(sin(1.8)*cos(-1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8806,14 +7898,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8827,8 +7919,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8838,12 +7930,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+(sin(2.2)*cos(-1.4))^2))|-1.4+((0.35)*t)*(1/sqrt(1+(sin(2.2)*cos(-1.4))^2))*(sin(2.2)*cos(-1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8851,14 +7943,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8872,8 +7964,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8883,12 +7975,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+(sin(2.6)*cos(-1.4))^2))|-1.4+((0.35)*t)*(1/sqrt(1+(sin(2.6)*cos(-1.4))^2))*(sin(2.6)*cos(-1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8896,14 +7988,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8917,8 +8009,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8928,12 +8020,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+(sin(-3.00)*cos(-1.0))^2))|-1.0+((0.35)*t)*(1/sqrt(1+(sin(-3.00)*cos(-1.0))^2))*(sin(-3.00)*cos(-1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8941,14 +8033,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8962,8 +8054,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8973,12 +8065,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+(sin(-2.6)*cos(-1.0))^2))|-1.0+((0.35)*t)*(1/sqrt(1+(sin(-2.6)*cos(-1.0))^2))*(sin(-2.6)*cos(-1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8986,14 +8078,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9007,8 +8099,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9018,12 +8110,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+(sin(-2.2)*cos(-1.0))^2))|-1.0+((0.35)*t)*(1/sqrt(1+(sin(-2.2)*cos(-1.0))^2))*(sin(-2.2)*cos(-1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9031,14 +8123,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9052,8 +8144,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9063,12 +8155,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+(sin(-1.8)*cos(-1.0))^2))|-1.0+((0.35)*t)*(1/sqrt(1+(sin(-1.8)*cos(-1.0))^2))*(sin(-1.8)*cos(-1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9076,14 +8168,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9097,8 +8189,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9108,12 +8200,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+(sin(-1.4)*cos(-1.0))^2))|-1.0+((0.35)*t)*(1/sqrt(1+(sin(-1.4)*cos(-1.0))^2))*(sin(-1.4)*cos(-1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9121,14 +8213,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9142,8 +8234,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9153,12 +8245,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+(sin(-1.0)*cos(-1.0))^2))|-1.0+((0.35)*t)*(1/sqrt(1+(sin(-1.0)*cos(-1.0))^2))*(sin(-1.0)*cos(-1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9166,14 +8258,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9187,8 +8279,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9198,12 +8290,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+(sin(-0.6)*cos(-1.0))^2))|-1.0+((0.35)*t)*(1/sqrt(1+(sin(-0.6)*cos(-1.0))^2))*(sin(-0.6)*cos(-1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9211,14 +8303,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9232,8 +8324,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9243,12 +8335,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+(sin(-0.2)*cos(-1.0))^2))|-1.0+((0.35)*t)*(1/sqrt(1+(sin(-0.2)*cos(-1.0))^2))*(sin(-0.2)*cos(-1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9256,14 +8348,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9277,8 +8369,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9288,12 +8380,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+(sin(0.2)*cos(-1.0))^2))|-1.0+((0.35)*t)*(1/sqrt(1+(sin(0.2)*cos(-1.0))^2))*(sin(0.2)*cos(-1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9301,14 +8393,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9322,8 +8414,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9333,12 +8425,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+(sin(0.6)*cos(-1.0))^2))|-1.0+((0.35)*t)*(1/sqrt(1+(sin(0.6)*cos(-1.0))^2))*(sin(0.6)*cos(-1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9346,14 +8438,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9367,8 +8459,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9378,12 +8470,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+(sin(1.0)*cos(-1.0))^2))|-1.0+((0.35)*t)*(1/sqrt(1+(sin(1.0)*cos(-1.0))^2))*(sin(1.0)*cos(-1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9391,14 +8483,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9412,8 +8504,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9423,12 +8515,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+(sin(1.4)*cos(-1.0))^2))|-1.0+((0.35)*t)*(1/sqrt(1+(sin(1.4)*cos(-1.0))^2))*(sin(1.4)*cos(-1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9436,14 +8528,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9457,8 +8549,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9468,12 +8560,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+(sin(1.8)*cos(-1.0))^2))|-1.0+((0.35)*t)*(1/sqrt(1+(sin(1.8)*cos(-1.0))^2))*(sin(1.8)*cos(-1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9481,14 +8573,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9502,8 +8594,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9513,12 +8605,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+(sin(2.2)*cos(-1.0))^2))|-1.0+((0.35)*t)*(1/sqrt(1+(sin(2.2)*cos(-1.0))^2))*(sin(2.2)*cos(-1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9526,14 +8618,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9547,8 +8639,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9558,12 +8650,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+(sin(2.6)*cos(-1.0))^2))|-1.0+((0.35)*t)*(1/sqrt(1+(sin(2.6)*cos(-1.0))^2))*(sin(2.6)*cos(-1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9571,14 +8663,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9592,8 +8684,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9603,12 +8695,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+(sin(-3.00)*cos(-0.6))^2))|-0.6+((0.35)*t)*(1/sqrt(1+(sin(-3.00)*cos(-0.6))^2))*(sin(-3.00)*cos(-0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9616,14 +8708,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9637,8 +8729,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9648,12 +8740,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+(sin(-2.6)*cos(-0.6))^2))|-0.6+((0.35)*t)*(1/sqrt(1+(sin(-2.6)*cos(-0.6))^2))*(sin(-2.6)*cos(-0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9661,14 +8753,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9682,8 +8774,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9693,12 +8785,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+(sin(-2.2)*cos(-0.6))^2))|-0.6+((0.35)*t)*(1/sqrt(1+(sin(-2.2)*cos(-0.6))^2))*(sin(-2.2)*cos(-0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9713,7 +8805,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9728,7 +8820,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -9737,12 +8829,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+(sin(-1.8)*cos(-0.6))^2))|-0.6+((0.35)*t)*(1/sqrt(1+(sin(-1.8)*cos(-0.6))^2))*(sin(-1.8)*cos(-0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9757,7 +8849,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9772,7 +8864,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -9781,12 +8873,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+(sin(-1.4)*cos(-0.6))^2))|-0.6+((0.35)*t)*(1/sqrt(1+(sin(-1.4)*cos(-0.6))^2))*(sin(-1.4)*cos(-0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9801,7 +8893,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9816,7 +8908,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -9825,12 +8917,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+(sin(-1.0)*cos(-0.6))^2))|-0.6+((0.35)*t)*(1/sqrt(1+(sin(-1.0)*cos(-0.6))^2))*(sin(-1.0)*cos(-0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9845,7 +8937,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9860,7 +8952,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -9869,12 +8961,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+(sin(-0.6)*cos(-0.6))^2))|-0.6+((0.35)*t)*(1/sqrt(1+(sin(-0.6)*cos(-0.6))^2))*(sin(-0.6)*cos(-0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9882,14 +8974,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9903,8 +8995,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9914,12 +9006,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+(sin(-0.2)*cos(-0.6))^2))|-0.6+((0.35)*t)*(1/sqrt(1+(sin(-0.2)*cos(-0.6))^2))*(sin(-0.2)*cos(-0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9927,14 +9019,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9948,8 +9040,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9959,12 +9051,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+(sin(0.2)*cos(-0.6))^2))|-0.6+((0.35)*t)*(1/sqrt(1+(sin(0.2)*cos(-0.6))^2))*(sin(0.2)*cos(-0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9972,14 +9064,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9993,8 +9085,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10004,12 +9096,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+(sin(0.6)*cos(-0.6))^2))|-0.6+((0.35)*t)*(1/sqrt(1+(sin(0.6)*cos(-0.6))^2))*(sin(0.6)*cos(-0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10017,14 +9109,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10038,8 +9130,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10049,12 +9141,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+(sin(1.0)*cos(-0.6))^2))|-0.6+((0.35)*t)*(1/sqrt(1+(sin(1.0)*cos(-0.6))^2))*(sin(1.0)*cos(-0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10069,7 +9161,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10084,7 +9176,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10093,12 +9185,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+(sin(1.4)*cos(-0.6))^2))|-0.6+((0.35)*t)*(1/sqrt(1+(sin(1.4)*cos(-0.6))^2))*(sin(1.4)*cos(-0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10113,7 +9205,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10128,7 +9220,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10137,12 +9229,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+(sin(1.8)*cos(-0.6))^2))|-0.6+((0.35)*t)*(1/sqrt(1+(sin(1.8)*cos(-0.6))^2))*(sin(1.8)*cos(-0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10157,7 +9249,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10172,7 +9264,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10181,12 +9273,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+(sin(2.2)*cos(-0.6))^2))|-0.6+((0.35)*t)*(1/sqrt(1+(sin(2.2)*cos(-0.6))^2))*(sin(2.2)*cos(-0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10201,7 +9293,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10216,7 +9308,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10225,12 +9317,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+(sin(2.6)*cos(-0.6))^2))|-0.6+((0.35)*t)*(1/sqrt(1+(sin(2.6)*cos(-0.6))^2))*(sin(2.6)*cos(-0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10238,14 +9330,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10259,8 +9351,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10270,12 +9362,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+(sin(-3.00)*cos(-0.2))^2))|-0.2+((0.35)*t)*(1/sqrt(1+(sin(-3.00)*cos(-0.2))^2))*(sin(-3.00)*cos(-0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10283,14 +9375,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10304,8 +9396,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10315,12 +9407,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+(sin(-2.6)*cos(-0.2))^2))|-0.2+((0.35)*t)*(1/sqrt(1+(sin(-2.6)*cos(-0.2))^2))*(sin(-2.6)*cos(-0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10328,14 +9420,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10349,8 +9441,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10360,12 +9452,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+(sin(-2.2)*cos(-0.2))^2))|-0.2+((0.35)*t)*(1/sqrt(1+(sin(-2.2)*cos(-0.2))^2))*(sin(-2.2)*cos(-0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10380,7 +9472,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10395,7 +9487,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10404,12 +9496,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+(sin(-1.8)*cos(-0.2))^2))|-0.2+((0.35)*t)*(1/sqrt(1+(sin(-1.8)*cos(-0.2))^2))*(sin(-1.8)*cos(-0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10424,7 +9516,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10439,7 +9531,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10448,12 +9540,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+(sin(-1.4)*cos(-0.2))^2))|-0.2+((0.35)*t)*(1/sqrt(1+(sin(-1.4)*cos(-0.2))^2))*(sin(-1.4)*cos(-0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10468,7 +9560,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10483,7 +9575,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10492,12 +9584,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+(sin(-1.0)*cos(-0.2))^2))|-0.2+((0.35)*t)*(1/sqrt(1+(sin(-1.0)*cos(-0.2))^2))*(sin(-1.0)*cos(-0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10512,7 +9604,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10527,7 +9619,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10536,12 +9628,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+(sin(-0.6)*cos(-0.2))^2))|-0.2+((0.35)*t)*(1/sqrt(1+(sin(-0.6)*cos(-0.2))^2))*(sin(-0.6)*cos(-0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10549,14 +9641,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10570,8 +9662,9 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
+end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10580,12 +9673,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+(sin(-0.2)*cos(-0.2))^2))|-0.2+((0.35)*t)*(1/sqrt(1+(sin(-0.2)*cos(-0.2))^2))*(sin(-0.2)*cos(-0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10593,14 +9686,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10614,8 +9707,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10625,12 +9718,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+(sin(0.2)*cos(-0.2))^2))|-0.2+((0.35)*t)*(1/sqrt(1+(sin(0.2)*cos(-0.2))^2))*(sin(0.2)*cos(-0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10638,14 +9731,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10659,8 +9752,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10670,12 +9763,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+(sin(0.6)*cos(-0.2))^2))|-0.2+((0.35)*t)*(1/sqrt(1+(sin(0.6)*cos(-0.2))^2))*(sin(0.6)*cos(-0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10683,14 +9776,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10704,8 +9797,9 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
+end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10714,12 +9808,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+(sin(1.0)*cos(-0.2))^2))|-0.2+((0.35)*t)*(1/sqrt(1+(sin(1.0)*cos(-0.2))^2))*(sin(1.0)*cos(-0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10734,7 +9828,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10749,7 +9843,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10758,12 +9852,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+(sin(1.4)*cos(-0.2))^2))|-0.2+((0.35)*t)*(1/sqrt(1+(sin(1.4)*cos(-0.2))^2))*(sin(1.4)*cos(-0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10778,7 +9872,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10793,7 +9887,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10802,12 +9896,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+(sin(1.8)*cos(-0.2))^2))|-0.2+((0.35)*t)*(1/sqrt(1+(sin(1.8)*cos(-0.2))^2))*(sin(1.8)*cos(-0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10822,7 +9916,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10837,7 +9931,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10846,12 +9940,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+(sin(2.2)*cos(-0.2))^2))|-0.2+((0.35)*t)*(1/sqrt(1+(sin(2.2)*cos(-0.2))^2))*(sin(2.2)*cos(-0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10866,7 +9960,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10881,7 +9975,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10890,12 +9984,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+(sin(2.6)*cos(-0.2))^2))|-0.2+((0.35)*t)*(1/sqrt(1+(sin(2.6)*cos(-0.2))^2))*(sin(2.6)*cos(-0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10903,14 +9997,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10924,8 +10018,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10935,12 +10029,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+(sin(-3.00)*cos(0.2))^2))|0.2+((0.35)*t)*(1/sqrt(1+(sin(-3.00)*cos(0.2))^2))*(sin(-3.00)*cos(0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10948,14 +10042,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10969,8 +10063,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10980,12 +10074,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+(sin(-2.6)*cos(0.2))^2))|0.2+((0.35)*t)*(1/sqrt(1+(sin(-2.6)*cos(0.2))^2))*(sin(-2.6)*cos(0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10993,14 +10087,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11014,8 +10108,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11025,12 +10119,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+(sin(-2.2)*cos(0.2))^2))|0.2+((0.35)*t)*(1/sqrt(1+(sin(-2.2)*cos(0.2))^2))*(sin(-2.2)*cos(0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11045,7 +10139,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11060,7 +10154,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11069,12 +10163,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+(sin(-1.8)*cos(0.2))^2))|0.2+((0.35)*t)*(1/sqrt(1+(sin(-1.8)*cos(0.2))^2))*(sin(-1.8)*cos(0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11089,7 +10183,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11104,7 +10198,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11113,12 +10207,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+(sin(-1.4)*cos(0.2))^2))|0.2+((0.35)*t)*(1/sqrt(1+(sin(-1.4)*cos(0.2))^2))*(sin(-1.4)*cos(0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11133,7 +10227,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11148,7 +10242,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11157,12 +10251,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+(sin(-1.0)*cos(0.2))^2))|0.2+((0.35)*t)*(1/sqrt(1+(sin(-1.0)*cos(0.2))^2))*(sin(-1.0)*cos(0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11177,7 +10271,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11192,7 +10286,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11201,12 +10295,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+(sin(-0.6)*cos(0.2))^2))|0.2+((0.35)*t)*(1/sqrt(1+(sin(-0.6)*cos(0.2))^2))*(sin(-0.6)*cos(0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11214,14 +10308,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11235,8 +10329,9 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
+end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11245,12 +10340,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+(sin(-0.2)*cos(0.2))^2))|0.2+((0.35)*t)*(1/sqrt(1+(sin(-0.2)*cos(0.2))^2))*(sin(-0.2)*cos(0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11258,14 +10353,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11279,8 +10374,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11290,12 +10385,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+(sin(0.2)*cos(0.2))^2))|0.2+((0.35)*t)*(1/sqrt(1+(sin(0.2)*cos(0.2))^2))*(sin(0.2)*cos(0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11303,14 +10398,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11324,8 +10419,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11335,12 +10430,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+(sin(0.6)*cos(0.2))^2))|0.2+((0.35)*t)*(1/sqrt(1+(sin(0.6)*cos(0.2))^2))*(sin(0.6)*cos(0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11348,14 +10443,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11369,8 +10464,9 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
+end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11379,12 +10475,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+(sin(1.0)*cos(0.2))^2))|0.2+((0.35)*t)*(1/sqrt(1+(sin(1.0)*cos(0.2))^2))*(sin(1.0)*cos(0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11399,7 +10495,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11414,7 +10510,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11423,12 +10519,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+(sin(1.4)*cos(0.2))^2))|0.2+((0.35)*t)*(1/sqrt(1+(sin(1.4)*cos(0.2))^2))*(sin(1.4)*cos(0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11443,7 +10539,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11458,7 +10554,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11467,12 +10563,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+(sin(1.8)*cos(0.2))^2))|0.2+((0.35)*t)*(1/sqrt(1+(sin(1.8)*cos(0.2))^2))*(sin(1.8)*cos(0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11487,7 +10583,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11502,7 +10598,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11511,12 +10607,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+(sin(2.2)*cos(0.2))^2))|0.2+((0.35)*t)*(1/sqrt(1+(sin(2.2)*cos(0.2))^2))*(sin(2.2)*cos(0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11531,7 +10627,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11546,7 +10642,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11555,12 +10651,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+(sin(2.6)*cos(0.2))^2))|0.2+((0.35)*t)*(1/sqrt(1+(sin(2.6)*cos(0.2))^2))*(sin(2.6)*cos(0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11568,14 +10664,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11589,8 +10685,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11600,12 +10696,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+(sin(-3.00)*cos(0.6))^2))|0.6+((0.35)*t)*(1/sqrt(1+(sin(-3.00)*cos(0.6))^2))*(sin(-3.00)*cos(0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11613,14 +10709,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11634,8 +10730,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11645,12 +10741,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+(sin(-2.6)*cos(0.6))^2))|0.6+((0.35)*t)*(1/sqrt(1+(sin(-2.6)*cos(0.6))^2))*(sin(-2.6)*cos(0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11658,14 +10754,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11679,8 +10775,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11690,12 +10786,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+(sin(-2.2)*cos(0.6))^2))|0.6+((0.35)*t)*(1/sqrt(1+(sin(-2.2)*cos(0.6))^2))*(sin(-2.2)*cos(0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11710,7 +10806,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11725,7 +10821,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11734,12 +10830,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+(sin(-1.8)*cos(0.6))^2))|0.6+((0.35)*t)*(1/sqrt(1+(sin(-1.8)*cos(0.6))^2))*(sin(-1.8)*cos(0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11754,7 +10850,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11769,7 +10865,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11778,12 +10874,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+(sin(-1.4)*cos(0.6))^2))|0.6+((0.35)*t)*(1/sqrt(1+(sin(-1.4)*cos(0.6))^2))*(sin(-1.4)*cos(0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11798,7 +10894,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11813,7 +10909,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11822,12 +10918,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+(sin(-1.0)*cos(0.6))^2))|0.6+((0.35)*t)*(1/sqrt(1+(sin(-1.0)*cos(0.6))^2))*(sin(-1.0)*cos(0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11842,7 +10938,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11857,7 +10953,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11866,12 +10962,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+(sin(-0.6)*cos(0.6))^2))|0.6+((0.35)*t)*(1/sqrt(1+(sin(-0.6)*cos(0.6))^2))*(sin(-0.6)*cos(0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11879,14 +10975,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11900,8 +10996,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11911,12 +11007,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+(sin(-0.2)*cos(0.6))^2))|0.6+((0.35)*t)*(1/sqrt(1+(sin(-0.2)*cos(0.6))^2))*(sin(-0.2)*cos(0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11924,14 +11020,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11945,8 +11041,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11956,12 +11052,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+(sin(0.2)*cos(0.6))^2))|0.6+((0.35)*t)*(1/sqrt(1+(sin(0.2)*cos(0.6))^2))*(sin(0.2)*cos(0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11969,14 +11065,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11990,8 +11086,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12001,12 +11097,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+(sin(0.6)*cos(0.6))^2))|0.6+((0.35)*t)*(1/sqrt(1+(sin(0.6)*cos(0.6))^2))*(sin(0.6)*cos(0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12014,14 +11110,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12035,8 +11131,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12046,12 +11142,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+(sin(1.0)*cos(0.6))^2))|0.6+((0.35)*t)*(1/sqrt(1+(sin(1.0)*cos(0.6))^2))*(sin(1.0)*cos(0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12066,7 +11162,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12081,7 +11177,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -12090,12 +11186,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+(sin(1.4)*cos(0.6))^2))|0.6+((0.35)*t)*(1/sqrt(1+(sin(1.4)*cos(0.6))^2))*(sin(1.4)*cos(0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12110,7 +11206,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12125,7 +11221,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -12134,12 +11230,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+(sin(1.8)*cos(0.6))^2))|0.6+((0.35)*t)*(1/sqrt(1+(sin(1.8)*cos(0.6))^2))*(sin(1.8)*cos(0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12154,7 +11250,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12169,7 +11265,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -12178,12 +11274,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+(sin(2.2)*cos(0.6))^2))|0.6+((0.35)*t)*(1/sqrt(1+(sin(2.2)*cos(0.6))^2))*(sin(2.2)*cos(0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12198,7 +11294,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12213,7 +11309,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -12222,12 +11318,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+(sin(2.6)*cos(0.6))^2))|0.6+((0.35)*t)*(1/sqrt(1+(sin(2.6)*cos(0.6))^2))*(sin(2.6)*cos(0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12235,14 +11331,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12256,8 +11352,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12267,12 +11363,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+(sin(-3.00)*cos(1.0))^2))|1.0+((0.35)*t)*(1/sqrt(1+(sin(-3.00)*cos(1.0))^2))*(sin(-3.00)*cos(1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12280,14 +11376,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12301,8 +11397,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12312,12 +11408,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+(sin(-2.6)*cos(1.0))^2))|1.0+((0.35)*t)*(1/sqrt(1+(sin(-2.6)*cos(1.0))^2))*(sin(-2.6)*cos(1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12325,14 +11421,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12346,8 +11442,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12357,12 +11453,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+(sin(-2.2)*cos(1.0))^2))|1.0+((0.35)*t)*(1/sqrt(1+(sin(-2.2)*cos(1.0))^2))*(sin(-2.2)*cos(1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12370,14 +11466,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12391,8 +11487,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12402,12 +11498,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+(sin(-1.8)*cos(1.0))^2))|1.0+((0.35)*t)*(1/sqrt(1+(sin(-1.8)*cos(1.0))^2))*(sin(-1.8)*cos(1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12415,14 +11511,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12436,8 +11532,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12447,12 +11543,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+(sin(-1.4)*cos(1.0))^2))|1.0+((0.35)*t)*(1/sqrt(1+(sin(-1.4)*cos(1.0))^2))*(sin(-1.4)*cos(1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12460,14 +11556,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12481,8 +11577,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12492,12 +11588,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+(sin(-1.0)*cos(1.0))^2))|1.0+((0.35)*t)*(1/sqrt(1+(sin(-1.0)*cos(1.0))^2))*(sin(-1.0)*cos(1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12505,14 +11601,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12526,8 +11622,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12537,12 +11633,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+(sin(-0.6)*cos(1.0))^2))|1.0+((0.35)*t)*(1/sqrt(1+(sin(-0.6)*cos(1.0))^2))*(sin(-0.6)*cos(1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12550,14 +11646,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12571,8 +11667,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12582,12 +11678,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+(sin(-0.2)*cos(1.0))^2))|1.0+((0.35)*t)*(1/sqrt(1+(sin(-0.2)*cos(1.0))^2))*(sin(-0.2)*cos(1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12595,14 +11691,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12616,8 +11712,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12627,12 +11723,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+(sin(0.2)*cos(1.0))^2))|1.0+((0.35)*t)*(1/sqrt(1+(sin(0.2)*cos(1.0))^2))*(sin(0.2)*cos(1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12640,14 +11736,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12661,8 +11757,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12672,12 +11768,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+(sin(0.6)*cos(1.0))^2))|1.0+((0.35)*t)*(1/sqrt(1+(sin(0.6)*cos(1.0))^2))*(sin(0.6)*cos(1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12685,14 +11781,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12706,8 +11802,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12717,12 +11813,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+(sin(1.0)*cos(1.0))^2))|1.0+((0.35)*t)*(1/sqrt(1+(sin(1.0)*cos(1.0))^2))*(sin(1.0)*cos(1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12730,14 +11826,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12751,8 +11847,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12762,12 +11858,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+(sin(1.4)*cos(1.0))^2))|1.0+((0.35)*t)*(1/sqrt(1+(sin(1.4)*cos(1.0))^2))*(sin(1.4)*cos(1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12775,14 +11871,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12796,8 +11892,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12807,12 +11903,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+(sin(1.8)*cos(1.0))^2))|1.0+((0.35)*t)*(1/sqrt(1+(sin(1.8)*cos(1.0))^2))*(sin(1.8)*cos(1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12820,14 +11916,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12841,8 +11937,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12852,12 +11948,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+(sin(2.2)*cos(1.0))^2))|1.0+((0.35)*t)*(1/sqrt(1+(sin(2.2)*cos(1.0))^2))*(sin(2.2)*cos(1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12865,14 +11961,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12886,8 +11982,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12897,12 +11993,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+(sin(2.6)*cos(1.0))^2))|1.0+((0.35)*t)*(1/sqrt(1+(sin(2.6)*cos(1.0))^2))*(sin(2.6)*cos(1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12910,14 +12006,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12931,8 +12027,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12942,12 +12038,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+(sin(-3.00)*cos(1.4))^2))|1.4+((0.35)*t)*(1/sqrt(1+(sin(-3.00)*cos(1.4))^2))*(sin(-3.00)*cos(1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12955,30 +12051,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -12987,12 +12083,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+(sin(-2.6)*cos(1.4))^2))|1.4+((0.35)*t)*(1/sqrt(1+(sin(-2.6)*cos(1.4))^2))*(sin(-2.6)*cos(1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13000,14 +12096,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13021,8 +12117,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13032,12 +12128,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+(sin(-2.2)*cos(1.4))^2))|1.4+((0.35)*t)*(1/sqrt(1+(sin(-2.2)*cos(1.4))^2))*(sin(-2.2)*cos(1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13045,14 +12141,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13066,8 +12162,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13077,12 +12173,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+(sin(-1.8)*cos(1.4))^2))|1.4+((0.35)*t)*(1/sqrt(1+(sin(-1.8)*cos(1.4))^2))*(sin(-1.8)*cos(1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13090,14 +12186,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13111,8 +12207,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13122,12 +12218,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+(sin(-1.4)*cos(1.4))^2))|1.4+((0.35)*t)*(1/sqrt(1+(sin(-1.4)*cos(1.4))^2))*(sin(-1.4)*cos(1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13135,14 +12231,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13156,8 +12252,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13167,12 +12263,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+(sin(-1.0)*cos(1.4))^2))|1.4+((0.35)*t)*(1/sqrt(1+(sin(-1.0)*cos(1.4))^2))*(sin(-1.0)*cos(1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13180,14 +12276,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13201,8 +12297,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13212,12 +12308,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+(sin(-0.6)*cos(1.4))^2))|1.4+((0.35)*t)*(1/sqrt(1+(sin(-0.6)*cos(1.4))^2))*(sin(-0.6)*cos(1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13225,14 +12321,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13246,8 +12342,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13257,12 +12353,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+(sin(-0.2)*cos(1.4))^2))|1.4+((0.35)*t)*(1/sqrt(1+(sin(-0.2)*cos(1.4))^2))*(sin(-0.2)*cos(1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13270,30 +12366,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13302,12 +12398,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+(sin(0.2)*cos(1.4))^2))|1.4+((0.35)*t)*(1/sqrt(1+(sin(0.2)*cos(1.4))^2))*(sin(0.2)*cos(1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13315,30 +12411,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13347,12 +12443,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+(sin(0.6)*cos(1.4))^2))|1.4+((0.35)*t)*(1/sqrt(1+(sin(0.6)*cos(1.4))^2))*(sin(0.6)*cos(1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13360,14 +12456,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13381,8 +12477,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13392,12 +12488,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+(sin(1.0)*cos(1.4))^2))|1.4+((0.35)*t)*(1/sqrt(1+(sin(1.0)*cos(1.4))^2))*(sin(1.0)*cos(1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13405,14 +12501,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13426,8 +12522,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13437,12 +12533,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+(sin(1.4)*cos(1.4))^2))|1.4+((0.35)*t)*(1/sqrt(1+(sin(1.4)*cos(1.4))^2))*(sin(1.4)*cos(1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13450,14 +12546,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13471,8 +12567,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13482,12 +12578,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+(sin(1.8)*cos(1.4))^2))|1.4+((0.35)*t)*(1/sqrt(1+(sin(1.8)*cos(1.4))^2))*(sin(1.8)*cos(1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13495,14 +12591,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13516,8 +12612,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13527,12 +12623,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+(sin(2.2)*cos(1.4))^2))|1.4+((0.35)*t)*(1/sqrt(1+(sin(2.2)*cos(1.4))^2))*(sin(2.2)*cos(1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13540,14 +12636,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13561,8 +12657,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13572,12 +12668,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+(sin(2.6)*cos(1.4))^2))|1.4+((0.35)*t)*(1/sqrt(1+(sin(2.6)*cos(1.4))^2))*(sin(2.6)*cos(1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13585,14 +12681,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13606,8 +12702,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13617,12 +12713,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+(sin(-3.00)*cos(1.8))^2))|1.8+((0.35)*t)*(1/sqrt(1+(sin(-3.00)*cos(1.8))^2))*(sin(-3.00)*cos(1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13630,30 +12726,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13662,12 +12758,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+(sin(-2.6)*cos(1.8))^2))|1.8+((0.35)*t)*(1/sqrt(1+(sin(-2.6)*cos(1.8))^2))*(sin(-2.6)*cos(1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13675,14 +12771,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13696,8 +12792,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13707,12 +12803,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+(sin(-2.2)*cos(1.8))^2))|1.8+((0.35)*t)*(1/sqrt(1+(sin(-2.2)*cos(1.8))^2))*(sin(-2.2)*cos(1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13720,14 +12816,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13741,8 +12837,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13752,12 +12848,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+(sin(-1.8)*cos(1.8))^2))|1.8+((0.35)*t)*(1/sqrt(1+(sin(-1.8)*cos(1.8))^2))*(sin(-1.8)*cos(1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13765,14 +12861,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13786,8 +12882,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13797,12 +12893,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+(sin(-1.4)*cos(1.8))^2))|1.8+((0.35)*t)*(1/sqrt(1+(sin(-1.4)*cos(1.8))^2))*(sin(-1.4)*cos(1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13810,14 +12906,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13831,8 +12927,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13842,12 +12938,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+(sin(-1.0)*cos(1.8))^2))|1.8+((0.35)*t)*(1/sqrt(1+(sin(-1.0)*cos(1.8))^2))*(sin(-1.0)*cos(1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13855,14 +12951,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13876,8 +12972,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13887,12 +12983,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+(sin(-0.6)*cos(1.8))^2))|1.8+((0.35)*t)*(1/sqrt(1+(sin(-0.6)*cos(1.8))^2))*(sin(-0.6)*cos(1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13900,14 +12996,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13921,8 +13017,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13932,12 +13028,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+(sin(-0.2)*cos(1.8))^2))|1.8+((0.35)*t)*(1/sqrt(1+(sin(-0.2)*cos(1.8))^2))*(sin(-0.2)*cos(1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13945,30 +13041,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13977,12 +13073,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+(sin(0.2)*cos(1.8))^2))|1.8+((0.35)*t)*(1/sqrt(1+(sin(0.2)*cos(1.8))^2))*(sin(0.2)*cos(1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13990,30 +13086,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14022,12 +13118,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+(sin(0.6)*cos(1.8))^2))|1.8+((0.35)*t)*(1/sqrt(1+(sin(0.6)*cos(1.8))^2))*(sin(0.6)*cos(1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14035,14 +13131,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14056,8 +13152,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14067,12 +13163,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+(sin(1.0)*cos(1.8))^2))|1.8+((0.35)*t)*(1/sqrt(1+(sin(1.0)*cos(1.8))^2))*(sin(1.0)*cos(1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14080,14 +13176,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14101,8 +13197,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14112,12 +13208,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+(sin(1.4)*cos(1.8))^2))|1.8+((0.35)*t)*(1/sqrt(1+(sin(1.4)*cos(1.8))^2))*(sin(1.4)*cos(1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14125,14 +13221,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14146,8 +13242,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14157,12 +13253,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+(sin(1.8)*cos(1.8))^2))|1.8+((0.35)*t)*(1/sqrt(1+(sin(1.8)*cos(1.8))^2))*(sin(1.8)*cos(1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14170,14 +13266,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14191,8 +13287,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14202,12 +13298,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+(sin(2.2)*cos(1.8))^2))|1.8+((0.35)*t)*(1/sqrt(1+(sin(2.2)*cos(1.8))^2))*(sin(2.2)*cos(1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14215,14 +13311,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14236,8 +13332,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14247,12 +13343,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+(sin(2.6)*cos(1.8))^2))|1.8+((0.35)*t)*(1/sqrt(1+(sin(2.6)*cos(1.8))^2))*(sin(2.6)*cos(1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14260,14 +13356,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14281,8 +13377,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14292,12 +13388,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+(sin(-3.00)*cos(2.2))^2))|2.2+((0.35)*t)*(1/sqrt(1+(sin(-3.00)*cos(2.2))^2))*(sin(-3.00)*cos(2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14305,14 +13401,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14326,8 +13422,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14337,12 +13433,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+(sin(-2.6)*cos(2.2))^2))|2.2+((0.35)*t)*(1/sqrt(1+(sin(-2.6)*cos(2.2))^2))*(sin(-2.6)*cos(2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14350,14 +13446,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14371,8 +13467,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14382,12 +13478,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+(sin(-2.2)*cos(2.2))^2))|2.2+((0.35)*t)*(1/sqrt(1+(sin(-2.2)*cos(2.2))^2))*(sin(-2.2)*cos(2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14395,14 +13491,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14416,8 +13512,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14427,12 +13523,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+(sin(-1.8)*cos(2.2))^2))|2.2+((0.35)*t)*(1/sqrt(1+(sin(-1.8)*cos(2.2))^2))*(sin(-1.8)*cos(2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14440,14 +13536,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14461,8 +13557,9 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
+end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14471,12 +13568,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+(sin(-1.4)*cos(2.2))^2))|2.2+((0.35)*t)*(1/sqrt(1+(sin(-1.4)*cos(2.2))^2))*(sin(-1.4)*cos(2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14484,14 +13581,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14505,8 +13602,9 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
+end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14515,12 +13613,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+(sin(-1.0)*cos(2.2))^2))|2.2+((0.35)*t)*(1/sqrt(1+(sin(-1.0)*cos(2.2))^2))*(sin(-1.0)*cos(2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14528,14 +13626,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14549,8 +13647,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14560,12 +13658,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+(sin(-0.6)*cos(2.2))^2))|2.2+((0.35)*t)*(1/sqrt(1+(sin(-0.6)*cos(2.2))^2))*(sin(-0.6)*cos(2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14573,14 +13671,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14594,8 +13692,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14605,12 +13703,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+(sin(-0.2)*cos(2.2))^2))|2.2+((0.35)*t)*(1/sqrt(1+(sin(-0.2)*cos(2.2))^2))*(sin(-0.2)*cos(2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14618,14 +13716,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14639,8 +13737,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14650,12 +13748,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+(sin(0.2)*cos(2.2))^2))|2.2+((0.35)*t)*(1/sqrt(1+(sin(0.2)*cos(2.2))^2))*(sin(0.2)*cos(2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14663,14 +13761,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14684,8 +13782,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14695,12 +13793,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+(sin(0.6)*cos(2.2))^2))|2.2+((0.35)*t)*(1/sqrt(1+(sin(0.6)*cos(2.2))^2))*(sin(0.6)*cos(2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14708,14 +13806,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14729,8 +13827,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14740,12 +13838,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+(sin(1.0)*cos(2.2))^2))|2.2+((0.35)*t)*(1/sqrt(1+(sin(1.0)*cos(2.2))^2))*(sin(1.0)*cos(2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14753,14 +13851,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14774,8 +13872,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14785,12 +13883,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+(sin(1.4)*cos(2.2))^2))|2.2+((0.35)*t)*(1/sqrt(1+(sin(1.4)*cos(2.2))^2))*(sin(1.4)*cos(2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14798,14 +13896,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14819,8 +13917,9 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
+end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14829,12 +13928,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+(sin(1.8)*cos(2.2))^2))|2.2+((0.35)*t)*(1/sqrt(1+(sin(1.8)*cos(2.2))^2))*(sin(1.8)*cos(2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14842,14 +13941,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14863,8 +13962,9 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
+end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14873,12 +13973,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+(sin(2.2)*cos(2.2))^2))|2.2+((0.35)*t)*(1/sqrt(1+(sin(2.2)*cos(2.2))^2))*(sin(2.2)*cos(2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14886,14 +13986,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14907,8 +14007,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14918,12 +14018,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+(sin(2.6)*cos(2.2))^2))|2.2+((0.35)*t)*(1/sqrt(1+(sin(2.6)*cos(2.2))^2))*(sin(2.6)*cos(2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14931,14 +14031,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14952,8 +14052,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14963,12 +14063,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+(sin(-3.00)*cos(2.6))^2))|2.6+((0.35)*t)*(1/sqrt(1+(sin(-3.00)*cos(2.6))^2))*(sin(-3.00)*cos(2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14976,14 +14076,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14997,8 +14097,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15008,12 +14108,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+(sin(-2.6)*cos(2.6))^2))|2.6+((0.35)*t)*(1/sqrt(1+(sin(-2.6)*cos(2.6))^2))*(sin(-2.6)*cos(2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15021,14 +14121,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15042,8 +14142,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15053,12 +14153,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+(sin(-2.2)*cos(2.6))^2))|2.6+((0.35)*t)*(1/sqrt(1+(sin(-2.2)*cos(2.6))^2))*(sin(-2.2)*cos(2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15073,7 +14173,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15088,7 +14188,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -15097,12 +14197,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+(sin(-1.8)*cos(2.6))^2))|2.6+((0.35)*t)*(1/sqrt(1+(sin(-1.8)*cos(2.6))^2))*(sin(-1.8)*cos(2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15117,7 +14217,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15132,7 +14232,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -15141,12 +14241,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+(sin(-1.4)*cos(2.6))^2))|2.6+((0.35)*t)*(1/sqrt(1+(sin(-1.4)*cos(2.6))^2))*(sin(-1.4)*cos(2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15161,7 +14261,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15176,7 +14276,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -15185,12 +14285,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+(sin(-1.0)*cos(2.6))^2))|2.6+((0.35)*t)*(1/sqrt(1+(sin(-1.0)*cos(2.6))^2))*(sin(-1.0)*cos(2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15205,7 +14305,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15220,7 +14320,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -15229,12 +14329,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+(sin(-0.6)*cos(2.6))^2))|2.6+((0.35)*t)*(1/sqrt(1+(sin(-0.6)*cos(2.6))^2))*(sin(-0.6)*cos(2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15242,14 +14342,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15263,8 +14363,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15274,12 +14374,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+(sin(-0.2)*cos(2.6))^2))|2.6+((0.35)*t)*(1/sqrt(1+(sin(-0.2)*cos(2.6))^2))*(sin(-0.2)*cos(2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15287,14 +14387,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15308,8 +14408,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15319,12 +14419,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+(sin(0.2)*cos(2.6))^2))|2.6+((0.35)*t)*(1/sqrt(1+(sin(0.2)*cos(2.6))^2))*(sin(0.2)*cos(2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15332,14 +14432,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15353,8 +14453,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15364,12 +14464,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+(sin(0.6)*cos(2.6))^2))|2.6+((0.35)*t)*(1/sqrt(1+(sin(0.6)*cos(2.6))^2))*(sin(0.6)*cos(2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15377,14 +14477,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15398,8 +14498,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15409,12 +14509,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+(sin(1.0)*cos(2.6))^2))|2.6+((0.35)*t)*(1/sqrt(1+(sin(1.0)*cos(2.6))^2))*(sin(1.0)*cos(2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15429,7 +14529,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15444,7 +14544,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -15453,12 +14553,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+(sin(1.4)*cos(2.6))^2))|2.6+((0.35)*t)*(1/sqrt(1+(sin(1.4)*cos(2.6))^2))*(sin(1.4)*cos(2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15473,7 +14573,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15488,7 +14588,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -15497,12 +14597,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+(sin(1.8)*cos(2.6))^2))|2.6+((0.35)*t)*(1/sqrt(1+(sin(1.8)*cos(2.6))^2))*(sin(1.8)*cos(2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15517,7 +14617,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15532,7 +14632,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -15541,12 +14641,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+(sin(2.2)*cos(2.6))^2))|2.6+((0.35)*t)*(1/sqrt(1+(sin(2.2)*cos(2.6))^2))*(sin(2.2)*cos(2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15561,7 +14661,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15576,7 +14676,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -15585,12 +14685,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+(sin(2.6)*cos(2.6))^2))|2.6+((0.35)*t)*(1/sqrt(1+(sin(2.6)*cos(2.6))^2))*(sin(2.6)*cos(2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15598,14 +14698,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15619,8 +14719,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial @beginspecial @setspecial
@@ -15629,19 +14729,19 @@ def /ArrowB { BeginArrow 1. 1. scale false 0.4 1.4 1.5 2. CLW mul
add dup 2 div /w ED mul dup /h ED mul /a ED { 0 h T 1 -1 scale } if
gsave w neg h moveto 0 0 L w h L w neg a neg rlineto gsave fill grestore
grestore 0 h a sub moveto EndArrow } def /ArrowInside { } def
-/showOrigin true def 85.5 0 -85.5 0 ArrowA CP 4 2 roll ArrowB 2 copy
-/yEnd exch def /xEnd exch def L 1 setlinejoin 0 setlinecap stroke
- stroke /yStart exch def /xStart exch def 0 dup 2 mod 0 eq false and
-exch 2 lt true and or { /viceversa -85.5 85.5 gt { true }{ false
-} ifelse def /epsilon 0.01 def /minTickline -85.5 def /maxTickline
+/showOrigin true def 88.35017 0 -85.5 0 ArrowA CP 4 2 roll ArrowB
+2 copy /yEnd exch def /xEnd exch def L 0 setlinejoin 0 setlinecap
+stroke stroke /yStart exch def /xStart exch def 0 dup 2 mod 0 eq false
+and exch 2 lt true and or { /viceversa -85.5 88.35017 gt { true }{
+false } ifelse def /epsilon 0.01 def /minTickline -85.5 def /maxTickline
85.5 def /dT 1867776 abs 65536 div viceversa { neg } if def /subTNo
1 def subTNo 0 gt { /dsubT dT subTNo div def}{ /dsubT 0 def } ifelse
0.0 2.2 /tickend exch def /tickstart exch def /Twidth 0.4 def /subTwidth
0.2 def /STsize 0.75 def /TColor { 0 setgray } def /subTColor {
0.5 setgray } def /MinValue { xStart } def /MaxValue { xEnd 1.5 2.
CLW mul add 1.4 mul viceversa { add epsilon sub }{ sub epsilon add
-} ifelse } def /logLines { false } def /LSstroke { 1 setlinejoin
-0 setlinecap stroke stroke} def /subLSstroke { 1 setlinejoin 0
+} ifelse } def /logLines { false } def /LSstroke { 0 setlinejoin
+0 setlinecap stroke stroke} def /subLSstroke { 0 setlinejoin 0
setlinecap stroke stroke} def 0 dT MaxValue 1 add { /cntTick exch def
logLines { gsave 1 10 subTNo div 9.99 { /dx exch def /x cntTick dT
dx log mul add def x abs MaxValue abs le { false { x minTickline moveto
@@ -15682,7 +14782,7 @@ moveto EndArrow } def /ArrowInside { } def 0.7 SLW 0 setgray
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ 0.0 85.5 0.0 -85.5 /Lineto /lineto load def 1 setlinejoin
+{ } def [ 0.0 85.5 0.0 -85.5 /Lineto /lineto load def 0 setlinejoin
false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if () length 0 gt
{ 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add /arrowlength
exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1
@@ -15696,7 +14796,7 @@ div }{0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def
x2 x1 sub ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside
pop pop } repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2
sub def n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop }
-if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 1 setlinejoin
+if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial @beginspecial
@@ -15710,7 +14810,7 @@ moveto EndArrow } def /ArrowInside { } def 0.7 SLW 0 setgray
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ 85.5 0.0 -85.5 0.0 /Lineto /lineto load def 1 setlinejoin
+{ } def [ 88.35017 0.0 -85.5 0.0 /Lineto /lineto load def 0 setlinejoin
false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if () length 0 gt
{ 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add /arrowlength
exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1
@@ -15724,7 +14824,7 @@ div }{0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def
x2 x1 sub ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside
pop pop } repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2
sub def n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop }
-if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 1 setlinejoin
+if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial @beginspecial @setspecial
@@ -15734,18 +14834,18 @@ add dup 2 div /w ED mul dup /h ED mul /a ED { 0 h T 1 -1 scale } if
gsave w neg h moveto 0 0 L w h L w neg a neg rlineto gsave fill grestore
grestore 0 h a sub moveto EndArrow } def /ArrowInside { } def
/showOrigin true def 0 85.5 0 -85.5 ArrowA CP 4 2 roll ArrowB 2 copy
-/yEnd exch def /xEnd exch def L 1 setlinejoin 0 setlinecap stroke
+/yEnd exch def /xEnd exch def L 0 setlinejoin 0 setlinecap stroke
stroke /yStart exch def /xStart exch def 0 dup 2 mod 0 eq true and
exch 2 lt false and or { /viceversa -85.5 85.5 gt { true }{ false
} ifelse def /epsilon 0.01 def /minTickline -85.5 def /maxTickline
-85.5 def /dT 1867776 abs 65536 div viceversa { neg } if def /subTNo
+88.35017 def /dT 1867776 abs 65536 div viceversa { neg } if def /subTNo
1 def subTNo 0 gt { /dsubT dT subTNo div def}{ /dsubT 0 def } ifelse
0.0 2.2 /tickend exch def /tickstart exch def /Twidth 0.4 def /subTwidth
0.2 def /STsize 0.75 def /TColor { 0 setgray } def /subTColor {
0.5 setgray } def /MinValue { yStart } def /MaxValue { yEnd 1.5 2.
CLW mul add 1.4 mul viceversa { add epsilon sub }{ sub epsilon add
-} ifelse } def /logLines { false } def /LSstroke { 1 setlinejoin
-0 setlinecap stroke stroke} def /subLSstroke { 1 setlinejoin 0
+} ifelse } def /logLines { false } def /LSstroke { 0 setlinejoin
+0 setlinecap stroke stroke} def /subLSstroke { 0 setlinejoin 0
setlinecap stroke stroke} def 0 dT MaxValue 1 add { /cntTick exch
def logLines { gsave 1 10 subTNo div 9.99 { /dx exch def /x cntTick
dT dx log mul add def x abs MaxValue abs le { false { x minTickline
@@ -15787,7 +14887,7 @@ moveto EndArrow } def /ArrowInside { } def 0.7 SLW 0 setgray
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ 0.0 85.5 0.0 -85.5 /Lineto /lineto load def 1 setlinejoin
+{ } def [ 0.0 85.5 0.0 -85.5 /Lineto /lineto load def 0 setlinejoin
false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if () length 0 gt
{ 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add /arrowlength
exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1
@@ -15801,7 +14901,7 @@ div }{0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def
x2 x1 sub ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside
pop pop } repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2
sub def n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop }
-if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 1 setlinejoin
+if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial @beginspecial
@@ -15815,7 +14915,7 @@ moveto EndArrow } def /ArrowInside { } def 0.7 SLW 0 setgray
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ 85.5 0.0 -85.5 0.0 /Lineto /lineto load def 1 setlinejoin
+{ } def [ 88.35017 0.0 -85.5 0.0 /Lineto /lineto load def 0 setlinejoin
false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if () length 0 gt
{ 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add /arrowlength
exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1
@@ -15829,7 +14929,7 @@ div }{0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def
x2 x1 sub ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside
pop pop } repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2
sub def n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop }
-if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 1 setlinejoin
+if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 930 685 a Fb(1)930 449 y(2)875
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vec2.eps b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vecb2.eps
index 7b3e4b77e85..7b7b1accb84 100644
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vec2.eps
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vecb2.eps
@@ -1,17 +1,17 @@
%!PS-Adobe-3.0 EPSF-3.0
-%%Creator: dvips(k) 5.992 Copyright 2012 Radical Eye Software
+%%Creator: dvips(k) 5.993 Copyright 2013 Radical Eye Software
%%Title: testps-fig1.dvi
-%%CreationDate: Tue Oct 01 20:09:45 2013
+%%CreationDate: Tue Apr 01 22:56:18 2014
%%Pages: 1
%%PageOrder: Ascend
-%%BoundingBox: 101 518 279 699
+%%BoundingBox: 101 518 281 699
%%DocumentFonts: CMR8 CMSY8
%%DocumentPaperSizes: Letter
%%EndComments
%DVIPSWebPage: (www.radicaleye.com)
%DVIPSCommandLine: DVIPS.EXE testps-fig1
%DVIPSParameters: dpi=600
-%DVIPSSource: TeX output 2013.10.01:2009
+%DVIPSSource: TeX output 2014.04.01:2256
%%BeginProcSet: tex.pro 0 0
%!
/TeXDict 300 dict def TeXDict begin/N{def}def/B{bind def}N/S{exch}N/X{S
@@ -43,19 +43,21 @@ SI restore userdict/eop-hook known{eop-hook}if showpage}N/@start{
userdict/start-hook known{start-hook}if pop/VResolution X/Resolution X
1000 div/DVImag X/IEn 256 array N 2 string 0 1 255{IEn S A 360 add 36 4
index cvrs cvn put}for pop 65781.76 div/vsize X 65781.76 div/hsize X}N
-/p{show}N/RMat[1 0 0 -1 0 0]N/BDot 260 string N/Rx 0 N/Ry 0 N/V{}B/RV/v{
-/Ry X/Rx X V}B statusdict begin/product where{pop false[(Display)(NeXT)
-(LaserWriter 16/600)]{A length product length le{A length product exch 0
-exch getinterval eq{pop true exit}if}{pop}ifelse}forall}{false}ifelse
-end{{gsave TR -.1 .1 TR 1 1 scale Rx Ry false RMat{BDot}imagemask
-grestore}}{{gsave TR -.1 .1 TR Rx Ry scale 1 1 false RMat{BDot}
-imagemask grestore}}ifelse B/QV{gsave newpath transform round exch round
-exch itransform moveto Rx 0 rlineto 0 Ry neg rlineto Rx neg 0 rlineto
-fill grestore}B/a{moveto}B/delta 0 N/tail{A/delta X 0 rmoveto}B/M{S p
-delta add tail}B/b{S p tail}B/c{-4 M}B/d{-3 M}B/e{-2 M}B/f{-1 M}B/g{0 M}
-B/h{1 M}B/i{2 M}B/j{3 M}B/k{4 M}B/w{0 rmoveto}B/l{p -4 w}B/m{p -3 w}B/n{
-p -2 w}B/o{p -1 w}B/q{p 1 w}B/r{p 2 w}B/s{p 3 w}B/t{p 4 w}B/x{0 S
-rmoveto}B/y{3 2 roll p a}B/bos{/SS save N}B/eos{SS restore}B end
+/dir 0 def/dyy{/dir 0 def}B/dyt{/dir 1 def}B/dty{/dir 2 def}B/dtt{/dir 3
+def}B/p{dir 2 eq{-90 rotate show 90 rotate}{dir 3 eq{-90 rotate show 90
+rotate}{show}ifelse}ifelse}N/RMat[1 0 0 -1 0 0]N/BDot 260 string N/Rx 0
+N/Ry 0 N/V{}B/RV/v{/Ry X/Rx X V}B statusdict begin/product where{pop
+false[(Display)(NeXT)(LaserWriter 16/600)]{A length product length le{A
+length product exch 0 exch getinterval eq{pop true exit}if}{pop}ifelse}
+forall}{false}ifelse end{{gsave TR -.1 .1 TR 1 1 scale Rx Ry false RMat{
+BDot}imagemask grestore}}{{gsave TR -.1 .1 TR Rx Ry scale 1 1 false RMat
+{BDot}imagemask grestore}}ifelse B/QV{gsave newpath transform round exch
+round exch itransform moveto Rx 0 rlineto 0 Ry neg rlineto Rx neg 0
+rlineto fill grestore}B/a{moveto}B/delta 0 N/tail{A/delta X 0 rmoveto}B
+/M{S p delta add tail}B/b{S p tail}B/c{-4 M}B/d{-3 M}B/e{-2 M}B/f{-1 M}
+B/g{0 M}B/h{1 M}B/i{2 M}B/j{3 M}B/k{4 M}B/w{0 rmoveto}B/l{p -4 w}B/m{p
+-3 w}B/n{p -2 w}B/o{p -1 w}B/q{p 1 w}B/r{p 2 w}B/s{p 3 w}B/t{p 4 w}B/x{
+0 S rmoveto}B/y{3 2 roll p a}B/bos{/SS save N}B/eos{SS restore}B end
%%EndProcSet
%%BeginProcSet: pstricks.pro 0 0
@@ -4021,941 +4023,21 @@ tx@FuncDict begin
end
%%EndProcSet
-%%BeginProcSet: pst-3dplot.pro 0 0
-%% $Id: pst-3dplot.pro 236 2009-12-31 08:59:43Z herbert $
-%%
-%% This is file `pst-3dplot.pro',
-%%
-%% IMPORTANT NOTICE:
-%%
-%% Package `pst-3dplot.tex'
-%%
-%% Herbert Voss <voss _at_ PSTricks.de>
-%%
-%% This program can be redistributed and/or modified under the terms
-%% of the LaTeX Project Public License Distributed from CTAN archives
-%% in directory macros/latex/base/lppl.txt.
-%%
-%% DESCRIPTION:
-%% `pst-3dplot' is a PSTricks package to draw 3d curves and graphical objects
-%%
-%%
-%% version 0.30 / 2010-01-01 Herbert Voss <voss _at_ PSTricks.de>
-%% with contributions of Darrell Lamm <darrell.lamm _at_ gtri.gatech.edu<
-%%
-%
-/tx@3DPlotDict 200 dict def
-tx@3DPlotDict begin
-%
-/printDot { gsave 2 copy 2 0 360 arc fill stroke grestore } def
-%
-/saveCoor {
- dzUnit mul /z ED
- dyUnit mul /y ED
- dxUnit mul /x ED
-} def
-%
-/ConvertTo2D {
- RotatePoint
- 1 { % dummy loop, will run only 1 time, allows exit
- coorType 0 le { % the default |
- /x2D x leftHanded not { neg } if Alpha cos mul y Alpha sin mul add def % /\ co system
- /y2D x leftHanded { neg } if Alpha sin mul y Alpha cos mul add neg Beta sin mul z Beta cos mul add def
- exit } if
- coorType 1 le {
- /x2D y x Alpha 90 sub sin mul sub def % |/_ co system, no shortened x axis
- /y2D z x Alpha 90 sub cos mul sub def
- exit } if
- coorType 2 le { % coorType |/_ with a 1/sqrt(2) shortend x-axis and 135 degrees
- /x2D y x 0.5 mul sub def
- /y2D z x 0.5 mul sub def
- exit } if
- coorType 3 le { % coorType |/_ with a 1/sqrt(2) shortend x-axis and 135 degrees
- /x2D y x -0.5 mul sub def
- /y2D z x -0.5 mul sub def
- exit } if
- coorType 4 le { % Normalbild in Trimetrie Skalierung so, dass coorType2
- /x2D x -0.5 mul y 1 mul add def
- /y2D x -0.5 mul y -0.25 mul add z 1 mul add def
- exit } if
- } repeat
-} def
-%
-/Conv3D2D { /z ED /y ED /x ED ConvertTo2D x2D y2D } def
-%
-/ConvertToCartesian {
- /latitude exch def
- /longitude exch def
- /Radius exch def
- 1 { % dummy loop, will run only 1 time, allows exit
- SphericalCoorType 0 le { % the default |
- /z { Radius latitude sin mul } def
- /x { Radius longitude cos mul latitude cos mul } def
- /y { Radius longitude sin mul latitude cos mul } def
- exit } if
- SphericalCoorType 2 le {
- /z { Radius longitude cos mul } def
- /x { Radius longitude sin mul latitude cos mul} def
- /y { Radius longitude sin mul latitude sin mul } def
- exit } if
- } repeat
-} def
-%
-/ConvCylToCartesian { % r phi h -> x y z
- 3 1 roll % h r phi
- /Phi ED
- /Radius ED % h->z on stack
- Radius Phi cos mul exch % x z
- Radius Phi sin mul exch % x y z
-} def
-%
-/SphericalTo2D {
- x y z ConvertToCartesian ConvertTo2D
-} def
-%
-/CylinderTo2D { % r phi h
- x y z ConvCylToCartesian ConvertTo2D
-} def
-%
-/convertStackTo2D {
- counttomark
- /n ED /n3 n 3 div cvi def
- n3 {
- n -3 roll
- SphericalCoor { ConvertToCartesian } { saveCoor } ifelse
- ConvertTo2D
- x2D xUnit y2D yUnit
- /n n 1 sub def
- } repeat
-} def
-%
-% the angle in the parameter equation for an ellipse is not proportional to the real angle!
-% phi=atan(b*tan(angle)/a)+floor(angle/180+0.5)*180
-%
-/getPhi { % on stack: vecA vecB angle
- 3 dict begin
- /angle exch def /vecB exch def /vecA exch def
- angle cvi 90 mod 0 eq { angle } { vecA angle tan mul vecB atan
- angle 180 div .5 add floor 180 mul add } ifelse
- end
-} def
-%
-/RotSet (set ) def
-%
-/eulerRotation false def
-% Matrix multiplication procedure
-/matmul {
-
- /M@tMulDict 20 dict def
- M@tMulDict begin
- /m2 ED
- /m1 ED
- m1 dup length 2 sub 2 getinterval aload pop
- /col1max ED
- /row1max ED
- m2 dup length 2 sub 2 getinterval aload pop
- /col2max ED
- /row2max ED
- /m3 row1max col2max mul 2 add array def
- m3 dup length 2 sub row1max col2max 2 array astore putinterval
- 0 1 row1max 1 sub {
- /row ED
- 0 1 col2max 1 sub {
- /col ED
- /sum 0 def
- 0 1 col1max 1 sub{
- /rowcol ED
- sum
- m1 row col1max mul rowcol add get
- m2 rowcol col2max mul col add get
- mul add
- /sum ED
- } for
- m3 row col2max mul col add sum put
- } for
- } for
- m3
- end % end of M@tMulDict
-
-} def
-%
-/SetMQuaternion {
-
- /MnewTOold 11 array def
-
- /Qu@ternionDict 30 dict def
- Qu@ternionDict begin
-
- /normRotVec xRotVec yRotVec zRotVec 3 array astore VecNorm def
- normRotVec 0 gt
- {/xRotVecNorm xRotVec normRotVec div def
- /yRotVecNorm yRotVec normRotVec div def
- /zRotVecNorm zRotVec normRotVec div def
- RotAngle}
- {/xRotVecNorm 1 def
- /yRotVecNorm 0 def
- /zRotVecNorm 0 def
- 0} ifelse
-
- 2 div dup
- /q0 exch cos def
- sin dup dup
- /q1 exch xRotVecNorm mul def
- /q2 exch yRotVecNorm mul def
- /q3 exch zRotVecNorm mul def
-
- /q0q0 q0 q0 mul def
- /q0q1 q0 q1 mul def
- /q0q2 q0 q2 mul def
- /q0q3 q0 q3 mul def
-
- /q1q1 q1 q1 mul def
- /q1q2 q1 q2 mul def
- /q1q3 q1 q3 mul def
-
- /q2q2 q2 q2 mul def
- /q2q3 q2 q3 mul def
-
- /q3q3 q3 q3 mul def
-
- MnewTOold 0 q0q0 q1q1 add q2q2 sub q3q3 sub put
- MnewTOold 1 q1q2 q0q3 sub 2 mul put
- MnewTOold 2 q1q3 q0q2 add 2 mul put
-
- MnewTOold 3 q1q2 q0q3 add 2 mul put
- MnewTOold 4 q0q0 q1q1 sub q2q2 add q3q3 sub put
- MnewTOold 5 q2q3 q0q1 sub 2 mul put
-
- MnewTOold 6 q1q3 q0q2 sub 2 mul put
- MnewTOold 7 q2q3 q0q1 add 2 mul put
- MnewTOold 8 q0q0 q1q1 sub q2q2 sub q3q3 add put
-
- MnewTOold 9 3 put
- MnewTOold 10 3 put
-
- end % end of Qu@ternionDict
-
-} def
-%
-/SetMxyz {
- 1.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0 1.0 3 3 11 array astore /MnewTOold ED
- RotSequence cvx exec % Now create a new MnewTOold using xyz, etc.
-} def
-%
-/ConcatMQuaternion {
- MnewTOold % Push onto stack
- SetMQuaternion % Uses [xyz]RotVec and RotAngle to make MnewToOld
- MnewTOold matmul /MnewTOold ED
-} def
-%
-/ConcatMxyz {
- MnewTOold % Push onto stack
- SetMxyz % Uses RotX, etc. to set MnewTOold
- MnewTOold matmul /MnewTOold ED
-} def
-%
-/RotatePoint{
- MnewTOold x y z 3 1 5 array astore matmul
- 0 3 getinterval aload pop
- /z ED
- /y ED
- /x ED
-} def
-%
-/makeMoldTOnew {
- /MoldTOnew 11 array def
- MoldTOnew 0 MnewTOold 0 get put
- MoldTOnew 1 MnewTOold 3 get put
- MoldTOnew 2 MnewTOold 6 get put
- MoldTOnew 3 MnewTOold 1 get put
- MoldTOnew 4 MnewTOold 4 get put
- MoldTOnew 5 MnewTOold 7 get put
- MoldTOnew 6 MnewTOold 2 get put
- MoldTOnew 7 MnewTOold 5 get put
- MoldTOnew 8 MnewTOold 8 get put
- MoldTOnew 9 3 put
- MoldTOnew 10 3 put
-} def
-%
-/RotXaxis {
- eulerRotation
- {1 0 0}
- {makeMoldTOnew MoldTOnew 1 0 0 3 1 5 array astore matmul
- 0 3 getinterval aload pop} ifelse
- /zRotVec ED
- /yRotVec ED
- /xRotVec ED
- /RotAngle RotX def
- ConcatMQuaternion
-} def
-/RotYaxis {
- eulerRotation
- {0 1 0}
- {makeMoldTOnew MoldTOnew 0 1 0 3 1 5 array astore matmul
- 0 3 getinterval aload pop} ifelse
- /zRotVec ED
- /yRotVec ED
- /xRotVec ED
- /RotAngle RotY def
- ConcatMQuaternion
-} def
-/RotZaxis {
- eulerRotation
- {0 0 1}
- {makeMoldTOnew MoldTOnew 0 0 1 3 1 5 array astore matmul
- 0 3 getinterval aload pop} ifelse
- /zRotVec ED
- /yRotVec ED
- /xRotVec ED
- /RotAngle RotZ def
- ConcatMQuaternion
-} def
-/xyz { RotXaxis RotYaxis RotZaxis } def
-/yxz { RotYaxis RotXaxis RotZaxis } def
-/yzx { RotYaxis RotZaxis RotXaxis } def
-/xzy { RotXaxis RotZaxis RotYaxis } def
-/zxy { RotZaxis RotXaxis RotYaxis } def
-/zyx { RotZaxis RotYaxis RotXaxis } def
-/quaternion { } def % Null
-%
-/VecNorm { 0 exch { dup mul add } forall sqrt } def
-%
-/UnitVec { % on stack is [a]; returns a vector with [a][a]/|a|=1
- dup VecNorm /norm ED
- norm 0 lt {/norm 0 def} if
- { norm div } forall 3 array astore } def
-%
-/AxB { % on the stack are the two vectors [a][b]
- aload pop /b3 ED /b2 ED /b1 ED
- aload pop /a3 ED /a2 ED /a1 ED
- a2 b3 mul a3 b2 mul sub
- a3 b1 mul a1 b3 mul sub
- a1 b2 mul a2 b1 mul sub
- 3 array astore } def
-%
-/AaddB { % on the stack are the two vectors [a][b]
- aload pop /b3 ED /b2 ED /b1 ED
- aload pop /a3 ED /a2 ED /a1 ED
- a1 b1 add a2 b2 add a3 b3 add
- 3 array astore } def
-%
-/AmulC { % on stack is [a] and c; returns [a] mul c
- /factor ED { factor mul } forall 3 array astore } def
-%
-%
-/setColorLight { % expects 7 values on stack C M Y K xL yL zL
-% les rayons de lumi�re
- xLight dup mul yLight dup mul zLight dup mul add add sqrt /NormeLight ED
-% the color values
- /K ED
- /Yellow ED
- /Magenta ED
- /Cyan ED
-} def
-%
-/facetteSphere {
- newpath
- /Xpoint Rsphere theta cos mul phi cos mul CX add def
- /Ypoint Rsphere theta sin mul phi cos mul CY add def
- /Zpoint Rsphere phi sin mul CZ add def
- Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end moveto
- theta 1 theta increment add {%
- /theta1 ED
- /Xpoint Rsphere theta1 cos mul phi cos mul CX add def
- /Ypoint Rsphere theta1 sin mul phi cos mul CY add def
- /Zpoint Rsphere phi sin mul CZ add def
- Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
- } for
- phi 1 phi increment add {
- /phi1 ED
- /Xpoint Rsphere theta increment add cos mul phi1 cos mul CX add def
- /Ypoint Rsphere theta increment add sin mul phi1 cos mul CY add def
- /Zpoint Rsphere phi1 sin mul CZ add def
- Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
- } for
- theta increment add -1 theta {%
- /theta1 ED
- /Xpoint Rsphere theta1 cos mul phi increment add cos mul CX add def
- /Ypoint Rsphere theta1 sin mul phi increment add cos mul CY add def
- /Zpoint Rsphere phi increment add sin mul CZ add def
- Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
- } for
- phi increment add -1 phi {
- /phi1 ED
- /Xpoint Rsphere theta cos mul phi1 cos mul CX add def
- /Ypoint Rsphere theta sin mul phi1 cos mul CY add def
- /Zpoint Rsphere phi1 sin mul CZ add def
- Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
- } for
- closepath
-} def
-%
-/MaillageSphere {
-% on stack must be x y z Radius increment C M Y K
- setColorLight
- /increment ED
- /Rsphere ED
- /CZ ED
- /CY ED
- /CX ED
- /StartTheta 0 def
- /condition { PSfacetteSphere 0 ge } def
- -90 increment 90 increment sub {%
- /phi ED
- StartTheta increment 360 StartTheta add increment sub {%
- /theta ED
- % Centre de la facette
- /Xpoint Rsphere theta increment 2 div add cos mul phi increment 2 div add cos mul CX add def
- /Ypoint Rsphere theta increment 2 div add sin mul phi increment 2 div add cos mul CY add def
- /Zpoint Rsphere phi increment 2 div add sin mul CZ add def
- % normale � la facette
- /nXfacette Xpoint CX sub def
- /nYfacette Ypoint CY sub def
- /nZfacette Zpoint CZ sub def
- % test de visibilit�
- /PSfacetteSphere
- vX nXfacette mul
- vY nYfacette mul add
- vZ nZfacette mul add
- def
- condition {
- gsave
- facetteSphere
- /cosV { 1 xLight nXfacette mul
- yLight nYfacette mul
- zLight nZfacette mul
- add add
- NormeLight
- nXfacette dup mul
- nYfacette dup mul
- nZfacette dup mul
- add add sqrt mul div sub } bind def
- Cyan cosV mul Magenta cosV mul Yellow cosV mul K cosV mul setcmykcolor fill
- grestore
-% 0 setgray
- showgrid { facetteSphere stroke } if
- } if
- } for
- % /StartTheta StartTheta increment 2 div add def
- } for
-} def
-%
-%---------------------- Cylinder ---------------------------
-%
-/PlanCoupeCylinder { %
- /TableauxPoints [
- 0 1 359 {
- /phi ED
- [ Radius phi Height ConvCyl2d ] % on décrit le cercle
- } for
- ] def
- newpath
- TableauxPoints 0 get aload pop moveto
- 1 1 359 { TableauxPoints exch get aload pop lineto } for
- closepath
-} def
-%
-/facetteCylinder { %
- newpath
- Radius phi currentHeight ConvCyl2d moveto
- phi 1 phi dAngle add { % loop variable on stack
- Radius exch currentHeight ConvCyl2d lineto
- } for
- phi dAngle add -1 phi { % fill dHeight
- Radius exch currentHeight dHeight add ConvCyl2d lineto
- } for
- closepath
- } def % facette
-%
-/MaillageCylinder { % on stack true or false for saving values
- { setColorLight % expects 4 values on stack C M Y K
- /dHeight ED /dAngle ED /Height ED /Radius ED
- /CZ ED /CY ED /CX ED } if
-%
- 0 dHeight Height dHeight sub {
- /currentHeight ED
- 0 dAngle 360 dAngle sub {
- /phi ED
-% Normal vector of the center
- /nXfacetteCylinder Radius phi dAngle 2 div add cos mul CX add def
- /nYfacetteCylinder Radius phi dAngle 2 div add sin mul CY add def
- /nZfacetteCylinder currentHeight dHeight 2 div add CZ add def
- /NormeN
- nXfacetteCylinder dup mul
- nYfacetteCylinder dup mul
- nZfacetteCylinder dup mul
- add add sqrt def
- NormeN 0 eq { /NormeN 1e-10 def } if
-% test de visibilité
- /PSfacetteCylinder
- vX nXfacetteCylinder mul
- vY nYfacetteCylinder mul add
- vZ nZfacetteCylinder mul add def
- condition {
- facetteCylinder
- /cosV
- 1 xLight nXfacetteCylinder mul
- yLight nYfacetteCylinder mul
- zLight nZfacetteCylinder mul
- add add
- NormeLight NormeN mul div sub def
- Cyan Magenta Yellow K
- cosV mul 4 1 roll cosV mul 4 1 roll
- cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
- setcmykcolor fill
- showgrid {
- 0 setgray
- facetteCylinder % drawing the segments
- stroke } if
- } if
- } for
- } for
-} def
-%
-%------------------------ Cylinder type II -----------------------
-%
-/MoveTo { Conv3D2D moveto } def
-/LineTo { Conv3D2D lineto } def
-
-/IIIDEllipse { % x y z rA rB startAngle endAngle Wedge
- /dAngle 1 def
- /isWedge ED
- /endAngle ED
- /startAngle ED
- /radiusB ED
- /radiusA ED
- startAngle cos radiusA mul startAngle sin radiusB mul 0
- isWedge { 0 0 moveto LineTo }{ MoveTo } ifelse
- /Angle startAngle def
- startAngle dAngle endAngle {
- /Angle ED
- Angle cos radiusA mul Angle sin radiusB mul 0 LineTo
- } for
- isWedge { 0 0 lineto } if
-} def
-
-/IIIDCircle { % x y z r startAngle endAngle Wedge
- 7 3 roll % startAngle endAngle Wedge x y z r
- dup % startAngle endAngle Wedge x y z r r
- 8 -3 roll
- IIIDEllipse
-} def
-
-/IIIDWedge { % x y z r startAngle endAngle
- true IIIDCircle
-} def
-
-/IIIDCylinder {% x y z r h start end wedge
- /isWedge ED
- /increment ED
- /endAngle ED
- /startAngle ED
- /height ED
- /radius ED
- startAngle increment endAngle {
- /Angle ED
- radius Angle 0 ConvCylToCartesian MoveTo
- radius Angle height ConvCylToCartesian LineTo
- } for
- stroke
-} def
-%
-%---------------------- Box ---------------------------
-%
-/PlanCoupeBox { % x y z
- /TableauxPoints [
- [ CX CY CZ Height add ConvBox2d ] % top or bottom
- [ CX CY Depth add CZ Height add ConvBox2d ]
- [ CX Width add CY Depth add CZ Height add ConvBox2d ]
- [ CX Width add CY CZ Height add ConvBox2d ]
- [ CX CY CZ Height add ConvBox2d ] % bottom
- ] def
- newpath
- TableauxPoints 0 get aload pop moveto
- 0 1 3 {
- TableauxPoints exch get aload pop
- lineto } for
- closepath
-} def
-%
-/facetteBox { %
- newpath
- dup
- 1 eq { % back
- CX CY CZ ConvBox2d moveto
- CX CY CZ Height add ConvBox2d lineto
- CX Width add CY CZ Height add ConvBox2d lineto
- CX Width add CY CZ ConvBox2d lineto
- CX CY CZ ConvBox2d lineto
- } if
- dup
- 2 eq { % right
- CX CY CZ ConvBox2d moveto
- CX CY CZ Height add ConvBox2d lineto
- CX CY Depth add CZ Height add ConvBox2d lineto
- CX CY Depth add CZ ConvBox2d lineto
- CX CY CZ ConvBox2d lineto
- } if
- dup
- 3 eq { % left
- CX Width add CY CZ ConvBox2d moveto
- CX Width add CY Depth add CZ ConvBox2d lineto
- CX Width add CY Depth add CZ Height add ConvBox2d lineto
- CX Width add CY CZ Height add ConvBox2d lineto
- CX Width add CY CZ ConvBox2d lineto
- } if
- 4 eq { % front
- CX CY Depth add CZ ConvBox2d moveto
- CX CY Depth add CZ Height add ConvBox2d lineto
- CX Width add CY Depth add CZ Height add ConvBox2d lineto
- CX Width add CY Depth add CZ ConvBox2d lineto
- CX CY Depth add CZ ConvBox2d lineto
- } if
- closepath
- } def % facette
-%
-/TestPlane { % on stack x y z of the plane center and # of plane
- /nZfacetteBox ED /nYfacetteBox ED /nXfacetteBox ED
- /Plane ED
- /NormeN
- nXfacetteBox dup mul
- nYfacetteBox dup mul
- nZfacetteBox dup mul
- add add sqrt def
- NormeN 0 eq { /NormeN 1e-10 def } if
-% test de visibilit�
- /PSfacetteBox
- vX nXfacetteBox mul
- vY nYfacetteBox mul add
- vZ nZfacetteBox mul add def
- condition {
- Plane facetteBox
- /cosV
- 1 xLight nXfacetteBox mul
- yLight nYfacetteBox mul
- zLight nZfacetteBox mul
- add add
- NormeLight NormeN mul div sub def
- Cyan Magenta Yellow K
- cosV mul 4 1 roll cosV mul 4 1 roll
- cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
- setcmykcolor fill
- 0 setgray
- Plane facetteBox % drawing the segments
- stroke
- } if
-} def
-%
-/MaillageBox { % on stack true or false for saving values
- { setColorLight % expects 4 values on stack C M Y K
- /Depth ED /Height ED /Width ED
- /CZ ED /CY ED /CX ED } if
-%
-% Normal vector of the box center
- /PlaneSet [
- [ Width 2 div CX add
- CY
- Height 2 div CZ add ] % normal back
- [ CX
- Depth 2 div CY add
- Height 2 div CZ add ] % normal right
- [ Width CX add
- Depth 2 div CY add
- Height 2 div CZ add ] % normal left
- [ Width 2 div CX add
- Depth CY add
- Height 2 div CZ add ] % normal front
- ] def
- PlaneSequence length 0 eq { % user defined?
- Alpha abs cvi 360 mod /iAlpha ED
- iAlpha 90 lt { [ 1 2 3 4 ]
- }{ iAlpha 180 lt { [ 2 4 1 3 ]
- }{ iAlpha 270 lt { [ 3 4 1 2 ] }{ [ 3 1 4 2] } ifelse } ifelse } ifelse
- }{ PlaneSequence } ifelse
- { dup 1 sub PlaneSet exch get aload pop TestPlane } forall
-} def
-%
-%--------------------------- Paraboloid -----------------------------
-/PlanCoupeParaboloid {
- /Z height store
- /V {Z sqrt} bind def
- /TableauxPoints [
- 0 1 359 {
- /U ED [ U U Z V calculate2DPoint ] % on d�crit le cercle
- } for
- ] def
- newpath
- TableauxPoints 0 get aload pop moveto
- 0 1 359 {
- /compteur ED
- TableauxPoints compteur get aload pop
- lineto } for
- closepath
-} def
-%
-/facetteParaboloid{
- newpath
- U U Z V calculate2DPoint moveto
- U 1 U increment add {%
- /U1 ED
- U1 U1 Z V calculate2DPoint lineto
- } for
- Z pas10 Z pas add pas10 add{
- /Z1 ED
- /V {Z1 sqrt} bind def
- U1 U1 Z1 V calculate2DPoint lineto
- } for
- U increment add -1 U {%
- /U2 ED
- U2 U2 Z pas add V calculate2DPoint lineto
- } for
- Z pas add pas10 sub pas10 neg Z pas10 sub {
- /Z2 ED
- /V Z2 abs sqrt def
- U U Z2 V calculate2DPoint lineto
- } for
- closepath
-} def % facette
-%
-/MaillageParaboloid {
- % on stack true or false for saving values
- { setColorLight % expects 7 values on stack C M Y K xL yL zL
-% /CZ ED /CY ED /CX ED
- } if
- 0 pas height pas sub {%
- /Z ED
- /V Z sqrt def
- 0 increment 360 increment sub {%
- /U ED
-% Centre de la facette
- /Ucentre U increment 2 div add def
- /Vcentre Z pas 2 div add sqrt def
-% normale à la facette
- /nXfacetteParaboloid 2 Vcentre dup mul mul Ucentre cos mul radius mul def
- /nYfacetteParaboloid 2 Vcentre dup mul mul Ucentre sin mul radius mul def
- /nZfacetteParaboloid Vcentre neg radius dup mul mul def
- /NormeN {
- nXfacetteParaboloid dup mul
- nYfacetteParaboloid dup mul
- nZfacetteParaboloid dup mul
- add add sqrt} bind def
- NormeN 0 eq {/NormeN 1e-10 def} if
-% test de visibilit�
- /PSfacetteParaboloid vX nXfacetteParaboloid mul
- vY nYfacetteParaboloid mul add
- vZ nZfacetteParaboloid mul add def
- condition {
- facetteParaboloid
- /cosV 1 xLight nXfacetteParaboloid mul
- yLight nYfacetteParaboloid mul
- zLight nZfacetteParaboloid mul
- add add
- NormeLight
- NormeN mul div sub def
- Cyan Magenta Yellow K
- cosV mul 4 1 roll cosV mul 4 1 roll cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
- setcmykcolor fill
- showgrid {
- 0 setgray
- facetteParaboloid
- stroke } if
- } if
- } for
- } for
-} def
-%
-% ------------------------------------ math stuff ----------------------------------
-%
-% Matrix A in arrays of rows A[[row1][row2]...]
-% with [row1]=[a11 a12 ... b1]
-% returns on stack solution vector X=[x1 x2 ... xn]
-/SolveLinEqSystem { % on stack matrix M=[A,b] (A*x=b)
- 10 dict begin % hold all ocal
- /A exch def
- /Rows A length def % Rows = number of rows
- /Cols A 0 get length def % Cols = number of columns
- /Index [ 0 1 Rows 1 sub { } for ] def % Index = [0 1 2 ... Rows-1]
- /col 0 def
- /row 0 def
- /PR Rows array def % PR[c] = pivot row for row row
- { % starts the loop, find pivot entry in row r
- col Cols ge row Rows ge or { exit } if % col < Cols and row < Rows else exit
- /pRow row def % pRow = pivot row
- /max A row get col get abs def % get A[row[col]], first A[0,0]
- row 1 add 1 Rows 1 sub { % starts for loop 1 1 Rows-1
- /j exch def % index counter
- /x A j get col get abs def % get A[j[r]]
- x max gt { % x>max, then save position
- /pRow j def
- /max x def
- } if
- } for % now we have the row with biggest A[0,1]
- % with pRow = the pivot row
- max 0 gt { % swap entries pRow and row in i
- /tmp Index row get def
- Index row Index pRow get put
- Index pRow tmp put % and columns pRow and row in A
- /tmp A row get def
- A row A pRow get put
- A pRow tmp put % pivot
- /row0 A row get def % the pivoting row
- /p0 row0 col get def % the pivot value
- row 1 add 1 Rows 1 sub { % start for loop
- /j exch def
- /c1 A j get def
- /p c1 col get p0 div def
- c1 col p put % subtract (p1/p0)*row[i] from row[j]
- col 1 add 1 Cols 1 sub { % start for loop
- /i exch def
- c1 dup i exch % c1 i c1
- i get row0 i get p mul sub put
- } for
- } for
- PR row col put
- /col col 1 add def
- /row row 1 add def
- }{ % all zero entries
- /row row 1 add def % continue loop with same row
- } ifelse
- } loop
- /X A def % solution vector
- A Rows 1 sub get dup
- Cols 1 sub get exch
- Cols 2 sub get div
- X Rows 1 sub 3 -1 roll put % X[n]
- Rows 2 sub -1 0 { % for loop to calculate X[i]
- /xi exch def % current index
- A xi get % i-th row
- /Axi exch def
- /sum 0 def
- Cols 2 sub -1 xi 1 add {
- /n exch def
- /sum sum Axi n get X n get mul add def
- } for
- Axi Cols 1 sub get % b=Axi[Cols-1]
- sum sub % b-sum
- Axi xi get div % b-sum / Axi[xi]
- X xi 3 -1 roll put % X[xi]
- } for
- X
- end
-} def
-%
-% u -> e_u with |e_u|=1
-/vector-unit { 1 dict begin
- dup vector-length 1 exch div
- vector-scale
- end
-} def
-%
-% u v -> u+v
-/vector-add { 1 dict begin
- /v exch def
- [ exch
- 0 % u i
- exch { % i u[i]
- v % i u[i] v
- 2 index get add % i u[i]+v[i]
- exch 1 add % i
- } forall
- pop
- ]
- end
-} def
-%
-% u v -> u-v
-/vector-sub { 1 dict begin
- /v exch def
- [ exch
- 0 % u i
- exch { % i u[i]
- v % i u[i] v
- 2 index get sub % i u[i]+v[i]
- exch 1 add % i
- } forall
- pop
- ]
-end } def
-%
-% [v] c -> [c.v]
-/vector-scale { 1 dict begin
- /c exch def
- [ exch
- { % s i u[i]
- c mul % s i u[i] v
- } forall
- ]
- end } def
-%
-%
-% [u] [v] -> [u x v]
-/vector-prod { %% x1 y1 z1 x2 y2 z2
-6 dict begin
- aload pop
- /zp exch def /yp exch def /xp exch def
- aload pop
- /z exch def /y exch def /x exch def
- [ y zp mul z yp mul sub
- z xp mul x zp mul sub
- x yp mul y xp mul sub ]
-end
-} def
-%
-% [u] [v] -> u.v
-/vector-mul { %% x1 y1 z1 x2 y2 z2
-6 dict begin
- aload pop
- /zp exch def /yp exch def /xp exch def
- aload pop
- /z exch def /y exch def /x exch def
- x xp mul y yp mul add z zp mul add
-end
-} def
-%
-% [x y z ... ] -> r
-% watch out for overflow
-/vector-length { 1 dict begin
-dup
-% find maximum entry
-/max 0 def
-{ % max
- abs dup max gt {
- % if abs gt max
- /max exch def
- } {
- pop
- } ifelse
-} forall
-max 0 ne {
- 0 exch
- { % 0 v[i]
- max div dup mul add
- } forall
- sqrt
- max mul
-} {
- pop 0
-} ifelse
-end } def
-%
-end % tx@3DPlotDict
-
-
-%%EndProcSet
%%BeginProcSet: texps.pro 0 0
%!
TeXDict begin/rf{findfont dup length 1 add dict begin{1 index/FID ne 2
index/UniqueID ne and{def}{pop pop}ifelse}forall[1 index 0 6 -1 roll
-exec 0 exch 5 -1 roll VResolution Resolution div mul neg 0 0]/Metrics
-exch def dict begin Encoding{exch dup type/integertype ne{pop pop 1 sub
-dup 0 le{pop}{[}ifelse}{FontMatrix 0 get div Metrics 0 get div def}
-ifelse}forall Metrics/Metrics currentdict end def[2 index currentdict
-end definefont 3 -1 roll makefont/setfont cvx]cvx def}def/ObliqueSlant{
-dup sin S cos div neg}B/SlantFont{4 index mul add}def/ExtendFont{3 -1
-roll mul exch}def/ReEncodeFont{CharStrings rcheck{/Encoding false def
-dup[exch{dup CharStrings exch known not{pop/.notdef/Encoding true def}
-if}forall Encoding{]exch pop}{cleartomark}ifelse}if/Encoding exch def}
-def end
+exec 0 exch 5 -1 roll VResolution Resolution div mul neg 0 0]FontType 0
+ne{/Metrics exch def dict begin Encoding{exch dup type/integertype ne{
+pop pop 1 sub dup 0 le{pop}{[}ifelse}{FontMatrix 0 get div Metrics 0 get
+div def}ifelse}forall Metrics/Metrics currentdict end def}{{1 index type
+/nametype eq{exit}if exch pop}loop}ifelse[2 index currentdict end
+definefont 3 -1 roll makefont/setfont cvx]cvx def}def/ObliqueSlant{dup
+sin S cos div neg}B/SlantFont{4 index mul add}def/ExtendFont{3 -1 roll
+mul exch}def/ReEncodeFont{CharStrings rcheck{/Encoding false def dup[
+exch{dup CharStrings exch known not{pop/.notdef/Encoding true def}if}
+forall Encoding{]exch pop}{cleartomark}ifelse}if/Encoding exch def}def
+end
%%EndProcSet
%%BeginProcSet: special.pro 0 0
@@ -4995,25 +4077,26 @@ currentpoint TR/psf$ury psfts/psf$urx psfts/psf$lly psfts/psf$llx psfts
/psf$y psfts/psf$x psfts currentpoint/psf$cy X/psf$cx X/psf$sx psf$x
psf$urx psf$llx sub div N/psf$sy psf$y psf$ury psf$lly sub div N psf$sx
psf$sy scale psf$cx psf$sx div psf$llx sub psf$cy psf$sy div psf$ury sub
-TR/showpage{}N/erasepage{}N/copypage{}N/p 3 def @MacSetUp}N/doclip{
-psf$llx psf$lly psf$urx psf$ury currentpoint 6 2 roll newpath 4 copy 4 2
-roll moveto 6 -1 roll S lineto S lineto S lineto closepath clip newpath
-moveto}N/endTexFig{end psf$SavedState restore}N/@beginspecial{SDict
-begin/SpecialSave save N gsave normalscale currentpoint TR
-@SpecialDefaults count/ocount X/dcount countdictstack N}N/@setspecial{
-CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs neg 0 rlineto
-closepath clip}if ho vo TR hsc vsc scale ang rotate rwiSeen{rwi urx llx
-sub div rhiSeen{rhi ury lly sub div}{dup}ifelse scale llx neg lly neg TR
-}{rhiSeen{rhi ury lly sub div dup scale llx neg lly neg TR}if}ifelse
-CLIP 2 eq{newpath llx lly moveto urx lly lineto urx ury lineto llx ury
-lineto closepath clip}if/showpage{}N/erasepage{}N/copypage{}N newpath}N
-/@endspecial{count ocount sub{pop}repeat countdictstack dcount sub{end}
-repeat grestore SpecialSave restore end}N/@defspecial{SDict begin}N
-/@fedspecial{end}B/li{lineto}B/rl{rlineto}B/rc{rcurveto}B/np{/SaveX
-currentpoint/SaveY X N 1 setlinecap newpath}N/st{stroke SaveX SaveY
-moveto}N/fil{fill SaveX SaveY moveto}N/ellipse{/endangle X/startangle X
-/yrad X/xrad X/savematrix matrix currentmatrix N TR xrad yrad scale 0 0
-1 startangle endangle arc savematrix setmatrix}N end
+TR/showpage{}N/erasepage{}N/setpagedevice{pop}N/copypage{}N/p 3 def
+@MacSetUp}N/doclip{psf$llx psf$lly psf$urx psf$ury currentpoint 6 2 roll
+newpath 4 copy 4 2 roll moveto 6 -1 roll S lineto S lineto S lineto
+closepath clip newpath moveto}N/endTexFig{end psf$SavedState restore}N
+/@beginspecial{SDict begin/SpecialSave save N gsave normalscale
+currentpoint TR @SpecialDefaults count/ocount X/dcount countdictstack N}
+N/@setspecial{CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs
+neg 0 rlineto closepath clip}if ho vo TR hsc vsc scale ang rotate
+rwiSeen{rwi urx llx sub div rhiSeen{rhi ury lly sub div}{dup}ifelse
+scale llx neg lly neg TR}{rhiSeen{rhi ury lly sub div dup scale llx neg
+lly neg TR}if}ifelse CLIP 2 eq{newpath llx lly moveto urx lly lineto urx
+ury lineto llx ury lineto closepath clip}if/showpage{}N/erasepage{}N
+/setpagedevice{pop}N/copypage{}N newpath}N/@endspecial{count ocount sub{
+pop}repeat countdictstack dcount sub{end}repeat grestore SpecialSave
+restore end}N/@defspecial{SDict begin}N/@fedspecial{end}B/li{lineto}B
+/rl{rlineto}B/rc{rcurveto}B/np{/SaveX currentpoint/SaveY X N 1
+setlinecap newpath}N/st{stroke SaveX SaveY moveto}N/fil{fill SaveX SaveY
+moveto}N/ellipse{/endangle X/startangle X/yrad X/xrad X/savematrix
+matrix currentmatrix N TR xrad yrad scale 0 0 1 startangle endangle arc
+savematrix setmatrix}N end
%%EndProcSet
%%BeginProcSet: color.pro 0 0
@@ -5561,40 +4644,44 @@ TeXDict begin
%%EndSetup
%%Page: 1 1
TeXDict begin 1 0 bop 0 TeXcolorgray Black 165 192 a
-tx@Dict begin gsave STV CP T /ps@rot 0 def grestore end
+ /pssetRGBcolor /setrgbcolor load def /pssetCMYKcolor /setcmykcolor
+load def /pssetGraycolor /setgray load def
165 192 a 165 192 a
+tx@Dict begin gsave STV CP T /ps@rot 0 def grestore end
+ 165 192 a 165 192 a
tx@Dict begin gsave STV CP T /ps@refangle 0. def grestore end
- 165 192 a 0 TeXcolorgray 165 192
-a
+ 165 192 a 0 TeXcolorgray
+165 192 a
tx@Dict begin gsave STV CP T /ps@rot 0 def grestore end
165 192 a 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
998 901 a 998 901 a
tx@Dict begin /Func (-3.00+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(-3.00)/(1+(-3.00)^2))^2))|-3.00+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(-3.00)/(1+(-3.00)^2))^2))*(2*(-3.00)*(-3.00)/(1+(-3.00)^2))
) AlgParser cvx def end
- 998 901 a 998
-901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+ 998
+901 a 998 901 a
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
- 998 901 a @beginspecial @setspecial
+ 998 901 a @beginspecial
+@setspecial
tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { BeginArrow
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5608,24 +4695,23 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
-
-
+
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
- 998 901 a 998 901 a
+ 998 901 a 998 901
+a
tx@Dict begin /Func (-2.7+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(-3.00)/(1+(-3.00)^2))^2))|-3.00+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(-3.00)/(1+(-3.00)^2))^2))*(2*(-2.7)*(-3.00)/(1+(-3.00)^2))
) AlgParser cvx def end
- 998 901 a
-998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+ 998 901 a 998 901 a
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5633,14 +4719,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5654,8 +4740,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -5665,12 +4751,12 @@ a
tx@Dict begin /Func (-2.4+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(-3.00)/(1+(-3.00)^2))^2))|-3.00+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(-3.00)/(1+(-3.00)^2))^2))*(2*(-2.4)*(-3.00)/(1+(-3.00)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5678,14 +4764,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5699,8 +4785,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -5710,12 +4796,12 @@ a
tx@Dict begin /Func (-2.1+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(-3.00)/(1+(-3.00)^2))^2))|-3.00+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(-3.00)/(1+(-3.00)^2))^2))*(2*(-2.1)*(-3.00)/(1+(-3.00)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5730,7 +4816,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5745,7 +4831,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -5755,12 +4841,12 @@ a
tx@Dict begin /Func (-1.8+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(-3.00)/(1+(-3.00)^2))^2))|-3.00+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(-3.00)/(1+(-3.00)^2))^2))*(2*(-1.8)*(-3.00)/(1+(-3.00)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5775,7 +4861,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5790,7 +4876,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -5800,12 +4886,12 @@ a
tx@Dict begin /Func (-1.5+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(-3.00)/(1+(-3.00)^2))^2))|-3.00+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(-3.00)/(1+(-3.00)^2))^2))*(2*(-1.5)*(-3.00)/(1+(-3.00)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5820,7 +4906,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5835,7 +4921,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -5845,12 +4931,12 @@ a
tx@Dict begin /Func (-1.2+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(-3.00)/(1+(-3.00)^2))^2))|-3.00+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(-3.00)/(1+(-3.00)^2))^2))*(2*(-1.2)*(-3.00)/(1+(-3.00)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5865,7 +4951,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5880,7 +4966,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -5890,12 +4976,12 @@ a
tx@Dict begin /Func (-0.9+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(-3.00)/(1+(-3.00)^2))^2))|-3.00+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(-3.00)/(1+(-3.00)^2))^2))*(2*(-0.9)*(-3.00)/(1+(-3.00)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5903,14 +4989,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5924,8 +5010,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -5935,12 +5021,12 @@ a
tx@Dict begin /Func (-0.6+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(-3.00)/(1+(-3.00)^2))^2))|-3.00+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(-3.00)/(1+(-3.00)^2))^2))*(2*(-0.6)*(-3.00)/(1+(-3.00)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5948,14 +5034,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5969,8 +5055,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -5980,12 +5066,12 @@ a
tx@Dict begin /Func (-0.3+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(-3.00)/(1+(-3.00)^2))^2))|-3.00+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(-3.00)/(1+(-3.00)^2))^2))*(2*(-0.3)*(-3.00)/(1+(-3.00)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5993,30 +5079,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6025,12 +5111,12 @@ a
tx@Dict begin /Func (0.0+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(-3.00)/(1+(-3.00)^2))^2))|-3.00+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(-3.00)/(1+(-3.00)^2))^2))*(2*(0.0)*(-3.00)/(1+(-3.00)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6046,7 +5132,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -6060,7 +5146,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -6070,12 +5156,12 @@ a
tx@Dict begin /Func (0.3+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(-3.00)/(1+(-3.00)^2))^2))|-3.00+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(-3.00)/(1+(-3.00)^2))^2))*(2*(0.3)*(-3.00)/(1+(-3.00)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6083,30 +5169,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6115,12 +5201,12 @@ a
tx@Dict begin /Func (0.6+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(-3.00)/(1+(-3.00)^2))^2))|-3.00+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(-3.00)/(1+(-3.00)^2))^2))*(2*(0.6)*(-3.00)/(1+(-3.00)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6128,14 +5214,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6149,8 +5235,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6160,12 +5246,12 @@ a
tx@Dict begin /Func (0.9+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(-3.00)/(1+(-3.00)^2))^2))|-3.00+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(-3.00)/(1+(-3.00)^2))^2))*(2*(0.9)*(-3.00)/(1+(-3.00)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6173,14 +5259,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6194,8 +5280,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6205,12 +5291,12 @@ a
tx@Dict begin /Func (1.2+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(-3.00)/(1+(-3.00)^2))^2))|-3.00+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(-3.00)/(1+(-3.00)^2))^2))*(2*(1.2)*(-3.00)/(1+(-3.00)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6225,7 +5311,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6240,7 +5326,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6250,12 +5336,12 @@ a
tx@Dict begin /Func (1.5+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(-3.00)/(1+(-3.00)^2))^2))|-3.00+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(-3.00)/(1+(-3.00)^2))^2))*(2*(1.5)*(-3.00)/(1+(-3.00)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6270,7 +5356,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6285,7 +5371,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6295,12 +5381,12 @@ a
tx@Dict begin /Func (1.8+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(-3.00)/(1+(-3.00)^2))^2))|-3.00+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(-3.00)/(1+(-3.00)^2))^2))*(2*(1.8)*(-3.00)/(1+(-3.00)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6315,7 +5401,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6330,7 +5416,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6340,12 +5426,12 @@ a
tx@Dict begin /Func (2.1+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(-3.00)/(1+(-3.00)^2))^2))|-3.00+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(-3.00)/(1+(-3.00)^2))^2))*(2*(2.1)*(-3.00)/(1+(-3.00)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6360,7 +5446,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6375,7 +5461,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6385,12 +5471,12 @@ a
tx@Dict begin /Func (2.4+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(-3.00)/(1+(-3.00)^2))^2))|-3.00+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(-3.00)/(1+(-3.00)^2))^2))*(2*(2.4)*(-3.00)/(1+(-3.00)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6398,14 +5484,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6419,8 +5505,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6430,12 +5516,12 @@ a
tx@Dict begin /Func (2.7+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(-3.00)/(1+(-3.00)^2))^2))|-3.00+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(-3.00)/(1+(-3.00)^2))^2))*(2*(2.7)*(-3.00)/(1+(-3.00)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6443,14 +5529,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6464,8 +5550,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6475,12 +5561,12 @@ a
tx@Dict begin /Func (-3.00+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(-2.7)/(1+(-2.7)^2))^2))|-2.7+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(-2.7)/(1+(-2.7)^2))^2))*(2*(-3.00)*(-2.7)/(1+(-2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6488,14 +5574,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6509,8 +5595,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6520,12 +5606,12 @@ a
tx@Dict begin /Func (-2.7+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(-2.7)/(1+(-2.7)^2))^2))|-2.7+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(-2.7)/(1+(-2.7)^2))^2))*(2*(-2.7)*(-2.7)/(1+(-2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6540,7 +5626,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6555,7 +5641,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6565,12 +5651,12 @@ a
tx@Dict begin /Func (-2.4+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(-2.7)/(1+(-2.7)^2))^2))|-2.7+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(-2.7)/(1+(-2.7)^2))^2))*(2*(-2.4)*(-2.7)/(1+(-2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6585,7 +5671,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6600,7 +5686,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6610,12 +5696,12 @@ a
tx@Dict begin /Func (-2.1+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(-2.7)/(1+(-2.7)^2))^2))|-2.7+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(-2.7)/(1+(-2.7)^2))^2))*(2*(-2.1)*(-2.7)/(1+(-2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6630,7 +5716,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6645,7 +5731,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6655,12 +5741,12 @@ a
tx@Dict begin /Func (-1.8+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(-2.7)/(1+(-2.7)^2))^2))|-2.7+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(-2.7)/(1+(-2.7)^2))^2))*(2*(-1.8)*(-2.7)/(1+(-2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6675,7 +5761,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6690,7 +5776,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6700,12 +5786,12 @@ a
tx@Dict begin /Func (-1.5+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(-2.7)/(1+(-2.7)^2))^2))|-2.7+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(-2.7)/(1+(-2.7)^2))^2))*(2*(-1.5)*(-2.7)/(1+(-2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6720,7 +5806,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6735,7 +5821,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6745,12 +5831,12 @@ a
tx@Dict begin /Func (-1.2+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(-2.7)/(1+(-2.7)^2))^2))|-2.7+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(-2.7)/(1+(-2.7)^2))^2))*(2*(-1.2)*(-2.7)/(1+(-2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6758,14 +5844,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6779,8 +5865,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6790,12 +5876,12 @@ a
tx@Dict begin /Func (-0.9+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(-2.7)/(1+(-2.7)^2))^2))|-2.7+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(-2.7)/(1+(-2.7)^2))^2))*(2*(-0.9)*(-2.7)/(1+(-2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6803,14 +5889,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6824,8 +5910,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6835,12 +5921,12 @@ a
tx@Dict begin /Func (-0.6+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(-2.7)/(1+(-2.7)^2))^2))|-2.7+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(-2.7)/(1+(-2.7)^2))^2))*(2*(-0.6)*(-2.7)/(1+(-2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6848,14 +5934,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6869,8 +5955,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6880,12 +5966,12 @@ a
tx@Dict begin /Func (-0.3+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(-2.7)/(1+(-2.7)^2))^2))|-2.7+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(-2.7)/(1+(-2.7)^2))^2))*(2*(-0.3)*(-2.7)/(1+(-2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6893,30 +5979,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6925,12 +6011,12 @@ a
tx@Dict begin /Func (0.0+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(-2.7)/(1+(-2.7)^2))^2))|-2.7+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(-2.7)/(1+(-2.7)^2))^2))*(2*(0.0)*(-2.7)/(1+(-2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6946,7 +6032,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -6960,7 +6046,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -6970,12 +6056,12 @@ a
tx@Dict begin /Func (0.3+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(-2.7)/(1+(-2.7)^2))^2))|-2.7+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(-2.7)/(1+(-2.7)^2))^2))*(2*(0.3)*(-2.7)/(1+(-2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6983,30 +6069,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -7015,12 +6101,12 @@ a
tx@Dict begin /Func (0.6+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(-2.7)/(1+(-2.7)^2))^2))|-2.7+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(-2.7)/(1+(-2.7)^2))^2))*(2*(0.6)*(-2.7)/(1+(-2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7028,14 +6114,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7049,8 +6135,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7060,12 +6146,12 @@ a
tx@Dict begin /Func (0.9+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(-2.7)/(1+(-2.7)^2))^2))|-2.7+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(-2.7)/(1+(-2.7)^2))^2))*(2*(0.9)*(-2.7)/(1+(-2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7073,14 +6159,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7094,8 +6180,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7105,12 +6191,12 @@ a
tx@Dict begin /Func (1.2+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(-2.7)/(1+(-2.7)^2))^2))|-2.7+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(-2.7)/(1+(-2.7)^2))^2))*(2*(1.2)*(-2.7)/(1+(-2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7118,14 +6204,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7139,8 +6225,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7150,12 +6236,12 @@ a
tx@Dict begin /Func (1.5+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(-2.7)/(1+(-2.7)^2))^2))|-2.7+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(-2.7)/(1+(-2.7)^2))^2))*(2*(1.5)*(-2.7)/(1+(-2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7170,7 +6256,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7185,7 +6271,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7195,12 +6281,12 @@ a
tx@Dict begin /Func (1.8+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(-2.7)/(1+(-2.7)^2))^2))|-2.7+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(-2.7)/(1+(-2.7)^2))^2))*(2*(1.8)*(-2.7)/(1+(-2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7215,7 +6301,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7230,7 +6316,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7240,12 +6326,12 @@ a
tx@Dict begin /Func (2.1+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(-2.7)/(1+(-2.7)^2))^2))|-2.7+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(-2.7)/(1+(-2.7)^2))^2))*(2*(2.1)*(-2.7)/(1+(-2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7260,7 +6346,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7275,7 +6361,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7285,12 +6371,12 @@ a
tx@Dict begin /Func (2.4+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(-2.7)/(1+(-2.7)^2))^2))|-2.7+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(-2.7)/(1+(-2.7)^2))^2))*(2*(2.4)*(-2.7)/(1+(-2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7305,7 +6391,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7320,7 +6406,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7330,12 +6416,12 @@ a
tx@Dict begin /Func (2.7+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(-2.7)/(1+(-2.7)^2))^2))|-2.7+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(-2.7)/(1+(-2.7)^2))^2))*(2*(2.7)*(-2.7)/(1+(-2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7350,7 +6436,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7365,7 +6451,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7375,12 +6461,12 @@ a
tx@Dict begin /Func (-3.00+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(-2.4)/(1+(-2.4)^2))^2))|-2.4+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(-2.4)/(1+(-2.4)^2))^2))*(2*(-3.00)*(-2.4)/(1+(-2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7388,14 +6474,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7409,9 +6495,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -7420,12 +6505,12 @@ a
tx@Dict begin /Func (-2.7+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(-2.4)/(1+(-2.4)^2))^2))|-2.4+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(-2.4)/(1+(-2.4)^2))^2))*(2*(-2.7)*(-2.4)/(1+(-2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7433,14 +6518,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7454,8 +6539,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7465,12 +6550,12 @@ a
tx@Dict begin /Func (-2.4+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(-2.4)/(1+(-2.4)^2))^2))|-2.4+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(-2.4)/(1+(-2.4)^2))^2))*(2*(-2.4)*(-2.4)/(1+(-2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7478,14 +6563,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7499,8 +6584,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7510,12 +6595,12 @@ a
tx@Dict begin /Func (-2.1+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(-2.4)/(1+(-2.4)^2))^2))|-2.4+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(-2.4)/(1+(-2.4)^2))^2))*(2*(-2.1)*(-2.4)/(1+(-2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7523,14 +6608,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7544,8 +6629,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7555,12 +6640,12 @@ a
tx@Dict begin /Func (-1.8+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(-2.4)/(1+(-2.4)^2))^2))|-2.4+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(-2.4)/(1+(-2.4)^2))^2))*(2*(-1.8)*(-2.4)/(1+(-2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7575,7 +6660,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7590,7 +6675,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7600,12 +6685,12 @@ a
tx@Dict begin /Func (-1.5+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(-2.4)/(1+(-2.4)^2))^2))|-2.4+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(-2.4)/(1+(-2.4)^2))^2))*(2*(-1.5)*(-2.4)/(1+(-2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7620,7 +6705,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7635,7 +6720,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7645,12 +6730,12 @@ a
tx@Dict begin /Func (-1.2+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(-2.4)/(1+(-2.4)^2))^2))|-2.4+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(-2.4)/(1+(-2.4)^2))^2))*(2*(-1.2)*(-2.4)/(1+(-2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7665,7 +6750,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7680,7 +6765,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7690,12 +6775,12 @@ a
tx@Dict begin /Func (-0.9+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(-2.4)/(1+(-2.4)^2))^2))|-2.4+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(-2.4)/(1+(-2.4)^2))^2))*(2*(-0.9)*(-2.4)/(1+(-2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7710,7 +6795,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7725,7 +6810,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7735,12 +6820,12 @@ a
tx@Dict begin /Func (-0.6+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(-2.4)/(1+(-2.4)^2))^2))|-2.4+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(-2.4)/(1+(-2.4)^2))^2))*(2*(-0.6)*(-2.4)/(1+(-2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7755,7 +6840,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7770,7 +6855,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7780,12 +6865,12 @@ a
tx@Dict begin /Func (-0.3+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(-2.4)/(1+(-2.4)^2))^2))|-2.4+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(-2.4)/(1+(-2.4)^2))^2))*(2*(-0.3)*(-2.4)/(1+(-2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7800,7 +6885,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7815,7 +6900,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7825,12 +6910,12 @@ a
tx@Dict begin /Func (0.0+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(-2.4)/(1+(-2.4)^2))^2))|-2.4+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(-2.4)/(1+(-2.4)^2))^2))*(2*(0.0)*(-2.4)/(1+(-2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7846,7 +6931,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -7860,7 +6945,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -7870,12 +6955,12 @@ a
tx@Dict begin /Func (0.3+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(-2.4)/(1+(-2.4)^2))^2))|-2.4+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(-2.4)/(1+(-2.4)^2))^2))*(2*(0.3)*(-2.4)/(1+(-2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7890,7 +6975,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7905,7 +6990,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7915,12 +7000,12 @@ a
tx@Dict begin /Func (0.6+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(-2.4)/(1+(-2.4)^2))^2))|-2.4+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(-2.4)/(1+(-2.4)^2))^2))*(2*(0.6)*(-2.4)/(1+(-2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7935,7 +7020,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7950,7 +7035,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7960,12 +7045,12 @@ a
tx@Dict begin /Func (0.9+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(-2.4)/(1+(-2.4)^2))^2))|-2.4+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(-2.4)/(1+(-2.4)^2))^2))*(2*(0.9)*(-2.4)/(1+(-2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7980,7 +7065,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7995,7 +7080,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8005,12 +7090,12 @@ a
tx@Dict begin /Func (1.2+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(-2.4)/(1+(-2.4)^2))^2))|-2.4+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(-2.4)/(1+(-2.4)^2))^2))*(2*(1.2)*(-2.4)/(1+(-2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8025,7 +7110,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8040,7 +7125,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8050,12 +7135,12 @@ a
tx@Dict begin /Func (1.5+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(-2.4)/(1+(-2.4)^2))^2))|-2.4+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(-2.4)/(1+(-2.4)^2))^2))*(2*(1.5)*(-2.4)/(1+(-2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8070,7 +7155,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8085,7 +7170,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8095,12 +7180,12 @@ a
tx@Dict begin /Func (1.8+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(-2.4)/(1+(-2.4)^2))^2))|-2.4+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(-2.4)/(1+(-2.4)^2))^2))*(2*(1.8)*(-2.4)/(1+(-2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8115,7 +7200,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8130,7 +7215,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8140,12 +7225,12 @@ a
tx@Dict begin /Func (2.1+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(-2.4)/(1+(-2.4)^2))^2))|-2.4+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(-2.4)/(1+(-2.4)^2))^2))*(2*(2.1)*(-2.4)/(1+(-2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8153,14 +7238,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8174,8 +7259,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8185,12 +7270,12 @@ a
tx@Dict begin /Func (2.4+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(-2.4)/(1+(-2.4)^2))^2))|-2.4+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(-2.4)/(1+(-2.4)^2))^2))*(2*(2.4)*(-2.4)/(1+(-2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8198,14 +7283,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8219,8 +7304,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8230,12 +7315,12 @@ a
tx@Dict begin /Func (2.7+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(-2.4)/(1+(-2.4)^2))^2))|-2.4+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(-2.4)/(1+(-2.4)^2))^2))*(2*(2.7)*(-2.4)/(1+(-2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8243,14 +7328,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8264,8 +7349,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8275,12 +7360,12 @@ a
tx@Dict begin /Func (-3.00+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(-2.1)/(1+(-2.1)^2))^2))|-2.1+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(-2.1)/(1+(-2.1)^2))^2))*(2*(-3.00)*(-2.1)/(1+(-2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8295,7 +7380,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8310,7 +7395,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8319,12 +7404,12 @@ a
tx@Dict begin /Func (-2.7+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(-2.1)/(1+(-2.1)^2))^2))|-2.1+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(-2.1)/(1+(-2.1)^2))^2))*(2*(-2.7)*(-2.1)/(1+(-2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8332,14 +7417,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8353,9 +7438,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8364,12 +7448,12 @@ a
tx@Dict begin /Func (-2.4+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(-2.1)/(1+(-2.1)^2))^2))|-2.1+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(-2.1)/(1+(-2.1)^2))^2))*(2*(-2.4)*(-2.1)/(1+(-2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8377,14 +7461,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8398,8 +7482,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8409,12 +7493,12 @@ a
tx@Dict begin /Func (-2.1+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(-2.1)/(1+(-2.1)^2))^2))|-2.1+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(-2.1)/(1+(-2.1)^2))^2))*(2*(-2.1)*(-2.1)/(1+(-2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8422,14 +7506,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8443,8 +7527,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8454,12 +7538,12 @@ a
tx@Dict begin /Func (-1.8+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(-2.1)/(1+(-2.1)^2))^2))|-2.1+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(-2.1)/(1+(-2.1)^2))^2))*(2*(-1.8)*(-2.1)/(1+(-2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8474,7 +7558,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8489,7 +7573,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8499,12 +7583,12 @@ a
tx@Dict begin /Func (-1.5+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(-2.1)/(1+(-2.1)^2))^2))|-2.1+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(-2.1)/(1+(-2.1)^2))^2))*(2*(-1.5)*(-2.1)/(1+(-2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8519,7 +7603,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8534,7 +7618,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8544,12 +7628,12 @@ a
tx@Dict begin /Func (-1.2+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(-2.1)/(1+(-2.1)^2))^2))|-2.1+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(-2.1)/(1+(-2.1)^2))^2))*(2*(-1.2)*(-2.1)/(1+(-2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8564,7 +7648,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8579,7 +7663,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8589,12 +7673,12 @@ a
tx@Dict begin /Func (-0.9+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(-2.1)/(1+(-2.1)^2))^2))|-2.1+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(-2.1)/(1+(-2.1)^2))^2))*(2*(-0.9)*(-2.1)/(1+(-2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8609,7 +7693,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8624,7 +7708,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8634,12 +7718,12 @@ a
tx@Dict begin /Func (-0.6+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(-2.1)/(1+(-2.1)^2))^2))|-2.1+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(-2.1)/(1+(-2.1)^2))^2))*(2*(-0.6)*(-2.1)/(1+(-2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8654,7 +7738,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8669,7 +7753,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8679,12 +7763,12 @@ a
tx@Dict begin /Func (-0.3+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(-2.1)/(1+(-2.1)^2))^2))|-2.1+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(-2.1)/(1+(-2.1)^2))^2))*(2*(-0.3)*(-2.1)/(1+(-2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8699,7 +7783,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8714,7 +7798,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8724,12 +7808,12 @@ a
tx@Dict begin /Func (0.0+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(-2.1)/(1+(-2.1)^2))^2))|-2.1+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(-2.1)/(1+(-2.1)^2))^2))*(2*(0.0)*(-2.1)/(1+(-2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8745,7 +7829,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -8759,7 +7843,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -8769,12 +7853,12 @@ a
tx@Dict begin /Func (0.3+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(-2.1)/(1+(-2.1)^2))^2))|-2.1+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(-2.1)/(1+(-2.1)^2))^2))*(2*(0.3)*(-2.1)/(1+(-2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8789,7 +7873,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8804,7 +7888,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8814,12 +7898,12 @@ a
tx@Dict begin /Func (0.6+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(-2.1)/(1+(-2.1)^2))^2))|-2.1+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(-2.1)/(1+(-2.1)^2))^2))*(2*(0.6)*(-2.1)/(1+(-2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8834,7 +7918,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8849,7 +7933,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8859,12 +7943,12 @@ a
tx@Dict begin /Func (0.9+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(-2.1)/(1+(-2.1)^2))^2))|-2.1+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(-2.1)/(1+(-2.1)^2))^2))*(2*(0.9)*(-2.1)/(1+(-2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8879,7 +7963,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8894,7 +7978,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8904,12 +7988,12 @@ a
tx@Dict begin /Func (1.2+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(-2.1)/(1+(-2.1)^2))^2))|-2.1+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(-2.1)/(1+(-2.1)^2))^2))*(2*(1.2)*(-2.1)/(1+(-2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8924,7 +8008,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8939,7 +8023,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8949,12 +8033,12 @@ a
tx@Dict begin /Func (1.5+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(-2.1)/(1+(-2.1)^2))^2))|-2.1+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(-2.1)/(1+(-2.1)^2))^2))*(2*(1.5)*(-2.1)/(1+(-2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8969,7 +8053,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8984,7 +8068,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8994,12 +8078,12 @@ a
tx@Dict begin /Func (1.8+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(-2.1)/(1+(-2.1)^2))^2))|-2.1+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(-2.1)/(1+(-2.1)^2))^2))*(2*(1.8)*(-2.1)/(1+(-2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9014,7 +8098,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9029,7 +8113,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9039,12 +8123,12 @@ a
tx@Dict begin /Func (2.1+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(-2.1)/(1+(-2.1)^2))^2))|-2.1+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(-2.1)/(1+(-2.1)^2))^2))*(2*(2.1)*(-2.1)/(1+(-2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9052,14 +8136,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9073,8 +8157,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9084,12 +8168,12 @@ a
tx@Dict begin /Func (2.4+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(-2.1)/(1+(-2.1)^2))^2))|-2.1+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(-2.1)/(1+(-2.1)^2))^2))*(2*(2.4)*(-2.1)/(1+(-2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9097,14 +8181,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9118,8 +8202,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9129,12 +8213,12 @@ a
tx@Dict begin /Func (2.7+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(-2.1)/(1+(-2.1)^2))^2))|-2.1+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(-2.1)/(1+(-2.1)^2))^2))*(2*(2.7)*(-2.1)/(1+(-2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9142,14 +8226,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9163,9 +8247,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -9174,12 +8257,12 @@ a
tx@Dict begin /Func (-3.00+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(-1.8)/(1+(-1.8)^2))^2))|-1.8+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(-1.8)/(1+(-1.8)^2))^2))*(2*(-3.00)*(-1.8)/(1+(-1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9194,7 +8277,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9209,7 +8292,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -9218,12 +8301,12 @@ a
tx@Dict begin /Func (-2.7+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(-1.8)/(1+(-1.8)^2))^2))|-1.8+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(-1.8)/(1+(-1.8)^2))^2))*(2*(-2.7)*(-1.8)/(1+(-1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9238,7 +8321,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9253,7 +8336,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -9262,12 +8345,12 @@ a
tx@Dict begin /Func (-2.4+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(-1.8)/(1+(-1.8)^2))^2))|-1.8+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(-1.8)/(1+(-1.8)^2))^2))*(2*(-2.4)*(-1.8)/(1+(-1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9275,14 +8358,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9296,9 +8379,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -9307,12 +8389,12 @@ a
tx@Dict begin /Func (-2.1+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(-1.8)/(1+(-1.8)^2))^2))|-1.8+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(-1.8)/(1+(-1.8)^2))^2))*(2*(-2.1)*(-1.8)/(1+(-1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9327,7 +8409,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9342,7 +8424,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9352,12 +8434,12 @@ a
tx@Dict begin /Func (-1.8+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(-1.8)/(1+(-1.8)^2))^2))|-1.8+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(-1.8)/(1+(-1.8)^2))^2))*(2*(-1.8)*(-1.8)/(1+(-1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9372,7 +8454,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9387,7 +8469,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9397,12 +8479,12 @@ a
tx@Dict begin /Func (-1.5+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(-1.8)/(1+(-1.8)^2))^2))|-1.8+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(-1.8)/(1+(-1.8)^2))^2))*(2*(-1.5)*(-1.8)/(1+(-1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9417,7 +8499,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9432,7 +8514,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9442,12 +8524,12 @@ a
tx@Dict begin /Func (-1.2+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(-1.8)/(1+(-1.8)^2))^2))|-1.8+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(-1.8)/(1+(-1.8)^2))^2))*(2*(-1.2)*(-1.8)/(1+(-1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9462,7 +8544,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9477,7 +8559,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9487,12 +8569,12 @@ a
tx@Dict begin /Func (-0.9+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(-1.8)/(1+(-1.8)^2))^2))|-1.8+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(-1.8)/(1+(-1.8)^2))^2))*(2*(-0.9)*(-1.8)/(1+(-1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9500,14 +8582,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9521,8 +8603,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9532,12 +8614,12 @@ a
tx@Dict begin /Func (-0.6+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(-1.8)/(1+(-1.8)^2))^2))|-1.8+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(-1.8)/(1+(-1.8)^2))^2))*(2*(-0.6)*(-1.8)/(1+(-1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9545,14 +8627,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9566,8 +8648,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9577,12 +8659,12 @@ a
tx@Dict begin /Func (-0.3+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(-1.8)/(1+(-1.8)^2))^2))|-1.8+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(-1.8)/(1+(-1.8)^2))^2))*(2*(-0.3)*(-1.8)/(1+(-1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9590,14 +8672,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9611,8 +8693,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9622,12 +8704,12 @@ a
tx@Dict begin /Func (0.0+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(-1.8)/(1+(-1.8)^2))^2))|-1.8+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(-1.8)/(1+(-1.8)^2))^2))*(2*(0.0)*(-1.8)/(1+(-1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9643,7 +8725,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -9657,7 +8739,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -9667,12 +8749,12 @@ a
tx@Dict begin /Func (0.3+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(-1.8)/(1+(-1.8)^2))^2))|-1.8+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(-1.8)/(1+(-1.8)^2))^2))*(2*(0.3)*(-1.8)/(1+(-1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9680,14 +8762,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9701,8 +8783,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9712,12 +8794,12 @@ a
tx@Dict begin /Func (0.6+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(-1.8)/(1+(-1.8)^2))^2))|-1.8+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(-1.8)/(1+(-1.8)^2))^2))*(2*(0.6)*(-1.8)/(1+(-1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9725,14 +8807,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9746,8 +8828,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9757,12 +8839,12 @@ a
tx@Dict begin /Func (0.9+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(-1.8)/(1+(-1.8)^2))^2))|-1.8+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(-1.8)/(1+(-1.8)^2))^2))*(2*(0.9)*(-1.8)/(1+(-1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9770,14 +8852,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9791,8 +8873,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9802,12 +8884,12 @@ a
tx@Dict begin /Func (1.2+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(-1.8)/(1+(-1.8)^2))^2))|-1.8+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(-1.8)/(1+(-1.8)^2))^2))*(2*(1.2)*(-1.8)/(1+(-1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9822,7 +8904,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9837,7 +8919,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9847,12 +8929,12 @@ a
tx@Dict begin /Func (1.5+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(-1.8)/(1+(-1.8)^2))^2))|-1.8+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(-1.8)/(1+(-1.8)^2))^2))*(2*(1.5)*(-1.8)/(1+(-1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9867,7 +8949,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9882,7 +8964,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9892,12 +8974,12 @@ a
tx@Dict begin /Func (1.8+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(-1.8)/(1+(-1.8)^2))^2))|-1.8+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(-1.8)/(1+(-1.8)^2))^2))*(2*(1.8)*(-1.8)/(1+(-1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9912,7 +8994,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9927,7 +9009,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9937,12 +9019,12 @@ a
tx@Dict begin /Func (2.1+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(-1.8)/(1+(-1.8)^2))^2))|-1.8+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(-1.8)/(1+(-1.8)^2))^2))*(2*(2.1)*(-1.8)/(1+(-1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9957,7 +9039,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9972,7 +9054,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9982,12 +9064,12 @@ a
tx@Dict begin /Func (2.4+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(-1.8)/(1+(-1.8)^2))^2))|-1.8+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(-1.8)/(1+(-1.8)^2))^2))*(2*(2.4)*(-1.8)/(1+(-1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9995,14 +9077,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10016,9 +9098,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10027,12 +9108,12 @@ a
tx@Dict begin /Func (2.7+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(-1.8)/(1+(-1.8)^2))^2))|-1.8+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(-1.8)/(1+(-1.8)^2))^2))*(2*(2.7)*(-1.8)/(1+(-1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10047,7 +9128,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10062,7 +9143,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10071,12 +9152,12 @@ a
tx@Dict begin /Func (-3.00+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(-1.5)/(1+(-1.5)^2))^2))|-1.5+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(-1.5)/(1+(-1.5)^2))^2))*(2*(-3.00)*(-1.5)/(1+(-1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10091,7 +9172,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10106,7 +9187,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10115,12 +9196,12 @@ a
tx@Dict begin /Func (-2.7+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(-1.5)/(1+(-1.5)^2))^2))|-1.5+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(-1.5)/(1+(-1.5)^2))^2))*(2*(-2.7)*(-1.5)/(1+(-1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10135,7 +9216,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10150,7 +9231,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10159,12 +9240,12 @@ a
tx@Dict begin /Func (-2.4+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(-1.5)/(1+(-1.5)^2))^2))|-1.5+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(-1.5)/(1+(-1.5)^2))^2))*(2*(-2.4)*(-1.5)/(1+(-1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10172,14 +9253,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10193,9 +9274,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10204,12 +9284,12 @@ a
tx@Dict begin /Func (-2.1+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(-1.5)/(1+(-1.5)^2))^2))|-1.5+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(-1.5)/(1+(-1.5)^2))^2))*(2*(-2.1)*(-1.5)/(1+(-1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10217,14 +9297,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10238,8 +9318,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10249,12 +9329,12 @@ a
tx@Dict begin /Func (-1.8+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(-1.5)/(1+(-1.5)^2))^2))|-1.5+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(-1.5)/(1+(-1.5)^2))^2))*(2*(-1.8)*(-1.5)/(1+(-1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10262,14 +9342,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10283,8 +9363,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10294,12 +9374,12 @@ a
tx@Dict begin /Func (-1.5+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(-1.5)/(1+(-1.5)^2))^2))|-1.5+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(-1.5)/(1+(-1.5)^2))^2))*(2*(-1.5)*(-1.5)/(1+(-1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10314,7 +9394,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10329,7 +9409,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10339,12 +9419,12 @@ a
tx@Dict begin /Func (-1.2+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(-1.5)/(1+(-1.5)^2))^2))|-1.5+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(-1.5)/(1+(-1.5)^2))^2))*(2*(-1.2)*(-1.5)/(1+(-1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10359,7 +9439,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10374,7 +9454,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10384,12 +9464,12 @@ a
tx@Dict begin /Func (-0.9+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(-1.5)/(1+(-1.5)^2))^2))|-1.5+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(-1.5)/(1+(-1.5)^2))^2))*(2*(-0.9)*(-1.5)/(1+(-1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10404,7 +9484,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10419,7 +9499,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10429,12 +9509,12 @@ a
tx@Dict begin /Func (-0.6+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(-1.5)/(1+(-1.5)^2))^2))|-1.5+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(-1.5)/(1+(-1.5)^2))^2))*(2*(-0.6)*(-1.5)/(1+(-1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10442,14 +9522,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10463,8 +9543,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10474,12 +9554,12 @@ a
tx@Dict begin /Func (-0.3+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(-1.5)/(1+(-1.5)^2))^2))|-1.5+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(-1.5)/(1+(-1.5)^2))^2))*(2*(-0.3)*(-1.5)/(1+(-1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10487,14 +9567,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10508,8 +9588,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10519,12 +9599,12 @@ a
tx@Dict begin /Func (0.0+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(-1.5)/(1+(-1.5)^2))^2))|-1.5+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(-1.5)/(1+(-1.5)^2))^2))*(2*(0.0)*(-1.5)/(1+(-1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10540,7 +9620,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -10554,7 +9634,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -10564,12 +9644,12 @@ a
tx@Dict begin /Func (0.3+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(-1.5)/(1+(-1.5)^2))^2))|-1.5+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(-1.5)/(1+(-1.5)^2))^2))*(2*(0.3)*(-1.5)/(1+(-1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10577,14 +9657,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10598,8 +9678,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10609,12 +9689,12 @@ a
tx@Dict begin /Func (0.6+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(-1.5)/(1+(-1.5)^2))^2))|-1.5+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(-1.5)/(1+(-1.5)^2))^2))*(2*(0.6)*(-1.5)/(1+(-1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10622,14 +9702,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10643,8 +9723,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10654,12 +9734,12 @@ a
tx@Dict begin /Func (0.9+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(-1.5)/(1+(-1.5)^2))^2))|-1.5+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(-1.5)/(1+(-1.5)^2))^2))*(2*(0.9)*(-1.5)/(1+(-1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10674,7 +9754,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10689,7 +9769,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10699,12 +9779,12 @@ a
tx@Dict begin /Func (1.2+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(-1.5)/(1+(-1.5)^2))^2))|-1.5+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(-1.5)/(1+(-1.5)^2))^2))*(2*(1.2)*(-1.5)/(1+(-1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10719,7 +9799,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10734,7 +9814,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10744,12 +9824,12 @@ a
tx@Dict begin /Func (1.5+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(-1.5)/(1+(-1.5)^2))^2))|-1.5+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(-1.5)/(1+(-1.5)^2))^2))*(2*(1.5)*(-1.5)/(1+(-1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10764,7 +9844,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10779,7 +9859,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10789,12 +9869,12 @@ a
tx@Dict begin /Func (1.8+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(-1.5)/(1+(-1.5)^2))^2))|-1.5+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(-1.5)/(1+(-1.5)^2))^2))*(2*(1.8)*(-1.5)/(1+(-1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10802,14 +9882,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10823,8 +9903,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10834,12 +9914,12 @@ a
tx@Dict begin /Func (2.1+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(-1.5)/(1+(-1.5)^2))^2))|-1.5+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(-1.5)/(1+(-1.5)^2))^2))*(2*(2.1)*(-1.5)/(1+(-1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10847,14 +9927,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10868,8 +9948,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10879,12 +9959,12 @@ a
tx@Dict begin /Func (2.4+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(-1.5)/(1+(-1.5)^2))^2))|-1.5+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(-1.5)/(1+(-1.5)^2))^2))*(2*(2.4)*(-1.5)/(1+(-1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10892,14 +9972,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10913,9 +9993,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10924,12 +10003,12 @@ a
tx@Dict begin /Func (2.7+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(-1.5)/(1+(-1.5)^2))^2))|-1.5+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(-1.5)/(1+(-1.5)^2))^2))*(2*(2.7)*(-1.5)/(1+(-1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10944,7 +10023,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10959,7 +10038,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10968,12 +10047,12 @@ a
tx@Dict begin /Func (-3.00+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(-1.2)/(1+(-1.2)^2))^2))|-1.2+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(-1.2)/(1+(-1.2)^2))^2))*(2*(-3.00)*(-1.2)/(1+(-1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10988,7 +10067,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11003,7 +10082,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11012,12 +10091,12 @@ a
tx@Dict begin /Func (-2.7+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(-1.2)/(1+(-1.2)^2))^2))|-1.2+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(-1.2)/(1+(-1.2)^2))^2))*(2*(-2.7)*(-1.2)/(1+(-1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11032,7 +10111,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11047,7 +10126,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11056,12 +10135,12 @@ a
tx@Dict begin /Func (-2.4+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(-1.2)/(1+(-1.2)^2))^2))|-1.2+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(-1.2)/(1+(-1.2)^2))^2))*(2*(-2.4)*(-1.2)/(1+(-1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11076,7 +10155,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11091,7 +10170,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11100,12 +10179,12 @@ a
tx@Dict begin /Func (-2.1+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(-1.2)/(1+(-1.2)^2))^2))|-1.2+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(-1.2)/(1+(-1.2)^2))^2))*(2*(-2.1)*(-1.2)/(1+(-1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11113,14 +10192,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11134,9 +10213,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11145,12 +10223,12 @@ a
tx@Dict begin /Func (-1.8+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(-1.2)/(1+(-1.2)^2))^2))|-1.2+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(-1.2)/(1+(-1.2)^2))^2))*(2*(-1.8)*(-1.2)/(1+(-1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11165,7 +10243,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11180,7 +10258,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11190,12 +10268,12 @@ a
tx@Dict begin /Func (-1.5+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(-1.2)/(1+(-1.2)^2))^2))|-1.2+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(-1.2)/(1+(-1.2)^2))^2))*(2*(-1.5)*(-1.2)/(1+(-1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11203,14 +10281,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11224,8 +10302,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11235,12 +10313,12 @@ a
tx@Dict begin /Func (-1.2+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(-1.2)/(1+(-1.2)^2))^2))|-1.2+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(-1.2)/(1+(-1.2)^2))^2))*(2*(-1.2)*(-1.2)/(1+(-1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11255,7 +10333,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11270,7 +10348,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11280,12 +10358,12 @@ a
tx@Dict begin /Func (-0.9+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(-1.2)/(1+(-1.2)^2))^2))|-1.2+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(-1.2)/(1+(-1.2)^2))^2))*(2*(-0.9)*(-1.2)/(1+(-1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11300,7 +10378,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11315,7 +10393,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11325,12 +10403,12 @@ a
tx@Dict begin /Func (-0.6+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(-1.2)/(1+(-1.2)^2))^2))|-1.2+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(-1.2)/(1+(-1.2)^2))^2))*(2*(-0.6)*(-1.2)/(1+(-1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11338,14 +10416,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11359,8 +10437,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11370,12 +10448,12 @@ a
tx@Dict begin /Func (-0.3+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(-1.2)/(1+(-1.2)^2))^2))|-1.2+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(-1.2)/(1+(-1.2)^2))^2))*(2*(-0.3)*(-1.2)/(1+(-1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11383,14 +10461,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11404,8 +10482,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11415,12 +10493,12 @@ a
tx@Dict begin /Func (0.0+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(-1.2)/(1+(-1.2)^2))^2))|-1.2+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(-1.2)/(1+(-1.2)^2))^2))*(2*(0.0)*(-1.2)/(1+(-1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11436,7 +10514,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -11450,7 +10528,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -11460,12 +10538,12 @@ a
tx@Dict begin /Func (0.3+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(-1.2)/(1+(-1.2)^2))^2))|-1.2+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(-1.2)/(1+(-1.2)^2))^2))*(2*(0.3)*(-1.2)/(1+(-1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11473,14 +10551,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11494,8 +10572,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11505,12 +10583,12 @@ a
tx@Dict begin /Func (0.6+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(-1.2)/(1+(-1.2)^2))^2))|-1.2+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(-1.2)/(1+(-1.2)^2))^2))*(2*(0.6)*(-1.2)/(1+(-1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11518,14 +10596,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11539,8 +10617,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11550,12 +10628,12 @@ a
tx@Dict begin /Func (0.9+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(-1.2)/(1+(-1.2)^2))^2))|-1.2+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(-1.2)/(1+(-1.2)^2))^2))*(2*(0.9)*(-1.2)/(1+(-1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11570,7 +10648,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11585,7 +10663,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11595,12 +10673,12 @@ a
tx@Dict begin /Func (1.2+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(-1.2)/(1+(-1.2)^2))^2))|-1.2+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(-1.2)/(1+(-1.2)^2))^2))*(2*(1.2)*(-1.2)/(1+(-1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11615,7 +10693,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11630,7 +10708,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11640,12 +10718,12 @@ a
tx@Dict begin /Func (1.5+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(-1.2)/(1+(-1.2)^2))^2))|-1.2+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(-1.2)/(1+(-1.2)^2))^2))*(2*(1.5)*(-1.2)/(1+(-1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11653,14 +10731,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11674,8 +10752,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11685,12 +10763,12 @@ a
tx@Dict begin /Func (1.8+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(-1.2)/(1+(-1.2)^2))^2))|-1.2+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(-1.2)/(1+(-1.2)^2))^2))*(2*(1.8)*(-1.2)/(1+(-1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11705,7 +10783,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11720,7 +10798,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11730,12 +10808,12 @@ a
tx@Dict begin /Func (2.1+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(-1.2)/(1+(-1.2)^2))^2))|-1.2+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(-1.2)/(1+(-1.2)^2))^2))*(2*(2.1)*(-1.2)/(1+(-1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11743,14 +10821,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11764,9 +10842,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11775,12 +10852,12 @@ a
tx@Dict begin /Func (2.4+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(-1.2)/(1+(-1.2)^2))^2))|-1.2+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(-1.2)/(1+(-1.2)^2))^2))*(2*(2.4)*(-1.2)/(1+(-1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11795,7 +10872,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11810,7 +10887,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11819,12 +10896,12 @@ a
tx@Dict begin /Func (2.7+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(-1.2)/(1+(-1.2)^2))^2))|-1.2+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(-1.2)/(1+(-1.2)^2))^2))*(2*(2.7)*(-1.2)/(1+(-1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11839,7 +10916,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11854,7 +10931,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11863,12 +10940,12 @@ a
tx@Dict begin /Func (-3.00+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(-0.9)/(1+(-0.9)^2))^2))|-0.9+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(-0.9)/(1+(-0.9)^2))^2))*(2*(-3.00)*(-0.9)/(1+(-0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11883,7 +10960,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11898,7 +10975,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11907,12 +10984,12 @@ a
tx@Dict begin /Func (-2.7+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(-0.9)/(1+(-0.9)^2))^2))|-0.9+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(-0.9)/(1+(-0.9)^2))^2))*(2*(-2.7)*(-0.9)/(1+(-0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11927,7 +11004,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11942,7 +11019,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11951,12 +11028,12 @@ a
tx@Dict begin /Func (-2.4+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(-0.9)/(1+(-0.9)^2))^2))|-0.9+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(-0.9)/(1+(-0.9)^2))^2))*(2*(-2.4)*(-0.9)/(1+(-0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11971,7 +11048,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11986,7 +11063,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11995,12 +11072,12 @@ a
tx@Dict begin /Func (-2.1+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(-0.9)/(1+(-0.9)^2))^2))|-0.9+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(-0.9)/(1+(-0.9)^2))^2))*(2*(-2.1)*(-0.9)/(1+(-0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12008,14 +11085,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12029,9 +11106,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -12040,12 +11116,12 @@ a
tx@Dict begin /Func (-1.8+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(-0.9)/(1+(-0.9)^2))^2))|-0.9+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(-0.9)/(1+(-0.9)^2))^2))*(2*(-1.8)*(-0.9)/(1+(-0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12060,7 +11136,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12075,7 +11151,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12085,12 +11161,12 @@ a
tx@Dict begin /Func (-1.5+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(-0.9)/(1+(-0.9)^2))^2))|-0.9+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(-0.9)/(1+(-0.9)^2))^2))*(2*(-1.5)*(-0.9)/(1+(-0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12098,14 +11174,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12119,8 +11195,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12130,12 +11206,12 @@ a
tx@Dict begin /Func (-1.2+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(-0.9)/(1+(-0.9)^2))^2))|-0.9+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(-0.9)/(1+(-0.9)^2))^2))*(2*(-1.2)*(-0.9)/(1+(-0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12150,7 +11226,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12165,7 +11241,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12175,12 +11251,12 @@ a
tx@Dict begin /Func (-0.9+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(-0.9)/(1+(-0.9)^2))^2))|-0.9+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(-0.9)/(1+(-0.9)^2))^2))*(2*(-0.9)*(-0.9)/(1+(-0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12195,7 +11271,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12210,7 +11286,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12220,12 +11296,12 @@ a
tx@Dict begin /Func (-0.6+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(-0.9)/(1+(-0.9)^2))^2))|-0.9+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(-0.9)/(1+(-0.9)^2))^2))*(2*(-0.6)*(-0.9)/(1+(-0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12233,14 +11309,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12254,8 +11330,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12265,12 +11341,12 @@ a
tx@Dict begin /Func (-0.3+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(-0.9)/(1+(-0.9)^2))^2))|-0.9+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(-0.9)/(1+(-0.9)^2))^2))*(2*(-0.3)*(-0.9)/(1+(-0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12278,14 +11354,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12299,8 +11375,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12310,12 +11386,12 @@ a
tx@Dict begin /Func (0.0+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(-0.9)/(1+(-0.9)^2))^2))|-0.9+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(-0.9)/(1+(-0.9)^2))^2))*(2*(0.0)*(-0.9)/(1+(-0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12331,7 +11407,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -12345,7 +11421,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -12355,12 +11431,12 @@ a
tx@Dict begin /Func (0.3+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(-0.9)/(1+(-0.9)^2))^2))|-0.9+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(-0.9)/(1+(-0.9)^2))^2))*(2*(0.3)*(-0.9)/(1+(-0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12368,14 +11444,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12389,8 +11465,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12400,12 +11476,12 @@ a
tx@Dict begin /Func (0.6+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(-0.9)/(1+(-0.9)^2))^2))|-0.9+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(-0.9)/(1+(-0.9)^2))^2))*(2*(0.6)*(-0.9)/(1+(-0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12413,14 +11489,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12434,8 +11510,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12445,12 +11521,12 @@ a
tx@Dict begin /Func (0.9+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(-0.9)/(1+(-0.9)^2))^2))|-0.9+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(-0.9)/(1+(-0.9)^2))^2))*(2*(0.9)*(-0.9)/(1+(-0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12465,7 +11541,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12480,7 +11556,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12490,12 +11566,12 @@ a
tx@Dict begin /Func (1.2+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(-0.9)/(1+(-0.9)^2))^2))|-0.9+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(-0.9)/(1+(-0.9)^2))^2))*(2*(1.2)*(-0.9)/(1+(-0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12510,7 +11586,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12525,7 +11601,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12535,12 +11611,12 @@ a
tx@Dict begin /Func (1.5+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(-0.9)/(1+(-0.9)^2))^2))|-0.9+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(-0.9)/(1+(-0.9)^2))^2))*(2*(1.5)*(-0.9)/(1+(-0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12548,14 +11624,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12569,8 +11645,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12580,12 +11656,12 @@ a
tx@Dict begin /Func (1.8+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(-0.9)/(1+(-0.9)^2))^2))|-0.9+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(-0.9)/(1+(-0.9)^2))^2))*(2*(1.8)*(-0.9)/(1+(-0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12600,7 +11676,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12615,7 +11691,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12625,12 +11701,12 @@ a
tx@Dict begin /Func (2.1+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(-0.9)/(1+(-0.9)^2))^2))|-0.9+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(-0.9)/(1+(-0.9)^2))^2))*(2*(2.1)*(-0.9)/(1+(-0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12638,14 +11714,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12659,9 +11735,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -12670,12 +11745,12 @@ a
tx@Dict begin /Func (2.4+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(-0.9)/(1+(-0.9)^2))^2))|-0.9+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(-0.9)/(1+(-0.9)^2))^2))*(2*(2.4)*(-0.9)/(1+(-0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12690,7 +11765,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12705,7 +11780,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -12714,12 +11789,12 @@ a
tx@Dict begin /Func (2.7+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(-0.9)/(1+(-0.9)^2))^2))|-0.9+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(-0.9)/(1+(-0.9)^2))^2))*(2*(2.7)*(-0.9)/(1+(-0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12734,7 +11809,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12749,7 +11824,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -12758,12 +11833,12 @@ a
tx@Dict begin /Func (-3.00+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(-0.6)/(1+(-0.6)^2))^2))|-0.6+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(-0.6)/(1+(-0.6)^2))^2))*(2*(-3.00)*(-0.6)/(1+(-0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12778,7 +11853,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12793,7 +11868,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -12802,12 +11877,12 @@ a
tx@Dict begin /Func (-2.7+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(-0.6)/(1+(-0.6)^2))^2))|-0.6+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(-0.6)/(1+(-0.6)^2))^2))*(2*(-2.7)*(-0.6)/(1+(-0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12822,7 +11897,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12837,7 +11912,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -12846,12 +11921,12 @@ a
tx@Dict begin /Func (-2.4+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(-0.6)/(1+(-0.6)^2))^2))|-0.6+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(-0.6)/(1+(-0.6)^2))^2))*(2*(-2.4)*(-0.6)/(1+(-0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12859,14 +11934,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12880,9 +11955,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -12891,12 +11965,12 @@ a
tx@Dict begin /Func (-2.1+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(-0.6)/(1+(-0.6)^2))^2))|-0.6+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(-0.6)/(1+(-0.6)^2))^2))*(2*(-2.1)*(-0.6)/(1+(-0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12904,14 +11978,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12925,8 +11999,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12936,12 +12010,12 @@ a
tx@Dict begin /Func (-1.8+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(-0.6)/(1+(-0.6)^2))^2))|-0.6+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(-0.6)/(1+(-0.6)^2))^2))*(2*(-1.8)*(-0.6)/(1+(-0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12956,7 +12030,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12971,7 +12045,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12981,12 +12055,12 @@ a
tx@Dict begin /Func (-1.5+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(-0.6)/(1+(-0.6)^2))^2))|-0.6+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(-0.6)/(1+(-0.6)^2))^2))*(2*(-1.5)*(-0.6)/(1+(-0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13001,7 +12075,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13016,7 +12090,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13026,12 +12100,12 @@ a
tx@Dict begin /Func (-1.2+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(-0.6)/(1+(-0.6)^2))^2))|-0.6+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(-0.6)/(1+(-0.6)^2))^2))*(2*(-1.2)*(-0.6)/(1+(-0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13046,7 +12120,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13061,7 +12135,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13071,12 +12145,12 @@ a
tx@Dict begin /Func (-0.9+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(-0.6)/(1+(-0.6)^2))^2))|-0.6+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(-0.6)/(1+(-0.6)^2))^2))*(2*(-0.9)*(-0.6)/(1+(-0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13084,14 +12158,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13105,8 +12179,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13116,12 +12190,12 @@ a
tx@Dict begin /Func (-0.6+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(-0.6)/(1+(-0.6)^2))^2))|-0.6+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(-0.6)/(1+(-0.6)^2))^2))*(2*(-0.6)*(-0.6)/(1+(-0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13129,14 +12203,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13150,8 +12224,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13161,12 +12235,12 @@ a
tx@Dict begin /Func (-0.3+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(-0.6)/(1+(-0.6)^2))^2))|-0.6+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(-0.6)/(1+(-0.6)^2))^2))*(2*(-0.3)*(-0.6)/(1+(-0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13174,14 +12248,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13195,8 +12269,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13206,12 +12280,12 @@ a
tx@Dict begin /Func (0.0+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(-0.6)/(1+(-0.6)^2))^2))|-0.6+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(-0.6)/(1+(-0.6)^2))^2))*(2*(0.0)*(-0.6)/(1+(-0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13227,7 +12301,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -13241,7 +12315,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -13251,12 +12325,12 @@ a
tx@Dict begin /Func (0.3+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(-0.6)/(1+(-0.6)^2))^2))|-0.6+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(-0.6)/(1+(-0.6)^2))^2))*(2*(0.3)*(-0.6)/(1+(-0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13264,14 +12338,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13285,8 +12359,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13296,12 +12370,12 @@ a
tx@Dict begin /Func (0.6+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(-0.6)/(1+(-0.6)^2))^2))|-0.6+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(-0.6)/(1+(-0.6)^2))^2))*(2*(0.6)*(-0.6)/(1+(-0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13309,14 +12383,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13330,8 +12404,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13341,12 +12415,12 @@ a
tx@Dict begin /Func (0.9+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(-0.6)/(1+(-0.6)^2))^2))|-0.6+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(-0.6)/(1+(-0.6)^2))^2))*(2*(0.9)*(-0.6)/(1+(-0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13354,14 +12428,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13375,8 +12449,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13386,12 +12460,12 @@ a
tx@Dict begin /Func (1.2+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(-0.6)/(1+(-0.6)^2))^2))|-0.6+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(-0.6)/(1+(-0.6)^2))^2))*(2*(1.2)*(-0.6)/(1+(-0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13406,7 +12480,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13421,7 +12495,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13431,12 +12505,12 @@ a
tx@Dict begin /Func (1.5+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(-0.6)/(1+(-0.6)^2))^2))|-0.6+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(-0.6)/(1+(-0.6)^2))^2))*(2*(1.5)*(-0.6)/(1+(-0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13451,7 +12525,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13466,7 +12540,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13476,12 +12550,12 @@ a
tx@Dict begin /Func (1.8+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(-0.6)/(1+(-0.6)^2))^2))|-0.6+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(-0.6)/(1+(-0.6)^2))^2))*(2*(1.8)*(-0.6)/(1+(-0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13496,7 +12570,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13511,7 +12585,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13521,12 +12595,12 @@ a
tx@Dict begin /Func (2.1+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(-0.6)/(1+(-0.6)^2))^2))|-0.6+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(-0.6)/(1+(-0.6)^2))^2))*(2*(2.1)*(-0.6)/(1+(-0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13534,14 +12608,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13555,8 +12629,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13566,12 +12640,12 @@ a
tx@Dict begin /Func (2.4+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(-0.6)/(1+(-0.6)^2))^2))|-0.6+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(-0.6)/(1+(-0.6)^2))^2))*(2*(2.4)*(-0.6)/(1+(-0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13579,14 +12653,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13600,9 +12674,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13611,12 +12684,12 @@ a
tx@Dict begin /Func (2.7+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(-0.6)/(1+(-0.6)^2))^2))|-0.6+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(-0.6)/(1+(-0.6)^2))^2))*(2*(2.7)*(-0.6)/(1+(-0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13631,7 +12704,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13646,7 +12719,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13655,12 +12728,12 @@ a
tx@Dict begin /Func (-3.00+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(-0.3)/(1+(-0.3)^2))^2))|-0.3+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(-0.3)/(1+(-0.3)^2))^2))*(2*(-3.00)*(-0.3)/(1+(-0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13668,14 +12741,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13689,8 +12762,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13700,12 +12773,12 @@ a
tx@Dict begin /Func (-2.7+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(-0.3)/(1+(-0.3)^2))^2))|-0.3+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(-0.3)/(1+(-0.3)^2))^2))*(2*(-2.7)*(-0.3)/(1+(-0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13713,14 +12786,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13734,8 +12807,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13745,12 +12818,12 @@ a
tx@Dict begin /Func (-2.4+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(-0.3)/(1+(-0.3)^2))^2))|-0.3+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(-0.3)/(1+(-0.3)^2))^2))*(2*(-2.4)*(-0.3)/(1+(-0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13765,7 +12838,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13780,7 +12853,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13790,12 +12863,12 @@ a
tx@Dict begin /Func (-2.1+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(-0.3)/(1+(-0.3)^2))^2))|-0.3+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(-0.3)/(1+(-0.3)^2))^2))*(2*(-2.1)*(-0.3)/(1+(-0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13810,7 +12883,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13825,7 +12898,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13835,12 +12908,12 @@ a
tx@Dict begin /Func (-1.8+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(-0.3)/(1+(-0.3)^2))^2))|-0.3+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(-0.3)/(1+(-0.3)^2))^2))*(2*(-1.8)*(-0.3)/(1+(-0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13855,7 +12928,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13870,7 +12943,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13880,12 +12953,12 @@ a
tx@Dict begin /Func (-1.5+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(-0.3)/(1+(-0.3)^2))^2))|-0.3+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(-0.3)/(1+(-0.3)^2))^2))*(2*(-1.5)*(-0.3)/(1+(-0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13900,7 +12973,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13915,7 +12988,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13925,12 +12998,12 @@ a
tx@Dict begin /Func (-1.2+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(-0.3)/(1+(-0.3)^2))^2))|-0.3+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(-0.3)/(1+(-0.3)^2))^2))*(2*(-1.2)*(-0.3)/(1+(-0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13945,7 +13018,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13960,7 +13033,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13970,12 +13043,12 @@ a
tx@Dict begin /Func (-0.9+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(-0.3)/(1+(-0.3)^2))^2))|-0.3+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(-0.3)/(1+(-0.3)^2))^2))*(2*(-0.9)*(-0.3)/(1+(-0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13990,7 +13063,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14005,7 +13078,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14015,12 +13088,12 @@ a
tx@Dict begin /Func (-0.6+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(-0.3)/(1+(-0.3)^2))^2))|-0.3+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(-0.3)/(1+(-0.3)^2))^2))*(2*(-0.6)*(-0.3)/(1+(-0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14028,14 +13101,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14049,8 +13122,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14060,12 +13133,12 @@ a
tx@Dict begin /Func (-0.3+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(-0.3)/(1+(-0.3)^2))^2))|-0.3+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(-0.3)/(1+(-0.3)^2))^2))*(2*(-0.3)*(-0.3)/(1+(-0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14073,30 +13146,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14105,12 +13178,12 @@ a
tx@Dict begin /Func (0.0+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(-0.3)/(1+(-0.3)^2))^2))|-0.3+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(-0.3)/(1+(-0.3)^2))^2))*(2*(0.0)*(-0.3)/(1+(-0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14126,7 +13199,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -14140,7 +13213,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -14150,12 +13223,12 @@ a
tx@Dict begin /Func (0.3+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(-0.3)/(1+(-0.3)^2))^2))|-0.3+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(-0.3)/(1+(-0.3)^2))^2))*(2*(0.3)*(-0.3)/(1+(-0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14163,30 +13236,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14195,12 +13268,12 @@ a
tx@Dict begin /Func (0.6+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(-0.3)/(1+(-0.3)^2))^2))|-0.3+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(-0.3)/(1+(-0.3)^2))^2))*(2*(0.6)*(-0.3)/(1+(-0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14208,14 +13281,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14229,8 +13302,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14240,12 +13313,12 @@ a
tx@Dict begin /Func (0.9+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(-0.3)/(1+(-0.3)^2))^2))|-0.3+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(-0.3)/(1+(-0.3)^2))^2))*(2*(0.9)*(-0.3)/(1+(-0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14260,7 +13333,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14275,7 +13348,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14285,12 +13358,12 @@ a
tx@Dict begin /Func (1.2+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(-0.3)/(1+(-0.3)^2))^2))|-0.3+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(-0.3)/(1+(-0.3)^2))^2))*(2*(1.2)*(-0.3)/(1+(-0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14305,7 +13378,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14320,7 +13393,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14330,12 +13403,12 @@ a
tx@Dict begin /Func (1.5+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(-0.3)/(1+(-0.3)^2))^2))|-0.3+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(-0.3)/(1+(-0.3)^2))^2))*(2*(1.5)*(-0.3)/(1+(-0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14350,7 +13423,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14365,7 +13438,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14375,12 +13448,12 @@ a
tx@Dict begin /Func (1.8+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(-0.3)/(1+(-0.3)^2))^2))|-0.3+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(-0.3)/(1+(-0.3)^2))^2))*(2*(1.8)*(-0.3)/(1+(-0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14395,7 +13468,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14410,7 +13483,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14420,12 +13493,12 @@ a
tx@Dict begin /Func (2.1+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(-0.3)/(1+(-0.3)^2))^2))|-0.3+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(-0.3)/(1+(-0.3)^2))^2))*(2*(2.1)*(-0.3)/(1+(-0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14440,7 +13513,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14455,7 +13528,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14465,12 +13538,12 @@ a
tx@Dict begin /Func (2.4+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(-0.3)/(1+(-0.3)^2))^2))|-0.3+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(-0.3)/(1+(-0.3)^2))^2))*(2*(2.4)*(-0.3)/(1+(-0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14485,7 +13558,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14500,7 +13573,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14510,12 +13583,12 @@ a
tx@Dict begin /Func (2.7+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(-0.3)/(1+(-0.3)^2))^2))|-0.3+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(-0.3)/(1+(-0.3)^2))^2))*(2*(2.7)*(-0.3)/(1+(-0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14523,14 +13596,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14544,8 +13617,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14555,12 +13628,12 @@ a
tx@Dict begin /Func (-3.00+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(0.0)/(1+(0.0)^2))^2))|0.0+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(0.0)/(1+(0.0)^2))^2))*(2*(-3.00)*(0.0)/(1+(0.0)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14576,7 +13649,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -14590,7 +13663,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -14600,12 +13673,12 @@ a
tx@Dict begin /Func (-2.7+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(0.0)/(1+(0.0)^2))^2))|0.0+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(0.0)/(1+(0.0)^2))^2))*(2*(-2.7)*(0.0)/(1+(0.0)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14621,7 +13694,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -14635,7 +13708,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -14645,12 +13718,12 @@ a
tx@Dict begin /Func (-2.4+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(0.0)/(1+(0.0)^2))^2))|0.0+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(0.0)/(1+(0.0)^2))^2))*(2*(-2.4)*(0.0)/(1+(0.0)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14666,7 +13739,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -14680,7 +13753,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -14690,12 +13763,12 @@ a
tx@Dict begin /Func (-2.1+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(0.0)/(1+(0.0)^2))^2))|0.0+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(0.0)/(1+(0.0)^2))^2))*(2*(-2.1)*(0.0)/(1+(0.0)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14711,7 +13784,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -14725,7 +13798,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -14735,12 +13808,12 @@ a
tx@Dict begin /Func (-1.8+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(0.0)/(1+(0.0)^2))^2))|0.0+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(0.0)/(1+(0.0)^2))^2))*(2*(-1.8)*(0.0)/(1+(0.0)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14756,7 +13829,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -14770,7 +13843,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -14780,12 +13853,12 @@ a
tx@Dict begin /Func (-1.5+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(0.0)/(1+(0.0)^2))^2))|0.0+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(0.0)/(1+(0.0)^2))^2))*(2*(-1.5)*(0.0)/(1+(0.0)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14801,7 +13874,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -14815,7 +13888,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -14825,12 +13898,12 @@ a
tx@Dict begin /Func (-1.2+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(0.0)/(1+(0.0)^2))^2))|0.0+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(0.0)/(1+(0.0)^2))^2))*(2*(-1.2)*(0.0)/(1+(0.0)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14846,7 +13919,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -14860,7 +13933,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -14870,12 +13943,12 @@ a
tx@Dict begin /Func (-0.9+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(0.0)/(1+(0.0)^2))^2))|0.0+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(0.0)/(1+(0.0)^2))^2))*(2*(-0.9)*(0.0)/(1+(0.0)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14891,7 +13964,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -14905,7 +13978,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -14915,12 +13988,12 @@ a
tx@Dict begin /Func (-0.6+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(0.0)/(1+(0.0)^2))^2))|0.0+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(0.0)/(1+(0.0)^2))^2))*(2*(-0.6)*(0.0)/(1+(0.0)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14936,7 +14009,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -14950,7 +14023,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -14960,12 +14033,12 @@ a
tx@Dict begin /Func (-0.3+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(0.0)/(1+(0.0)^2))^2))|0.0+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(0.0)/(1+(0.0)^2))^2))*(2*(-0.3)*(0.0)/(1+(0.0)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14981,7 +14054,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -14995,7 +14068,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -15005,12 +14078,12 @@ a
tx@Dict begin /Func (0.0+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(0.0)/(1+(0.0)^2))^2))|0.0+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(0.0)/(1+(0.0)^2))^2))*(2*(0.0)*(0.0)/(1+(0.0)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15026,7 +14099,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -15040,7 +14113,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -15050,12 +14123,12 @@ a
tx@Dict begin /Func (0.3+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(0.0)/(1+(0.0)^2))^2))|0.0+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(0.0)/(1+(0.0)^2))^2))*(2*(0.3)*(0.0)/(1+(0.0)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15071,7 +14144,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -15085,7 +14158,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -15095,12 +14168,12 @@ a
tx@Dict begin /Func (0.6+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(0.0)/(1+(0.0)^2))^2))|0.0+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(0.0)/(1+(0.0)^2))^2))*(2*(0.6)*(0.0)/(1+(0.0)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15116,7 +14189,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -15130,7 +14203,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -15140,12 +14213,12 @@ a
tx@Dict begin /Func (0.9+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(0.0)/(1+(0.0)^2))^2))|0.0+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(0.0)/(1+(0.0)^2))^2))*(2*(0.9)*(0.0)/(1+(0.0)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15161,7 +14234,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -15175,7 +14248,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -15185,12 +14258,12 @@ a
tx@Dict begin /Func (1.2+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(0.0)/(1+(0.0)^2))^2))|0.0+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(0.0)/(1+(0.0)^2))^2))*(2*(1.2)*(0.0)/(1+(0.0)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15206,7 +14279,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -15220,7 +14293,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -15230,12 +14303,12 @@ a
tx@Dict begin /Func (1.5+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(0.0)/(1+(0.0)^2))^2))|0.0+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(0.0)/(1+(0.0)^2))^2))*(2*(1.5)*(0.0)/(1+(0.0)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15251,7 +14324,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -15265,7 +14338,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -15275,12 +14348,12 @@ a
tx@Dict begin /Func (1.8+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(0.0)/(1+(0.0)^2))^2))|0.0+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(0.0)/(1+(0.0)^2))^2))*(2*(1.8)*(0.0)/(1+(0.0)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15296,7 +14369,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -15310,7 +14383,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -15320,12 +14393,12 @@ a
tx@Dict begin /Func (2.1+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(0.0)/(1+(0.0)^2))^2))|0.0+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(0.0)/(1+(0.0)^2))^2))*(2*(2.1)*(0.0)/(1+(0.0)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15341,7 +14414,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -15355,7 +14428,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -15365,12 +14438,12 @@ a
tx@Dict begin /Func (2.4+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(0.0)/(1+(0.0)^2))^2))|0.0+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(0.0)/(1+(0.0)^2))^2))*(2*(2.4)*(0.0)/(1+(0.0)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15386,7 +14459,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -15400,7 +14473,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -15410,12 +14483,12 @@ a
tx@Dict begin /Func (2.7+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(0.0)/(1+(0.0)^2))^2))|0.0+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(0.0)/(1+(0.0)^2))^2))*(2*(2.7)*(0.0)/(1+(0.0)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15431,7 +14504,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -15445,7 +14518,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -15455,12 +14528,12 @@ a
tx@Dict begin /Func (-3.00+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(0.3)/(1+(0.3)^2))^2))|0.3+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(0.3)/(1+(0.3)^2))^2))*(2*(-3.00)*(0.3)/(1+(0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15468,14 +14541,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15489,8 +14562,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15500,12 +14573,12 @@ a
tx@Dict begin /Func (-2.7+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(0.3)/(1+(0.3)^2))^2))|0.3+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(0.3)/(1+(0.3)^2))^2))*(2*(-2.7)*(0.3)/(1+(0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15513,14 +14586,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15534,8 +14607,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15545,12 +14618,12 @@ a
tx@Dict begin /Func (-2.4+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(0.3)/(1+(0.3)^2))^2))|0.3+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(0.3)/(1+(0.3)^2))^2))*(2*(-2.4)*(0.3)/(1+(0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15565,7 +14638,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15580,7 +14653,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15590,12 +14663,12 @@ a
tx@Dict begin /Func (-2.1+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(0.3)/(1+(0.3)^2))^2))|0.3+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(0.3)/(1+(0.3)^2))^2))*(2*(-2.1)*(0.3)/(1+(0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15610,7 +14683,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15625,7 +14698,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15635,12 +14708,12 @@ a
tx@Dict begin /Func (-1.8+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(0.3)/(1+(0.3)^2))^2))|0.3+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(0.3)/(1+(0.3)^2))^2))*(2*(-1.8)*(0.3)/(1+(0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15655,7 +14728,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15670,7 +14743,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15680,12 +14753,12 @@ a
tx@Dict begin /Func (-1.5+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(0.3)/(1+(0.3)^2))^2))|0.3+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(0.3)/(1+(0.3)^2))^2))*(2*(-1.5)*(0.3)/(1+(0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15700,7 +14773,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15715,7 +14788,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15725,12 +14798,12 @@ a
tx@Dict begin /Func (-1.2+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(0.3)/(1+(0.3)^2))^2))|0.3+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(0.3)/(1+(0.3)^2))^2))*(2*(-1.2)*(0.3)/(1+(0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15745,7 +14818,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15760,7 +14833,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15770,12 +14843,12 @@ a
tx@Dict begin /Func (-0.9+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(0.3)/(1+(0.3)^2))^2))|0.3+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(0.3)/(1+(0.3)^2))^2))*(2*(-0.9)*(0.3)/(1+(0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15790,7 +14863,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15805,7 +14878,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15815,12 +14888,12 @@ a
tx@Dict begin /Func (-0.6+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(0.3)/(1+(0.3)^2))^2))|0.3+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(0.3)/(1+(0.3)^2))^2))*(2*(-0.6)*(0.3)/(1+(0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15828,14 +14901,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15849,8 +14922,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15860,12 +14933,12 @@ a
tx@Dict begin /Func (-0.3+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(0.3)/(1+(0.3)^2))^2))|0.3+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(0.3)/(1+(0.3)^2))^2))*(2*(-0.3)*(0.3)/(1+(0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15873,30 +14946,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -15905,12 +14978,12 @@ a
tx@Dict begin /Func (0.0+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(0.3)/(1+(0.3)^2))^2))|0.3+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(0.3)/(1+(0.3)^2))^2))*(2*(0.0)*(0.3)/(1+(0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15926,7 +14999,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -15940,7 +15013,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -15950,12 +15023,12 @@ a
tx@Dict begin /Func (0.3+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(0.3)/(1+(0.3)^2))^2))|0.3+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(0.3)/(1+(0.3)^2))^2))*(2*(0.3)*(0.3)/(1+(0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15963,30 +15036,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -15995,12 +15068,12 @@ a
tx@Dict begin /Func (0.6+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(0.3)/(1+(0.3)^2))^2))|0.3+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(0.3)/(1+(0.3)^2))^2))*(2*(0.6)*(0.3)/(1+(0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -16008,14 +15081,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -16029,8 +15102,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -16040,12 +15113,12 @@ a
tx@Dict begin /Func (0.9+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(0.3)/(1+(0.3)^2))^2))|0.3+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(0.3)/(1+(0.3)^2))^2))*(2*(0.9)*(0.3)/(1+(0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -16060,7 +15133,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -16075,7 +15148,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -16085,12 +15158,12 @@ a
tx@Dict begin /Func (1.2+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(0.3)/(1+(0.3)^2))^2))|0.3+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(0.3)/(1+(0.3)^2))^2))*(2*(1.2)*(0.3)/(1+(0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -16105,7 +15178,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -16120,7 +15193,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -16130,12 +15203,12 @@ a
tx@Dict begin /Func (1.5+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(0.3)/(1+(0.3)^2))^2))|0.3+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(0.3)/(1+(0.3)^2))^2))*(2*(1.5)*(0.3)/(1+(0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -16150,7 +15223,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -16165,7 +15238,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -16175,12 +15248,12 @@ a
tx@Dict begin /Func (1.8+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(0.3)/(1+(0.3)^2))^2))|0.3+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(0.3)/(1+(0.3)^2))^2))*(2*(1.8)*(0.3)/(1+(0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -16195,7 +15268,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -16210,7 +15283,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -16220,12 +15293,12 @@ a
tx@Dict begin /Func (2.1+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(0.3)/(1+(0.3)^2))^2))|0.3+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(0.3)/(1+(0.3)^2))^2))*(2*(2.1)*(0.3)/(1+(0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -16240,7 +15313,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -16255,7 +15328,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -16265,12 +15338,12 @@ a
tx@Dict begin /Func (2.4+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(0.3)/(1+(0.3)^2))^2))|0.3+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(0.3)/(1+(0.3)^2))^2))*(2*(2.4)*(0.3)/(1+(0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -16285,7 +15358,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -16300,7 +15373,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -16310,12 +15383,12 @@ a
tx@Dict begin /Func (2.7+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(0.3)/(1+(0.3)^2))^2))|0.3+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(0.3)/(1+(0.3)^2))^2))*(2*(2.7)*(0.3)/(1+(0.3)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -16323,14 +15396,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -16344,8 +15417,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -16355,12 +15428,12 @@ a
tx@Dict begin /Func (-3.00+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(0.6)/(1+(0.6)^2))^2))|0.6+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(0.6)/(1+(0.6)^2))^2))*(2*(-3.00)*(0.6)/(1+(0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -16375,7 +15448,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -16390,7 +15463,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -16399,12 +15472,12 @@ a
tx@Dict begin /Func (-2.7+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(0.6)/(1+(0.6)^2))^2))|0.6+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(0.6)/(1+(0.6)^2))^2))*(2*(-2.7)*(0.6)/(1+(0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -16419,7 +15492,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -16434,7 +15507,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -16443,12 +15516,12 @@ a
tx@Dict begin /Func (-2.4+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(0.6)/(1+(0.6)^2))^2))|0.6+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(0.6)/(1+(0.6)^2))^2))*(2*(-2.4)*(0.6)/(1+(0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -16456,14 +15529,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -16477,9 +15550,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -16488,12 +15560,12 @@ a
tx@Dict begin /Func (-2.1+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(0.6)/(1+(0.6)^2))^2))|0.6+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(0.6)/(1+(0.6)^2))^2))*(2*(-2.1)*(0.6)/(1+(0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -16501,14 +15573,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -16522,8 +15594,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -16533,12 +15605,12 @@ a
tx@Dict begin /Func (-1.8+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(0.6)/(1+(0.6)^2))^2))|0.6+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(0.6)/(1+(0.6)^2))^2))*(2*(-1.8)*(0.6)/(1+(0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -16553,7 +15625,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -16568,7 +15640,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -16578,12 +15650,12 @@ a
tx@Dict begin /Func (-1.5+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(0.6)/(1+(0.6)^2))^2))|0.6+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(0.6)/(1+(0.6)^2))^2))*(2*(-1.5)*(0.6)/(1+(0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -16598,7 +15670,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -16613,7 +15685,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -16623,12 +15695,12 @@ a
tx@Dict begin /Func (-1.2+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(0.6)/(1+(0.6)^2))^2))|0.6+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(0.6)/(1+(0.6)^2))^2))*(2*(-1.2)*(0.6)/(1+(0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -16643,7 +15715,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -16658,7 +15730,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -16668,12 +15740,12 @@ a
tx@Dict begin /Func (-0.9+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(0.6)/(1+(0.6)^2))^2))|0.6+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(0.6)/(1+(0.6)^2))^2))*(2*(-0.9)*(0.6)/(1+(0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -16681,14 +15753,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -16702,8 +15774,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -16713,12 +15785,12 @@ a
tx@Dict begin /Func (-0.6+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(0.6)/(1+(0.6)^2))^2))|0.6+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(0.6)/(1+(0.6)^2))^2))*(2*(-0.6)*(0.6)/(1+(0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -16726,14 +15798,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -16747,8 +15819,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -16758,12 +15830,12 @@ a
tx@Dict begin /Func (-0.3+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(0.6)/(1+(0.6)^2))^2))|0.6+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(0.6)/(1+(0.6)^2))^2))*(2*(-0.3)*(0.6)/(1+(0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -16771,14 +15843,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -16792,8 +15864,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -16803,12 +15875,12 @@ a
tx@Dict begin /Func (0.0+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(0.6)/(1+(0.6)^2))^2))|0.6+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(0.6)/(1+(0.6)^2))^2))*(2*(0.0)*(0.6)/(1+(0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -16824,7 +15896,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -16838,7 +15910,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -16848,12 +15920,12 @@ a
tx@Dict begin /Func (0.3+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(0.6)/(1+(0.6)^2))^2))|0.6+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(0.6)/(1+(0.6)^2))^2))*(2*(0.3)*(0.6)/(1+(0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -16861,14 +15933,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -16882,8 +15954,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -16893,12 +15965,12 @@ a
tx@Dict begin /Func (0.6+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(0.6)/(1+(0.6)^2))^2))|0.6+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(0.6)/(1+(0.6)^2))^2))*(2*(0.6)*(0.6)/(1+(0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -16906,14 +15978,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -16927,8 +15999,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -16938,12 +16010,12 @@ a
tx@Dict begin /Func (0.9+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(0.6)/(1+(0.6)^2))^2))|0.6+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(0.6)/(1+(0.6)^2))^2))*(2*(0.9)*(0.6)/(1+(0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -16951,14 +16023,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -16972,8 +16044,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -16983,12 +16055,12 @@ a
tx@Dict begin /Func (1.2+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(0.6)/(1+(0.6)^2))^2))|0.6+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(0.6)/(1+(0.6)^2))^2))*(2*(1.2)*(0.6)/(1+(0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -17003,7 +16075,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -17018,7 +16090,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -17028,12 +16100,12 @@ a
tx@Dict begin /Func (1.5+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(0.6)/(1+(0.6)^2))^2))|0.6+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(0.6)/(1+(0.6)^2))^2))*(2*(1.5)*(0.6)/(1+(0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -17048,7 +16120,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -17063,7 +16135,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -17073,12 +16145,12 @@ a
tx@Dict begin /Func (1.8+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(0.6)/(1+(0.6)^2))^2))|0.6+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(0.6)/(1+(0.6)^2))^2))*(2*(1.8)*(0.6)/(1+(0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -17093,7 +16165,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -17108,7 +16180,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -17118,12 +16190,12 @@ a
tx@Dict begin /Func (2.1+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(0.6)/(1+(0.6)^2))^2))|0.6+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(0.6)/(1+(0.6)^2))^2))*(2*(2.1)*(0.6)/(1+(0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -17131,14 +16203,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -17152,8 +16224,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -17163,12 +16235,12 @@ a
tx@Dict begin /Func (2.4+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(0.6)/(1+(0.6)^2))^2))|0.6+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(0.6)/(1+(0.6)^2))^2))*(2*(2.4)*(0.6)/(1+(0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -17176,14 +16248,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -17197,9 +16269,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -17208,12 +16279,12 @@ a
tx@Dict begin /Func (2.7+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(0.6)/(1+(0.6)^2))^2))|0.6+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(0.6)/(1+(0.6)^2))^2))*(2*(2.7)*(0.6)/(1+(0.6)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -17228,7 +16299,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -17243,7 +16314,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -17252,12 +16323,12 @@ a
tx@Dict begin /Func (-3.00+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(0.9)/(1+(0.9)^2))^2))|0.9+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(0.9)/(1+(0.9)^2))^2))*(2*(-3.00)*(0.9)/(1+(0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -17272,7 +16343,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -17287,7 +16358,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -17296,12 +16367,12 @@ a
tx@Dict begin /Func (-2.7+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(0.9)/(1+(0.9)^2))^2))|0.9+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(0.9)/(1+(0.9)^2))^2))*(2*(-2.7)*(0.9)/(1+(0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -17316,7 +16387,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -17331,7 +16402,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -17340,12 +16411,12 @@ a
tx@Dict begin /Func (-2.4+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(0.9)/(1+(0.9)^2))^2))|0.9+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(0.9)/(1+(0.9)^2))^2))*(2*(-2.4)*(0.9)/(1+(0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -17360,7 +16431,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -17375,7 +16446,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -17384,12 +16455,12 @@ a
tx@Dict begin /Func (-2.1+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(0.9)/(1+(0.9)^2))^2))|0.9+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(0.9)/(1+(0.9)^2))^2))*(2*(-2.1)*(0.9)/(1+(0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -17397,14 +16468,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -17418,9 +16489,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -17429,12 +16499,12 @@ a
tx@Dict begin /Func (-1.8+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(0.9)/(1+(0.9)^2))^2))|0.9+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(0.9)/(1+(0.9)^2))^2))*(2*(-1.8)*(0.9)/(1+(0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -17449,7 +16519,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -17464,7 +16534,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -17474,12 +16544,12 @@ a
tx@Dict begin /Func (-1.5+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(0.9)/(1+(0.9)^2))^2))|0.9+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(0.9)/(1+(0.9)^2))^2))*(2*(-1.5)*(0.9)/(1+(0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -17487,14 +16557,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -17508,8 +16578,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -17519,12 +16589,12 @@ a
tx@Dict begin /Func (-1.2+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(0.9)/(1+(0.9)^2))^2))|0.9+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(0.9)/(1+(0.9)^2))^2))*(2*(-1.2)*(0.9)/(1+(0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -17539,7 +16609,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -17554,7 +16624,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -17564,12 +16634,12 @@ a
tx@Dict begin /Func (-0.9+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(0.9)/(1+(0.9)^2))^2))|0.9+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(0.9)/(1+(0.9)^2))^2))*(2*(-0.9)*(0.9)/(1+(0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -17584,7 +16654,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -17599,7 +16669,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -17609,12 +16679,12 @@ a
tx@Dict begin /Func (-0.6+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(0.9)/(1+(0.9)^2))^2))|0.9+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(0.9)/(1+(0.9)^2))^2))*(2*(-0.6)*(0.9)/(1+(0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -17622,14 +16692,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -17643,8 +16713,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -17654,12 +16724,12 @@ a
tx@Dict begin /Func (-0.3+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(0.9)/(1+(0.9)^2))^2))|0.9+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(0.9)/(1+(0.9)^2))^2))*(2*(-0.3)*(0.9)/(1+(0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -17667,14 +16737,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -17688,8 +16758,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -17699,12 +16769,12 @@ a
tx@Dict begin /Func (0.0+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(0.9)/(1+(0.9)^2))^2))|0.9+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(0.9)/(1+(0.9)^2))^2))*(2*(0.0)*(0.9)/(1+(0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -17720,7 +16790,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -17734,7 +16804,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -17744,12 +16814,12 @@ a
tx@Dict begin /Func (0.3+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(0.9)/(1+(0.9)^2))^2))|0.9+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(0.9)/(1+(0.9)^2))^2))*(2*(0.3)*(0.9)/(1+(0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -17757,14 +16827,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -17778,8 +16848,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -17789,12 +16859,12 @@ a
tx@Dict begin /Func (0.6+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(0.9)/(1+(0.9)^2))^2))|0.9+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(0.9)/(1+(0.9)^2))^2))*(2*(0.6)*(0.9)/(1+(0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -17802,14 +16872,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -17823,8 +16893,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -17834,12 +16904,12 @@ a
tx@Dict begin /Func (0.9+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(0.9)/(1+(0.9)^2))^2))|0.9+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(0.9)/(1+(0.9)^2))^2))*(2*(0.9)*(0.9)/(1+(0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -17854,7 +16924,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -17869,7 +16939,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -17879,12 +16949,12 @@ a
tx@Dict begin /Func (1.2+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(0.9)/(1+(0.9)^2))^2))|0.9+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(0.9)/(1+(0.9)^2))^2))*(2*(1.2)*(0.9)/(1+(0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -17899,7 +16969,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -17914,7 +16984,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -17924,12 +16994,12 @@ a
tx@Dict begin /Func (1.5+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(0.9)/(1+(0.9)^2))^2))|0.9+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(0.9)/(1+(0.9)^2))^2))*(2*(1.5)*(0.9)/(1+(0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -17937,14 +17007,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -17958,8 +17028,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -17969,12 +17039,12 @@ a
tx@Dict begin /Func (1.8+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(0.9)/(1+(0.9)^2))^2))|0.9+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(0.9)/(1+(0.9)^2))^2))*(2*(1.8)*(0.9)/(1+(0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -17989,7 +17059,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -18004,7 +17074,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -18014,12 +17084,12 @@ a
tx@Dict begin /Func (2.1+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(0.9)/(1+(0.9)^2))^2))|0.9+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(0.9)/(1+(0.9)^2))^2))*(2*(2.1)*(0.9)/(1+(0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -18027,14 +17097,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -18048,9 +17118,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -18059,12 +17128,12 @@ a
tx@Dict begin /Func (2.4+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(0.9)/(1+(0.9)^2))^2))|0.9+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(0.9)/(1+(0.9)^2))^2))*(2*(2.4)*(0.9)/(1+(0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -18079,7 +17148,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -18094,7 +17163,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -18103,12 +17172,12 @@ a
tx@Dict begin /Func (2.7+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(0.9)/(1+(0.9)^2))^2))|0.9+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(0.9)/(1+(0.9)^2))^2))*(2*(2.7)*(0.9)/(1+(0.9)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -18123,7 +17192,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -18138,7 +17207,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -18147,12 +17216,12 @@ a
tx@Dict begin /Func (-3.00+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(1.2)/(1+(1.2)^2))^2))|1.2+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(1.2)/(1+(1.2)^2))^2))*(2*(-3.00)*(1.2)/(1+(1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -18167,7 +17236,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -18182,7 +17251,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -18191,12 +17260,12 @@ a
tx@Dict begin /Func (-2.7+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(1.2)/(1+(1.2)^2))^2))|1.2+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(1.2)/(1+(1.2)^2))^2))*(2*(-2.7)*(1.2)/(1+(1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -18211,7 +17280,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -18226,7 +17295,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -18235,12 +17304,12 @@ a
tx@Dict begin /Func (-2.4+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(1.2)/(1+(1.2)^2))^2))|1.2+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(1.2)/(1+(1.2)^2))^2))*(2*(-2.4)*(1.2)/(1+(1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -18255,7 +17324,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -18270,7 +17339,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -18279,12 +17348,12 @@ a
tx@Dict begin /Func (-2.1+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(1.2)/(1+(1.2)^2))^2))|1.2+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(1.2)/(1+(1.2)^2))^2))*(2*(-2.1)*(1.2)/(1+(1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -18292,14 +17361,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -18313,9 +17382,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -18324,12 +17392,12 @@ a
tx@Dict begin /Func (-1.8+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(1.2)/(1+(1.2)^2))^2))|1.2+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(1.2)/(1+(1.2)^2))^2))*(2*(-1.8)*(1.2)/(1+(1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -18344,7 +17412,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -18359,7 +17427,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -18369,12 +17437,12 @@ a
tx@Dict begin /Func (-1.5+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(1.2)/(1+(1.2)^2))^2))|1.2+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(1.2)/(1+(1.2)^2))^2))*(2*(-1.5)*(1.2)/(1+(1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -18382,14 +17450,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -18403,8 +17471,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -18414,12 +17482,12 @@ a
tx@Dict begin /Func (-1.2+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(1.2)/(1+(1.2)^2))^2))|1.2+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(1.2)/(1+(1.2)^2))^2))*(2*(-1.2)*(1.2)/(1+(1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -18434,7 +17502,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -18449,7 +17517,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -18459,12 +17527,12 @@ a
tx@Dict begin /Func (-0.9+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(1.2)/(1+(1.2)^2))^2))|1.2+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(1.2)/(1+(1.2)^2))^2))*(2*(-0.9)*(1.2)/(1+(1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -18479,7 +17547,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -18494,7 +17562,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -18504,12 +17572,12 @@ a
tx@Dict begin /Func (-0.6+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(1.2)/(1+(1.2)^2))^2))|1.2+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(1.2)/(1+(1.2)^2))^2))*(2*(-0.6)*(1.2)/(1+(1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -18517,14 +17585,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -18538,8 +17606,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -18549,12 +17617,12 @@ a
tx@Dict begin /Func (-0.3+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(1.2)/(1+(1.2)^2))^2))|1.2+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(1.2)/(1+(1.2)^2))^2))*(2*(-0.3)*(1.2)/(1+(1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -18562,14 +17630,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -18583,8 +17651,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -18594,12 +17662,12 @@ a
tx@Dict begin /Func (0.0+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(1.2)/(1+(1.2)^2))^2))|1.2+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(1.2)/(1+(1.2)^2))^2))*(2*(0.0)*(1.2)/(1+(1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -18615,7 +17683,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -18629,7 +17697,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -18639,12 +17707,12 @@ a
tx@Dict begin /Func (0.3+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(1.2)/(1+(1.2)^2))^2))|1.2+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(1.2)/(1+(1.2)^2))^2))*(2*(0.3)*(1.2)/(1+(1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -18652,14 +17720,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -18673,8 +17741,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -18684,12 +17752,12 @@ a
tx@Dict begin /Func (0.6+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(1.2)/(1+(1.2)^2))^2))|1.2+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(1.2)/(1+(1.2)^2))^2))*(2*(0.6)*(1.2)/(1+(1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -18697,14 +17765,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -18718,8 +17786,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -18729,12 +17797,12 @@ a
tx@Dict begin /Func (0.9+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(1.2)/(1+(1.2)^2))^2))|1.2+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(1.2)/(1+(1.2)^2))^2))*(2*(0.9)*(1.2)/(1+(1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -18749,7 +17817,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -18764,7 +17832,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -18774,12 +17842,12 @@ a
tx@Dict begin /Func (1.2+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(1.2)/(1+(1.2)^2))^2))|1.2+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(1.2)/(1+(1.2)^2))^2))*(2*(1.2)*(1.2)/(1+(1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -18794,7 +17862,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -18809,7 +17877,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -18819,12 +17887,12 @@ a
tx@Dict begin /Func (1.5+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(1.2)/(1+(1.2)^2))^2))|1.2+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(1.2)/(1+(1.2)^2))^2))*(2*(1.5)*(1.2)/(1+(1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -18832,14 +17900,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -18853,8 +17921,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -18864,12 +17932,12 @@ a
tx@Dict begin /Func (1.8+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(1.2)/(1+(1.2)^2))^2))|1.2+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(1.2)/(1+(1.2)^2))^2))*(2*(1.8)*(1.2)/(1+(1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -18884,7 +17952,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -18899,7 +17967,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -18909,12 +17977,12 @@ a
tx@Dict begin /Func (2.1+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(1.2)/(1+(1.2)^2))^2))|1.2+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(1.2)/(1+(1.2)^2))^2))*(2*(2.1)*(1.2)/(1+(1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -18922,14 +17990,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -18943,9 +18011,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -18954,12 +18021,12 @@ a
tx@Dict begin /Func (2.4+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(1.2)/(1+(1.2)^2))^2))|1.2+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(1.2)/(1+(1.2)^2))^2))*(2*(2.4)*(1.2)/(1+(1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -18974,7 +18041,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -18989,7 +18056,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -18998,12 +18065,12 @@ a
tx@Dict begin /Func (2.7+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(1.2)/(1+(1.2)^2))^2))|1.2+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(1.2)/(1+(1.2)^2))^2))*(2*(2.7)*(1.2)/(1+(1.2)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -19018,7 +18085,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -19033,7 +18100,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -19042,12 +18109,12 @@ a
tx@Dict begin /Func (-3.00+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(1.5)/(1+(1.5)^2))^2))|1.5+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(1.5)/(1+(1.5)^2))^2))*(2*(-3.00)*(1.5)/(1+(1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -19062,7 +18129,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -19077,7 +18144,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -19086,12 +18153,12 @@ a
tx@Dict begin /Func (-2.7+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(1.5)/(1+(1.5)^2))^2))|1.5+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(1.5)/(1+(1.5)^2))^2))*(2*(-2.7)*(1.5)/(1+(1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -19106,7 +18173,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -19121,7 +18188,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -19130,12 +18197,12 @@ a
tx@Dict begin /Func (-2.4+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(1.5)/(1+(1.5)^2))^2))|1.5+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(1.5)/(1+(1.5)^2))^2))*(2*(-2.4)*(1.5)/(1+(1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -19143,14 +18210,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -19164,9 +18231,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -19175,12 +18241,12 @@ a
tx@Dict begin /Func (-2.1+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(1.5)/(1+(1.5)^2))^2))|1.5+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(1.5)/(1+(1.5)^2))^2))*(2*(-2.1)*(1.5)/(1+(1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -19188,14 +18254,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -19209,8 +18275,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -19220,12 +18286,12 @@ a
tx@Dict begin /Func (-1.8+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(1.5)/(1+(1.5)^2))^2))|1.5+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(1.5)/(1+(1.5)^2))^2))*(2*(-1.8)*(1.5)/(1+(1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -19233,14 +18299,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -19254,8 +18320,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -19265,12 +18331,12 @@ a
tx@Dict begin /Func (-1.5+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(1.5)/(1+(1.5)^2))^2))|1.5+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(1.5)/(1+(1.5)^2))^2))*(2*(-1.5)*(1.5)/(1+(1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -19285,7 +18351,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -19300,7 +18366,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -19310,12 +18376,12 @@ a
tx@Dict begin /Func (-1.2+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(1.5)/(1+(1.5)^2))^2))|1.5+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(1.5)/(1+(1.5)^2))^2))*(2*(-1.2)*(1.5)/(1+(1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -19330,7 +18396,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -19345,7 +18411,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -19355,12 +18421,12 @@ a
tx@Dict begin /Func (-0.9+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(1.5)/(1+(1.5)^2))^2))|1.5+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(1.5)/(1+(1.5)^2))^2))*(2*(-0.9)*(1.5)/(1+(1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -19375,7 +18441,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -19390,7 +18456,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -19400,12 +18466,12 @@ a
tx@Dict begin /Func (-0.6+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(1.5)/(1+(1.5)^2))^2))|1.5+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(1.5)/(1+(1.5)^2))^2))*(2*(-0.6)*(1.5)/(1+(1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -19413,14 +18479,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -19434,8 +18500,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -19445,12 +18511,12 @@ a
tx@Dict begin /Func (-0.3+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(1.5)/(1+(1.5)^2))^2))|1.5+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(1.5)/(1+(1.5)^2))^2))*(2*(-0.3)*(1.5)/(1+(1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -19458,14 +18524,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -19479,8 +18545,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -19490,12 +18556,12 @@ a
tx@Dict begin /Func (0.0+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(1.5)/(1+(1.5)^2))^2))|1.5+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(1.5)/(1+(1.5)^2))^2))*(2*(0.0)*(1.5)/(1+(1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -19511,7 +18577,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -19525,7 +18591,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -19535,12 +18601,12 @@ a
tx@Dict begin /Func (0.3+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(1.5)/(1+(1.5)^2))^2))|1.5+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(1.5)/(1+(1.5)^2))^2))*(2*(0.3)*(1.5)/(1+(1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -19548,14 +18614,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -19569,8 +18635,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -19580,12 +18646,12 @@ a
tx@Dict begin /Func (0.6+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(1.5)/(1+(1.5)^2))^2))|1.5+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(1.5)/(1+(1.5)^2))^2))*(2*(0.6)*(1.5)/(1+(1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -19593,14 +18659,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -19614,8 +18680,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -19625,12 +18691,12 @@ a
tx@Dict begin /Func (0.9+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(1.5)/(1+(1.5)^2))^2))|1.5+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(1.5)/(1+(1.5)^2))^2))*(2*(0.9)*(1.5)/(1+(1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -19645,7 +18711,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -19660,7 +18726,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -19670,12 +18736,12 @@ a
tx@Dict begin /Func (1.2+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(1.5)/(1+(1.5)^2))^2))|1.5+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(1.5)/(1+(1.5)^2))^2))*(2*(1.2)*(1.5)/(1+(1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -19690,7 +18756,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -19705,7 +18771,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -19715,12 +18781,12 @@ a
tx@Dict begin /Func (1.5+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(1.5)/(1+(1.5)^2))^2))|1.5+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(1.5)/(1+(1.5)^2))^2))*(2*(1.5)*(1.5)/(1+(1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -19735,7 +18801,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -19750,7 +18816,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -19760,12 +18826,12 @@ a
tx@Dict begin /Func (1.8+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(1.5)/(1+(1.5)^2))^2))|1.5+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(1.5)/(1+(1.5)^2))^2))*(2*(1.8)*(1.5)/(1+(1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -19773,14 +18839,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -19794,8 +18860,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -19805,12 +18871,12 @@ a
tx@Dict begin /Func (2.1+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(1.5)/(1+(1.5)^2))^2))|1.5+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(1.5)/(1+(1.5)^2))^2))*(2*(2.1)*(1.5)/(1+(1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -19818,14 +18884,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -19839,8 +18905,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -19850,12 +18916,12 @@ a
tx@Dict begin /Func (2.4+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(1.5)/(1+(1.5)^2))^2))|1.5+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(1.5)/(1+(1.5)^2))^2))*(2*(2.4)*(1.5)/(1+(1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -19863,14 +18929,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -19884,9 +18950,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -19895,12 +18960,12 @@ a
tx@Dict begin /Func (2.7+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(1.5)/(1+(1.5)^2))^2))|1.5+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(1.5)/(1+(1.5)^2))^2))*(2*(2.7)*(1.5)/(1+(1.5)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -19915,7 +18980,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -19930,7 +18995,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -19939,12 +19004,12 @@ a
tx@Dict begin /Func (-3.00+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(1.8)/(1+(1.8)^2))^2))|1.8+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(1.8)/(1+(1.8)^2))^2))*(2*(-3.00)*(1.8)/(1+(1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -19959,7 +19024,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -19974,7 +19039,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -19983,12 +19048,12 @@ a
tx@Dict begin /Func (-2.7+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(1.8)/(1+(1.8)^2))^2))|1.8+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(1.8)/(1+(1.8)^2))^2))*(2*(-2.7)*(1.8)/(1+(1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -20003,7 +19068,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -20018,7 +19083,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -20027,12 +19092,12 @@ a
tx@Dict begin /Func (-2.4+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(1.8)/(1+(1.8)^2))^2))|1.8+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(1.8)/(1+(1.8)^2))^2))*(2*(-2.4)*(1.8)/(1+(1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -20040,14 +19105,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -20061,9 +19126,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -20072,12 +19136,12 @@ a
tx@Dict begin /Func (-2.1+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(1.8)/(1+(1.8)^2))^2))|1.8+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(1.8)/(1+(1.8)^2))^2))*(2*(-2.1)*(1.8)/(1+(1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -20092,7 +19156,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -20107,7 +19171,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -20117,12 +19181,12 @@ a
tx@Dict begin /Func (-1.8+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(1.8)/(1+(1.8)^2))^2))|1.8+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(1.8)/(1+(1.8)^2))^2))*(2*(-1.8)*(1.8)/(1+(1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -20137,7 +19201,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -20152,7 +19216,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -20162,12 +19226,12 @@ a
tx@Dict begin /Func (-1.5+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(1.8)/(1+(1.8)^2))^2))|1.8+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(1.8)/(1+(1.8)^2))^2))*(2*(-1.5)*(1.8)/(1+(1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -20182,7 +19246,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -20197,7 +19261,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -20207,12 +19271,12 @@ a
tx@Dict begin /Func (-1.2+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(1.8)/(1+(1.8)^2))^2))|1.8+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(1.8)/(1+(1.8)^2))^2))*(2*(-1.2)*(1.8)/(1+(1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -20227,7 +19291,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -20242,7 +19306,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -20252,12 +19316,12 @@ a
tx@Dict begin /Func (-0.9+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(1.8)/(1+(1.8)^2))^2))|1.8+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(1.8)/(1+(1.8)^2))^2))*(2*(-0.9)*(1.8)/(1+(1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -20265,14 +19329,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -20286,8 +19350,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -20297,12 +19361,12 @@ a
tx@Dict begin /Func (-0.6+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(1.8)/(1+(1.8)^2))^2))|1.8+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(1.8)/(1+(1.8)^2))^2))*(2*(-0.6)*(1.8)/(1+(1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -20310,14 +19374,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -20331,8 +19395,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -20342,12 +19406,12 @@ a
tx@Dict begin /Func (-0.3+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(1.8)/(1+(1.8)^2))^2))|1.8+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(1.8)/(1+(1.8)^2))^2))*(2*(-0.3)*(1.8)/(1+(1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -20355,14 +19419,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -20376,8 +19440,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -20387,12 +19451,12 @@ a
tx@Dict begin /Func (0.0+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(1.8)/(1+(1.8)^2))^2))|1.8+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(1.8)/(1+(1.8)^2))^2))*(2*(0.0)*(1.8)/(1+(1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -20408,7 +19472,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -20422,7 +19486,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -20432,12 +19496,12 @@ a
tx@Dict begin /Func (0.3+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(1.8)/(1+(1.8)^2))^2))|1.8+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(1.8)/(1+(1.8)^2))^2))*(2*(0.3)*(1.8)/(1+(1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -20445,14 +19509,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -20466,8 +19530,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -20477,12 +19541,12 @@ a
tx@Dict begin /Func (0.6+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(1.8)/(1+(1.8)^2))^2))|1.8+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(1.8)/(1+(1.8)^2))^2))*(2*(0.6)*(1.8)/(1+(1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -20490,14 +19554,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -20511,8 +19575,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -20522,12 +19586,12 @@ a
tx@Dict begin /Func (0.9+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(1.8)/(1+(1.8)^2))^2))|1.8+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(1.8)/(1+(1.8)^2))^2))*(2*(0.9)*(1.8)/(1+(1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -20535,14 +19599,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -20556,8 +19620,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -20567,12 +19631,12 @@ a
tx@Dict begin /Func (1.2+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(1.8)/(1+(1.8)^2))^2))|1.8+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(1.8)/(1+(1.8)^2))^2))*(2*(1.2)*(1.8)/(1+(1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -20587,7 +19651,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -20602,7 +19666,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -20612,12 +19676,12 @@ a
tx@Dict begin /Func (1.5+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(1.8)/(1+(1.8)^2))^2))|1.8+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(1.8)/(1+(1.8)^2))^2))*(2*(1.5)*(1.8)/(1+(1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -20632,7 +19696,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -20647,7 +19711,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -20657,12 +19721,12 @@ a
tx@Dict begin /Func (1.8+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(1.8)/(1+(1.8)^2))^2))|1.8+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(1.8)/(1+(1.8)^2))^2))*(2*(1.8)*(1.8)/(1+(1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -20677,7 +19741,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -20692,7 +19756,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -20702,12 +19766,12 @@ a
tx@Dict begin /Func (2.1+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(1.8)/(1+(1.8)^2))^2))|1.8+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(1.8)/(1+(1.8)^2))^2))*(2*(2.1)*(1.8)/(1+(1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -20722,7 +19786,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -20737,7 +19801,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -20747,12 +19811,12 @@ a
tx@Dict begin /Func (2.4+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(1.8)/(1+(1.8)^2))^2))|1.8+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(1.8)/(1+(1.8)^2))^2))*(2*(2.4)*(1.8)/(1+(1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -20760,14 +19824,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -20781,9 +19845,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -20792,12 +19855,12 @@ a
tx@Dict begin /Func (2.7+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(1.8)/(1+(1.8)^2))^2))|1.8+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(1.8)/(1+(1.8)^2))^2))*(2*(2.7)*(1.8)/(1+(1.8)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -20812,7 +19875,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -20827,7 +19890,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -20836,12 +19899,12 @@ a
tx@Dict begin /Func (-3.00+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(2.1)/(1+(2.1)^2))^2))|2.1+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(2.1)/(1+(2.1)^2))^2))*(2*(-3.00)*(2.1)/(1+(2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -20856,7 +19919,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -20871,7 +19934,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -20880,12 +19943,12 @@ a
tx@Dict begin /Func (-2.7+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(2.1)/(1+(2.1)^2))^2))|2.1+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(2.1)/(1+(2.1)^2))^2))*(2*(-2.7)*(2.1)/(1+(2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -20893,14 +19956,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -20914,9 +19977,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -20925,12 +19987,12 @@ a
tx@Dict begin /Func (-2.4+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(2.1)/(1+(2.1)^2))^2))|2.1+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(2.1)/(1+(2.1)^2))^2))*(2*(-2.4)*(2.1)/(1+(2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -20938,14 +20000,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -20959,8 +20021,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -20970,12 +20032,12 @@ a
tx@Dict begin /Func (-2.1+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(2.1)/(1+(2.1)^2))^2))|2.1+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(2.1)/(1+(2.1)^2))^2))*(2*(-2.1)*(2.1)/(1+(2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -20983,14 +20045,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -21004,8 +20066,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -21015,12 +20077,12 @@ a
tx@Dict begin /Func (-1.8+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(2.1)/(1+(2.1)^2))^2))|2.1+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(2.1)/(1+(2.1)^2))^2))*(2*(-1.8)*(2.1)/(1+(2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -21035,7 +20097,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -21050,7 +20112,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -21060,12 +20122,12 @@ a
tx@Dict begin /Func (-1.5+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(2.1)/(1+(2.1)^2))^2))|2.1+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(2.1)/(1+(2.1)^2))^2))*(2*(-1.5)*(2.1)/(1+(2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -21080,7 +20142,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -21095,7 +20157,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -21105,12 +20167,12 @@ a
tx@Dict begin /Func (-1.2+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(2.1)/(1+(2.1)^2))^2))|2.1+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(2.1)/(1+(2.1)^2))^2))*(2*(-1.2)*(2.1)/(1+(2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -21125,7 +20187,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -21140,7 +20202,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -21150,12 +20212,12 @@ a
tx@Dict begin /Func (-0.9+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(2.1)/(1+(2.1)^2))^2))|2.1+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(2.1)/(1+(2.1)^2))^2))*(2*(-0.9)*(2.1)/(1+(2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -21170,7 +20232,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -21185,7 +20247,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -21195,12 +20257,12 @@ a
tx@Dict begin /Func (-0.6+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(2.1)/(1+(2.1)^2))^2))|2.1+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(2.1)/(1+(2.1)^2))^2))*(2*(-0.6)*(2.1)/(1+(2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -21215,7 +20277,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -21230,7 +20292,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -21240,12 +20302,12 @@ a
tx@Dict begin /Func (-0.3+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(2.1)/(1+(2.1)^2))^2))|2.1+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(2.1)/(1+(2.1)^2))^2))*(2*(-0.3)*(2.1)/(1+(2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -21260,7 +20322,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -21275,7 +20337,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -21285,12 +20347,12 @@ a
tx@Dict begin /Func (0.0+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(2.1)/(1+(2.1)^2))^2))|2.1+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(2.1)/(1+(2.1)^2))^2))*(2*(0.0)*(2.1)/(1+(2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -21306,7 +20368,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -21320,7 +20382,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -21330,12 +20392,12 @@ a
tx@Dict begin /Func (0.3+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(2.1)/(1+(2.1)^2))^2))|2.1+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(2.1)/(1+(2.1)^2))^2))*(2*(0.3)*(2.1)/(1+(2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -21350,7 +20412,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -21365,7 +20427,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -21375,12 +20437,12 @@ a
tx@Dict begin /Func (0.6+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(2.1)/(1+(2.1)^2))^2))|2.1+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(2.1)/(1+(2.1)^2))^2))*(2*(0.6)*(2.1)/(1+(2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -21395,7 +20457,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -21410,7 +20472,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -21420,12 +20482,12 @@ a
tx@Dict begin /Func (0.9+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(2.1)/(1+(2.1)^2))^2))|2.1+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(2.1)/(1+(2.1)^2))^2))*(2*(0.9)*(2.1)/(1+(2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -21440,7 +20502,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -21455,7 +20517,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -21465,12 +20527,12 @@ a
tx@Dict begin /Func (1.2+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(2.1)/(1+(2.1)^2))^2))|2.1+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(2.1)/(1+(2.1)^2))^2))*(2*(1.2)*(2.1)/(1+(2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -21485,7 +20547,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -21500,7 +20562,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -21510,12 +20572,12 @@ a
tx@Dict begin /Func (1.5+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(2.1)/(1+(2.1)^2))^2))|2.1+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(2.1)/(1+(2.1)^2))^2))*(2*(1.5)*(2.1)/(1+(2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -21530,7 +20592,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -21545,7 +20607,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -21555,12 +20617,12 @@ a
tx@Dict begin /Func (1.8+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(2.1)/(1+(2.1)^2))^2))|2.1+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(2.1)/(1+(2.1)^2))^2))*(2*(1.8)*(2.1)/(1+(2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -21575,7 +20637,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -21590,7 +20652,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -21600,12 +20662,12 @@ a
tx@Dict begin /Func (2.1+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(2.1)/(1+(2.1)^2))^2))|2.1+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(2.1)/(1+(2.1)^2))^2))*(2*(2.1)*(2.1)/(1+(2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -21613,14 +20675,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -21634,8 +20696,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -21645,12 +20707,12 @@ a
tx@Dict begin /Func (2.4+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(2.1)/(1+(2.1)^2))^2))|2.1+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(2.1)/(1+(2.1)^2))^2))*(2*(2.4)*(2.1)/(1+(2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -21658,14 +20720,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -21679,8 +20741,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -21690,12 +20752,12 @@ a
tx@Dict begin /Func (2.7+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(2.1)/(1+(2.1)^2))^2))|2.1+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(2.1)/(1+(2.1)^2))^2))*(2*(2.7)*(2.1)/(1+(2.1)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -21703,14 +20765,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -21724,9 +20786,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -21735,12 +20796,12 @@ a
tx@Dict begin /Func (-3.00+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(2.4)/(1+(2.4)^2))^2))|2.4+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(2.4)/(1+(2.4)^2))^2))*(2*(-3.00)*(2.4)/(1+(2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -21748,14 +20809,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -21769,9 +20830,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -21780,12 +20840,12 @@ a
tx@Dict begin /Func (-2.7+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(2.4)/(1+(2.4)^2))^2))|2.4+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(2.4)/(1+(2.4)^2))^2))*(2*(-2.7)*(2.4)/(1+(2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -21793,14 +20853,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -21814,8 +20874,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -21825,12 +20885,12 @@ a
tx@Dict begin /Func (-2.4+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(2.4)/(1+(2.4)^2))^2))|2.4+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(2.4)/(1+(2.4)^2))^2))*(2*(-2.4)*(2.4)/(1+(2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -21838,14 +20898,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -21859,8 +20919,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -21870,12 +20930,12 @@ a
tx@Dict begin /Func (-2.1+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(2.4)/(1+(2.4)^2))^2))|2.4+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(2.4)/(1+(2.4)^2))^2))*(2*(-2.1)*(2.4)/(1+(2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -21883,14 +20943,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -21904,8 +20964,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -21915,12 +20975,12 @@ a
tx@Dict begin /Func (-1.8+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(2.4)/(1+(2.4)^2))^2))|2.4+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(2.4)/(1+(2.4)^2))^2))*(2*(-1.8)*(2.4)/(1+(2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -21935,7 +20995,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -21950,7 +21010,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -21960,12 +21020,12 @@ a
tx@Dict begin /Func (-1.5+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(2.4)/(1+(2.4)^2))^2))|2.4+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(2.4)/(1+(2.4)^2))^2))*(2*(-1.5)*(2.4)/(1+(2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -21980,7 +21040,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -21995,7 +21055,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -22005,12 +21065,12 @@ a
tx@Dict begin /Func (-1.2+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(2.4)/(1+(2.4)^2))^2))|2.4+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(2.4)/(1+(2.4)^2))^2))*(2*(-1.2)*(2.4)/(1+(2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -22025,7 +21085,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -22040,7 +21100,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -22050,12 +21110,12 @@ a
tx@Dict begin /Func (-0.9+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(2.4)/(1+(2.4)^2))^2))|2.4+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(2.4)/(1+(2.4)^2))^2))*(2*(-0.9)*(2.4)/(1+(2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -22070,7 +21130,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -22085,7 +21145,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -22095,12 +21155,12 @@ a
tx@Dict begin /Func (-0.6+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(2.4)/(1+(2.4)^2))^2))|2.4+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(2.4)/(1+(2.4)^2))^2))*(2*(-0.6)*(2.4)/(1+(2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -22115,7 +21175,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -22130,7 +21190,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -22140,12 +21200,12 @@ a
tx@Dict begin /Func (-0.3+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(2.4)/(1+(2.4)^2))^2))|2.4+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(2.4)/(1+(2.4)^2))^2))*(2*(-0.3)*(2.4)/(1+(2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -22160,7 +21220,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -22175,7 +21235,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -22185,12 +21245,12 @@ a
tx@Dict begin /Func (0.0+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(2.4)/(1+(2.4)^2))^2))|2.4+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(2.4)/(1+(2.4)^2))^2))*(2*(0.0)*(2.4)/(1+(2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -22206,7 +21266,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -22220,7 +21280,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -22230,12 +21290,12 @@ a
tx@Dict begin /Func (0.3+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(2.4)/(1+(2.4)^2))^2))|2.4+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(2.4)/(1+(2.4)^2))^2))*(2*(0.3)*(2.4)/(1+(2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -22250,7 +21310,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -22265,7 +21325,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -22275,12 +21335,12 @@ a
tx@Dict begin /Func (0.6+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(2.4)/(1+(2.4)^2))^2))|2.4+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(2.4)/(1+(2.4)^2))^2))*(2*(0.6)*(2.4)/(1+(2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -22295,7 +21355,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -22310,7 +21370,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -22320,12 +21380,12 @@ a
tx@Dict begin /Func (0.9+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(2.4)/(1+(2.4)^2))^2))|2.4+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(2.4)/(1+(2.4)^2))^2))*(2*(0.9)*(2.4)/(1+(2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -22340,7 +21400,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -22355,7 +21415,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -22365,12 +21425,12 @@ a
tx@Dict begin /Func (1.2+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(2.4)/(1+(2.4)^2))^2))|2.4+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(2.4)/(1+(2.4)^2))^2))*(2*(1.2)*(2.4)/(1+(2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -22385,7 +21445,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -22400,7 +21460,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -22410,12 +21470,12 @@ a
tx@Dict begin /Func (1.5+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(2.4)/(1+(2.4)^2))^2))|2.4+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(2.4)/(1+(2.4)^2))^2))*(2*(1.5)*(2.4)/(1+(2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -22430,7 +21490,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -22445,7 +21505,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -22455,12 +21515,12 @@ a
tx@Dict begin /Func (1.8+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(2.4)/(1+(2.4)^2))^2))|2.4+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(2.4)/(1+(2.4)^2))^2))*(2*(1.8)*(2.4)/(1+(2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -22475,7 +21535,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -22490,7 +21550,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -22500,12 +21560,12 @@ a
tx@Dict begin /Func (2.1+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(2.4)/(1+(2.4)^2))^2))|2.4+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(2.4)/(1+(2.4)^2))^2))*(2*(2.1)*(2.4)/(1+(2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -22513,14 +21573,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -22534,8 +21594,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -22545,12 +21605,12 @@ a
tx@Dict begin /Func (2.4+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(2.4)/(1+(2.4)^2))^2))|2.4+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(2.4)/(1+(2.4)^2))^2))*(2*(2.4)*(2.4)/(1+(2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -22558,14 +21618,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -22579,8 +21639,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -22590,12 +21650,12 @@ a
tx@Dict begin /Func (2.7+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(2.4)/(1+(2.4)^2))^2))|2.4+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(2.4)/(1+(2.4)^2))^2))*(2*(2.7)*(2.4)/(1+(2.4)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -22603,14 +21663,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -22624,8 +21684,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -22635,12 +21695,12 @@ a
tx@Dict begin /Func (-3.00+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(2.7)/(1+(2.7)^2))^2))|2.7+((0.3)*t)*(1/sqrt(1+(2*(-3.00)*(2.7)/(1+(2.7)^2))^2))*(2*(-3.00)*(2.7)/(1+(2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -22648,14 +21708,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -22669,8 +21729,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -22680,12 +21740,12 @@ a
tx@Dict begin /Func (-2.7+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(2.7)/(1+(2.7)^2))^2))|2.7+((0.3)*t)*(1/sqrt(1+(2*(-2.7)*(2.7)/(1+(2.7)^2))^2))*(2*(-2.7)*(2.7)/(1+(2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -22700,7 +21760,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -22715,7 +21775,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -22725,12 +21785,12 @@ a
tx@Dict begin /Func (-2.4+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(2.7)/(1+(2.7)^2))^2))|2.7+((0.3)*t)*(1/sqrt(1+(2*(-2.4)*(2.7)/(1+(2.7)^2))^2))*(2*(-2.4)*(2.7)/(1+(2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -22745,7 +21805,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -22760,7 +21820,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -22770,12 +21830,12 @@ a
tx@Dict begin /Func (-2.1+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(2.7)/(1+(2.7)^2))^2))|2.7+((0.3)*t)*(1/sqrt(1+(2*(-2.1)*(2.7)/(1+(2.7)^2))^2))*(2*(-2.1)*(2.7)/(1+(2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -22790,7 +21850,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -22805,7 +21865,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -22815,12 +21875,12 @@ a
tx@Dict begin /Func (-1.8+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(2.7)/(1+(2.7)^2))^2))|2.7+((0.3)*t)*(1/sqrt(1+(2*(-1.8)*(2.7)/(1+(2.7)^2))^2))*(2*(-1.8)*(2.7)/(1+(2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -22835,7 +21895,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -22850,7 +21910,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -22860,12 +21920,12 @@ a
tx@Dict begin /Func (-1.5+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(2.7)/(1+(2.7)^2))^2))|2.7+((0.3)*t)*(1/sqrt(1+(2*(-1.5)*(2.7)/(1+(2.7)^2))^2))*(2*(-1.5)*(2.7)/(1+(2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -22880,7 +21940,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -22895,7 +21955,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -22905,12 +21965,12 @@ a
tx@Dict begin /Func (-1.2+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(2.7)/(1+(2.7)^2))^2))|2.7+((0.3)*t)*(1/sqrt(1+(2*(-1.2)*(2.7)/(1+(2.7)^2))^2))*(2*(-1.2)*(2.7)/(1+(2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -22918,14 +21978,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -22939,8 +21999,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -22950,12 +22010,12 @@ a
tx@Dict begin /Func (-0.9+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(2.7)/(1+(2.7)^2))^2))|2.7+((0.3)*t)*(1/sqrt(1+(2*(-0.9)*(2.7)/(1+(2.7)^2))^2))*(2*(-0.9)*(2.7)/(1+(2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -22963,14 +22023,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -22984,8 +22044,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -22995,12 +22055,12 @@ a
tx@Dict begin /Func (-0.6+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(2.7)/(1+(2.7)^2))^2))|2.7+((0.3)*t)*(1/sqrt(1+(2*(-0.6)*(2.7)/(1+(2.7)^2))^2))*(2*(-0.6)*(2.7)/(1+(2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -23008,14 +22068,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -23029,8 +22089,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -23040,12 +22100,12 @@ a
tx@Dict begin /Func (-0.3+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(2.7)/(1+(2.7)^2))^2))|2.7+((0.3)*t)*(1/sqrt(1+(2*(-0.3)*(2.7)/(1+(2.7)^2))^2))*(2*(-0.3)*(2.7)/(1+(2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -23053,30 +22113,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -23085,12 +22145,12 @@ a
tx@Dict begin /Func (0.0+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(2.7)/(1+(2.7)^2))^2))|2.7+((0.3)*t)*(1/sqrt(1+(2*(0.0)*(2.7)/(1+(2.7)^2))^2))*(2*(0.0)*(2.7)/(1+(2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -23106,7 +22166,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -23120,7 +22180,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -23130,12 +22190,12 @@ a
tx@Dict begin /Func (0.3+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(2.7)/(1+(2.7)^2))^2))|2.7+((0.3)*t)*(1/sqrt(1+(2*(0.3)*(2.7)/(1+(2.7)^2))^2))*(2*(0.3)*(2.7)/(1+(2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -23143,30 +22203,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -23175,12 +22235,12 @@ a
tx@Dict begin /Func (0.6+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(2.7)/(1+(2.7)^2))^2))|2.7+((0.3)*t)*(1/sqrt(1+(2*(0.6)*(2.7)/(1+(2.7)^2))^2))*(2*(0.6)*(2.7)/(1+(2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -23188,14 +22248,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -23209,8 +22269,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -23220,12 +22280,12 @@ a
tx@Dict begin /Func (0.9+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(2.7)/(1+(2.7)^2))^2))|2.7+((0.3)*t)*(1/sqrt(1+(2*(0.9)*(2.7)/(1+(2.7)^2))^2))*(2*(0.9)*(2.7)/(1+(2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -23233,14 +22293,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -23254,8 +22314,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -23265,12 +22325,12 @@ a
tx@Dict begin /Func (1.2+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(2.7)/(1+(2.7)^2))^2))|2.7+((0.3)*t)*(1/sqrt(1+(2*(1.2)*(2.7)/(1+(2.7)^2))^2))*(2*(1.2)*(2.7)/(1+(2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -23278,14 +22338,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -23299,8 +22359,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -23310,12 +22370,12 @@ a
tx@Dict begin /Func (1.5+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(2.7)/(1+(2.7)^2))^2))|2.7+((0.3)*t)*(1/sqrt(1+(2*(1.5)*(2.7)/(1+(2.7)^2))^2))*(2*(1.5)*(2.7)/(1+(2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -23330,7 +22390,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -23345,7 +22405,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -23355,12 +22415,12 @@ a
tx@Dict begin /Func (1.8+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(2.7)/(1+(2.7)^2))^2))|2.7+((0.3)*t)*(1/sqrt(1+(2*(1.8)*(2.7)/(1+(2.7)^2))^2))*(2*(1.8)*(2.7)/(1+(2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -23375,7 +22435,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -23390,7 +22450,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -23400,12 +22460,12 @@ a
tx@Dict begin /Func (2.1+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(2.7)/(1+(2.7)^2))^2))|2.7+((0.3)*t)*(1/sqrt(1+(2*(2.1)*(2.7)/(1+(2.7)^2))^2))*(2*(2.1)*(2.7)/(1+(2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -23420,7 +22480,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -23435,7 +22495,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -23445,12 +22505,12 @@ a
tx@Dict begin /Func (2.4+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(2.7)/(1+(2.7)^2))^2))|2.7+((0.3)*t)*(1/sqrt(1+(2*(2.4)*(2.7)/(1+(2.7)^2))^2))*(2*(2.4)*(2.7)/(1+(2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -23465,7 +22525,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -23480,7 +22540,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -23490,12 +22550,12 @@ a
tx@Dict begin /Func (2.7+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(2.7)/(1+(2.7)^2))^2))|2.7+((0.3)*t)*(1/sqrt(1+(2*(2.7)*(2.7)/(1+(2.7)^2))^2))*(2*(2.7)*(2.7)/(1+(2.7)^2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -23510,7 +22570,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -23525,7 +22585,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial @beginspecial @setspecial
@@ -23534,19 +22594,19 @@ def /ArrowB { BeginArrow 1. 1. scale false 0.4 1.4 1.5 2. CLW mul
add dup 2 div /w ED mul dup /h ED mul /a ED { 0 h T 1 -1 scale } if
gsave w neg h moveto 0 0 L w h L w neg a neg rlineto gsave fill grestore
grestore 0 h a sub moveto EndArrow } def /ArrowInside { } def
-/showOrigin true def 85.5 0 -85.5 0 ArrowA CP 4 2 roll ArrowB 2 copy
-/yEnd exch def /xEnd exch def L 1 setlinejoin 0 setlinecap stroke
- stroke /yStart exch def /xStart exch def 0 dup 2 mod 0 eq false and
-exch 2 lt true and or { /viceversa -85.5 85.5 gt { true }{ false
-} ifelse def /epsilon 0.01 def /minTickline -85.5 def /maxTickline
+/showOrigin true def 88.35017 0 -85.5 0 ArrowA CP 4 2 roll ArrowB
+2 copy /yEnd exch def /xEnd exch def L 0 setlinejoin 0 setlinecap
+stroke stroke /yStart exch def /xStart exch def 0 dup 2 mod 0 eq false
+and exch 2 lt true and or { /viceversa -85.5 88.35017 gt { true }{
+false } ifelse def /epsilon 0.01 def /minTickline -85.5 def /maxTickline
85.5 def /dT 1867776 abs 65536 div viceversa { neg } if def /subTNo
1 def subTNo 0 gt { /dsubT dT subTNo div def}{ /dsubT 0 def } ifelse
0.0 2.2 /tickend exch def /tickstart exch def /Twidth 0.4 def /subTwidth
0.2 def /STsize 0.75 def /TColor { 0 setgray } def /subTColor {
0.5 setgray } def /MinValue { xStart } def /MaxValue { xEnd 1.5 2.
CLW mul add 1.4 mul viceversa { add epsilon sub }{ sub epsilon add
-} ifelse } def /logLines { false } def /LSstroke { 1 setlinejoin
-0 setlinecap stroke stroke} def /subLSstroke { 1 setlinejoin 0
+} ifelse } def /logLines { false } def /LSstroke { 0 setlinejoin
+0 setlinecap stroke stroke} def /subLSstroke { 0 setlinejoin 0
setlinecap stroke stroke} def 0 dT MaxValue 1 add { /cntTick exch def
logLines { gsave 1 10 subTNo div 9.99 { /dx exch def /x cntTick dT
dx log mul add def x abs MaxValue abs le { false { x minTickline moveto
@@ -23587,7 +22647,7 @@ moveto EndArrow } def /ArrowInside { } def 0.7 SLW 0 setgray
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ 0.0 85.5 0.0 -85.5 /Lineto /lineto load def 1 setlinejoin
+{ } def [ 0.0 85.5 0.0 -85.5 /Lineto /lineto load def 0 setlinejoin
false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if () length 0 gt
{ 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add /arrowlength
exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1
@@ -23601,7 +22661,7 @@ div }{0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def
x2 x1 sub ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside
pop pop } repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2
sub def n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop }
-if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 1 setlinejoin
+if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial @beginspecial
@@ -23615,7 +22675,7 @@ moveto EndArrow } def /ArrowInside { } def 0.7 SLW 0 setgray
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ 85.5 0.0 -85.5 0.0 /Lineto /lineto load def 1 setlinejoin
+{ } def [ 88.35017 0.0 -85.5 0.0 /Lineto /lineto load def 0 setlinejoin
false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if () length 0 gt
{ 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add /arrowlength
exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1
@@ -23629,7 +22689,7 @@ div }{0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def
x2 x1 sub ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside
pop pop } repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2
sub def n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop }
-if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 1 setlinejoin
+if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial @beginspecial @setspecial
@@ -23639,18 +22699,18 @@ add dup 2 div /w ED mul dup /h ED mul /a ED { 0 h T 1 -1 scale } if
gsave w neg h moveto 0 0 L w h L w neg a neg rlineto gsave fill grestore
grestore 0 h a sub moveto EndArrow } def /ArrowInside { } def
/showOrigin true def 0 85.5 0 -85.5 ArrowA CP 4 2 roll ArrowB 2 copy
-/yEnd exch def /xEnd exch def L 1 setlinejoin 0 setlinecap stroke
+/yEnd exch def /xEnd exch def L 0 setlinejoin 0 setlinecap stroke
stroke /yStart exch def /xStart exch def 0 dup 2 mod 0 eq true and
exch 2 lt false and or { /viceversa -85.5 85.5 gt { true }{ false
} ifelse def /epsilon 0.01 def /minTickline -85.5 def /maxTickline
-85.5 def /dT 1867776 abs 65536 div viceversa { neg } if def /subTNo
+88.35017 def /dT 1867776 abs 65536 div viceversa { neg } if def /subTNo
1 def subTNo 0 gt { /dsubT dT subTNo div def}{ /dsubT 0 def } ifelse
0.0 2.2 /tickend exch def /tickstart exch def /Twidth 0.4 def /subTwidth
0.2 def /STsize 0.75 def /TColor { 0 setgray } def /subTColor {
0.5 setgray } def /MinValue { yStart } def /MaxValue { yEnd 1.5 2.
CLW mul add 1.4 mul viceversa { add epsilon sub }{ sub epsilon add
-} ifelse } def /logLines { false } def /LSstroke { 1 setlinejoin
-0 setlinecap stroke stroke} def /subLSstroke { 1 setlinejoin 0
+} ifelse } def /logLines { false } def /LSstroke { 0 setlinejoin
+0 setlinecap stroke stroke} def /subLSstroke { 0 setlinejoin 0
setlinecap stroke stroke} def 0 dT MaxValue 1 add { /cntTick exch
def logLines { gsave 1 10 subTNo div 9.99 { /dx exch def /x cntTick
dT dx log mul add def x abs MaxValue abs le { false { x minTickline
@@ -23692,7 +22752,7 @@ moveto EndArrow } def /ArrowInside { } def 0.7 SLW 0 setgray
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ 0.0 85.5 0.0 -85.5 /Lineto /lineto load def 1 setlinejoin
+{ } def [ 0.0 85.5 0.0 -85.5 /Lineto /lineto load def 0 setlinejoin
false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if () length 0 gt
{ 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add /arrowlength
exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1
@@ -23706,7 +22766,7 @@ div }{0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def
x2 x1 sub ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside
pop pop } repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2
sub def n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop }
-if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 1 setlinejoin
+if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial @beginspecial
@@ -23720,7 +22780,7 @@ moveto EndArrow } def /ArrowInside { } def 0.7 SLW 0 setgray
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ 85.5 0.0 -85.5 0.0 /Lineto /lineto load def 1 setlinejoin
+{ } def [ 88.35017 0.0 -85.5 0.0 /Lineto /lineto load def 0 setlinejoin
false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if () length 0 gt
{ 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add /arrowlength
exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1
@@ -23734,7 +22794,7 @@ div }{0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def
x2 x1 sub ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside
pop pop } repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2
sub def n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop }
-if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 1 setlinejoin
+if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 930 685 a Fb(1)930 449 y(2)875
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vec3.eps b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vecb3.eps
index c5980d7dabe..24e715c0304 100644
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vec3.eps
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vecb3.eps
@@ -1,17 +1,17 @@
%!PS-Adobe-3.0 EPSF-3.0
-%%Creator: dvips(k) 5.992 Copyright 2012 Radical Eye Software
+%%Creator: dvips(k) 5.993 Copyright 2013 Radical Eye Software
%%Title: testps-fig1.dvi
-%%CreationDate: Tue Oct 01 20:12:07 2013
+%%CreationDate: Tue Apr 01 22:23:18 2014
%%Pages: 1
%%PageOrder: Ascend
-%%BoundingBox: 101 516 279 699
+%%BoundingBox: 100 516 281 698
%%DocumentFonts: CMR8 CMSY8
%%DocumentPaperSizes: Letter
%%EndComments
%DVIPSWebPage: (www.radicaleye.com)
%DVIPSCommandLine: DVIPS.EXE testps-fig1
%DVIPSParameters: dpi=600
-%DVIPSSource: TeX output 2013.10.01:2012
+%DVIPSSource: TeX output 2014.04.01:2223
%%BeginProcSet: tex.pro 0 0
%!
/TeXDict 300 dict def TeXDict begin/N{def}def/B{bind def}N/S{exch}N/X{S
@@ -43,19 +43,21 @@ SI restore userdict/eop-hook known{eop-hook}if showpage}N/@start{
userdict/start-hook known{start-hook}if pop/VResolution X/Resolution X
1000 div/DVImag X/IEn 256 array N 2 string 0 1 255{IEn S A 360 add 36 4
index cvrs cvn put}for pop 65781.76 div/vsize X 65781.76 div/hsize X}N
-/p{show}N/RMat[1 0 0 -1 0 0]N/BDot 260 string N/Rx 0 N/Ry 0 N/V{}B/RV/v{
-/Ry X/Rx X V}B statusdict begin/product where{pop false[(Display)(NeXT)
-(LaserWriter 16/600)]{A length product length le{A length product exch 0
-exch getinterval eq{pop true exit}if}{pop}ifelse}forall}{false}ifelse
-end{{gsave TR -.1 .1 TR 1 1 scale Rx Ry false RMat{BDot}imagemask
-grestore}}{{gsave TR -.1 .1 TR Rx Ry scale 1 1 false RMat{BDot}
-imagemask grestore}}ifelse B/QV{gsave newpath transform round exch round
-exch itransform moveto Rx 0 rlineto 0 Ry neg rlineto Rx neg 0 rlineto
-fill grestore}B/a{moveto}B/delta 0 N/tail{A/delta X 0 rmoveto}B/M{S p
-delta add tail}B/b{S p tail}B/c{-4 M}B/d{-3 M}B/e{-2 M}B/f{-1 M}B/g{0 M}
-B/h{1 M}B/i{2 M}B/j{3 M}B/k{4 M}B/w{0 rmoveto}B/l{p -4 w}B/m{p -3 w}B/n{
-p -2 w}B/o{p -1 w}B/q{p 1 w}B/r{p 2 w}B/s{p 3 w}B/t{p 4 w}B/x{0 S
-rmoveto}B/y{3 2 roll p a}B/bos{/SS save N}B/eos{SS restore}B end
+/dir 0 def/dyy{/dir 0 def}B/dyt{/dir 1 def}B/dty{/dir 2 def}B/dtt{/dir 3
+def}B/p{dir 2 eq{-90 rotate show 90 rotate}{dir 3 eq{-90 rotate show 90
+rotate}{show}ifelse}ifelse}N/RMat[1 0 0 -1 0 0]N/BDot 260 string N/Rx 0
+N/Ry 0 N/V{}B/RV/v{/Ry X/Rx X V}B statusdict begin/product where{pop
+false[(Display)(NeXT)(LaserWriter 16/600)]{A length product length le{A
+length product exch 0 exch getinterval eq{pop true exit}if}{pop}ifelse}
+forall}{false}ifelse end{{gsave TR -.1 .1 TR 1 1 scale Rx Ry false RMat{
+BDot}imagemask grestore}}{{gsave TR -.1 .1 TR Rx Ry scale 1 1 false RMat
+{BDot}imagemask grestore}}ifelse B/QV{gsave newpath transform round exch
+round exch itransform moveto Rx 0 rlineto 0 Ry neg rlineto Rx neg 0
+rlineto fill grestore}B/a{moveto}B/delta 0 N/tail{A/delta X 0 rmoveto}B
+/M{S p delta add tail}B/b{S p tail}B/c{-4 M}B/d{-3 M}B/e{-2 M}B/f{-1 M}
+B/g{0 M}B/h{1 M}B/i{2 M}B/j{3 M}B/k{4 M}B/w{0 rmoveto}B/l{p -4 w}B/m{p
+-3 w}B/n{p -2 w}B/o{p -1 w}B/q{p 1 w}B/r{p 2 w}B/s{p 3 w}B/t{p 4 w}B/x{
+0 S rmoveto}B/y{3 2 roll p a}B/bos{/SS save N}B/eos{SS restore}B end
%%EndProcSet
%%BeginProcSet: pstricks.pro 0 0
@@ -4021,941 +4023,21 @@ tx@FuncDict begin
end
%%EndProcSet
-%%BeginProcSet: pst-3dplot.pro 0 0
-%% $Id: pst-3dplot.pro 236 2009-12-31 08:59:43Z herbert $
-%%
-%% This is file `pst-3dplot.pro',
-%%
-%% IMPORTANT NOTICE:
-%%
-%% Package `pst-3dplot.tex'
-%%
-%% Herbert Voss <voss _at_ PSTricks.de>
-%%
-%% This program can be redistributed and/or modified under the terms
-%% of the LaTeX Project Public License Distributed from CTAN archives
-%% in directory macros/latex/base/lppl.txt.
-%%
-%% DESCRIPTION:
-%% `pst-3dplot' is a PSTricks package to draw 3d curves and graphical objects
-%%
-%%
-%% version 0.30 / 2010-01-01 Herbert Voss <voss _at_ PSTricks.de>
-%% with contributions of Darrell Lamm <darrell.lamm _at_ gtri.gatech.edu<
-%%
-%
-/tx@3DPlotDict 200 dict def
-tx@3DPlotDict begin
-%
-/printDot { gsave 2 copy 2 0 360 arc fill stroke grestore } def
-%
-/saveCoor {
- dzUnit mul /z ED
- dyUnit mul /y ED
- dxUnit mul /x ED
-} def
-%
-/ConvertTo2D {
- RotatePoint
- 1 { % dummy loop, will run only 1 time, allows exit
- coorType 0 le { % the default |
- /x2D x leftHanded not { neg } if Alpha cos mul y Alpha sin mul add def % /\ co system
- /y2D x leftHanded { neg } if Alpha sin mul y Alpha cos mul add neg Beta sin mul z Beta cos mul add def
- exit } if
- coorType 1 le {
- /x2D y x Alpha 90 sub sin mul sub def % |/_ co system, no shortened x axis
- /y2D z x Alpha 90 sub cos mul sub def
- exit } if
- coorType 2 le { % coorType |/_ with a 1/sqrt(2) shortend x-axis and 135 degrees
- /x2D y x 0.5 mul sub def
- /y2D z x 0.5 mul sub def
- exit } if
- coorType 3 le { % coorType |/_ with a 1/sqrt(2) shortend x-axis and 135 degrees
- /x2D y x -0.5 mul sub def
- /y2D z x -0.5 mul sub def
- exit } if
- coorType 4 le { % Normalbild in Trimetrie Skalierung so, dass coorType2
- /x2D x -0.5 mul y 1 mul add def
- /y2D x -0.5 mul y -0.25 mul add z 1 mul add def
- exit } if
- } repeat
-} def
-%
-/Conv3D2D { /z ED /y ED /x ED ConvertTo2D x2D y2D } def
-%
-/ConvertToCartesian {
- /latitude exch def
- /longitude exch def
- /Radius exch def
- 1 { % dummy loop, will run only 1 time, allows exit
- SphericalCoorType 0 le { % the default |
- /z { Radius latitude sin mul } def
- /x { Radius longitude cos mul latitude cos mul } def
- /y { Radius longitude sin mul latitude cos mul } def
- exit } if
- SphericalCoorType 2 le {
- /z { Radius longitude cos mul } def
- /x { Radius longitude sin mul latitude cos mul} def
- /y { Radius longitude sin mul latitude sin mul } def
- exit } if
- } repeat
-} def
-%
-/ConvCylToCartesian { % r phi h -> x y z
- 3 1 roll % h r phi
- /Phi ED
- /Radius ED % h->z on stack
- Radius Phi cos mul exch % x z
- Radius Phi sin mul exch % x y z
-} def
-%
-/SphericalTo2D {
- x y z ConvertToCartesian ConvertTo2D
-} def
-%
-/CylinderTo2D { % r phi h
- x y z ConvCylToCartesian ConvertTo2D
-} def
-%
-/convertStackTo2D {
- counttomark
- /n ED /n3 n 3 div cvi def
- n3 {
- n -3 roll
- SphericalCoor { ConvertToCartesian } { saveCoor } ifelse
- ConvertTo2D
- x2D xUnit y2D yUnit
- /n n 1 sub def
- } repeat
-} def
-%
-% the angle in the parameter equation for an ellipse is not proportional to the real angle!
-% phi=atan(b*tan(angle)/a)+floor(angle/180+0.5)*180
-%
-/getPhi { % on stack: vecA vecB angle
- 3 dict begin
- /angle exch def /vecB exch def /vecA exch def
- angle cvi 90 mod 0 eq { angle } { vecA angle tan mul vecB atan
- angle 180 div .5 add floor 180 mul add } ifelse
- end
-} def
-%
-/RotSet (set ) def
-%
-/eulerRotation false def
-% Matrix multiplication procedure
-/matmul {
-
- /M@tMulDict 20 dict def
- M@tMulDict begin
- /m2 ED
- /m1 ED
- m1 dup length 2 sub 2 getinterval aload pop
- /col1max ED
- /row1max ED
- m2 dup length 2 sub 2 getinterval aload pop
- /col2max ED
- /row2max ED
- /m3 row1max col2max mul 2 add array def
- m3 dup length 2 sub row1max col2max 2 array astore putinterval
- 0 1 row1max 1 sub {
- /row ED
- 0 1 col2max 1 sub {
- /col ED
- /sum 0 def
- 0 1 col1max 1 sub{
- /rowcol ED
- sum
- m1 row col1max mul rowcol add get
- m2 rowcol col2max mul col add get
- mul add
- /sum ED
- } for
- m3 row col2max mul col add sum put
- } for
- } for
- m3
- end % end of M@tMulDict
-
-} def
-%
-/SetMQuaternion {
-
- /MnewTOold 11 array def
-
- /Qu@ternionDict 30 dict def
- Qu@ternionDict begin
-
- /normRotVec xRotVec yRotVec zRotVec 3 array astore VecNorm def
- normRotVec 0 gt
- {/xRotVecNorm xRotVec normRotVec div def
- /yRotVecNorm yRotVec normRotVec div def
- /zRotVecNorm zRotVec normRotVec div def
- RotAngle}
- {/xRotVecNorm 1 def
- /yRotVecNorm 0 def
- /zRotVecNorm 0 def
- 0} ifelse
-
- 2 div dup
- /q0 exch cos def
- sin dup dup
- /q1 exch xRotVecNorm mul def
- /q2 exch yRotVecNorm mul def
- /q3 exch zRotVecNorm mul def
-
- /q0q0 q0 q0 mul def
- /q0q1 q0 q1 mul def
- /q0q2 q0 q2 mul def
- /q0q3 q0 q3 mul def
-
- /q1q1 q1 q1 mul def
- /q1q2 q1 q2 mul def
- /q1q3 q1 q3 mul def
-
- /q2q2 q2 q2 mul def
- /q2q3 q2 q3 mul def
-
- /q3q3 q3 q3 mul def
-
- MnewTOold 0 q0q0 q1q1 add q2q2 sub q3q3 sub put
- MnewTOold 1 q1q2 q0q3 sub 2 mul put
- MnewTOold 2 q1q3 q0q2 add 2 mul put
-
- MnewTOold 3 q1q2 q0q3 add 2 mul put
- MnewTOold 4 q0q0 q1q1 sub q2q2 add q3q3 sub put
- MnewTOold 5 q2q3 q0q1 sub 2 mul put
-
- MnewTOold 6 q1q3 q0q2 sub 2 mul put
- MnewTOold 7 q2q3 q0q1 add 2 mul put
- MnewTOold 8 q0q0 q1q1 sub q2q2 sub q3q3 add put
-
- MnewTOold 9 3 put
- MnewTOold 10 3 put
-
- end % end of Qu@ternionDict
-
-} def
-%
-/SetMxyz {
- 1.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0 1.0 3 3 11 array astore /MnewTOold ED
- RotSequence cvx exec % Now create a new MnewTOold using xyz, etc.
-} def
-%
-/ConcatMQuaternion {
- MnewTOold % Push onto stack
- SetMQuaternion % Uses [xyz]RotVec and RotAngle to make MnewToOld
- MnewTOold matmul /MnewTOold ED
-} def
-%
-/ConcatMxyz {
- MnewTOold % Push onto stack
- SetMxyz % Uses RotX, etc. to set MnewTOold
- MnewTOold matmul /MnewTOold ED
-} def
-%
-/RotatePoint{
- MnewTOold x y z 3 1 5 array astore matmul
- 0 3 getinterval aload pop
- /z ED
- /y ED
- /x ED
-} def
-%
-/makeMoldTOnew {
- /MoldTOnew 11 array def
- MoldTOnew 0 MnewTOold 0 get put
- MoldTOnew 1 MnewTOold 3 get put
- MoldTOnew 2 MnewTOold 6 get put
- MoldTOnew 3 MnewTOold 1 get put
- MoldTOnew 4 MnewTOold 4 get put
- MoldTOnew 5 MnewTOold 7 get put
- MoldTOnew 6 MnewTOold 2 get put
- MoldTOnew 7 MnewTOold 5 get put
- MoldTOnew 8 MnewTOold 8 get put
- MoldTOnew 9 3 put
- MoldTOnew 10 3 put
-} def
-%
-/RotXaxis {
- eulerRotation
- {1 0 0}
- {makeMoldTOnew MoldTOnew 1 0 0 3 1 5 array astore matmul
- 0 3 getinterval aload pop} ifelse
- /zRotVec ED
- /yRotVec ED
- /xRotVec ED
- /RotAngle RotX def
- ConcatMQuaternion
-} def
-/RotYaxis {
- eulerRotation
- {0 1 0}
- {makeMoldTOnew MoldTOnew 0 1 0 3 1 5 array astore matmul
- 0 3 getinterval aload pop} ifelse
- /zRotVec ED
- /yRotVec ED
- /xRotVec ED
- /RotAngle RotY def
- ConcatMQuaternion
-} def
-/RotZaxis {
- eulerRotation
- {0 0 1}
- {makeMoldTOnew MoldTOnew 0 0 1 3 1 5 array astore matmul
- 0 3 getinterval aload pop} ifelse
- /zRotVec ED
- /yRotVec ED
- /xRotVec ED
- /RotAngle RotZ def
- ConcatMQuaternion
-} def
-/xyz { RotXaxis RotYaxis RotZaxis } def
-/yxz { RotYaxis RotXaxis RotZaxis } def
-/yzx { RotYaxis RotZaxis RotXaxis } def
-/xzy { RotXaxis RotZaxis RotYaxis } def
-/zxy { RotZaxis RotXaxis RotYaxis } def
-/zyx { RotZaxis RotYaxis RotXaxis } def
-/quaternion { } def % Null
-%
-/VecNorm { 0 exch { dup mul add } forall sqrt } def
-%
-/UnitVec { % on stack is [a]; returns a vector with [a][a]/|a|=1
- dup VecNorm /norm ED
- norm 0 lt {/norm 0 def} if
- { norm div } forall 3 array astore } def
-%
-/AxB { % on the stack are the two vectors [a][b]
- aload pop /b3 ED /b2 ED /b1 ED
- aload pop /a3 ED /a2 ED /a1 ED
- a2 b3 mul a3 b2 mul sub
- a3 b1 mul a1 b3 mul sub
- a1 b2 mul a2 b1 mul sub
- 3 array astore } def
-%
-/AaddB { % on the stack are the two vectors [a][b]
- aload pop /b3 ED /b2 ED /b1 ED
- aload pop /a3 ED /a2 ED /a1 ED
- a1 b1 add a2 b2 add a3 b3 add
- 3 array astore } def
-%
-/AmulC { % on stack is [a] and c; returns [a] mul c
- /factor ED { factor mul } forall 3 array astore } def
-%
-%
-/setColorLight { % expects 7 values on stack C M Y K xL yL zL
-% les rayons de lumi�re
- xLight dup mul yLight dup mul zLight dup mul add add sqrt /NormeLight ED
-% the color values
- /K ED
- /Yellow ED
- /Magenta ED
- /Cyan ED
-} def
-%
-/facetteSphere {
- newpath
- /Xpoint Rsphere theta cos mul phi cos mul CX add def
- /Ypoint Rsphere theta sin mul phi cos mul CY add def
- /Zpoint Rsphere phi sin mul CZ add def
- Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end moveto
- theta 1 theta increment add {%
- /theta1 ED
- /Xpoint Rsphere theta1 cos mul phi cos mul CX add def
- /Ypoint Rsphere theta1 sin mul phi cos mul CY add def
- /Zpoint Rsphere phi sin mul CZ add def
- Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
- } for
- phi 1 phi increment add {
- /phi1 ED
- /Xpoint Rsphere theta increment add cos mul phi1 cos mul CX add def
- /Ypoint Rsphere theta increment add sin mul phi1 cos mul CY add def
- /Zpoint Rsphere phi1 sin mul CZ add def
- Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
- } for
- theta increment add -1 theta {%
- /theta1 ED
- /Xpoint Rsphere theta1 cos mul phi increment add cos mul CX add def
- /Ypoint Rsphere theta1 sin mul phi increment add cos mul CY add def
- /Zpoint Rsphere phi increment add sin mul CZ add def
- Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
- } for
- phi increment add -1 phi {
- /phi1 ED
- /Xpoint Rsphere theta cos mul phi1 cos mul CX add def
- /Ypoint Rsphere theta sin mul phi1 cos mul CY add def
- /Zpoint Rsphere phi1 sin mul CZ add def
- Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
- } for
- closepath
-} def
-%
-/MaillageSphere {
-% on stack must be x y z Radius increment C M Y K
- setColorLight
- /increment ED
- /Rsphere ED
- /CZ ED
- /CY ED
- /CX ED
- /StartTheta 0 def
- /condition { PSfacetteSphere 0 ge } def
- -90 increment 90 increment sub {%
- /phi ED
- StartTheta increment 360 StartTheta add increment sub {%
- /theta ED
- % Centre de la facette
- /Xpoint Rsphere theta increment 2 div add cos mul phi increment 2 div add cos mul CX add def
- /Ypoint Rsphere theta increment 2 div add sin mul phi increment 2 div add cos mul CY add def
- /Zpoint Rsphere phi increment 2 div add sin mul CZ add def
- % normale � la facette
- /nXfacette Xpoint CX sub def
- /nYfacette Ypoint CY sub def
- /nZfacette Zpoint CZ sub def
- % test de visibilit�
- /PSfacetteSphere
- vX nXfacette mul
- vY nYfacette mul add
- vZ nZfacette mul add
- def
- condition {
- gsave
- facetteSphere
- /cosV { 1 xLight nXfacette mul
- yLight nYfacette mul
- zLight nZfacette mul
- add add
- NormeLight
- nXfacette dup mul
- nYfacette dup mul
- nZfacette dup mul
- add add sqrt mul div sub } bind def
- Cyan cosV mul Magenta cosV mul Yellow cosV mul K cosV mul setcmykcolor fill
- grestore
-% 0 setgray
- showgrid { facetteSphere stroke } if
- } if
- } for
- % /StartTheta StartTheta increment 2 div add def
- } for
-} def
-%
-%---------------------- Cylinder ---------------------------
-%
-/PlanCoupeCylinder { %
- /TableauxPoints [
- 0 1 359 {
- /phi ED
- [ Radius phi Height ConvCyl2d ] % on décrit le cercle
- } for
- ] def
- newpath
- TableauxPoints 0 get aload pop moveto
- 1 1 359 { TableauxPoints exch get aload pop lineto } for
- closepath
-} def
-%
-/facetteCylinder { %
- newpath
- Radius phi currentHeight ConvCyl2d moveto
- phi 1 phi dAngle add { % loop variable on stack
- Radius exch currentHeight ConvCyl2d lineto
- } for
- phi dAngle add -1 phi { % fill dHeight
- Radius exch currentHeight dHeight add ConvCyl2d lineto
- } for
- closepath
- } def % facette
-%
-/MaillageCylinder { % on stack true or false for saving values
- { setColorLight % expects 4 values on stack C M Y K
- /dHeight ED /dAngle ED /Height ED /Radius ED
- /CZ ED /CY ED /CX ED } if
-%
- 0 dHeight Height dHeight sub {
- /currentHeight ED
- 0 dAngle 360 dAngle sub {
- /phi ED
-% Normal vector of the center
- /nXfacetteCylinder Radius phi dAngle 2 div add cos mul CX add def
- /nYfacetteCylinder Radius phi dAngle 2 div add sin mul CY add def
- /nZfacetteCylinder currentHeight dHeight 2 div add CZ add def
- /NormeN
- nXfacetteCylinder dup mul
- nYfacetteCylinder dup mul
- nZfacetteCylinder dup mul
- add add sqrt def
- NormeN 0 eq { /NormeN 1e-10 def } if
-% test de visibilité
- /PSfacetteCylinder
- vX nXfacetteCylinder mul
- vY nYfacetteCylinder mul add
- vZ nZfacetteCylinder mul add def
- condition {
- facetteCylinder
- /cosV
- 1 xLight nXfacetteCylinder mul
- yLight nYfacetteCylinder mul
- zLight nZfacetteCylinder mul
- add add
- NormeLight NormeN mul div sub def
- Cyan Magenta Yellow K
- cosV mul 4 1 roll cosV mul 4 1 roll
- cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
- setcmykcolor fill
- showgrid {
- 0 setgray
- facetteCylinder % drawing the segments
- stroke } if
- } if
- } for
- } for
-} def
-%
-%------------------------ Cylinder type II -----------------------
-%
-/MoveTo { Conv3D2D moveto } def
-/LineTo { Conv3D2D lineto } def
-
-/IIIDEllipse { % x y z rA rB startAngle endAngle Wedge
- /dAngle 1 def
- /isWedge ED
- /endAngle ED
- /startAngle ED
- /radiusB ED
- /radiusA ED
- startAngle cos radiusA mul startAngle sin radiusB mul 0
- isWedge { 0 0 moveto LineTo }{ MoveTo } ifelse
- /Angle startAngle def
- startAngle dAngle endAngle {
- /Angle ED
- Angle cos radiusA mul Angle sin radiusB mul 0 LineTo
- } for
- isWedge { 0 0 lineto } if
-} def
-
-/IIIDCircle { % x y z r startAngle endAngle Wedge
- 7 3 roll % startAngle endAngle Wedge x y z r
- dup % startAngle endAngle Wedge x y z r r
- 8 -3 roll
- IIIDEllipse
-} def
-
-/IIIDWedge { % x y z r startAngle endAngle
- true IIIDCircle
-} def
-
-/IIIDCylinder {% x y z r h start end wedge
- /isWedge ED
- /increment ED
- /endAngle ED
- /startAngle ED
- /height ED
- /radius ED
- startAngle increment endAngle {
- /Angle ED
- radius Angle 0 ConvCylToCartesian MoveTo
- radius Angle height ConvCylToCartesian LineTo
- } for
- stroke
-} def
-%
-%---------------------- Box ---------------------------
-%
-/PlanCoupeBox { % x y z
- /TableauxPoints [
- [ CX CY CZ Height add ConvBox2d ] % top or bottom
- [ CX CY Depth add CZ Height add ConvBox2d ]
- [ CX Width add CY Depth add CZ Height add ConvBox2d ]
- [ CX Width add CY CZ Height add ConvBox2d ]
- [ CX CY CZ Height add ConvBox2d ] % bottom
- ] def
- newpath
- TableauxPoints 0 get aload pop moveto
- 0 1 3 {
- TableauxPoints exch get aload pop
- lineto } for
- closepath
-} def
-%
-/facetteBox { %
- newpath
- dup
- 1 eq { % back
- CX CY CZ ConvBox2d moveto
- CX CY CZ Height add ConvBox2d lineto
- CX Width add CY CZ Height add ConvBox2d lineto
- CX Width add CY CZ ConvBox2d lineto
- CX CY CZ ConvBox2d lineto
- } if
- dup
- 2 eq { % right
- CX CY CZ ConvBox2d moveto
- CX CY CZ Height add ConvBox2d lineto
- CX CY Depth add CZ Height add ConvBox2d lineto
- CX CY Depth add CZ ConvBox2d lineto
- CX CY CZ ConvBox2d lineto
- } if
- dup
- 3 eq { % left
- CX Width add CY CZ ConvBox2d moveto
- CX Width add CY Depth add CZ ConvBox2d lineto
- CX Width add CY Depth add CZ Height add ConvBox2d lineto
- CX Width add CY CZ Height add ConvBox2d lineto
- CX Width add CY CZ ConvBox2d lineto
- } if
- 4 eq { % front
- CX CY Depth add CZ ConvBox2d moveto
- CX CY Depth add CZ Height add ConvBox2d lineto
- CX Width add CY Depth add CZ Height add ConvBox2d lineto
- CX Width add CY Depth add CZ ConvBox2d lineto
- CX CY Depth add CZ ConvBox2d lineto
- } if
- closepath
- } def % facette
-%
-/TestPlane { % on stack x y z of the plane center and # of plane
- /nZfacetteBox ED /nYfacetteBox ED /nXfacetteBox ED
- /Plane ED
- /NormeN
- nXfacetteBox dup mul
- nYfacetteBox dup mul
- nZfacetteBox dup mul
- add add sqrt def
- NormeN 0 eq { /NormeN 1e-10 def } if
-% test de visibilit�
- /PSfacetteBox
- vX nXfacetteBox mul
- vY nYfacetteBox mul add
- vZ nZfacetteBox mul add def
- condition {
- Plane facetteBox
- /cosV
- 1 xLight nXfacetteBox mul
- yLight nYfacetteBox mul
- zLight nZfacetteBox mul
- add add
- NormeLight NormeN mul div sub def
- Cyan Magenta Yellow K
- cosV mul 4 1 roll cosV mul 4 1 roll
- cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
- setcmykcolor fill
- 0 setgray
- Plane facetteBox % drawing the segments
- stroke
- } if
-} def
-%
-/MaillageBox { % on stack true or false for saving values
- { setColorLight % expects 4 values on stack C M Y K
- /Depth ED /Height ED /Width ED
- /CZ ED /CY ED /CX ED } if
-%
-% Normal vector of the box center
- /PlaneSet [
- [ Width 2 div CX add
- CY
- Height 2 div CZ add ] % normal back
- [ CX
- Depth 2 div CY add
- Height 2 div CZ add ] % normal right
- [ Width CX add
- Depth 2 div CY add
- Height 2 div CZ add ] % normal left
- [ Width 2 div CX add
- Depth CY add
- Height 2 div CZ add ] % normal front
- ] def
- PlaneSequence length 0 eq { % user defined?
- Alpha abs cvi 360 mod /iAlpha ED
- iAlpha 90 lt { [ 1 2 3 4 ]
- }{ iAlpha 180 lt { [ 2 4 1 3 ]
- }{ iAlpha 270 lt { [ 3 4 1 2 ] }{ [ 3 1 4 2] } ifelse } ifelse } ifelse
- }{ PlaneSequence } ifelse
- { dup 1 sub PlaneSet exch get aload pop TestPlane } forall
-} def
-%
-%--------------------------- Paraboloid -----------------------------
-/PlanCoupeParaboloid {
- /Z height store
- /V {Z sqrt} bind def
- /TableauxPoints [
- 0 1 359 {
- /U ED [ U U Z V calculate2DPoint ] % on d�crit le cercle
- } for
- ] def
- newpath
- TableauxPoints 0 get aload pop moveto
- 0 1 359 {
- /compteur ED
- TableauxPoints compteur get aload pop
- lineto } for
- closepath
-} def
-%
-/facetteParaboloid{
- newpath
- U U Z V calculate2DPoint moveto
- U 1 U increment add {%
- /U1 ED
- U1 U1 Z V calculate2DPoint lineto
- } for
- Z pas10 Z pas add pas10 add{
- /Z1 ED
- /V {Z1 sqrt} bind def
- U1 U1 Z1 V calculate2DPoint lineto
- } for
- U increment add -1 U {%
- /U2 ED
- U2 U2 Z pas add V calculate2DPoint lineto
- } for
- Z pas add pas10 sub pas10 neg Z pas10 sub {
- /Z2 ED
- /V Z2 abs sqrt def
- U U Z2 V calculate2DPoint lineto
- } for
- closepath
-} def % facette
-%
-/MaillageParaboloid {
- % on stack true or false for saving values
- { setColorLight % expects 7 values on stack C M Y K xL yL zL
-% /CZ ED /CY ED /CX ED
- } if
- 0 pas height pas sub {%
- /Z ED
- /V Z sqrt def
- 0 increment 360 increment sub {%
- /U ED
-% Centre de la facette
- /Ucentre U increment 2 div add def
- /Vcentre Z pas 2 div add sqrt def
-% normale à la facette
- /nXfacetteParaboloid 2 Vcentre dup mul mul Ucentre cos mul radius mul def
- /nYfacetteParaboloid 2 Vcentre dup mul mul Ucentre sin mul radius mul def
- /nZfacetteParaboloid Vcentre neg radius dup mul mul def
- /NormeN {
- nXfacetteParaboloid dup mul
- nYfacetteParaboloid dup mul
- nZfacetteParaboloid dup mul
- add add sqrt} bind def
- NormeN 0 eq {/NormeN 1e-10 def} if
-% test de visibilit�
- /PSfacetteParaboloid vX nXfacetteParaboloid mul
- vY nYfacetteParaboloid mul add
- vZ nZfacetteParaboloid mul add def
- condition {
- facetteParaboloid
- /cosV 1 xLight nXfacetteParaboloid mul
- yLight nYfacetteParaboloid mul
- zLight nZfacetteParaboloid mul
- add add
- NormeLight
- NormeN mul div sub def
- Cyan Magenta Yellow K
- cosV mul 4 1 roll cosV mul 4 1 roll cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
- setcmykcolor fill
- showgrid {
- 0 setgray
- facetteParaboloid
- stroke } if
- } if
- } for
- } for
-} def
-%
-% ------------------------------------ math stuff ----------------------------------
-%
-% Matrix A in arrays of rows A[[row1][row2]...]
-% with [row1]=[a11 a12 ... b1]
-% returns on stack solution vector X=[x1 x2 ... xn]
-/SolveLinEqSystem { % on stack matrix M=[A,b] (A*x=b)
- 10 dict begin % hold all ocal
- /A exch def
- /Rows A length def % Rows = number of rows
- /Cols A 0 get length def % Cols = number of columns
- /Index [ 0 1 Rows 1 sub { } for ] def % Index = [0 1 2 ... Rows-1]
- /col 0 def
- /row 0 def
- /PR Rows array def % PR[c] = pivot row for row row
- { % starts the loop, find pivot entry in row r
- col Cols ge row Rows ge or { exit } if % col < Cols and row < Rows else exit
- /pRow row def % pRow = pivot row
- /max A row get col get abs def % get A[row[col]], first A[0,0]
- row 1 add 1 Rows 1 sub { % starts for loop 1 1 Rows-1
- /j exch def % index counter
- /x A j get col get abs def % get A[j[r]]
- x max gt { % x>max, then save position
- /pRow j def
- /max x def
- } if
- } for % now we have the row with biggest A[0,1]
- % with pRow = the pivot row
- max 0 gt { % swap entries pRow and row in i
- /tmp Index row get def
- Index row Index pRow get put
- Index pRow tmp put % and columns pRow and row in A
- /tmp A row get def
- A row A pRow get put
- A pRow tmp put % pivot
- /row0 A row get def % the pivoting row
- /p0 row0 col get def % the pivot value
- row 1 add 1 Rows 1 sub { % start for loop
- /j exch def
- /c1 A j get def
- /p c1 col get p0 div def
- c1 col p put % subtract (p1/p0)*row[i] from row[j]
- col 1 add 1 Cols 1 sub { % start for loop
- /i exch def
- c1 dup i exch % c1 i c1
- i get row0 i get p mul sub put
- } for
- } for
- PR row col put
- /col col 1 add def
- /row row 1 add def
- }{ % all zero entries
- /row row 1 add def % continue loop with same row
- } ifelse
- } loop
- /X A def % solution vector
- A Rows 1 sub get dup
- Cols 1 sub get exch
- Cols 2 sub get div
- X Rows 1 sub 3 -1 roll put % X[n]
- Rows 2 sub -1 0 { % for loop to calculate X[i]
- /xi exch def % current index
- A xi get % i-th row
- /Axi exch def
- /sum 0 def
- Cols 2 sub -1 xi 1 add {
- /n exch def
- /sum sum Axi n get X n get mul add def
- } for
- Axi Cols 1 sub get % b=Axi[Cols-1]
- sum sub % b-sum
- Axi xi get div % b-sum / Axi[xi]
- X xi 3 -1 roll put % X[xi]
- } for
- X
- end
-} def
-%
-% u -> e_u with |e_u|=1
-/vector-unit { 1 dict begin
- dup vector-length 1 exch div
- vector-scale
- end
-} def
-%
-% u v -> u+v
-/vector-add { 1 dict begin
- /v exch def
- [ exch
- 0 % u i
- exch { % i u[i]
- v % i u[i] v
- 2 index get add % i u[i]+v[i]
- exch 1 add % i
- } forall
- pop
- ]
- end
-} def
-%
-% u v -> u-v
-/vector-sub { 1 dict begin
- /v exch def
- [ exch
- 0 % u i
- exch { % i u[i]
- v % i u[i] v
- 2 index get sub % i u[i]+v[i]
- exch 1 add % i
- } forall
- pop
- ]
-end } def
-%
-% [v] c -> [c.v]
-/vector-scale { 1 dict begin
- /c exch def
- [ exch
- { % s i u[i]
- c mul % s i u[i] v
- } forall
- ]
- end } def
-%
-%
-% [u] [v] -> [u x v]
-/vector-prod { %% x1 y1 z1 x2 y2 z2
-6 dict begin
- aload pop
- /zp exch def /yp exch def /xp exch def
- aload pop
- /z exch def /y exch def /x exch def
- [ y zp mul z yp mul sub
- z xp mul x zp mul sub
- x yp mul y xp mul sub ]
-end
-} def
-%
-% [u] [v] -> u.v
-/vector-mul { %% x1 y1 z1 x2 y2 z2
-6 dict begin
- aload pop
- /zp exch def /yp exch def /xp exch def
- aload pop
- /z exch def /y exch def /x exch def
- x xp mul y yp mul add z zp mul add
-end
-} def
-%
-% [x y z ... ] -> r
-% watch out for overflow
-/vector-length { 1 dict begin
-dup
-% find maximum entry
-/max 0 def
-{ % max
- abs dup max gt {
- % if abs gt max
- /max exch def
- } {
- pop
- } ifelse
-} forall
-max 0 ne {
- 0 exch
- { % 0 v[i]
- max div dup mul add
- } forall
- sqrt
- max mul
-} {
- pop 0
-} ifelse
-end } def
-%
-end % tx@3DPlotDict
-
-
-%%EndProcSet
%%BeginProcSet: texps.pro 0 0
%!
TeXDict begin/rf{findfont dup length 1 add dict begin{1 index/FID ne 2
index/UniqueID ne and{def}{pop pop}ifelse}forall[1 index 0 6 -1 roll
-exec 0 exch 5 -1 roll VResolution Resolution div mul neg 0 0]/Metrics
-exch def dict begin Encoding{exch dup type/integertype ne{pop pop 1 sub
-dup 0 le{pop}{[}ifelse}{FontMatrix 0 get div Metrics 0 get div def}
-ifelse}forall Metrics/Metrics currentdict end def[2 index currentdict
-end definefont 3 -1 roll makefont/setfont cvx]cvx def}def/ObliqueSlant{
-dup sin S cos div neg}B/SlantFont{4 index mul add}def/ExtendFont{3 -1
-roll mul exch}def/ReEncodeFont{CharStrings rcheck{/Encoding false def
-dup[exch{dup CharStrings exch known not{pop/.notdef/Encoding true def}
-if}forall Encoding{]exch pop}{cleartomark}ifelse}if/Encoding exch def}
-def end
+exec 0 exch 5 -1 roll VResolution Resolution div mul neg 0 0]FontType 0
+ne{/Metrics exch def dict begin Encoding{exch dup type/integertype ne{
+pop pop 1 sub dup 0 le{pop}{[}ifelse}{FontMatrix 0 get div Metrics 0 get
+div def}ifelse}forall Metrics/Metrics currentdict end def}{{1 index type
+/nametype eq{exit}if exch pop}loop}ifelse[2 index currentdict end
+definefont 3 -1 roll makefont/setfont cvx]cvx def}def/ObliqueSlant{dup
+sin S cos div neg}B/SlantFont{4 index mul add}def/ExtendFont{3 -1 roll
+mul exch}def/ReEncodeFont{CharStrings rcheck{/Encoding false def dup[
+exch{dup CharStrings exch known not{pop/.notdef/Encoding true def}if}
+forall Encoding{]exch pop}{cleartomark}ifelse}if/Encoding exch def}def
+end
%%EndProcSet
%%BeginProcSet: special.pro 0 0
@@ -4995,25 +4077,26 @@ currentpoint TR/psf$ury psfts/psf$urx psfts/psf$lly psfts/psf$llx psfts
/psf$y psfts/psf$x psfts currentpoint/psf$cy X/psf$cx X/psf$sx psf$x
psf$urx psf$llx sub div N/psf$sy psf$y psf$ury psf$lly sub div N psf$sx
psf$sy scale psf$cx psf$sx div psf$llx sub psf$cy psf$sy div psf$ury sub
-TR/showpage{}N/erasepage{}N/copypage{}N/p 3 def @MacSetUp}N/doclip{
-psf$llx psf$lly psf$urx psf$ury currentpoint 6 2 roll newpath 4 copy 4 2
-roll moveto 6 -1 roll S lineto S lineto S lineto closepath clip newpath
-moveto}N/endTexFig{end psf$SavedState restore}N/@beginspecial{SDict
-begin/SpecialSave save N gsave normalscale currentpoint TR
-@SpecialDefaults count/ocount X/dcount countdictstack N}N/@setspecial{
-CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs neg 0 rlineto
-closepath clip}if ho vo TR hsc vsc scale ang rotate rwiSeen{rwi urx llx
-sub div rhiSeen{rhi ury lly sub div}{dup}ifelse scale llx neg lly neg TR
-}{rhiSeen{rhi ury lly sub div dup scale llx neg lly neg TR}if}ifelse
-CLIP 2 eq{newpath llx lly moveto urx lly lineto urx ury lineto llx ury
-lineto closepath clip}if/showpage{}N/erasepage{}N/copypage{}N newpath}N
-/@endspecial{count ocount sub{pop}repeat countdictstack dcount sub{end}
-repeat grestore SpecialSave restore end}N/@defspecial{SDict begin}N
-/@fedspecial{end}B/li{lineto}B/rl{rlineto}B/rc{rcurveto}B/np{/SaveX
-currentpoint/SaveY X N 1 setlinecap newpath}N/st{stroke SaveX SaveY
-moveto}N/fil{fill SaveX SaveY moveto}N/ellipse{/endangle X/startangle X
-/yrad X/xrad X/savematrix matrix currentmatrix N TR xrad yrad scale 0 0
-1 startangle endangle arc savematrix setmatrix}N end
+TR/showpage{}N/erasepage{}N/setpagedevice{pop}N/copypage{}N/p 3 def
+@MacSetUp}N/doclip{psf$llx psf$lly psf$urx psf$ury currentpoint 6 2 roll
+newpath 4 copy 4 2 roll moveto 6 -1 roll S lineto S lineto S lineto
+closepath clip newpath moveto}N/endTexFig{end psf$SavedState restore}N
+/@beginspecial{SDict begin/SpecialSave save N gsave normalscale
+currentpoint TR @SpecialDefaults count/ocount X/dcount countdictstack N}
+N/@setspecial{CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs
+neg 0 rlineto closepath clip}if ho vo TR hsc vsc scale ang rotate
+rwiSeen{rwi urx llx sub div rhiSeen{rhi ury lly sub div}{dup}ifelse
+scale llx neg lly neg TR}{rhiSeen{rhi ury lly sub div dup scale llx neg
+lly neg TR}if}ifelse CLIP 2 eq{newpath llx lly moveto urx lly lineto urx
+ury lineto llx ury lineto closepath clip}if/showpage{}N/erasepage{}N
+/setpagedevice{pop}N/copypage{}N newpath}N/@endspecial{count ocount sub{
+pop}repeat countdictstack dcount sub{end}repeat grestore SpecialSave
+restore end}N/@defspecial{SDict begin}N/@fedspecial{end}B/li{lineto}B
+/rl{rlineto}B/rc{rcurveto}B/np{/SaveX currentpoint/SaveY X N 1
+setlinecap newpath}N/st{stroke SaveX SaveY moveto}N/fil{fill SaveX SaveY
+moveto}N/ellipse{/endangle X/startangle X/yrad X/xrad X/savematrix
+matrix currentmatrix N TR xrad yrad scale 0 0 1 startangle endangle arc
+savematrix setmatrix}N end
%%EndProcSet
%%BeginProcSet: color.pro 0 0
@@ -5561,28 +4644,32 @@ TeXDict begin
%%EndSetup
%%Page: 1 1
TeXDict begin 1 0 bop 0 TeXcolorgray Black 165 192 a
-tx@Dict begin gsave STV CP T /ps@rot 0 def grestore end
+ /pssetRGBcolor /setrgbcolor load def /pssetCMYKcolor /setcmykcolor
+load def /pssetGraycolor /setgray load def
165 192 a 165 192 a
+tx@Dict begin gsave STV CP T /ps@rot 0 def grestore end
+ 165 192 a 165 192 a
tx@Dict begin gsave STV CP T /ps@refangle 0. def grestore end
- 165 192 a 0 TeXcolorgray 165 192
-a
+ 165 192 a 0 TeXcolorgray
+165 192 a
tx@Dict begin gsave STV CP T /ps@rot 0 def grestore end
165 192 a 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
998 901 a 998 901 a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)-(-3.00))^2))|-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)-(-3.00))^2))*((-3.00)-(-3.00))
) AlgParser cvx def end
- 998 901 a 998
-901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+ 998
+901 a 998 901 a
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
- 998 901 a @beginspecial @setspecial
+ 998 901 a @beginspecial
+@setspecial
tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { BeginArrow
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
@@ -5595,7 +4682,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -5609,23 +4696,22 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
-
-
+
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
- 998 901 a 998 901 a
+ 998 901 a 998 901
+a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+((-3.00)-(-2.6))^2))|-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)-(-2.6))^2))*((-3.00)-(-2.6))
) AlgParser cvx def end
- 998 901 a
-998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+ 998 901 a 998 901 a
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5633,30 +4719,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -5665,12 +4751,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+((-3.00)-(-2.2))^2))|-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)-(-2.2))^2))*((-3.00)-(-2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5685,7 +4771,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5700,7 +4786,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -5710,12 +4796,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+((-3.00)-(-1.8))^2))|-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)-(-1.8))^2))*((-3.00)-(-1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5723,14 +4809,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5744,8 +4830,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -5755,12 +4841,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+((-3.00)-(-1.4))^2))|-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)-(-1.4))^2))*((-3.00)-(-1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5775,7 +4861,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5790,7 +4876,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -5800,12 +4886,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+((-3.00)-(-1.0))^2))|-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)-(-1.0))^2))*((-3.00)-(-1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5813,14 +4899,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5834,8 +4920,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -5845,12 +4931,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+((-3.00)-(-0.6))^2))|-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)-(-0.6))^2))*((-3.00)-(-0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5865,7 +4951,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5880,7 +4966,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -5890,12 +4976,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+((-3.00)-(-0.2))^2))|-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)-(-0.2))^2))*((-3.00)-(-0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5903,14 +4989,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5924,8 +5010,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -5935,12 +5021,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+((-3.00)-(0.2))^2))|-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)-(0.2))^2))*((-3.00)-(0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5955,7 +5041,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5970,7 +5056,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -5980,12 +5066,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+((-3.00)-(0.6))^2))|-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)-(0.6))^2))*((-3.00)-(0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5993,14 +5079,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6014,8 +5100,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6025,12 +5111,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+((-3.00)-(1.0))^2))|-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)-(1.0))^2))*((-3.00)-(1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6038,14 +5124,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6059,9 +5145,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6070,12 +5155,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+((-3.00)-(1.4))^2))|-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)-(1.4))^2))*((-3.00)-(1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6083,14 +5168,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6104,9 +5189,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6115,12 +5199,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+((-3.00)-(1.8))^2))|-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)-(1.8))^2))*((-3.00)-(1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6135,7 +5219,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6150,7 +5234,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6159,12 +5243,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+((-3.00)-(2.2))^2))|-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)-(2.2))^2))*((-3.00)-(2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6179,7 +5263,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6194,7 +5278,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6203,12 +5287,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+((-3.00)-(2.6))^2))|-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)-(2.6))^2))*((-3.00)-(2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6223,7 +5307,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6238,7 +5322,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6247,12 +5331,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+((-2.6)-(-3.00))^2))|-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)-(-3.00))^2))*((-2.6)-(-3.00))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6260,30 +5344,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6292,12 +5376,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)-(-2.6))^2))|-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)-(-2.6))^2))*((-2.6)-(-2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6313,7 +5397,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -6327,7 +5411,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -6337,12 +5421,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+((-2.6)-(-2.2))^2))|-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)-(-2.2))^2))*((-2.6)-(-2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6357,7 +5441,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6372,7 +5456,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6382,12 +5466,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+((-2.6)-(-1.8))^2))|-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)-(-1.8))^2))*((-2.6)-(-1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6402,7 +5486,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6417,7 +5501,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6427,12 +5511,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+((-2.6)-(-1.4))^2))|-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)-(-1.4))^2))*((-2.6)-(-1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6447,7 +5531,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6462,7 +5546,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6472,12 +5556,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+((-2.6)-(-1.0))^2))|-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)-(-1.0))^2))*((-2.6)-(-1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6492,7 +5576,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6507,7 +5591,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6517,12 +5601,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+((-2.6)-(-0.6))^2))|-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)-(-0.6))^2))*((-2.6)-(-0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6530,14 +5614,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6551,8 +5635,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6562,12 +5646,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+((-2.6)-(-0.2))^2))|-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)-(-0.2))^2))*((-2.6)-(-0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6575,14 +5659,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6596,8 +5680,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6607,12 +5691,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+((-2.6)-(0.2))^2))|-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)-(0.2))^2))*((-2.6)-(0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6620,14 +5704,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6641,8 +5725,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6652,12 +5736,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+((-2.6)-(0.6))^2))|-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)-(0.6))^2))*((-2.6)-(0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6665,14 +5749,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6686,8 +5770,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6697,12 +5781,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+((-2.6)-(1.0))^2))|-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)-(1.0))^2))*((-2.6)-(1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6710,14 +5794,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6731,8 +5815,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6742,12 +5826,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+((-2.6)-(1.4))^2))|-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)-(1.4))^2))*((-2.6)-(1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6755,14 +5839,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6776,9 +5860,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6787,12 +5870,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+((-2.6)-(1.8))^2))|-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)-(1.8))^2))*((-2.6)-(1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6800,14 +5883,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6821,9 +5904,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6832,12 +5914,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+((-2.6)-(2.2))^2))|-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)-(2.2))^2))*((-2.6)-(2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6852,7 +5934,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6867,7 +5949,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6876,12 +5958,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+((-2.6)-(2.6))^2))|-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)-(2.6))^2))*((-2.6)-(2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6896,7 +5978,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6911,7 +5993,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6920,12 +6002,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+((-2.2)-(-3.00))^2))|-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)-(-3.00))^2))*((-2.2)-(-3.00))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6940,7 +6022,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6955,7 +6037,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6965,12 +6047,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+((-2.2)-(-2.6))^2))|-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)-(-2.6))^2))*((-2.2)-(-2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6985,7 +6067,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7000,7 +6082,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7010,12 +6092,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)-(-2.2))^2))|-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)-(-2.2))^2))*((-2.2)-(-2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7031,7 +6113,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -7045,7 +6127,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -7055,12 +6137,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+((-2.2)-(-1.8))^2))|-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)-(-1.8))^2))*((-2.2)-(-1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7068,30 +6150,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -7100,12 +6182,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+((-2.2)-(-1.4))^2))|-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)-(-1.4))^2))*((-2.2)-(-1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7120,7 +6202,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7135,7 +6217,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7145,12 +6227,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+((-2.2)-(-1.0))^2))|-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)-(-1.0))^2))*((-2.2)-(-1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7158,14 +6240,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7179,8 +6261,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7190,12 +6272,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+((-2.2)-(-0.6))^2))|-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)-(-0.6))^2))*((-2.2)-(-0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7203,14 +6285,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7224,8 +6306,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7235,12 +6317,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+((-2.2)-(-0.2))^2))|-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)-(-0.2))^2))*((-2.2)-(-0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7248,14 +6330,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7269,8 +6351,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7280,12 +6362,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+((-2.2)-(0.2))^2))|-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)-(0.2))^2))*((-2.2)-(0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7300,7 +6382,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7315,7 +6397,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7325,12 +6407,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+((-2.2)-(0.6))^2))|-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)-(0.6))^2))*((-2.2)-(0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7338,14 +6420,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7359,8 +6441,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7370,12 +6452,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+((-2.2)-(1.0))^2))|-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)-(1.0))^2))*((-2.2)-(1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7390,7 +6472,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7405,7 +6487,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7415,12 +6497,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+((-2.2)-(1.4))^2))|-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)-(1.4))^2))*((-2.2)-(1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7435,7 +6517,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7450,7 +6532,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7460,12 +6542,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+((-2.2)-(1.8))^2))|-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)-(1.8))^2))*((-2.2)-(1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7473,14 +6555,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7494,9 +6576,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -7505,12 +6586,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+((-2.2)-(2.2))^2))|-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)-(2.2))^2))*((-2.2)-(2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7518,14 +6599,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7539,9 +6620,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -7550,12 +6630,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+((-2.2)-(2.6))^2))|-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)-(2.6))^2))*((-2.2)-(2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7570,7 +6650,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7585,7 +6665,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -7594,12 +6674,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+((-1.8)-(-3.00))^2))|-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)-(-3.00))^2))*((-1.8)-(-3.00))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7607,14 +6687,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7628,8 +6708,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7639,12 +6719,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+((-1.8)-(-2.6))^2))|-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)-(-2.6))^2))*((-1.8)-(-2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7659,7 +6739,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7674,7 +6754,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7684,12 +6764,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+((-1.8)-(-2.2))^2))|-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)-(-2.2))^2))*((-1.8)-(-2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7697,30 +6777,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -7729,12 +6809,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)-(-1.8))^2))|-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)-(-1.8))^2))*((-1.8)-(-1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7750,7 +6830,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -7764,7 +6844,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -7774,12 +6854,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+((-1.8)-(-1.4))^2))|-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)-(-1.4))^2))*((-1.8)-(-1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7794,7 +6874,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7809,7 +6889,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7819,12 +6899,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+((-1.8)-(-1.0))^2))|-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)-(-1.0))^2))*((-1.8)-(-1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7839,7 +6919,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7854,7 +6934,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7864,12 +6944,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+((-1.8)-(-0.6))^2))|-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)-(-0.6))^2))*((-1.8)-(-0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7877,14 +6957,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7898,8 +6978,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7909,12 +6989,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+((-1.8)-(-0.2))^2))|-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)-(-0.2))^2))*((-1.8)-(-0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7929,7 +7009,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7944,7 +7024,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7954,12 +7034,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+((-1.8)-(0.2))^2))|-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)-(0.2))^2))*((-1.8)-(0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7967,14 +7047,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7988,8 +7068,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7999,12 +7079,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+((-1.8)-(0.6))^2))|-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)-(0.6))^2))*((-1.8)-(0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8012,14 +7092,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8033,8 +7113,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8044,12 +7124,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+((-1.8)-(1.0))^2))|-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)-(1.0))^2))*((-1.8)-(1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8057,14 +7137,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8078,8 +7158,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8089,12 +7169,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+((-1.8)-(1.4))^2))|-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)-(1.4))^2))*((-1.8)-(1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8109,7 +7189,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8124,7 +7204,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8134,12 +7214,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+((-1.8)-(1.8))^2))|-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)-(1.8))^2))*((-1.8)-(1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8147,14 +7227,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8168,8 +7248,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8179,12 +7259,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+((-1.8)-(2.2))^2))|-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)-(2.2))^2))*((-1.8)-(2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8192,14 +7272,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8213,9 +7293,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8224,12 +7303,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+((-1.8)-(2.6))^2))|-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)-(2.6))^2))*((-1.8)-(2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8237,14 +7316,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8258,9 +7337,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8269,12 +7347,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+((-1.4)-(-3.00))^2))|-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)-(-3.00))^2))*((-1.4)-(-3.00))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8289,7 +7367,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8304,7 +7382,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8314,12 +7392,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+((-1.4)-(-2.6))^2))|-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)-(-2.6))^2))*((-1.4)-(-2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8334,7 +7412,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8349,7 +7427,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8359,12 +7437,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+((-1.4)-(-2.2))^2))|-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)-(-2.2))^2))*((-1.4)-(-2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8379,7 +7457,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8394,7 +7472,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8404,12 +7482,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+((-1.4)-(-1.8))^2))|-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)-(-1.8))^2))*((-1.4)-(-1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8424,7 +7502,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8439,7 +7517,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8449,12 +7527,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)-(-1.4))^2))|-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)-(-1.4))^2))*((-1.4)-(-1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8470,7 +7548,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -8484,7 +7562,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -8494,12 +7572,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+((-1.4)-(-1.0))^2))|-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)-(-1.0))^2))*((-1.4)-(-1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8507,30 +7585,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8539,12 +7617,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+((-1.4)-(-0.6))^2))|-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)-(-0.6))^2))*((-1.4)-(-0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8552,14 +7630,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8573,8 +7651,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8584,12 +7662,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+((-1.4)-(-0.2))^2))|-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)-(-0.2))^2))*((-1.4)-(-0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8597,14 +7675,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8618,8 +7696,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8629,12 +7707,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+((-1.4)-(0.2))^2))|-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)-(0.2))^2))*((-1.4)-(0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8642,14 +7720,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8663,8 +7741,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8674,12 +7752,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+((-1.4)-(0.6))^2))|-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)-(0.6))^2))*((-1.4)-(0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8687,14 +7765,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8708,8 +7786,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8719,12 +7797,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+((-1.4)-(1.0))^2))|-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)-(1.0))^2))*((-1.4)-(1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8739,7 +7817,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8754,7 +7832,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8764,12 +7842,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+((-1.4)-(1.4))^2))|-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)-(1.4))^2))*((-1.4)-(1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8784,7 +7862,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8799,7 +7877,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8809,12 +7887,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+((-1.4)-(1.8))^2))|-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)-(1.8))^2))*((-1.4)-(1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8829,7 +7907,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8844,7 +7922,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8854,12 +7932,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+((-1.4)-(2.2))^2))|-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)-(2.2))^2))*((-1.4)-(2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8874,7 +7952,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8889,7 +7967,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8899,12 +7977,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+((-1.4)-(2.6))^2))|-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)-(2.6))^2))*((-1.4)-(2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8912,14 +7990,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8933,9 +8011,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8944,12 +8021,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+((-1.0)-(-3.00))^2))|-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)-(-3.00))^2))*((-1.0)-(-3.00))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8957,14 +8034,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8978,8 +8055,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8989,12 +8066,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+((-1.0)-(-2.6))^2))|-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)-(-2.6))^2))*((-1.0)-(-2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9009,7 +8086,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9024,7 +8101,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9034,12 +8111,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+((-1.0)-(-2.2))^2))|-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)-(-2.2))^2))*((-1.0)-(-2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9047,14 +8124,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9068,8 +8145,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9079,12 +8156,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+((-1.0)-(-1.8))^2))|-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)-(-1.8))^2))*((-1.0)-(-1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9099,7 +8176,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9114,7 +8191,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9124,12 +8201,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+((-1.0)-(-1.4))^2))|-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)-(-1.4))^2))*((-1.0)-(-1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9137,30 +8214,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -9169,12 +8246,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)-(-1.0))^2))|-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)-(-1.0))^2))*((-1.0)-(-1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9190,7 +8267,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -9204,7 +8281,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -9214,12 +8291,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+((-1.0)-(-0.6))^2))|-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)-(-0.6))^2))*((-1.0)-(-0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9227,30 +8304,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -9259,12 +8336,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+((-1.0)-(-0.2))^2))|-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)-(-0.2))^2))*((-1.0)-(-0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9279,7 +8356,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9294,7 +8371,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9304,12 +8381,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+((-1.0)-(0.2))^2))|-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)-(0.2))^2))*((-1.0)-(0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9317,14 +8394,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9338,8 +8415,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9349,12 +8426,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+((-1.0)-(0.6))^2))|-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)-(0.6))^2))*((-1.0)-(0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9369,7 +8446,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9384,7 +8461,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9394,12 +8471,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+((-1.0)-(1.0))^2))|-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)-(1.0))^2))*((-1.0)-(1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9407,14 +8484,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9428,8 +8505,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9439,12 +8516,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+((-1.0)-(1.4))^2))|-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)-(1.4))^2))*((-1.0)-(1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9459,7 +8536,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9474,7 +8551,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9484,12 +8561,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+((-1.0)-(1.8))^2))|-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)-(1.8))^2))*((-1.0)-(1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9497,14 +8574,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9518,8 +8595,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9529,12 +8606,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+((-1.0)-(2.2))^2))|-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)-(2.2))^2))*((-1.0)-(2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9549,7 +8626,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9564,7 +8641,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9574,12 +8651,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+((-1.0)-(2.6))^2))|-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)-(2.6))^2))*((-1.0)-(2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9587,14 +8664,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9608,8 +8685,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9619,12 +8696,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+((-0.6)-(-3.00))^2))|-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)-(-3.00))^2))*((-0.6)-(-3.00))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9639,7 +8716,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9654,7 +8731,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9664,12 +8741,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+((-0.6)-(-2.6))^2))|-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)-(-2.6))^2))*((-0.6)-(-2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9677,14 +8754,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9698,8 +8775,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9709,12 +8786,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+((-0.6)-(-2.2))^2))|-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)-(-2.2))^2))*((-0.6)-(-2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9722,14 +8799,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9743,8 +8820,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9754,12 +8831,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+((-0.6)-(-1.8))^2))|-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)-(-1.8))^2))*((-0.6)-(-1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9767,14 +8844,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9788,8 +8865,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9799,12 +8876,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+((-0.6)-(-1.4))^2))|-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)-(-1.4))^2))*((-0.6)-(-1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9812,14 +8889,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9833,8 +8910,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9844,12 +8921,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+((-0.6)-(-1.0))^2))|-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)-(-1.0))^2))*((-0.6)-(-1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9857,30 +8934,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -9889,12 +8966,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)-(-0.6))^2))|-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)-(-0.6))^2))*((-0.6)-(-0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9910,7 +8987,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -9924,7 +9001,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -9934,12 +9011,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+((-0.6)-(-0.2))^2))|-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)-(-0.2))^2))*((-0.6)-(-0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9954,7 +9031,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9969,7 +9046,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9979,12 +9056,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+((-0.6)-(0.2))^2))|-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)-(0.2))^2))*((-0.6)-(0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9999,7 +9076,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10014,7 +9091,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10024,12 +9101,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+((-0.6)-(0.6))^2))|-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)-(0.6))^2))*((-0.6)-(0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10044,7 +9121,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10059,7 +9136,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10069,12 +9146,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+((-0.6)-(1.0))^2))|-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)-(1.0))^2))*((-0.6)-(1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10089,7 +9166,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10104,7 +9181,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10114,12 +9191,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+((-0.6)-(1.4))^2))|-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)-(1.4))^2))*((-0.6)-(1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10127,14 +9204,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10148,8 +9225,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10159,12 +9236,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+((-0.6)-(1.8))^2))|-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)-(1.8))^2))*((-0.6)-(1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10172,14 +9249,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10193,8 +9270,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10204,12 +9281,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+((-0.6)-(2.2))^2))|-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)-(2.2))^2))*((-0.6)-(2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10217,14 +9294,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10238,8 +9315,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10249,12 +9326,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+((-0.6)-(2.6))^2))|-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)-(2.6))^2))*((-0.6)-(2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10262,14 +9339,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10283,8 +9360,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10294,12 +9371,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+((-0.2)-(-3.00))^2))|-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)-(-3.00))^2))*((-0.2)-(-3.00))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10307,14 +9384,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10328,8 +9405,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10339,12 +9416,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+((-0.2)-(-2.6))^2))|-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)-(-2.6))^2))*((-0.2)-(-2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10352,14 +9429,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10373,8 +9450,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10384,12 +9461,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+((-0.2)-(-2.2))^2))|-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)-(-2.2))^2))*((-0.2)-(-2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10397,14 +9474,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10418,8 +9495,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10429,12 +9506,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+((-0.2)-(-1.8))^2))|-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)-(-1.8))^2))*((-0.2)-(-1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10449,7 +9526,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10464,7 +9541,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10474,12 +9551,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+((-0.2)-(-1.4))^2))|-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)-(-1.4))^2))*((-0.2)-(-1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10487,14 +9564,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10508,8 +9585,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10519,12 +9596,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+((-0.2)-(-1.0))^2))|-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)-(-1.0))^2))*((-0.2)-(-1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10539,7 +9616,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10554,7 +9631,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10564,12 +9641,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+((-0.2)-(-0.6))^2))|-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)-(-0.6))^2))*((-0.2)-(-0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10584,7 +9661,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10599,7 +9676,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10609,12 +9686,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)-(-0.2))^2))|-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)-(-0.2))^2))*((-0.2)-(-0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10630,7 +9707,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -10644,7 +9721,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -10654,12 +9731,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+((-0.2)-(0.2))^2))|-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)-(0.2))^2))*((-0.2)-(0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10667,30 +9744,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10699,12 +9776,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+((-0.2)-(0.6))^2))|-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)-(0.6))^2))*((-0.2)-(0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10719,7 +9796,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10734,7 +9811,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10744,12 +9821,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+((-0.2)-(1.0))^2))|-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)-(1.0))^2))*((-0.2)-(1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10757,14 +9834,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10778,8 +9855,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10789,12 +9866,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+((-0.2)-(1.4))^2))|-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)-(1.4))^2))*((-0.2)-(1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10802,14 +9879,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10823,8 +9900,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10834,12 +9911,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+((-0.2)-(1.8))^2))|-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)-(1.8))^2))*((-0.2)-(1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10847,14 +9924,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10868,8 +9945,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10879,12 +9956,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+((-0.2)-(2.2))^2))|-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)-(2.2))^2))*((-0.2)-(2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10899,7 +9976,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10914,7 +9991,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10924,12 +10001,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+((-0.2)-(2.6))^2))|-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)-(2.6))^2))*((-0.2)-(2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10937,14 +10014,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10958,8 +10035,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10969,12 +10046,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+((0.2)-(-3.00))^2))|0.2+((0.35)*t)*(1/sqrt(1+((0.2)-(-3.00))^2))*((0.2)-(-3.00))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10989,7 +10066,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11004,7 +10081,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11014,12 +10091,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+((0.2)-(-2.6))^2))|0.2+((0.35)*t)*(1/sqrt(1+((0.2)-(-2.6))^2))*((0.2)-(-2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11027,14 +10104,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11048,8 +10125,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11059,12 +10136,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+((0.2)-(-2.2))^2))|0.2+((0.35)*t)*(1/sqrt(1+((0.2)-(-2.2))^2))*((0.2)-(-2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11079,7 +10156,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11094,7 +10171,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11104,12 +10181,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+((0.2)-(-1.8))^2))|0.2+((0.35)*t)*(1/sqrt(1+((0.2)-(-1.8))^2))*((0.2)-(-1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11117,14 +10194,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11138,8 +10215,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11149,12 +10226,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+((0.2)-(-1.4))^2))|0.2+((0.35)*t)*(1/sqrt(1+((0.2)-(-1.4))^2))*((0.2)-(-1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11162,14 +10239,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11183,8 +10260,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11194,12 +10271,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+((0.2)-(-1.0))^2))|0.2+((0.35)*t)*(1/sqrt(1+((0.2)-(-1.0))^2))*((0.2)-(-1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11207,14 +10284,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11228,8 +10305,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11239,12 +10316,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+((0.2)-(-0.6))^2))|0.2+((0.35)*t)*(1/sqrt(1+((0.2)-(-0.6))^2))*((0.2)-(-0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11259,7 +10336,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11274,7 +10351,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11284,12 +10361,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+((0.2)-(-0.2))^2))|0.2+((0.35)*t)*(1/sqrt(1+((0.2)-(-0.2))^2))*((0.2)-(-0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11297,30 +10374,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11329,12 +10406,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+((0.2)-(0.2))^2))|0.2+((0.35)*t)*(1/sqrt(1+((0.2)-(0.2))^2))*((0.2)-(0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11350,7 +10427,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -11364,7 +10441,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -11374,12 +10451,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+((0.2)-(0.6))^2))|0.2+((0.35)*t)*(1/sqrt(1+((0.2)-(0.6))^2))*((0.2)-(0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11394,7 +10471,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11409,7 +10486,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11419,12 +10496,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+((0.2)-(1.0))^2))|0.2+((0.35)*t)*(1/sqrt(1+((0.2)-(1.0))^2))*((0.2)-(1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11439,7 +10516,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11454,7 +10531,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11464,12 +10541,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+((0.2)-(1.4))^2))|0.2+((0.35)*t)*(1/sqrt(1+((0.2)-(1.4))^2))*((0.2)-(1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11477,14 +10554,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11498,8 +10575,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11509,12 +10586,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+((0.2)-(1.8))^2))|0.2+((0.35)*t)*(1/sqrt(1+((0.2)-(1.8))^2))*((0.2)-(1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11529,7 +10606,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11544,7 +10621,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11554,12 +10631,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+((0.2)-(2.2))^2))|0.2+((0.35)*t)*(1/sqrt(1+((0.2)-(2.2))^2))*((0.2)-(2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11567,14 +10644,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11588,8 +10665,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11599,12 +10676,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+((0.2)-(2.6))^2))|0.2+((0.35)*t)*(1/sqrt(1+((0.2)-(2.6))^2))*((0.2)-(2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11612,14 +10689,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11633,8 +10710,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11644,12 +10721,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+((0.6)-(-3.00))^2))|0.6+((0.35)*t)*(1/sqrt(1+((0.6)-(-3.00))^2))*((0.6)-(-3.00))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11657,14 +10734,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11678,8 +10755,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11689,12 +10766,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+((0.6)-(-2.6))^2))|0.6+((0.35)*t)*(1/sqrt(1+((0.6)-(-2.6))^2))*((0.6)-(-2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11702,14 +10779,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11723,8 +10800,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11734,12 +10811,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+((0.6)-(-2.2))^2))|0.6+((0.35)*t)*(1/sqrt(1+((0.6)-(-2.2))^2))*((0.6)-(-2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11747,14 +10824,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11768,8 +10845,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11779,12 +10856,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+((0.6)-(-1.8))^2))|0.6+((0.35)*t)*(1/sqrt(1+((0.6)-(-1.8))^2))*((0.6)-(-1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11792,14 +10869,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11813,8 +10890,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11824,12 +10901,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+((0.6)-(-1.4))^2))|0.6+((0.35)*t)*(1/sqrt(1+((0.6)-(-1.4))^2))*((0.6)-(-1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11837,14 +10914,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11858,8 +10935,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11869,12 +10946,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+((0.6)-(-1.0))^2))|0.6+((0.35)*t)*(1/sqrt(1+((0.6)-(-1.0))^2))*((0.6)-(-1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11889,7 +10966,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11904,7 +10981,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11914,12 +10991,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+((0.6)-(-0.6))^2))|0.6+((0.35)*t)*(1/sqrt(1+((0.6)-(-0.6))^2))*((0.6)-(-0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11934,7 +11011,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11949,7 +11026,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11959,12 +11036,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+((0.6)-(-0.2))^2))|0.6+((0.35)*t)*(1/sqrt(1+((0.6)-(-0.2))^2))*((0.6)-(-0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11979,7 +11056,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11994,7 +11071,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12004,12 +11081,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+((0.6)-(0.2))^2))|0.6+((0.35)*t)*(1/sqrt(1+((0.6)-(0.2))^2))*((0.6)-(0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12024,7 +11101,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12039,7 +11116,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12049,12 +11126,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+((0.6)-(0.6))^2))|0.6+((0.35)*t)*(1/sqrt(1+((0.6)-(0.6))^2))*((0.6)-(0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12070,7 +11147,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -12084,7 +11161,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -12094,12 +11171,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+((0.6)-(1.0))^2))|0.6+((0.35)*t)*(1/sqrt(1+((0.6)-(1.0))^2))*((0.6)-(1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12107,30 +11184,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -12139,12 +11216,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+((0.6)-(1.4))^2))|0.6+((0.35)*t)*(1/sqrt(1+((0.6)-(1.4))^2))*((0.6)-(1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12152,14 +11229,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12173,8 +11250,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12184,12 +11261,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+((0.6)-(1.8))^2))|0.6+((0.35)*t)*(1/sqrt(1+((0.6)-(1.8))^2))*((0.6)-(1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12197,14 +11274,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12218,8 +11295,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12229,12 +11306,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+((0.6)-(2.2))^2))|0.6+((0.35)*t)*(1/sqrt(1+((0.6)-(2.2))^2))*((0.6)-(2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12242,14 +11319,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12263,8 +11340,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12274,12 +11351,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+((0.6)-(2.6))^2))|0.6+((0.35)*t)*(1/sqrt(1+((0.6)-(2.6))^2))*((0.6)-(2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12287,14 +11364,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12308,8 +11385,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12319,12 +11396,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+((1.0)-(-3.00))^2))|1.0+((0.35)*t)*(1/sqrt(1+((1.0)-(-3.00))^2))*((1.0)-(-3.00))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12332,14 +11409,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12353,9 +11430,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -12364,12 +11440,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+((1.0)-(-2.6))^2))|1.0+((0.35)*t)*(1/sqrt(1+((1.0)-(-2.6))^2))*((1.0)-(-2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12377,14 +11453,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12398,8 +11474,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12409,12 +11485,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+((1.0)-(-2.2))^2))|1.0+((0.35)*t)*(1/sqrt(1+((1.0)-(-2.2))^2))*((1.0)-(-2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12429,7 +11505,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12444,7 +11520,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12454,12 +11530,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+((1.0)-(-1.8))^2))|1.0+((0.35)*t)*(1/sqrt(1+((1.0)-(-1.8))^2))*((1.0)-(-1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12467,14 +11543,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12488,8 +11564,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12499,12 +11575,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+((1.0)-(-1.4))^2))|1.0+((0.35)*t)*(1/sqrt(1+((1.0)-(-1.4))^2))*((1.0)-(-1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12519,7 +11595,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12534,7 +11610,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12544,12 +11620,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+((1.0)-(-1.0))^2))|1.0+((0.35)*t)*(1/sqrt(1+((1.0)-(-1.0))^2))*((1.0)-(-1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12557,14 +11633,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12578,8 +11654,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12589,12 +11665,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+((1.0)-(-0.6))^2))|1.0+((0.35)*t)*(1/sqrt(1+((1.0)-(-0.6))^2))*((1.0)-(-0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12609,7 +11685,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12624,7 +11700,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12634,12 +11710,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+((1.0)-(-0.2))^2))|1.0+((0.35)*t)*(1/sqrt(1+((1.0)-(-0.2))^2))*((1.0)-(-0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12647,14 +11723,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12668,8 +11744,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12679,12 +11755,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+((1.0)-(0.2))^2))|1.0+((0.35)*t)*(1/sqrt(1+((1.0)-(0.2))^2))*((1.0)-(0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12699,7 +11775,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12714,7 +11790,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12724,12 +11800,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+((1.0)-(0.6))^2))|1.0+((0.35)*t)*(1/sqrt(1+((1.0)-(0.6))^2))*((1.0)-(0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12737,30 +11813,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -12769,12 +11845,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+((1.0)-(1.0))^2))|1.0+((0.35)*t)*(1/sqrt(1+((1.0)-(1.0))^2))*((1.0)-(1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12790,7 +11866,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -12804,7 +11880,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -12814,12 +11890,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+((1.0)-(1.4))^2))|1.0+((0.35)*t)*(1/sqrt(1+((1.0)-(1.4))^2))*((1.0)-(1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12827,30 +11903,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -12859,12 +11935,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+((1.0)-(1.8))^2))|1.0+((0.35)*t)*(1/sqrt(1+((1.0)-(1.8))^2))*((1.0)-(1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12879,7 +11955,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12894,7 +11970,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12904,12 +11980,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+((1.0)-(2.2))^2))|1.0+((0.35)*t)*(1/sqrt(1+((1.0)-(2.2))^2))*((1.0)-(2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12917,14 +11993,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12938,8 +12014,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12949,12 +12025,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+((1.0)-(2.6))^2))|1.0+((0.35)*t)*(1/sqrt(1+((1.0)-(2.6))^2))*((1.0)-(2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12969,7 +12045,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12984,7 +12060,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12994,12 +12070,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+((1.4)-(-3.00))^2))|1.4+((0.35)*t)*(1/sqrt(1+((1.4)-(-3.00))^2))*((1.4)-(-3.00))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13007,14 +12083,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13028,9 +12104,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13039,12 +12114,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+((1.4)-(-2.6))^2))|1.4+((0.35)*t)*(1/sqrt(1+((1.4)-(-2.6))^2))*((1.4)-(-2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13052,14 +12127,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13073,9 +12148,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13084,12 +12158,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+((1.4)-(-2.2))^2))|1.4+((0.35)*t)*(1/sqrt(1+((1.4)-(-2.2))^2))*((1.4)-(-2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13104,7 +12178,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13119,7 +12193,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13129,12 +12203,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+((1.4)-(-1.8))^2))|1.4+((0.35)*t)*(1/sqrt(1+((1.4)-(-1.8))^2))*((1.4)-(-1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13149,7 +12223,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13164,7 +12238,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13174,12 +12248,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+((1.4)-(-1.4))^2))|1.4+((0.35)*t)*(1/sqrt(1+((1.4)-(-1.4))^2))*((1.4)-(-1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13194,7 +12268,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13209,7 +12283,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13219,12 +12293,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+((1.4)-(-1.0))^2))|1.4+((0.35)*t)*(1/sqrt(1+((1.4)-(-1.0))^2))*((1.4)-(-1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13239,7 +12313,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13254,7 +12328,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13264,12 +12338,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+((1.4)-(-0.6))^2))|1.4+((0.35)*t)*(1/sqrt(1+((1.4)-(-0.6))^2))*((1.4)-(-0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13277,14 +12351,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13298,8 +12372,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13309,12 +12383,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+((1.4)-(-0.2))^2))|1.4+((0.35)*t)*(1/sqrt(1+((1.4)-(-0.2))^2))*((1.4)-(-0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13322,14 +12396,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13343,8 +12417,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13354,12 +12428,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+((1.4)-(0.2))^2))|1.4+((0.35)*t)*(1/sqrt(1+((1.4)-(0.2))^2))*((1.4)-(0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13367,14 +12441,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13388,8 +12462,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13399,12 +12473,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+((1.4)-(0.6))^2))|1.4+((0.35)*t)*(1/sqrt(1+((1.4)-(0.6))^2))*((1.4)-(0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13412,14 +12486,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13433,8 +12507,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13444,12 +12518,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+((1.4)-(1.0))^2))|1.4+((0.35)*t)*(1/sqrt(1+((1.4)-(1.0))^2))*((1.4)-(1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13457,30 +12531,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13489,12 +12563,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+((1.4)-(1.4))^2))|1.4+((0.35)*t)*(1/sqrt(1+((1.4)-(1.4))^2))*((1.4)-(1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13510,7 +12584,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -13524,7 +12598,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -13534,12 +12608,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+((1.4)-(1.8))^2))|1.4+((0.35)*t)*(1/sqrt(1+((1.4)-(1.8))^2))*((1.4)-(1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13554,7 +12628,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13569,7 +12643,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13579,12 +12653,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+((1.4)-(2.2))^2))|1.4+((0.35)*t)*(1/sqrt(1+((1.4)-(2.2))^2))*((1.4)-(2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13599,7 +12673,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13614,7 +12688,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13624,12 +12698,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+((1.4)-(2.6))^2))|1.4+((0.35)*t)*(1/sqrt(1+((1.4)-(2.6))^2))*((1.4)-(2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13644,7 +12718,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13659,7 +12733,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13669,12 +12743,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+((1.8)-(-3.00))^2))|1.8+((0.35)*t)*(1/sqrt(1+((1.8)-(-3.00))^2))*((1.8)-(-3.00))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13689,7 +12763,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13704,7 +12778,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13713,12 +12787,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+((1.8)-(-2.6))^2))|1.8+((0.35)*t)*(1/sqrt(1+((1.8)-(-2.6))^2))*((1.8)-(-2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13726,14 +12800,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13747,9 +12821,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13758,12 +12831,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+((1.8)-(-2.2))^2))|1.8+((0.35)*t)*(1/sqrt(1+((1.8)-(-2.2))^2))*((1.8)-(-2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13771,14 +12844,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13792,9 +12865,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13803,12 +12875,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+((1.8)-(-1.8))^2))|1.8+((0.35)*t)*(1/sqrt(1+((1.8)-(-1.8))^2))*((1.8)-(-1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13816,14 +12888,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13837,8 +12909,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13848,12 +12920,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+((1.8)-(-1.4))^2))|1.8+((0.35)*t)*(1/sqrt(1+((1.8)-(-1.4))^2))*((1.8)-(-1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13868,7 +12940,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13883,7 +12955,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13893,12 +12965,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+((1.8)-(-1.0))^2))|1.8+((0.35)*t)*(1/sqrt(1+((1.8)-(-1.0))^2))*((1.8)-(-1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13906,14 +12978,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13927,8 +12999,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13938,12 +13010,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+((1.8)-(-0.6))^2))|1.8+((0.35)*t)*(1/sqrt(1+((1.8)-(-0.6))^2))*((1.8)-(-0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13951,14 +13023,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13972,8 +13044,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13983,12 +13055,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+((1.8)-(-0.2))^2))|1.8+((0.35)*t)*(1/sqrt(1+((1.8)-(-0.2))^2))*((1.8)-(-0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13996,14 +13068,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14017,8 +13089,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14028,12 +13100,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+((1.8)-(0.2))^2))|1.8+((0.35)*t)*(1/sqrt(1+((1.8)-(0.2))^2))*((1.8)-(0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14048,7 +13120,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14063,7 +13135,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14073,12 +13145,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+((1.8)-(0.6))^2))|1.8+((0.35)*t)*(1/sqrt(1+((1.8)-(0.6))^2))*((1.8)-(0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14086,14 +13158,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14107,8 +13179,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14118,12 +13190,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+((1.8)-(1.0))^2))|1.8+((0.35)*t)*(1/sqrt(1+((1.8)-(1.0))^2))*((1.8)-(1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14138,7 +13210,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14153,7 +13225,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14163,12 +13235,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+((1.8)-(1.4))^2))|1.8+((0.35)*t)*(1/sqrt(1+((1.8)-(1.4))^2))*((1.8)-(1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14183,7 +13255,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14198,7 +13270,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14208,12 +13280,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+((1.8)-(1.8))^2))|1.8+((0.35)*t)*(1/sqrt(1+((1.8)-(1.8))^2))*((1.8)-(1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14229,7 +13301,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -14243,7 +13315,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -14253,12 +13325,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+((1.8)-(2.2))^2))|1.8+((0.35)*t)*(1/sqrt(1+((1.8)-(2.2))^2))*((1.8)-(2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14266,30 +13338,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14298,12 +13370,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+((1.8)-(2.6))^2))|1.8+((0.35)*t)*(1/sqrt(1+((1.8)-(2.6))^2))*((1.8)-(2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14318,7 +13390,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14333,7 +13405,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14343,12 +13415,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+((2.2)-(-3.00))^2))|2.2+((0.35)*t)*(1/sqrt(1+((2.2)-(-3.00))^2))*((2.2)-(-3.00))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14363,7 +13435,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14378,7 +13450,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14387,12 +13459,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+((2.2)-(-2.6))^2))|2.2+((0.35)*t)*(1/sqrt(1+((2.2)-(-2.6))^2))*((2.2)-(-2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14407,7 +13479,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14422,7 +13494,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14431,12 +13503,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+((2.2)-(-2.2))^2))|2.2+((0.35)*t)*(1/sqrt(1+((2.2)-(-2.2))^2))*((2.2)-(-2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14444,14 +13516,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14465,9 +13537,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14476,12 +13547,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+((2.2)-(-1.8))^2))|2.2+((0.35)*t)*(1/sqrt(1+((2.2)-(-1.8))^2))*((2.2)-(-1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14489,14 +13560,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14510,9 +13581,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14521,12 +13591,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+((2.2)-(-1.4))^2))|2.2+((0.35)*t)*(1/sqrt(1+((2.2)-(-1.4))^2))*((2.2)-(-1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14541,7 +13611,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14556,7 +13626,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14566,12 +13636,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+((2.2)-(-1.0))^2))|2.2+((0.35)*t)*(1/sqrt(1+((2.2)-(-1.0))^2))*((2.2)-(-1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14586,7 +13656,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14601,7 +13671,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14611,12 +13681,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+((2.2)-(-0.6))^2))|2.2+((0.35)*t)*(1/sqrt(1+((2.2)-(-0.6))^2))*((2.2)-(-0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14624,14 +13694,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14645,8 +13715,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14656,12 +13726,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+((2.2)-(-0.2))^2))|2.2+((0.35)*t)*(1/sqrt(1+((2.2)-(-0.2))^2))*((2.2)-(-0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14676,7 +13746,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14691,7 +13761,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14701,12 +13771,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+((2.2)-(0.2))^2))|2.2+((0.35)*t)*(1/sqrt(1+((2.2)-(0.2))^2))*((2.2)-(0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14714,14 +13784,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14735,8 +13805,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14746,12 +13816,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+((2.2)-(0.6))^2))|2.2+((0.35)*t)*(1/sqrt(1+((2.2)-(0.6))^2))*((2.2)-(0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14759,14 +13829,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14780,8 +13850,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14791,12 +13861,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+((2.2)-(1.0))^2))|2.2+((0.35)*t)*(1/sqrt(1+((2.2)-(1.0))^2))*((2.2)-(1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14804,14 +13874,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14825,8 +13895,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14836,12 +13906,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+((2.2)-(1.4))^2))|2.2+((0.35)*t)*(1/sqrt(1+((2.2)-(1.4))^2))*((2.2)-(1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14856,7 +13926,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14871,7 +13941,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -14881,12 +13951,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+((2.2)-(1.8))^2))|2.2+((0.35)*t)*(1/sqrt(1+((2.2)-(1.8))^2))*((2.2)-(1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14894,30 +13964,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14926,12 +13996,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+((2.2)-(2.2))^2))|2.2+((0.35)*t)*(1/sqrt(1+((2.2)-(2.2))^2))*((2.2)-(2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14947,7 +14017,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -14961,7 +14031,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 998 901 a
@@ -14971,12 +14041,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+((2.2)-(2.6))^2))|2.2+((0.35)*t)*(1/sqrt(1+((2.2)-(2.6))^2))*((2.2)-(2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14991,7 +14061,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15006,7 +14076,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15016,12 +14086,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+((2.6)-(-3.00))^2))|2.6+((0.35)*t)*(1/sqrt(1+((2.6)-(-3.00))^2))*((2.6)-(-3.00))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15036,7 +14106,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15051,7 +14121,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -15060,12 +14130,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+((2.6)-(-2.6))^2))|2.6+((0.35)*t)*(1/sqrt(1+((2.6)-(-2.6))^2))*((2.6)-(-2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15080,7 +14150,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15095,7 +14165,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -15104,12 +14174,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+((2.6)-(-2.2))^2))|2.6+((0.35)*t)*(1/sqrt(1+((2.6)-(-2.2))^2))*((2.6)-(-2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15124,7 +14194,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15139,7 +14209,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -15148,12 +14218,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+((2.6)-(-1.8))^2))|2.6+((0.35)*t)*(1/sqrt(1+((2.6)-(-1.8))^2))*((2.6)-(-1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15161,14 +14231,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15182,9 +14252,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -15193,12 +14262,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+((2.6)-(-1.4))^2))|2.6+((0.35)*t)*(1/sqrt(1+((2.6)-(-1.4))^2))*((2.6)-(-1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15206,14 +14275,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15227,9 +14296,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -15238,12 +14306,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+((2.6)-(-1.0))^2))|2.6+((0.35)*t)*(1/sqrt(1+((2.6)-(-1.0))^2))*((2.6)-(-1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15251,14 +14319,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15272,8 +14340,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15283,12 +14351,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+((2.6)-(-0.6))^2))|2.6+((0.35)*t)*(1/sqrt(1+((2.6)-(-0.6))^2))*((2.6)-(-0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15296,14 +14364,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15317,8 +14385,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15328,12 +14396,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+((2.6)-(-0.2))^2))|2.6+((0.35)*t)*(1/sqrt(1+((2.6)-(-0.2))^2))*((2.6)-(-0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15341,14 +14409,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15362,8 +14430,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15373,12 +14441,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+((2.6)-(0.2))^2))|2.6+((0.35)*t)*(1/sqrt(1+((2.6)-(0.2))^2))*((2.6)-(0.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15386,14 +14454,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15407,8 +14475,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15418,12 +14486,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+((2.6)-(0.6))^2))|2.6+((0.35)*t)*(1/sqrt(1+((2.6)-(0.6))^2))*((2.6)-(0.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15431,14 +14499,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15452,8 +14520,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15463,12 +14531,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+((2.6)-(1.0))^2))|2.6+((0.35)*t)*(1/sqrt(1+((2.6)-(1.0))^2))*((2.6)-(1.0))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15483,7 +14551,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15498,7 +14566,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15508,12 +14576,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+((2.6)-(1.4))^2))|2.6+((0.35)*t)*(1/sqrt(1+((2.6)-(1.4))^2))*((2.6)-(1.4))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15528,7 +14596,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15543,7 +14611,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15553,12 +14621,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+((2.6)-(1.8))^2))|2.6+((0.35)*t)*(1/sqrt(1+((2.6)-(1.8))^2))*((2.6)-(1.8))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15573,7 +14641,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15588,7 +14656,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15598,12 +14666,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+((2.6)-(2.2))^2))|2.6+((0.35)*t)*(1/sqrt(1+((2.6)-(2.2))^2))*((2.6)-(2.2))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15618,7 +14686,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15633,7 +14701,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15643,12 +14711,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+((2.6)-(2.6))^2))|2.6+((0.35)*t)*(1/sqrt(1+((2.6)-(2.6))^2))*((2.6)-(2.6))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15664,7 +14732,7 @@ a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
} def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
- /Lineto /lineto load def 1 setlinejoin false NArray n 0 eq not
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
@@ -15678,7 +14746,7 @@ ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
-0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 1 setlinejoin
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial @beginspecial @setspecial
@@ -15687,19 +14755,19 @@ def /ArrowB { BeginArrow 1. 1. scale false 0.4 1.4 1.5 2. CLW mul
add dup 2 div /w ED mul dup /h ED mul /a ED { 0 h T 1 -1 scale } if
gsave w neg h moveto 0 0 L w h L w neg a neg rlineto gsave fill grestore
grestore 0 h a sub moveto EndArrow } def /ArrowInside { } def
-/showOrigin true def 85.5 0 -85.5 0 ArrowA CP 4 2 roll ArrowB 2 copy
-/yEnd exch def /xEnd exch def L 1 setlinejoin 0 setlinecap stroke
- stroke /yStart exch def /xStart exch def 0 dup 2 mod 0 eq false and
-exch 2 lt true and or { /viceversa -85.5 85.5 gt { true }{ false
-} ifelse def /epsilon 0.01 def /minTickline -85.5 def /maxTickline
+/showOrigin true def 88.35017 0 -85.5 0 ArrowA CP 4 2 roll ArrowB
+2 copy /yEnd exch def /xEnd exch def L 0 setlinejoin 0 setlinecap
+stroke stroke /yStart exch def /xStart exch def 0 dup 2 mod 0 eq false
+and exch 2 lt true and or { /viceversa -85.5 88.35017 gt { true }{
+false } ifelse def /epsilon 0.01 def /minTickline -85.5 def /maxTickline
85.5 def /dT 1867776 abs 65536 div viceversa { neg } if def /subTNo
1 def subTNo 0 gt { /dsubT dT subTNo div def}{ /dsubT 0 def } ifelse
0.0 2.2 /tickend exch def /tickstart exch def /Twidth 0.4 def /subTwidth
0.2 def /STsize 0.75 def /TColor { 0 setgray } def /subTColor {
0.5 setgray } def /MinValue { xStart } def /MaxValue { xEnd 1.5 2.
CLW mul add 1.4 mul viceversa { add epsilon sub }{ sub epsilon add
-} ifelse } def /logLines { false } def /LSstroke { 1 setlinejoin
-0 setlinecap stroke stroke} def /subLSstroke { 1 setlinejoin 0
+} ifelse } def /logLines { false } def /LSstroke { 0 setlinejoin
+0 setlinecap stroke stroke} def /subLSstroke { 0 setlinejoin 0
setlinecap stroke stroke} def 0 dT MaxValue 1 add { /cntTick exch def
logLines { gsave 1 10 subTNo div 9.99 { /dx exch def /x cntTick dT
dx log mul add def x abs MaxValue abs le { false { x minTickline moveto
@@ -15740,7 +14808,7 @@ moveto EndArrow } def /ArrowInside { } def 0.7 SLW 0 setgray
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ 0.0 85.5 0.0 -85.5 /Lineto /lineto load def 1 setlinejoin
+{ } def [ 0.0 85.5 0.0 -85.5 /Lineto /lineto load def 0 setlinejoin
false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if () length 0 gt
{ 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add /arrowlength
exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1
@@ -15754,7 +14822,7 @@ div }{0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def
x2 x1 sub ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside
pop pop } repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2
sub def n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop }
-if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 1 setlinejoin
+if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial @beginspecial
@@ -15768,7 +14836,7 @@ moveto EndArrow } def /ArrowInside { } def 0.7 SLW 0 setgray
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ 85.5 0.0 -85.5 0.0 /Lineto /lineto load def 1 setlinejoin
+{ } def [ 88.35017 0.0 -85.5 0.0 /Lineto /lineto load def 0 setlinejoin
false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if () length 0 gt
{ 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add /arrowlength
exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1
@@ -15782,7 +14850,7 @@ div }{0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def
x2 x1 sub ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside
pop pop } repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2
sub def n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop }
-if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 1 setlinejoin
+if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial @beginspecial @setspecial
@@ -15792,18 +14860,18 @@ add dup 2 div /w ED mul dup /h ED mul /a ED { 0 h T 1 -1 scale } if
gsave w neg h moveto 0 0 L w h L w neg a neg rlineto gsave fill grestore
grestore 0 h a sub moveto EndArrow } def /ArrowInside { } def
/showOrigin true def 0 85.5 0 -85.5 ArrowA CP 4 2 roll ArrowB 2 copy
-/yEnd exch def /xEnd exch def L 1 setlinejoin 0 setlinecap stroke
+/yEnd exch def /xEnd exch def L 0 setlinejoin 0 setlinecap stroke
stroke /yStart exch def /xStart exch def 0 dup 2 mod 0 eq true and
exch 2 lt false and or { /viceversa -85.5 85.5 gt { true }{ false
} ifelse def /epsilon 0.01 def /minTickline -85.5 def /maxTickline
-85.5 def /dT 1867776 abs 65536 div viceversa { neg } if def /subTNo
+88.35017 def /dT 1867776 abs 65536 div viceversa { neg } if def /subTNo
1 def subTNo 0 gt { /dsubT dT subTNo div def}{ /dsubT 0 def } ifelse
0.0 2.2 /tickend exch def /tickstart exch def /Twidth 0.4 def /subTwidth
0.2 def /STsize 0.75 def /TColor { 0 setgray } def /subTColor {
0.5 setgray } def /MinValue { yStart } def /MaxValue { yEnd 1.5 2.
CLW mul add 1.4 mul viceversa { add epsilon sub }{ sub epsilon add
-} ifelse } def /logLines { false } def /LSstroke { 1 setlinejoin
-0 setlinecap stroke stroke} def /subLSstroke { 1 setlinejoin 0
+} ifelse } def /logLines { false } def /LSstroke { 0 setlinejoin
+0 setlinecap stroke stroke} def /subLSstroke { 0 setlinejoin 0
setlinecap stroke stroke} def 0 dT MaxValue 1 add { /cntTick exch
def logLines { gsave 1 10 subTNo div 9.99 { /dx exch def /x cntTick
dT dx log mul add def x abs MaxValue abs le { false { x minTickline
@@ -15845,7 +14913,7 @@ moveto EndArrow } def /ArrowInside { } def 0.7 SLW 0 setgray
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ 0.0 85.5 0.0 -85.5 /Lineto /lineto load def 1 setlinejoin
+{ } def [ 0.0 85.5 0.0 -85.5 /Lineto /lineto load def 0 setlinejoin
false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if () length 0 gt
{ 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add /arrowlength
exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1
@@ -15859,7 +14927,7 @@ div }{0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def
x2 x1 sub ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside
pop pop } repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2
sub def n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop }
-if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 1 setlinejoin
+if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial @beginspecial
@@ -15873,7 +14941,7 @@ moveto EndArrow } def /ArrowInside { } def 0.7 SLW 0 setgray
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ 85.5 0.0 -85.5 0.0 /Lineto /lineto load def 1 setlinejoin
+{ } def [ 88.35017 0.0 -85.5 0.0 /Lineto /lineto load def 0 setlinejoin
false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if () length 0 gt
{ 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add /arrowlength
exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1
@@ -15887,7 +14955,7 @@ div }{0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def
x2 x1 sub ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside
pop pop } repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2
sub def n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop }
-if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 1 setlinejoin
+if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 930 685 a Fb(1)930 449 y(2)875
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vec4.eps b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vecb4.eps
index 9dfc1616225..8dc5ea21573 100644
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vec4.eps
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vecb4.eps
@@ -1,17 +1,17 @@
%!PS-Adobe-3.0 EPSF-3.0
-%%Creator: dvips(k) 5.992 Copyright 2012 Radical Eye Software
+%%Creator: dvips(k) 5.993 Copyright 2013 Radical Eye Software
%%Title: testps-fig1.dvi
-%%CreationDate: Tue Oct 01 20:15:01 2013
+%%CreationDate: Tue Apr 01 22:30:39 2014
%%Pages: 1
%%PageOrder: Ascend
-%%BoundingBox: 101 516 279 699
+%%BoundingBox: 100 516 281 698
%%DocumentFonts: CMR8 CMSY8
%%DocumentPaperSizes: Letter
%%EndComments
%DVIPSWebPage: (www.radicaleye.com)
%DVIPSCommandLine: DVIPS.EXE testps-fig1
%DVIPSParameters: dpi=600
-%DVIPSSource: TeX output 2013.10.01:2014
+%DVIPSSource: TeX output 2014.04.01:2230
%%BeginProcSet: tex.pro 0 0
%!
/TeXDict 300 dict def TeXDict begin/N{def}def/B{bind def}N/S{exch}N/X{S
@@ -43,19 +43,21 @@ SI restore userdict/eop-hook known{eop-hook}if showpage}N/@start{
userdict/start-hook known{start-hook}if pop/VResolution X/Resolution X
1000 div/DVImag X/IEn 256 array N 2 string 0 1 255{IEn S A 360 add 36 4
index cvrs cvn put}for pop 65781.76 div/vsize X 65781.76 div/hsize X}N
-/p{show}N/RMat[1 0 0 -1 0 0]N/BDot 260 string N/Rx 0 N/Ry 0 N/V{}B/RV/v{
-/Ry X/Rx X V}B statusdict begin/product where{pop false[(Display)(NeXT)
-(LaserWriter 16/600)]{A length product length le{A length product exch 0
-exch getinterval eq{pop true exit}if}{pop}ifelse}forall}{false}ifelse
-end{{gsave TR -.1 .1 TR 1 1 scale Rx Ry false RMat{BDot}imagemask
-grestore}}{{gsave TR -.1 .1 TR Rx Ry scale 1 1 false RMat{BDot}
-imagemask grestore}}ifelse B/QV{gsave newpath transform round exch round
-exch itransform moveto Rx 0 rlineto 0 Ry neg rlineto Rx neg 0 rlineto
-fill grestore}B/a{moveto}B/delta 0 N/tail{A/delta X 0 rmoveto}B/M{S p
-delta add tail}B/b{S p tail}B/c{-4 M}B/d{-3 M}B/e{-2 M}B/f{-1 M}B/g{0 M}
-B/h{1 M}B/i{2 M}B/j{3 M}B/k{4 M}B/w{0 rmoveto}B/l{p -4 w}B/m{p -3 w}B/n{
-p -2 w}B/o{p -1 w}B/q{p 1 w}B/r{p 2 w}B/s{p 3 w}B/t{p 4 w}B/x{0 S
-rmoveto}B/y{3 2 roll p a}B/bos{/SS save N}B/eos{SS restore}B end
+/dir 0 def/dyy{/dir 0 def}B/dyt{/dir 1 def}B/dty{/dir 2 def}B/dtt{/dir 3
+def}B/p{dir 2 eq{-90 rotate show 90 rotate}{dir 3 eq{-90 rotate show 90
+rotate}{show}ifelse}ifelse}N/RMat[1 0 0 -1 0 0]N/BDot 260 string N/Rx 0
+N/Ry 0 N/V{}B/RV/v{/Ry X/Rx X V}B statusdict begin/product where{pop
+false[(Display)(NeXT)(LaserWriter 16/600)]{A length product length le{A
+length product exch 0 exch getinterval eq{pop true exit}if}{pop}ifelse}
+forall}{false}ifelse end{{gsave TR -.1 .1 TR 1 1 scale Rx Ry false RMat{
+BDot}imagemask grestore}}{{gsave TR -.1 .1 TR Rx Ry scale 1 1 false RMat
+{BDot}imagemask grestore}}ifelse B/QV{gsave newpath transform round exch
+round exch itransform moveto Rx 0 rlineto 0 Ry neg rlineto Rx neg 0
+rlineto fill grestore}B/a{moveto}B/delta 0 N/tail{A/delta X 0 rmoveto}B
+/M{S p delta add tail}B/b{S p tail}B/c{-4 M}B/d{-3 M}B/e{-2 M}B/f{-1 M}
+B/g{0 M}B/h{1 M}B/i{2 M}B/j{3 M}B/k{4 M}B/w{0 rmoveto}B/l{p -4 w}B/m{p
+-3 w}B/n{p -2 w}B/o{p -1 w}B/q{p 1 w}B/r{p 2 w}B/s{p 3 w}B/t{p 4 w}B/x{
+0 S rmoveto}B/y{3 2 roll p a}B/bos{/SS save N}B/eos{SS restore}B end
%%EndProcSet
%%BeginProcSet: pstricks.pro 0 0
@@ -4021,941 +4023,21 @@ tx@FuncDict begin
end
%%EndProcSet
-%%BeginProcSet: pst-3dplot.pro 0 0
-%% $Id: pst-3dplot.pro 236 2009-12-31 08:59:43Z herbert $
-%%
-%% This is file `pst-3dplot.pro',
-%%
-%% IMPORTANT NOTICE:
-%%
-%% Package `pst-3dplot.tex'
-%%
-%% Herbert Voss <voss _at_ PSTricks.de>
-%%
-%% This program can be redistributed and/or modified under the terms
-%% of the LaTeX Project Public License Distributed from CTAN archives
-%% in directory macros/latex/base/lppl.txt.
-%%
-%% DESCRIPTION:
-%% `pst-3dplot' is a PSTricks package to draw 3d curves and graphical objects
-%%
-%%
-%% version 0.30 / 2010-01-01 Herbert Voss <voss _at_ PSTricks.de>
-%% with contributions of Darrell Lamm <darrell.lamm _at_ gtri.gatech.edu<
-%%
-%
-/tx@3DPlotDict 200 dict def
-tx@3DPlotDict begin
-%
-/printDot { gsave 2 copy 2 0 360 arc fill stroke grestore } def
-%
-/saveCoor {
- dzUnit mul /z ED
- dyUnit mul /y ED
- dxUnit mul /x ED
-} def
-%
-/ConvertTo2D {
- RotatePoint
- 1 { % dummy loop, will run only 1 time, allows exit
- coorType 0 le { % the default |
- /x2D x leftHanded not { neg } if Alpha cos mul y Alpha sin mul add def % /\ co system
- /y2D x leftHanded { neg } if Alpha sin mul y Alpha cos mul add neg Beta sin mul z Beta cos mul add def
- exit } if
- coorType 1 le {
- /x2D y x Alpha 90 sub sin mul sub def % |/_ co system, no shortened x axis
- /y2D z x Alpha 90 sub cos mul sub def
- exit } if
- coorType 2 le { % coorType |/_ with a 1/sqrt(2) shortend x-axis and 135 degrees
- /x2D y x 0.5 mul sub def
- /y2D z x 0.5 mul sub def
- exit } if
- coorType 3 le { % coorType |/_ with a 1/sqrt(2) shortend x-axis and 135 degrees
- /x2D y x -0.5 mul sub def
- /y2D z x -0.5 mul sub def
- exit } if
- coorType 4 le { % Normalbild in Trimetrie Skalierung so, dass coorType2
- /x2D x -0.5 mul y 1 mul add def
- /y2D x -0.5 mul y -0.25 mul add z 1 mul add def
- exit } if
- } repeat
-} def
-%
-/Conv3D2D { /z ED /y ED /x ED ConvertTo2D x2D y2D } def
-%
-/ConvertToCartesian {
- /latitude exch def
- /longitude exch def
- /Radius exch def
- 1 { % dummy loop, will run only 1 time, allows exit
- SphericalCoorType 0 le { % the default |
- /z { Radius latitude sin mul } def
- /x { Radius longitude cos mul latitude cos mul } def
- /y { Radius longitude sin mul latitude cos mul } def
- exit } if
- SphericalCoorType 2 le {
- /z { Radius longitude cos mul } def
- /x { Radius longitude sin mul latitude cos mul} def
- /y { Radius longitude sin mul latitude sin mul } def
- exit } if
- } repeat
-} def
-%
-/ConvCylToCartesian { % r phi h -> x y z
- 3 1 roll % h r phi
- /Phi ED
- /Radius ED % h->z on stack
- Radius Phi cos mul exch % x z
- Radius Phi sin mul exch % x y z
-} def
-%
-/SphericalTo2D {
- x y z ConvertToCartesian ConvertTo2D
-} def
-%
-/CylinderTo2D { % r phi h
- x y z ConvCylToCartesian ConvertTo2D
-} def
-%
-/convertStackTo2D {
- counttomark
- /n ED /n3 n 3 div cvi def
- n3 {
- n -3 roll
- SphericalCoor { ConvertToCartesian } { saveCoor } ifelse
- ConvertTo2D
- x2D xUnit y2D yUnit
- /n n 1 sub def
- } repeat
-} def
-%
-% the angle in the parameter equation for an ellipse is not proportional to the real angle!
-% phi=atan(b*tan(angle)/a)+floor(angle/180+0.5)*180
-%
-/getPhi { % on stack: vecA vecB angle
- 3 dict begin
- /angle exch def /vecB exch def /vecA exch def
- angle cvi 90 mod 0 eq { angle } { vecA angle tan mul vecB atan
- angle 180 div .5 add floor 180 mul add } ifelse
- end
-} def
-%
-/RotSet (set ) def
-%
-/eulerRotation false def
-% Matrix multiplication procedure
-/matmul {
-
- /M@tMulDict 20 dict def
- M@tMulDict begin
- /m2 ED
- /m1 ED
- m1 dup length 2 sub 2 getinterval aload pop
- /col1max ED
- /row1max ED
- m2 dup length 2 sub 2 getinterval aload pop
- /col2max ED
- /row2max ED
- /m3 row1max col2max mul 2 add array def
- m3 dup length 2 sub row1max col2max 2 array astore putinterval
- 0 1 row1max 1 sub {
- /row ED
- 0 1 col2max 1 sub {
- /col ED
- /sum 0 def
- 0 1 col1max 1 sub{
- /rowcol ED
- sum
- m1 row col1max mul rowcol add get
- m2 rowcol col2max mul col add get
- mul add
- /sum ED
- } for
- m3 row col2max mul col add sum put
- } for
- } for
- m3
- end % end of M@tMulDict
-
-} def
-%
-/SetMQuaternion {
-
- /MnewTOold 11 array def
-
- /Qu@ternionDict 30 dict def
- Qu@ternionDict begin
-
- /normRotVec xRotVec yRotVec zRotVec 3 array astore VecNorm def
- normRotVec 0 gt
- {/xRotVecNorm xRotVec normRotVec div def
- /yRotVecNorm yRotVec normRotVec div def
- /zRotVecNorm zRotVec normRotVec div def
- RotAngle}
- {/xRotVecNorm 1 def
- /yRotVecNorm 0 def
- /zRotVecNorm 0 def
- 0} ifelse
-
- 2 div dup
- /q0 exch cos def
- sin dup dup
- /q1 exch xRotVecNorm mul def
- /q2 exch yRotVecNorm mul def
- /q3 exch zRotVecNorm mul def
-
- /q0q0 q0 q0 mul def
- /q0q1 q0 q1 mul def
- /q0q2 q0 q2 mul def
- /q0q3 q0 q3 mul def
-
- /q1q1 q1 q1 mul def
- /q1q2 q1 q2 mul def
- /q1q3 q1 q3 mul def
-
- /q2q2 q2 q2 mul def
- /q2q3 q2 q3 mul def
-
- /q3q3 q3 q3 mul def
-
- MnewTOold 0 q0q0 q1q1 add q2q2 sub q3q3 sub put
- MnewTOold 1 q1q2 q0q3 sub 2 mul put
- MnewTOold 2 q1q3 q0q2 add 2 mul put
-
- MnewTOold 3 q1q2 q0q3 add 2 mul put
- MnewTOold 4 q0q0 q1q1 sub q2q2 add q3q3 sub put
- MnewTOold 5 q2q3 q0q1 sub 2 mul put
-
- MnewTOold 6 q1q3 q0q2 sub 2 mul put
- MnewTOold 7 q2q3 q0q1 add 2 mul put
- MnewTOold 8 q0q0 q1q1 sub q2q2 sub q3q3 add put
-
- MnewTOold 9 3 put
- MnewTOold 10 3 put
-
- end % end of Qu@ternionDict
-
-} def
-%
-/SetMxyz {
- 1.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0 1.0 3 3 11 array astore /MnewTOold ED
- RotSequence cvx exec % Now create a new MnewTOold using xyz, etc.
-} def
-%
-/ConcatMQuaternion {
- MnewTOold % Push onto stack
- SetMQuaternion % Uses [xyz]RotVec and RotAngle to make MnewToOld
- MnewTOold matmul /MnewTOold ED
-} def
-%
-/ConcatMxyz {
- MnewTOold % Push onto stack
- SetMxyz % Uses RotX, etc. to set MnewTOold
- MnewTOold matmul /MnewTOold ED
-} def
-%
-/RotatePoint{
- MnewTOold x y z 3 1 5 array astore matmul
- 0 3 getinterval aload pop
- /z ED
- /y ED
- /x ED
-} def
-%
-/makeMoldTOnew {
- /MoldTOnew 11 array def
- MoldTOnew 0 MnewTOold 0 get put
- MoldTOnew 1 MnewTOold 3 get put
- MoldTOnew 2 MnewTOold 6 get put
- MoldTOnew 3 MnewTOold 1 get put
- MoldTOnew 4 MnewTOold 4 get put
- MoldTOnew 5 MnewTOold 7 get put
- MoldTOnew 6 MnewTOold 2 get put
- MoldTOnew 7 MnewTOold 5 get put
- MoldTOnew 8 MnewTOold 8 get put
- MoldTOnew 9 3 put
- MoldTOnew 10 3 put
-} def
-%
-/RotXaxis {
- eulerRotation
- {1 0 0}
- {makeMoldTOnew MoldTOnew 1 0 0 3 1 5 array astore matmul
- 0 3 getinterval aload pop} ifelse
- /zRotVec ED
- /yRotVec ED
- /xRotVec ED
- /RotAngle RotX def
- ConcatMQuaternion
-} def
-/RotYaxis {
- eulerRotation
- {0 1 0}
- {makeMoldTOnew MoldTOnew 0 1 0 3 1 5 array astore matmul
- 0 3 getinterval aload pop} ifelse
- /zRotVec ED
- /yRotVec ED
- /xRotVec ED
- /RotAngle RotY def
- ConcatMQuaternion
-} def
-/RotZaxis {
- eulerRotation
- {0 0 1}
- {makeMoldTOnew MoldTOnew 0 0 1 3 1 5 array astore matmul
- 0 3 getinterval aload pop} ifelse
- /zRotVec ED
- /yRotVec ED
- /xRotVec ED
- /RotAngle RotZ def
- ConcatMQuaternion
-} def
-/xyz { RotXaxis RotYaxis RotZaxis } def
-/yxz { RotYaxis RotXaxis RotZaxis } def
-/yzx { RotYaxis RotZaxis RotXaxis } def
-/xzy { RotXaxis RotZaxis RotYaxis } def
-/zxy { RotZaxis RotXaxis RotYaxis } def
-/zyx { RotZaxis RotYaxis RotXaxis } def
-/quaternion { } def % Null
-%
-/VecNorm { 0 exch { dup mul add } forall sqrt } def
-%
-/UnitVec { % on stack is [a]; returns a vector with [a][a]/|a|=1
- dup VecNorm /norm ED
- norm 0 lt {/norm 0 def} if
- { norm div } forall 3 array astore } def
-%
-/AxB { % on the stack are the two vectors [a][b]
- aload pop /b3 ED /b2 ED /b1 ED
- aload pop /a3 ED /a2 ED /a1 ED
- a2 b3 mul a3 b2 mul sub
- a3 b1 mul a1 b3 mul sub
- a1 b2 mul a2 b1 mul sub
- 3 array astore } def
-%
-/AaddB { % on the stack are the two vectors [a][b]
- aload pop /b3 ED /b2 ED /b1 ED
- aload pop /a3 ED /a2 ED /a1 ED
- a1 b1 add a2 b2 add a3 b3 add
- 3 array astore } def
-%
-/AmulC { % on stack is [a] and c; returns [a] mul c
- /factor ED { factor mul } forall 3 array astore } def
-%
-%
-/setColorLight { % expects 7 values on stack C M Y K xL yL zL
-% les rayons de lumi�re
- xLight dup mul yLight dup mul zLight dup mul add add sqrt /NormeLight ED
-% the color values
- /K ED
- /Yellow ED
- /Magenta ED
- /Cyan ED
-} def
-%
-/facetteSphere {
- newpath
- /Xpoint Rsphere theta cos mul phi cos mul CX add def
- /Ypoint Rsphere theta sin mul phi cos mul CY add def
- /Zpoint Rsphere phi sin mul CZ add def
- Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end moveto
- theta 1 theta increment add {%
- /theta1 ED
- /Xpoint Rsphere theta1 cos mul phi cos mul CX add def
- /Ypoint Rsphere theta1 sin mul phi cos mul CY add def
- /Zpoint Rsphere phi sin mul CZ add def
- Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
- } for
- phi 1 phi increment add {
- /phi1 ED
- /Xpoint Rsphere theta increment add cos mul phi1 cos mul CX add def
- /Ypoint Rsphere theta increment add sin mul phi1 cos mul CY add def
- /Zpoint Rsphere phi1 sin mul CZ add def
- Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
- } for
- theta increment add -1 theta {%
- /theta1 ED
- /Xpoint Rsphere theta1 cos mul phi increment add cos mul CX add def
- /Ypoint Rsphere theta1 sin mul phi increment add cos mul CY add def
- /Zpoint Rsphere phi increment add sin mul CZ add def
- Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
- } for
- phi increment add -1 phi {
- /phi1 ED
- /Xpoint Rsphere theta cos mul phi1 cos mul CX add def
- /Ypoint Rsphere theta sin mul phi1 cos mul CY add def
- /Zpoint Rsphere phi1 sin mul CZ add def
- Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
- } for
- closepath
-} def
-%
-/MaillageSphere {
-% on stack must be x y z Radius increment C M Y K
- setColorLight
- /increment ED
- /Rsphere ED
- /CZ ED
- /CY ED
- /CX ED
- /StartTheta 0 def
- /condition { PSfacetteSphere 0 ge } def
- -90 increment 90 increment sub {%
- /phi ED
- StartTheta increment 360 StartTheta add increment sub {%
- /theta ED
- % Centre de la facette
- /Xpoint Rsphere theta increment 2 div add cos mul phi increment 2 div add cos mul CX add def
- /Ypoint Rsphere theta increment 2 div add sin mul phi increment 2 div add cos mul CY add def
- /Zpoint Rsphere phi increment 2 div add sin mul CZ add def
- % normale � la facette
- /nXfacette Xpoint CX sub def
- /nYfacette Ypoint CY sub def
- /nZfacette Zpoint CZ sub def
- % test de visibilit�
- /PSfacetteSphere
- vX nXfacette mul
- vY nYfacette mul add
- vZ nZfacette mul add
- def
- condition {
- gsave
- facetteSphere
- /cosV { 1 xLight nXfacette mul
- yLight nYfacette mul
- zLight nZfacette mul
- add add
- NormeLight
- nXfacette dup mul
- nYfacette dup mul
- nZfacette dup mul
- add add sqrt mul div sub } bind def
- Cyan cosV mul Magenta cosV mul Yellow cosV mul K cosV mul setcmykcolor fill
- grestore
-% 0 setgray
- showgrid { facetteSphere stroke } if
- } if
- } for
- % /StartTheta StartTheta increment 2 div add def
- } for
-} def
-%
-%---------------------- Cylinder ---------------------------
-%
-/PlanCoupeCylinder { %
- /TableauxPoints [
- 0 1 359 {
- /phi ED
- [ Radius phi Height ConvCyl2d ] % on décrit le cercle
- } for
- ] def
- newpath
- TableauxPoints 0 get aload pop moveto
- 1 1 359 { TableauxPoints exch get aload pop lineto } for
- closepath
-} def
-%
-/facetteCylinder { %
- newpath
- Radius phi currentHeight ConvCyl2d moveto
- phi 1 phi dAngle add { % loop variable on stack
- Radius exch currentHeight ConvCyl2d lineto
- } for
- phi dAngle add -1 phi { % fill dHeight
- Radius exch currentHeight dHeight add ConvCyl2d lineto
- } for
- closepath
- } def % facette
-%
-/MaillageCylinder { % on stack true or false for saving values
- { setColorLight % expects 4 values on stack C M Y K
- /dHeight ED /dAngle ED /Height ED /Radius ED
- /CZ ED /CY ED /CX ED } if
-%
- 0 dHeight Height dHeight sub {
- /currentHeight ED
- 0 dAngle 360 dAngle sub {
- /phi ED
-% Normal vector of the center
- /nXfacetteCylinder Radius phi dAngle 2 div add cos mul CX add def
- /nYfacetteCylinder Radius phi dAngle 2 div add sin mul CY add def
- /nZfacetteCylinder currentHeight dHeight 2 div add CZ add def
- /NormeN
- nXfacetteCylinder dup mul
- nYfacetteCylinder dup mul
- nZfacetteCylinder dup mul
- add add sqrt def
- NormeN 0 eq { /NormeN 1e-10 def } if
-% test de visibilité
- /PSfacetteCylinder
- vX nXfacetteCylinder mul
- vY nYfacetteCylinder mul add
- vZ nZfacetteCylinder mul add def
- condition {
- facetteCylinder
- /cosV
- 1 xLight nXfacetteCylinder mul
- yLight nYfacetteCylinder mul
- zLight nZfacetteCylinder mul
- add add
- NormeLight NormeN mul div sub def
- Cyan Magenta Yellow K
- cosV mul 4 1 roll cosV mul 4 1 roll
- cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
- setcmykcolor fill
- showgrid {
- 0 setgray
- facetteCylinder % drawing the segments
- stroke } if
- } if
- } for
- } for
-} def
-%
-%------------------------ Cylinder type II -----------------------
-%
-/MoveTo { Conv3D2D moveto } def
-/LineTo { Conv3D2D lineto } def
-
-/IIIDEllipse { % x y z rA rB startAngle endAngle Wedge
- /dAngle 1 def
- /isWedge ED
- /endAngle ED
- /startAngle ED
- /radiusB ED
- /radiusA ED
- startAngle cos radiusA mul startAngle sin radiusB mul 0
- isWedge { 0 0 moveto LineTo }{ MoveTo } ifelse
- /Angle startAngle def
- startAngle dAngle endAngle {
- /Angle ED
- Angle cos radiusA mul Angle sin radiusB mul 0 LineTo
- } for
- isWedge { 0 0 lineto } if
-} def
-
-/IIIDCircle { % x y z r startAngle endAngle Wedge
- 7 3 roll % startAngle endAngle Wedge x y z r
- dup % startAngle endAngle Wedge x y z r r
- 8 -3 roll
- IIIDEllipse
-} def
-
-/IIIDWedge { % x y z r startAngle endAngle
- true IIIDCircle
-} def
-
-/IIIDCylinder {% x y z r h start end wedge
- /isWedge ED
- /increment ED
- /endAngle ED
- /startAngle ED
- /height ED
- /radius ED
- startAngle increment endAngle {
- /Angle ED
- radius Angle 0 ConvCylToCartesian MoveTo
- radius Angle height ConvCylToCartesian LineTo
- } for
- stroke
-} def
-%
-%---------------------- Box ---------------------------
-%
-/PlanCoupeBox { % x y z
- /TableauxPoints [
- [ CX CY CZ Height add ConvBox2d ] % top or bottom
- [ CX CY Depth add CZ Height add ConvBox2d ]
- [ CX Width add CY Depth add CZ Height add ConvBox2d ]
- [ CX Width add CY CZ Height add ConvBox2d ]
- [ CX CY CZ Height add ConvBox2d ] % bottom
- ] def
- newpath
- TableauxPoints 0 get aload pop moveto
- 0 1 3 {
- TableauxPoints exch get aload pop
- lineto } for
- closepath
-} def
-%
-/facetteBox { %
- newpath
- dup
- 1 eq { % back
- CX CY CZ ConvBox2d moveto
- CX CY CZ Height add ConvBox2d lineto
- CX Width add CY CZ Height add ConvBox2d lineto
- CX Width add CY CZ ConvBox2d lineto
- CX CY CZ ConvBox2d lineto
- } if
- dup
- 2 eq { % right
- CX CY CZ ConvBox2d moveto
- CX CY CZ Height add ConvBox2d lineto
- CX CY Depth add CZ Height add ConvBox2d lineto
- CX CY Depth add CZ ConvBox2d lineto
- CX CY CZ ConvBox2d lineto
- } if
- dup
- 3 eq { % left
- CX Width add CY CZ ConvBox2d moveto
- CX Width add CY Depth add CZ ConvBox2d lineto
- CX Width add CY Depth add CZ Height add ConvBox2d lineto
- CX Width add CY CZ Height add ConvBox2d lineto
- CX Width add CY CZ ConvBox2d lineto
- } if
- 4 eq { % front
- CX CY Depth add CZ ConvBox2d moveto
- CX CY Depth add CZ Height add ConvBox2d lineto
- CX Width add CY Depth add CZ Height add ConvBox2d lineto
- CX Width add CY Depth add CZ ConvBox2d lineto
- CX CY Depth add CZ ConvBox2d lineto
- } if
- closepath
- } def % facette
-%
-/TestPlane { % on stack x y z of the plane center and # of plane
- /nZfacetteBox ED /nYfacetteBox ED /nXfacetteBox ED
- /Plane ED
- /NormeN
- nXfacetteBox dup mul
- nYfacetteBox dup mul
- nZfacetteBox dup mul
- add add sqrt def
- NormeN 0 eq { /NormeN 1e-10 def } if
-% test de visibilit�
- /PSfacetteBox
- vX nXfacetteBox mul
- vY nYfacetteBox mul add
- vZ nZfacetteBox mul add def
- condition {
- Plane facetteBox
- /cosV
- 1 xLight nXfacetteBox mul
- yLight nYfacetteBox mul
- zLight nZfacetteBox mul
- add add
- NormeLight NormeN mul div sub def
- Cyan Magenta Yellow K
- cosV mul 4 1 roll cosV mul 4 1 roll
- cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
- setcmykcolor fill
- 0 setgray
- Plane facetteBox % drawing the segments
- stroke
- } if
-} def
-%
-/MaillageBox { % on stack true or false for saving values
- { setColorLight % expects 4 values on stack C M Y K
- /Depth ED /Height ED /Width ED
- /CZ ED /CY ED /CX ED } if
-%
-% Normal vector of the box center
- /PlaneSet [
- [ Width 2 div CX add
- CY
- Height 2 div CZ add ] % normal back
- [ CX
- Depth 2 div CY add
- Height 2 div CZ add ] % normal right
- [ Width CX add
- Depth 2 div CY add
- Height 2 div CZ add ] % normal left
- [ Width 2 div CX add
- Depth CY add
- Height 2 div CZ add ] % normal front
- ] def
- PlaneSequence length 0 eq { % user defined?
- Alpha abs cvi 360 mod /iAlpha ED
- iAlpha 90 lt { [ 1 2 3 4 ]
- }{ iAlpha 180 lt { [ 2 4 1 3 ]
- }{ iAlpha 270 lt { [ 3 4 1 2 ] }{ [ 3 1 4 2] } ifelse } ifelse } ifelse
- }{ PlaneSequence } ifelse
- { dup 1 sub PlaneSet exch get aload pop TestPlane } forall
-} def
-%
-%--------------------------- Paraboloid -----------------------------
-/PlanCoupeParaboloid {
- /Z height store
- /V {Z sqrt} bind def
- /TableauxPoints [
- 0 1 359 {
- /U ED [ U U Z V calculate2DPoint ] % on d�crit le cercle
- } for
- ] def
- newpath
- TableauxPoints 0 get aload pop moveto
- 0 1 359 {
- /compteur ED
- TableauxPoints compteur get aload pop
- lineto } for
- closepath
-} def
-%
-/facetteParaboloid{
- newpath
- U U Z V calculate2DPoint moveto
- U 1 U increment add {%
- /U1 ED
- U1 U1 Z V calculate2DPoint lineto
- } for
- Z pas10 Z pas add pas10 add{
- /Z1 ED
- /V {Z1 sqrt} bind def
- U1 U1 Z1 V calculate2DPoint lineto
- } for
- U increment add -1 U {%
- /U2 ED
- U2 U2 Z pas add V calculate2DPoint lineto
- } for
- Z pas add pas10 sub pas10 neg Z pas10 sub {
- /Z2 ED
- /V Z2 abs sqrt def
- U U Z2 V calculate2DPoint lineto
- } for
- closepath
-} def % facette
-%
-/MaillageParaboloid {
- % on stack true or false for saving values
- { setColorLight % expects 7 values on stack C M Y K xL yL zL
-% /CZ ED /CY ED /CX ED
- } if
- 0 pas height pas sub {%
- /Z ED
- /V Z sqrt def
- 0 increment 360 increment sub {%
- /U ED
-% Centre de la facette
- /Ucentre U increment 2 div add def
- /Vcentre Z pas 2 div add sqrt def
-% normale à la facette
- /nXfacetteParaboloid 2 Vcentre dup mul mul Ucentre cos mul radius mul def
- /nYfacetteParaboloid 2 Vcentre dup mul mul Ucentre sin mul radius mul def
- /nZfacetteParaboloid Vcentre neg radius dup mul mul def
- /NormeN {
- nXfacetteParaboloid dup mul
- nYfacetteParaboloid dup mul
- nZfacetteParaboloid dup mul
- add add sqrt} bind def
- NormeN 0 eq {/NormeN 1e-10 def} if
-% test de visibilit�
- /PSfacetteParaboloid vX nXfacetteParaboloid mul
- vY nYfacetteParaboloid mul add
- vZ nZfacetteParaboloid mul add def
- condition {
- facetteParaboloid
- /cosV 1 xLight nXfacetteParaboloid mul
- yLight nYfacetteParaboloid mul
- zLight nZfacetteParaboloid mul
- add add
- NormeLight
- NormeN mul div sub def
- Cyan Magenta Yellow K
- cosV mul 4 1 roll cosV mul 4 1 roll cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
- setcmykcolor fill
- showgrid {
- 0 setgray
- facetteParaboloid
- stroke } if
- } if
- } for
- } for
-} def
-%
-% ------------------------------------ math stuff ----------------------------------
-%
-% Matrix A in arrays of rows A[[row1][row2]...]
-% with [row1]=[a11 a12 ... b1]
-% returns on stack solution vector X=[x1 x2 ... xn]
-/SolveLinEqSystem { % on stack matrix M=[A,b] (A*x=b)
- 10 dict begin % hold all ocal
- /A exch def
- /Rows A length def % Rows = number of rows
- /Cols A 0 get length def % Cols = number of columns
- /Index [ 0 1 Rows 1 sub { } for ] def % Index = [0 1 2 ... Rows-1]
- /col 0 def
- /row 0 def
- /PR Rows array def % PR[c] = pivot row for row row
- { % starts the loop, find pivot entry in row r
- col Cols ge row Rows ge or { exit } if % col < Cols and row < Rows else exit
- /pRow row def % pRow = pivot row
- /max A row get col get abs def % get A[row[col]], first A[0,0]
- row 1 add 1 Rows 1 sub { % starts for loop 1 1 Rows-1
- /j exch def % index counter
- /x A j get col get abs def % get A[j[r]]
- x max gt { % x>max, then save position
- /pRow j def
- /max x def
- } if
- } for % now we have the row with biggest A[0,1]
- % with pRow = the pivot row
- max 0 gt { % swap entries pRow and row in i
- /tmp Index row get def
- Index row Index pRow get put
- Index pRow tmp put % and columns pRow and row in A
- /tmp A row get def
- A row A pRow get put
- A pRow tmp put % pivot
- /row0 A row get def % the pivoting row
- /p0 row0 col get def % the pivot value
- row 1 add 1 Rows 1 sub { % start for loop
- /j exch def
- /c1 A j get def
- /p c1 col get p0 div def
- c1 col p put % subtract (p1/p0)*row[i] from row[j]
- col 1 add 1 Cols 1 sub { % start for loop
- /i exch def
- c1 dup i exch % c1 i c1
- i get row0 i get p mul sub put
- } for
- } for
- PR row col put
- /col col 1 add def
- /row row 1 add def
- }{ % all zero entries
- /row row 1 add def % continue loop with same row
- } ifelse
- } loop
- /X A def % solution vector
- A Rows 1 sub get dup
- Cols 1 sub get exch
- Cols 2 sub get div
- X Rows 1 sub 3 -1 roll put % X[n]
- Rows 2 sub -1 0 { % for loop to calculate X[i]
- /xi exch def % current index
- A xi get % i-th row
- /Axi exch def
- /sum 0 def
- Cols 2 sub -1 xi 1 add {
- /n exch def
- /sum sum Axi n get X n get mul add def
- } for
- Axi Cols 1 sub get % b=Axi[Cols-1]
- sum sub % b-sum
- Axi xi get div % b-sum / Axi[xi]
- X xi 3 -1 roll put % X[xi]
- } for
- X
- end
-} def
-%
-% u -> e_u with |e_u|=1
-/vector-unit { 1 dict begin
- dup vector-length 1 exch div
- vector-scale
- end
-} def
-%
-% u v -> u+v
-/vector-add { 1 dict begin
- /v exch def
- [ exch
- 0 % u i
- exch { % i u[i]
- v % i u[i] v
- 2 index get add % i u[i]+v[i]
- exch 1 add % i
- } forall
- pop
- ]
- end
-} def
-%
-% u v -> u-v
-/vector-sub { 1 dict begin
- /v exch def
- [ exch
- 0 % u i
- exch { % i u[i]
- v % i u[i] v
- 2 index get sub % i u[i]+v[i]
- exch 1 add % i
- } forall
- pop
- ]
-end } def
-%
-% [v] c -> [c.v]
-/vector-scale { 1 dict begin
- /c exch def
- [ exch
- { % s i u[i]
- c mul % s i u[i] v
- } forall
- ]
- end } def
-%
-%
-% [u] [v] -> [u x v]
-/vector-prod { %% x1 y1 z1 x2 y2 z2
-6 dict begin
- aload pop
- /zp exch def /yp exch def /xp exch def
- aload pop
- /z exch def /y exch def /x exch def
- [ y zp mul z yp mul sub
- z xp mul x zp mul sub
- x yp mul y xp mul sub ]
-end
-} def
-%
-% [u] [v] -> u.v
-/vector-mul { %% x1 y1 z1 x2 y2 z2
-6 dict begin
- aload pop
- /zp exch def /yp exch def /xp exch def
- aload pop
- /z exch def /y exch def /x exch def
- x xp mul y yp mul add z zp mul add
-end
-} def
-%
-% [x y z ... ] -> r
-% watch out for overflow
-/vector-length { 1 dict begin
-dup
-% find maximum entry
-/max 0 def
-{ % max
- abs dup max gt {
- % if abs gt max
- /max exch def
- } {
- pop
- } ifelse
-} forall
-max 0 ne {
- 0 exch
- { % 0 v[i]
- max div dup mul add
- } forall
- sqrt
- max mul
-} {
- pop 0
-} ifelse
-end } def
-%
-end % tx@3DPlotDict
-
-
-%%EndProcSet
%%BeginProcSet: texps.pro 0 0
%!
TeXDict begin/rf{findfont dup length 1 add dict begin{1 index/FID ne 2
index/UniqueID ne and{def}{pop pop}ifelse}forall[1 index 0 6 -1 roll
-exec 0 exch 5 -1 roll VResolution Resolution div mul neg 0 0]/Metrics
-exch def dict begin Encoding{exch dup type/integertype ne{pop pop 1 sub
-dup 0 le{pop}{[}ifelse}{FontMatrix 0 get div Metrics 0 get div def}
-ifelse}forall Metrics/Metrics currentdict end def[2 index currentdict
-end definefont 3 -1 roll makefont/setfont cvx]cvx def}def/ObliqueSlant{
-dup sin S cos div neg}B/SlantFont{4 index mul add}def/ExtendFont{3 -1
-roll mul exch}def/ReEncodeFont{CharStrings rcheck{/Encoding false def
-dup[exch{dup CharStrings exch known not{pop/.notdef/Encoding true def}
-if}forall Encoding{]exch pop}{cleartomark}ifelse}if/Encoding exch def}
-def end
+exec 0 exch 5 -1 roll VResolution Resolution div mul neg 0 0]FontType 0
+ne{/Metrics exch def dict begin Encoding{exch dup type/integertype ne{
+pop pop 1 sub dup 0 le{pop}{[}ifelse}{FontMatrix 0 get div Metrics 0 get
+div def}ifelse}forall Metrics/Metrics currentdict end def}{{1 index type
+/nametype eq{exit}if exch pop}loop}ifelse[2 index currentdict end
+definefont 3 -1 roll makefont/setfont cvx]cvx def}def/ObliqueSlant{dup
+sin S cos div neg}B/SlantFont{4 index mul add}def/ExtendFont{3 -1 roll
+mul exch}def/ReEncodeFont{CharStrings rcheck{/Encoding false def dup[
+exch{dup CharStrings exch known not{pop/.notdef/Encoding true def}if}
+forall Encoding{]exch pop}{cleartomark}ifelse}if/Encoding exch def}def
+end
%%EndProcSet
%%BeginProcSet: special.pro 0 0
@@ -4995,25 +4077,26 @@ currentpoint TR/psf$ury psfts/psf$urx psfts/psf$lly psfts/psf$llx psfts
/psf$y psfts/psf$x psfts currentpoint/psf$cy X/psf$cx X/psf$sx psf$x
psf$urx psf$llx sub div N/psf$sy psf$y psf$ury psf$lly sub div N psf$sx
psf$sy scale psf$cx psf$sx div psf$llx sub psf$cy psf$sy div psf$ury sub
-TR/showpage{}N/erasepage{}N/copypage{}N/p 3 def @MacSetUp}N/doclip{
-psf$llx psf$lly psf$urx psf$ury currentpoint 6 2 roll newpath 4 copy 4 2
-roll moveto 6 -1 roll S lineto S lineto S lineto closepath clip newpath
-moveto}N/endTexFig{end psf$SavedState restore}N/@beginspecial{SDict
-begin/SpecialSave save N gsave normalscale currentpoint TR
-@SpecialDefaults count/ocount X/dcount countdictstack N}N/@setspecial{
-CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs neg 0 rlineto
-closepath clip}if ho vo TR hsc vsc scale ang rotate rwiSeen{rwi urx llx
-sub div rhiSeen{rhi ury lly sub div}{dup}ifelse scale llx neg lly neg TR
-}{rhiSeen{rhi ury lly sub div dup scale llx neg lly neg TR}if}ifelse
-CLIP 2 eq{newpath llx lly moveto urx lly lineto urx ury lineto llx ury
-lineto closepath clip}if/showpage{}N/erasepage{}N/copypage{}N newpath}N
-/@endspecial{count ocount sub{pop}repeat countdictstack dcount sub{end}
-repeat grestore SpecialSave restore end}N/@defspecial{SDict begin}N
-/@fedspecial{end}B/li{lineto}B/rl{rlineto}B/rc{rcurveto}B/np{/SaveX
-currentpoint/SaveY X N 1 setlinecap newpath}N/st{stroke SaveX SaveY
-moveto}N/fil{fill SaveX SaveY moveto}N/ellipse{/endangle X/startangle X
-/yrad X/xrad X/savematrix matrix currentmatrix N TR xrad yrad scale 0 0
-1 startangle endangle arc savematrix setmatrix}N end
+TR/showpage{}N/erasepage{}N/setpagedevice{pop}N/copypage{}N/p 3 def
+@MacSetUp}N/doclip{psf$llx psf$lly psf$urx psf$ury currentpoint 6 2 roll
+newpath 4 copy 4 2 roll moveto 6 -1 roll S lineto S lineto S lineto
+closepath clip newpath moveto}N/endTexFig{end psf$SavedState restore}N
+/@beginspecial{SDict begin/SpecialSave save N gsave normalscale
+currentpoint TR @SpecialDefaults count/ocount X/dcount countdictstack N}
+N/@setspecial{CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs
+neg 0 rlineto closepath clip}if ho vo TR hsc vsc scale ang rotate
+rwiSeen{rwi urx llx sub div rhiSeen{rhi ury lly sub div}{dup}ifelse
+scale llx neg lly neg TR}{rhiSeen{rhi ury lly sub div dup scale llx neg
+lly neg TR}if}ifelse CLIP 2 eq{newpath llx lly moveto urx lly lineto urx
+ury lineto llx ury lineto closepath clip}if/showpage{}N/erasepage{}N
+/setpagedevice{pop}N/copypage{}N newpath}N/@endspecial{count ocount sub{
+pop}repeat countdictstack dcount sub{end}repeat grestore SpecialSave
+restore end}N/@defspecial{SDict begin}N/@fedspecial{end}B/li{lineto}B
+/rl{rlineto}B/rc{rcurveto}B/np{/SaveX currentpoint/SaveY X N 1
+setlinecap newpath}N/st{stroke SaveX SaveY moveto}N/fil{fill SaveX SaveY
+moveto}N/ellipse{/endangle X/startangle X/yrad X/xrad X/savematrix
+matrix currentmatrix N TR xrad yrad scale 0 0 1 startangle endangle arc
+savematrix setmatrix}N end
%%EndProcSet
%%BeginProcSet: color.pro 0 0
@@ -5561,28 +4644,32 @@ TeXDict begin
%%EndSetup
%%Page: 1 1
TeXDict begin 1 0 bop 0 TeXcolorgray Black 165 192 a
-tx@Dict begin gsave STV CP T /ps@rot 0 def grestore end
+ /pssetRGBcolor /setrgbcolor load def /pssetCMYKcolor /setcmykcolor
+load def /pssetGraycolor /setgray load def
165 192 a 165 192 a
+tx@Dict begin gsave STV CP T /ps@rot 0 def grestore end
+ 165 192 a 165 192 a
tx@Dict begin gsave STV CP T /ps@refangle 0. def grestore end
- 165 192 a 0 TeXcolorgray 165 192
-a
+ 165 192 a 0 TeXcolorgray
+165 192 a
tx@Dict begin gsave STV CP T /ps@rot 0 def grestore end
165 192 a 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
998 901 a 998 901 a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)*(2-(-3.00)))^2))|-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)*(2-(-3.00)))^2))*((-3.00)*(2-(-3.00)))
) AlgParser cvx def end
- 998 901 a 998
-901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+ 998
+901 a 998 901 a
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
- 998 901 a @beginspecial @setspecial
+ 998 901 a @beginspecial
+@setspecial
tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { BeginArrow
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
@@ -5594,7 +4681,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5609,22 +4696,21 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
-
-
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
+
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
- 998 901 a 998 901 a
+ 998 901 a 998 901
+a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)*(2-(-3.00)))^2))|-3.00+((0.35)*t)*(1/sqrt(1+((-2.6)*(2-(-3.00)))^2))*((-2.6)*(2-(-3.00)))
) AlgParser cvx def end
- 998 901 a
-998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+ 998 901 a 998 901 a
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5639,7 +4725,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5654,7 +4740,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -5663,12 +4749,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)*(2-(-3.00)))^2))|-3.00+((0.35)*t)*(1/sqrt(1+((-2.2)*(2-(-3.00)))^2))*((-2.2)*(2-(-3.00)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5683,7 +4769,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5698,7 +4784,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -5707,12 +4793,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)*(2-(-3.00)))^2))|-3.00+((0.35)*t)*(1/sqrt(1+((-1.8)*(2-(-3.00)))^2))*((-1.8)*(2-(-3.00)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5727,7 +4813,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5742,7 +4828,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -5751,12 +4837,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)*(2-(-3.00)))^2))|-3.00+((0.35)*t)*(1/sqrt(1+((-1.4)*(2-(-3.00)))^2))*((-1.4)*(2-(-3.00)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5771,7 +4857,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5786,7 +4872,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -5795,12 +4881,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)*(2-(-3.00)))^2))|-3.00+((0.35)*t)*(1/sqrt(1+((-1.0)*(2-(-3.00)))^2))*((-1.0)*(2-(-3.00)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5808,14 +4894,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5829,8 +4915,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -5840,12 +4926,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)*(2-(-3.00)))^2))|-3.00+((0.35)*t)*(1/sqrt(1+((-0.6)*(2-(-3.00)))^2))*((-0.6)*(2-(-3.00)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5853,14 +4939,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5874,8 +4960,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -5885,12 +4971,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)*(2-(-3.00)))^2))|-3.00+((0.35)*t)*(1/sqrt(1+((-0.2)*(2-(-3.00)))^2))*((-0.2)*(2-(-3.00)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5898,14 +4984,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5919,8 +5005,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -5930,12 +5016,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+((0.2)*(2-(-3.00)))^2))|-3.00+((0.35)*t)*(1/sqrt(1+((0.2)*(2-(-3.00)))^2))*((0.2)*(2-(-3.00)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5943,14 +5029,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5964,8 +5050,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -5975,12 +5061,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+((0.6)*(2-(-3.00)))^2))|-3.00+((0.35)*t)*(1/sqrt(1+((0.6)*(2-(-3.00)))^2))*((0.6)*(2-(-3.00)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -5988,14 +5074,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6009,8 +5095,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6020,12 +5106,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+((1.0)*(2-(-3.00)))^2))|-3.00+((0.35)*t)*(1/sqrt(1+((1.0)*(2-(-3.00)))^2))*((1.0)*(2-(-3.00)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6033,14 +5119,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6054,8 +5140,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6065,12 +5151,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+((1.4)*(2-(-3.00)))^2))|-3.00+((0.35)*t)*(1/sqrt(1+((1.4)*(2-(-3.00)))^2))*((1.4)*(2-(-3.00)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6085,7 +5171,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6100,7 +5186,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6109,12 +5195,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+((1.8)*(2-(-3.00)))^2))|-3.00+((0.35)*t)*(1/sqrt(1+((1.8)*(2-(-3.00)))^2))*((1.8)*(2-(-3.00)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6129,7 +5215,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6144,7 +5230,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6153,12 +5239,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+((2.2)*(2-(-3.00)))^2))|-3.00+((0.35)*t)*(1/sqrt(1+((2.2)*(2-(-3.00)))^2))*((2.2)*(2-(-3.00)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6173,7 +5259,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6188,7 +5274,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6197,12 +5283,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+((2.6)*(2-(-3.00)))^2))|-3.00+((0.35)*t)*(1/sqrt(1+((2.6)*(2-(-3.00)))^2))*((2.6)*(2-(-3.00)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6217,7 +5303,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6232,7 +5318,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6241,12 +5327,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)*(2-(-2.6)))^2))|-2.6+((0.35)*t)*(1/sqrt(1+((-3.00)*(2-(-2.6)))^2))*((-3.00)*(2-(-2.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6261,7 +5347,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6276,7 +5362,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6285,12 +5371,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)*(2-(-2.6)))^2))|-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)*(2-(-2.6)))^2))*((-2.6)*(2-(-2.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6305,7 +5391,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6320,7 +5406,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6329,12 +5415,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)*(2-(-2.6)))^2))|-2.6+((0.35)*t)*(1/sqrt(1+((-2.2)*(2-(-2.6)))^2))*((-2.2)*(2-(-2.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6349,7 +5435,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6364,7 +5450,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6373,12 +5459,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)*(2-(-2.6)))^2))|-2.6+((0.35)*t)*(1/sqrt(1+((-1.8)*(2-(-2.6)))^2))*((-1.8)*(2-(-2.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6393,7 +5479,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6408,7 +5494,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6417,12 +5503,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)*(2-(-2.6)))^2))|-2.6+((0.35)*t)*(1/sqrt(1+((-1.4)*(2-(-2.6)))^2))*((-1.4)*(2-(-2.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6437,7 +5523,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6452,7 +5538,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6461,12 +5547,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)*(2-(-2.6)))^2))|-2.6+((0.35)*t)*(1/sqrt(1+((-1.0)*(2-(-2.6)))^2))*((-1.0)*(2-(-2.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6474,14 +5560,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6495,8 +5581,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6506,12 +5592,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)*(2-(-2.6)))^2))|-2.6+((0.35)*t)*(1/sqrt(1+((-0.6)*(2-(-2.6)))^2))*((-0.6)*(2-(-2.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6519,14 +5605,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6540,8 +5626,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6551,12 +5637,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)*(2-(-2.6)))^2))|-2.6+((0.35)*t)*(1/sqrt(1+((-0.2)*(2-(-2.6)))^2))*((-0.2)*(2-(-2.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6564,14 +5650,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6585,8 +5671,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6596,12 +5682,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+((0.2)*(2-(-2.6)))^2))|-2.6+((0.35)*t)*(1/sqrt(1+((0.2)*(2-(-2.6)))^2))*((0.2)*(2-(-2.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6609,14 +5695,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6630,8 +5716,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6641,12 +5727,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+((0.6)*(2-(-2.6)))^2))|-2.6+((0.35)*t)*(1/sqrt(1+((0.6)*(2-(-2.6)))^2))*((0.6)*(2-(-2.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6654,14 +5740,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6675,8 +5761,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6686,12 +5772,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+((1.0)*(2-(-2.6)))^2))|-2.6+((0.35)*t)*(1/sqrt(1+((1.0)*(2-(-2.6)))^2))*((1.0)*(2-(-2.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6699,14 +5785,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6720,8 +5806,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -6731,12 +5817,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+((1.4)*(2-(-2.6)))^2))|-2.6+((0.35)*t)*(1/sqrt(1+((1.4)*(2-(-2.6)))^2))*((1.4)*(2-(-2.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6751,7 +5837,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6766,7 +5852,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6775,12 +5861,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+((1.8)*(2-(-2.6)))^2))|-2.6+((0.35)*t)*(1/sqrt(1+((1.8)*(2-(-2.6)))^2))*((1.8)*(2-(-2.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6795,7 +5881,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6810,7 +5896,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6819,12 +5905,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+((2.2)*(2-(-2.6)))^2))|-2.6+((0.35)*t)*(1/sqrt(1+((2.2)*(2-(-2.6)))^2))*((2.2)*(2-(-2.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6839,7 +5925,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6854,7 +5940,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6863,12 +5949,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+((2.6)*(2-(-2.6)))^2))|-2.6+((0.35)*t)*(1/sqrt(1+((2.6)*(2-(-2.6)))^2))*((2.6)*(2-(-2.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6883,7 +5969,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6898,7 +5984,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6907,12 +5993,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)*(2-(-2.2)))^2))|-2.2+((0.35)*t)*(1/sqrt(1+((-3.00)*(2-(-2.2)))^2))*((-3.00)*(2-(-2.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6927,7 +6013,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6942,7 +6028,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6951,12 +6037,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)*(2-(-2.2)))^2))|-2.2+((0.35)*t)*(1/sqrt(1+((-2.6)*(2-(-2.2)))^2))*((-2.6)*(2-(-2.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -6971,7 +6057,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6986,7 +6072,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6995,12 +6081,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)*(2-(-2.2)))^2))|-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)*(2-(-2.2)))^2))*((-2.2)*(2-(-2.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7015,7 +6101,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7030,7 +6116,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -7039,12 +6125,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)*(2-(-2.2)))^2))|-2.2+((0.35)*t)*(1/sqrt(1+((-1.8)*(2-(-2.2)))^2))*((-1.8)*(2-(-2.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7059,7 +6145,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7074,7 +6160,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -7083,12 +6169,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)*(2-(-2.2)))^2))|-2.2+((0.35)*t)*(1/sqrt(1+((-1.4)*(2-(-2.2)))^2))*((-1.4)*(2-(-2.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7096,14 +6182,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7117,8 +6203,9 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
+end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -7127,12 +6214,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)*(2-(-2.2)))^2))|-2.2+((0.35)*t)*(1/sqrt(1+((-1.0)*(2-(-2.2)))^2))*((-1.0)*(2-(-2.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7140,14 +6227,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7161,8 +6248,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7172,12 +6259,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)*(2-(-2.2)))^2))|-2.2+((0.35)*t)*(1/sqrt(1+((-0.6)*(2-(-2.2)))^2))*((-0.6)*(2-(-2.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7185,14 +6272,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7206,8 +6293,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7217,12 +6304,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)*(2-(-2.2)))^2))|-2.2+((0.35)*t)*(1/sqrt(1+((-0.2)*(2-(-2.2)))^2))*((-0.2)*(2-(-2.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7230,14 +6317,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7251,8 +6338,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7262,12 +6349,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+((0.2)*(2-(-2.2)))^2))|-2.2+((0.35)*t)*(1/sqrt(1+((0.2)*(2-(-2.2)))^2))*((0.2)*(2-(-2.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7275,14 +6362,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7296,8 +6383,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7307,12 +6394,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+((0.6)*(2-(-2.2)))^2))|-2.2+((0.35)*t)*(1/sqrt(1+((0.6)*(2-(-2.2)))^2))*((0.6)*(2-(-2.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7320,14 +6407,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7341,8 +6428,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7352,12 +6439,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+((1.0)*(2-(-2.2)))^2))|-2.2+((0.35)*t)*(1/sqrt(1+((1.0)*(2-(-2.2)))^2))*((1.0)*(2-(-2.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7365,14 +6452,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7386,8 +6473,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7397,12 +6484,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+((1.4)*(2-(-2.2)))^2))|-2.2+((0.35)*t)*(1/sqrt(1+((1.4)*(2-(-2.2)))^2))*((1.4)*(2-(-2.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7410,14 +6497,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7431,8 +6518,9 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
+end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -7441,12 +6529,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+((1.8)*(2-(-2.2)))^2))|-2.2+((0.35)*t)*(1/sqrt(1+((1.8)*(2-(-2.2)))^2))*((1.8)*(2-(-2.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7461,7 +6549,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7476,7 +6564,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -7485,12 +6573,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+((2.2)*(2-(-2.2)))^2))|-2.2+((0.35)*t)*(1/sqrt(1+((2.2)*(2-(-2.2)))^2))*((2.2)*(2-(-2.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7505,7 +6593,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7520,7 +6608,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -7529,12 +6617,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+((2.6)*(2-(-2.2)))^2))|-2.2+((0.35)*t)*(1/sqrt(1+((2.6)*(2-(-2.2)))^2))*((2.6)*(2-(-2.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7549,7 +6637,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7564,7 +6652,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -7573,12 +6661,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)*(2-(-1.8)))^2))|-1.8+((0.35)*t)*(1/sqrt(1+((-3.00)*(2-(-1.8)))^2))*((-3.00)*(2-(-1.8)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7593,7 +6681,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7608,7 +6696,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -7617,12 +6705,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)*(2-(-1.8)))^2))|-1.8+((0.35)*t)*(1/sqrt(1+((-2.6)*(2-(-1.8)))^2))*((-2.6)*(2-(-1.8)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7637,7 +6725,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7652,7 +6740,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -7661,12 +6749,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)*(2-(-1.8)))^2))|-1.8+((0.35)*t)*(1/sqrt(1+((-2.2)*(2-(-1.8)))^2))*((-2.2)*(2-(-1.8)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7681,7 +6769,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7696,7 +6784,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -7705,12 +6793,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)*(2-(-1.8)))^2))|-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)*(2-(-1.8)))^2))*((-1.8)*(2-(-1.8)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7725,7 +6813,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7740,7 +6828,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -7749,12 +6837,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)*(2-(-1.8)))^2))|-1.8+((0.35)*t)*(1/sqrt(1+((-1.4)*(2-(-1.8)))^2))*((-1.4)*(2-(-1.8)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7762,14 +6850,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7783,8 +6871,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7794,12 +6882,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)*(2-(-1.8)))^2))|-1.8+((0.35)*t)*(1/sqrt(1+((-1.0)*(2-(-1.8)))^2))*((-1.0)*(2-(-1.8)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7807,14 +6895,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7828,8 +6916,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7839,12 +6927,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)*(2-(-1.8)))^2))|-1.8+((0.35)*t)*(1/sqrt(1+((-0.6)*(2-(-1.8)))^2))*((-0.6)*(2-(-1.8)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7852,14 +6940,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7873,8 +6961,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7884,12 +6972,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)*(2-(-1.8)))^2))|-1.8+((0.35)*t)*(1/sqrt(1+((-0.2)*(2-(-1.8)))^2))*((-0.2)*(2-(-1.8)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7897,14 +6985,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7918,8 +7006,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7929,12 +7017,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+((0.2)*(2-(-1.8)))^2))|-1.8+((0.35)*t)*(1/sqrt(1+((0.2)*(2-(-1.8)))^2))*((0.2)*(2-(-1.8)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7942,14 +7030,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7963,8 +7051,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -7974,12 +7062,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+((0.6)*(2-(-1.8)))^2))|-1.8+((0.35)*t)*(1/sqrt(1+((0.6)*(2-(-1.8)))^2))*((0.6)*(2-(-1.8)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -7987,14 +7075,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8008,8 +7096,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8019,12 +7107,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+((1.0)*(2-(-1.8)))^2))|-1.8+((0.35)*t)*(1/sqrt(1+((1.0)*(2-(-1.8)))^2))*((1.0)*(2-(-1.8)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8032,14 +7120,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8053,8 +7141,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8064,12 +7152,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+((1.4)*(2-(-1.8)))^2))|-1.8+((0.35)*t)*(1/sqrt(1+((1.4)*(2-(-1.8)))^2))*((1.4)*(2-(-1.8)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8077,14 +7165,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8098,8 +7186,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8109,12 +7197,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+((1.8)*(2-(-1.8)))^2))|-1.8+((0.35)*t)*(1/sqrt(1+((1.8)*(2-(-1.8)))^2))*((1.8)*(2-(-1.8)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8129,7 +7217,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8144,7 +7232,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8153,12 +7241,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+((2.2)*(2-(-1.8)))^2))|-1.8+((0.35)*t)*(1/sqrt(1+((2.2)*(2-(-1.8)))^2))*((2.2)*(2-(-1.8)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8173,7 +7261,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8188,7 +7276,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8197,12 +7285,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+((2.6)*(2-(-1.8)))^2))|-1.8+((0.35)*t)*(1/sqrt(1+((2.6)*(2-(-1.8)))^2))*((2.6)*(2-(-1.8)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8217,7 +7305,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8232,7 +7320,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8241,12 +7329,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)*(2-(-1.4)))^2))|-1.4+((0.35)*t)*(1/sqrt(1+((-3.00)*(2-(-1.4)))^2))*((-3.00)*(2-(-1.4)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8261,7 +7349,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8276,7 +7364,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8285,12 +7373,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)*(2-(-1.4)))^2))|-1.4+((0.35)*t)*(1/sqrt(1+((-2.6)*(2-(-1.4)))^2))*((-2.6)*(2-(-1.4)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8305,7 +7393,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8320,7 +7408,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8329,12 +7417,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)*(2-(-1.4)))^2))|-1.4+((0.35)*t)*(1/sqrt(1+((-2.2)*(2-(-1.4)))^2))*((-2.2)*(2-(-1.4)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8349,7 +7437,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8364,7 +7452,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8373,12 +7461,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)*(2-(-1.4)))^2))|-1.4+((0.35)*t)*(1/sqrt(1+((-1.8)*(2-(-1.4)))^2))*((-1.8)*(2-(-1.4)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8393,7 +7481,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8408,7 +7496,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8417,12 +7505,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)*(2-(-1.4)))^2))|-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)*(2-(-1.4)))^2))*((-1.4)*(2-(-1.4)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8430,14 +7518,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8451,8 +7539,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8462,12 +7550,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)*(2-(-1.4)))^2))|-1.4+((0.35)*t)*(1/sqrt(1+((-1.0)*(2-(-1.4)))^2))*((-1.0)*(2-(-1.4)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8475,14 +7563,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8496,8 +7584,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8507,12 +7595,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)*(2-(-1.4)))^2))|-1.4+((0.35)*t)*(1/sqrt(1+((-0.6)*(2-(-1.4)))^2))*((-0.6)*(2-(-1.4)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8520,14 +7608,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8541,8 +7629,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8552,12 +7640,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)*(2-(-1.4)))^2))|-1.4+((0.35)*t)*(1/sqrt(1+((-0.2)*(2-(-1.4)))^2))*((-0.2)*(2-(-1.4)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8565,14 +7653,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8586,8 +7674,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8597,12 +7685,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+((0.2)*(2-(-1.4)))^2))|-1.4+((0.35)*t)*(1/sqrt(1+((0.2)*(2-(-1.4)))^2))*((0.2)*(2-(-1.4)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8610,14 +7698,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8631,8 +7719,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8642,12 +7730,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+((0.6)*(2-(-1.4)))^2))|-1.4+((0.35)*t)*(1/sqrt(1+((0.6)*(2-(-1.4)))^2))*((0.6)*(2-(-1.4)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8655,14 +7743,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8676,8 +7764,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8687,12 +7775,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+((1.0)*(2-(-1.4)))^2))|-1.4+((0.35)*t)*(1/sqrt(1+((1.0)*(2-(-1.4)))^2))*((1.0)*(2-(-1.4)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8700,14 +7788,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8721,8 +7809,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8732,12 +7820,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+((1.4)*(2-(-1.4)))^2))|-1.4+((0.35)*t)*(1/sqrt(1+((1.4)*(2-(-1.4)))^2))*((1.4)*(2-(-1.4)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8745,14 +7833,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8766,8 +7854,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -8777,12 +7865,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+((1.8)*(2-(-1.4)))^2))|-1.4+((0.35)*t)*(1/sqrt(1+((1.8)*(2-(-1.4)))^2))*((1.8)*(2-(-1.4)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8797,7 +7885,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8812,7 +7900,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8821,12 +7909,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+((2.2)*(2-(-1.4)))^2))|-1.4+((0.35)*t)*(1/sqrt(1+((2.2)*(2-(-1.4)))^2))*((2.2)*(2-(-1.4)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8841,7 +7929,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8856,7 +7944,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8865,12 +7953,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+((2.6)*(2-(-1.4)))^2))|-1.4+((0.35)*t)*(1/sqrt(1+((2.6)*(2-(-1.4)))^2))*((2.6)*(2-(-1.4)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8885,7 +7973,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8900,7 +7988,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8909,12 +7997,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)*(2-(-1.0)))^2))|-1.0+((0.35)*t)*(1/sqrt(1+((-3.00)*(2-(-1.0)))^2))*((-3.00)*(2-(-1.0)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8929,7 +8017,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8944,7 +8032,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8953,12 +8041,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)*(2-(-1.0)))^2))|-1.0+((0.35)*t)*(1/sqrt(1+((-2.6)*(2-(-1.0)))^2))*((-2.6)*(2-(-1.0)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -8973,7 +8061,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8988,7 +8076,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8997,12 +8085,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)*(2-(-1.0)))^2))|-1.0+((0.35)*t)*(1/sqrt(1+((-2.2)*(2-(-1.0)))^2))*((-2.2)*(2-(-1.0)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9017,7 +8105,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9032,7 +8120,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -9041,12 +8129,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)*(2-(-1.0)))^2))|-1.0+((0.35)*t)*(1/sqrt(1+((-1.8)*(2-(-1.0)))^2))*((-1.8)*(2-(-1.0)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9054,14 +8142,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9075,8 +8163,9 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
+end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -9085,12 +8174,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)*(2-(-1.0)))^2))|-1.0+((0.35)*t)*(1/sqrt(1+((-1.4)*(2-(-1.0)))^2))*((-1.4)*(2-(-1.0)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9098,14 +8187,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9119,8 +8208,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9130,12 +8219,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)*(2-(-1.0)))^2))|-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)*(2-(-1.0)))^2))*((-1.0)*(2-(-1.0)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9150,7 +8239,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9165,7 +8254,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9175,12 +8264,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)*(2-(-1.0)))^2))|-1.0+((0.35)*t)*(1/sqrt(1+((-0.6)*(2-(-1.0)))^2))*((-0.6)*(2-(-1.0)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9188,14 +8277,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9209,8 +8298,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9220,12 +8309,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)*(2-(-1.0)))^2))|-1.0+((0.35)*t)*(1/sqrt(1+((-0.2)*(2-(-1.0)))^2))*((-0.2)*(2-(-1.0)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9233,30 +8322,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -9265,12 +8354,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+((0.2)*(2-(-1.0)))^2))|-1.0+((0.35)*t)*(1/sqrt(1+((0.2)*(2-(-1.0)))^2))*((0.2)*(2-(-1.0)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9278,30 +8367,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -9310,12 +8399,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+((0.6)*(2-(-1.0)))^2))|-1.0+((0.35)*t)*(1/sqrt(1+((0.6)*(2-(-1.0)))^2))*((0.6)*(2-(-1.0)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9323,14 +8412,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9344,8 +8433,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9355,12 +8444,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+((1.0)*(2-(-1.0)))^2))|-1.0+((0.35)*t)*(1/sqrt(1+((1.0)*(2-(-1.0)))^2))*((1.0)*(2-(-1.0)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9375,7 +8464,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9390,7 +8479,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9400,12 +8489,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+((1.4)*(2-(-1.0)))^2))|-1.0+((0.35)*t)*(1/sqrt(1+((1.4)*(2-(-1.0)))^2))*((1.4)*(2-(-1.0)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9413,14 +8502,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9434,8 +8523,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9445,12 +8534,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+((1.8)*(2-(-1.0)))^2))|-1.0+((0.35)*t)*(1/sqrt(1+((1.8)*(2-(-1.0)))^2))*((1.8)*(2-(-1.0)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9458,14 +8547,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9479,8 +8568,9 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
+end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -9489,12 +8579,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+((2.2)*(2-(-1.0)))^2))|-1.0+((0.35)*t)*(1/sqrt(1+((2.2)*(2-(-1.0)))^2))*((2.2)*(2-(-1.0)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9509,7 +8599,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9524,7 +8614,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -9533,12 +8623,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+((2.6)*(2-(-1.0)))^2))|-1.0+((0.35)*t)*(1/sqrt(1+((2.6)*(2-(-1.0)))^2))*((2.6)*(2-(-1.0)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9553,7 +8643,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9568,7 +8658,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -9577,12 +8667,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)*(2-(-0.6)))^2))|-0.6+((0.35)*t)*(1/sqrt(1+((-3.00)*(2-(-0.6)))^2))*((-3.00)*(2-(-0.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9597,7 +8687,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9612,7 +8702,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -9621,12 +8711,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)*(2-(-0.6)))^2))|-0.6+((0.35)*t)*(1/sqrt(1+((-2.6)*(2-(-0.6)))^2))*((-2.6)*(2-(-0.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9641,7 +8731,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9656,7 +8746,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -9665,12 +8755,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)*(2-(-0.6)))^2))|-0.6+((0.35)*t)*(1/sqrt(1+((-2.2)*(2-(-0.6)))^2))*((-2.2)*(2-(-0.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9678,14 +8768,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9699,8 +8789,9 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
+end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -9709,12 +8800,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)*(2-(-0.6)))^2))|-0.6+((0.35)*t)*(1/sqrt(1+((-1.8)*(2-(-0.6)))^2))*((-1.8)*(2-(-0.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9722,14 +8813,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9743,8 +8834,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9754,12 +8845,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)*(2-(-0.6)))^2))|-0.6+((0.35)*t)*(1/sqrt(1+((-1.4)*(2-(-0.6)))^2))*((-1.4)*(2-(-0.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9767,14 +8858,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9788,8 +8879,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9799,12 +8890,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)*(2-(-0.6)))^2))|-0.6+((0.35)*t)*(1/sqrt(1+((-1.0)*(2-(-0.6)))^2))*((-1.0)*(2-(-0.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9812,14 +8903,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9833,8 +8924,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9844,12 +8935,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)*(2-(-0.6)))^2))|-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)*(2-(-0.6)))^2))*((-0.6)*(2-(-0.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9857,14 +8948,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9878,8 +8969,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -9889,12 +8980,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)*(2-(-0.6)))^2))|-0.6+((0.35)*t)*(1/sqrt(1+((-0.2)*(2-(-0.6)))^2))*((-0.2)*(2-(-0.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9902,30 +8993,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -9934,12 +9025,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+((0.2)*(2-(-0.6)))^2))|-0.6+((0.35)*t)*(1/sqrt(1+((0.2)*(2-(-0.6)))^2))*((0.2)*(2-(-0.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9947,30 +9038,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -9979,12 +9070,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+((0.6)*(2-(-0.6)))^2))|-0.6+((0.35)*t)*(1/sqrt(1+((0.6)*(2-(-0.6)))^2))*((0.6)*(2-(-0.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -9992,14 +9083,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10013,8 +9104,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10024,12 +9115,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+((1.0)*(2-(-0.6)))^2))|-0.6+((0.35)*t)*(1/sqrt(1+((1.0)*(2-(-0.6)))^2))*((1.0)*(2-(-0.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10037,14 +9128,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10058,8 +9149,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10069,12 +9160,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+((1.4)*(2-(-0.6)))^2))|-0.6+((0.35)*t)*(1/sqrt(1+((1.4)*(2-(-0.6)))^2))*((1.4)*(2-(-0.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10082,14 +9173,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10103,8 +9194,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10114,12 +9205,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+((1.8)*(2-(-0.6)))^2))|-0.6+((0.35)*t)*(1/sqrt(1+((1.8)*(2-(-0.6)))^2))*((1.8)*(2-(-0.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10127,14 +9218,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10148,8 +9239,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10159,12 +9250,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+((2.2)*(2-(-0.6)))^2))|-0.6+((0.35)*t)*(1/sqrt(1+((2.2)*(2-(-0.6)))^2))*((2.2)*(2-(-0.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10172,14 +9263,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10193,8 +9284,9 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
+end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10203,12 +9295,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+((2.6)*(2-(-0.6)))^2))|-0.6+((0.35)*t)*(1/sqrt(1+((2.6)*(2-(-0.6)))^2))*((2.6)*(2-(-0.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10223,7 +9315,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10238,7 +9330,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10247,12 +9339,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)*(2-(-0.2)))^2))|-0.2+((0.35)*t)*(1/sqrt(1+((-3.00)*(2-(-0.2)))^2))*((-3.00)*(2-(-0.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10267,7 +9359,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10282,7 +9374,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10291,12 +9383,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)*(2-(-0.2)))^2))|-0.2+((0.35)*t)*(1/sqrt(1+((-2.6)*(2-(-0.2)))^2))*((-2.6)*(2-(-0.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10304,14 +9396,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10325,8 +9417,9 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
+end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10335,12 +9428,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)*(2-(-0.2)))^2))|-0.2+((0.35)*t)*(1/sqrt(1+((-2.2)*(2-(-0.2)))^2))*((-2.2)*(2-(-0.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10348,14 +9441,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10369,8 +9462,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10380,12 +9473,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)*(2-(-0.2)))^2))|-0.2+((0.35)*t)*(1/sqrt(1+((-1.8)*(2-(-0.2)))^2))*((-1.8)*(2-(-0.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10393,14 +9486,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10414,8 +9507,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10425,12 +9518,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)*(2-(-0.2)))^2))|-0.2+((0.35)*t)*(1/sqrt(1+((-1.4)*(2-(-0.2)))^2))*((-1.4)*(2-(-0.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10438,14 +9531,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10459,8 +9552,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10470,12 +9563,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)*(2-(-0.2)))^2))|-0.2+((0.35)*t)*(1/sqrt(1+((-1.0)*(2-(-0.2)))^2))*((-1.0)*(2-(-0.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10483,14 +9576,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10504,8 +9597,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10515,12 +9608,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)*(2-(-0.2)))^2))|-0.2+((0.35)*t)*(1/sqrt(1+((-0.6)*(2-(-0.2)))^2))*((-0.6)*(2-(-0.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10528,14 +9621,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10549,8 +9642,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10560,12 +9653,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)*(2-(-0.2)))^2))|-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)*(2-(-0.2)))^2))*((-0.2)*(2-(-0.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10573,30 +9666,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10605,12 +9698,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+((0.2)*(2-(-0.2)))^2))|-0.2+((0.35)*t)*(1/sqrt(1+((0.2)*(2-(-0.2)))^2))*((0.2)*(2-(-0.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10618,30 +9711,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10650,12 +9743,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+((0.6)*(2-(-0.2)))^2))|-0.2+((0.35)*t)*(1/sqrt(1+((0.6)*(2-(-0.2)))^2))*((0.6)*(2-(-0.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10663,14 +9756,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10684,8 +9777,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10695,12 +9788,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+((1.0)*(2-(-0.2)))^2))|-0.2+((0.35)*t)*(1/sqrt(1+((1.0)*(2-(-0.2)))^2))*((1.0)*(2-(-0.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10708,14 +9801,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10729,8 +9822,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10740,12 +9833,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+((1.4)*(2-(-0.2)))^2))|-0.2+((0.35)*t)*(1/sqrt(1+((1.4)*(2-(-0.2)))^2))*((1.4)*(2-(-0.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10753,14 +9846,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10774,8 +9867,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10785,12 +9878,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+((1.8)*(2-(-0.2)))^2))|-0.2+((0.35)*t)*(1/sqrt(1+((1.8)*(2-(-0.2)))^2))*((1.8)*(2-(-0.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10798,14 +9891,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10819,8 +9912,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10830,12 +9923,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+((2.2)*(2-(-0.2)))^2))|-0.2+((0.35)*t)*(1/sqrt(1+((2.2)*(2-(-0.2)))^2))*((2.2)*(2-(-0.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10843,14 +9936,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10864,8 +9957,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -10875,12 +9968,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+((2.6)*(2-(-0.2)))^2))|-0.2+((0.35)*t)*(1/sqrt(1+((2.6)*(2-(-0.2)))^2))*((2.6)*(2-(-0.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10888,14 +9981,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10909,8 +10002,9 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
+end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10919,12 +10013,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)*(2-(0.2)))^2))|0.2+((0.35)*t)*(1/sqrt(1+((-3.00)*(2-(0.2)))^2))*((-3.00)*(2-(0.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10932,14 +10026,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10953,8 +10047,9 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
+end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10963,12 +10058,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)*(2-(0.2)))^2))|0.2+((0.35)*t)*(1/sqrt(1+((-2.6)*(2-(0.2)))^2))*((-2.6)*(2-(0.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -10976,14 +10071,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10997,8 +10092,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11008,12 +10103,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)*(2-(0.2)))^2))|0.2+((0.35)*t)*(1/sqrt(1+((-2.2)*(2-(0.2)))^2))*((-2.2)*(2-(0.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11021,14 +10116,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11042,8 +10137,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11053,12 +10148,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)*(2-(0.2)))^2))|0.2+((0.35)*t)*(1/sqrt(1+((-1.8)*(2-(0.2)))^2))*((-1.8)*(2-(0.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11066,14 +10161,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11087,8 +10182,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11098,12 +10193,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)*(2-(0.2)))^2))|0.2+((0.35)*t)*(1/sqrt(1+((-1.4)*(2-(0.2)))^2))*((-1.4)*(2-(0.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11111,14 +10206,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11132,8 +10227,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11143,12 +10238,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)*(2-(0.2)))^2))|0.2+((0.35)*t)*(1/sqrt(1+((-1.0)*(2-(0.2)))^2))*((-1.0)*(2-(0.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11156,14 +10251,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11177,8 +10272,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11188,12 +10283,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)*(2-(0.2)))^2))|0.2+((0.35)*t)*(1/sqrt(1+((-0.6)*(2-(0.2)))^2))*((-0.6)*(2-(0.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11201,14 +10296,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11222,8 +10317,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11233,12 +10328,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)*(2-(0.2)))^2))|0.2+((0.35)*t)*(1/sqrt(1+((-0.2)*(2-(0.2)))^2))*((-0.2)*(2-(0.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11246,30 +10341,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11278,12 +10373,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+((0.2)*(2-(0.2)))^2))|0.2+((0.35)*t)*(1/sqrt(1+((0.2)*(2-(0.2)))^2))*((0.2)*(2-(0.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11291,30 +10386,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11323,12 +10418,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+((0.6)*(2-(0.2)))^2))|0.2+((0.35)*t)*(1/sqrt(1+((0.6)*(2-(0.2)))^2))*((0.6)*(2-(0.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11336,14 +10431,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11357,8 +10452,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11368,12 +10463,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+((1.0)*(2-(0.2)))^2))|0.2+((0.35)*t)*(1/sqrt(1+((1.0)*(2-(0.2)))^2))*((1.0)*(2-(0.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11381,14 +10476,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11402,8 +10497,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11413,12 +10508,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+((1.4)*(2-(0.2)))^2))|0.2+((0.35)*t)*(1/sqrt(1+((1.4)*(2-(0.2)))^2))*((1.4)*(2-(0.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11426,14 +10521,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11447,8 +10542,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11458,12 +10553,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+((1.8)*(2-(0.2)))^2))|0.2+((0.35)*t)*(1/sqrt(1+((1.8)*(2-(0.2)))^2))*((1.8)*(2-(0.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11471,14 +10566,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11492,8 +10587,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11503,12 +10598,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+((2.2)*(2-(0.2)))^2))|0.2+((0.35)*t)*(1/sqrt(1+((2.2)*(2-(0.2)))^2))*((2.2)*(2-(0.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11516,14 +10611,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11537,8 +10632,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11548,12 +10643,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+((2.6)*(2-(0.2)))^2))|0.2+((0.35)*t)*(1/sqrt(1+((2.6)*(2-(0.2)))^2))*((2.6)*(2-(0.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11561,14 +10656,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11582,8 +10677,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11593,12 +10688,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)*(2-(0.6)))^2))|0.6+((0.35)*t)*(1/sqrt(1+((-3.00)*(2-(0.6)))^2))*((-3.00)*(2-(0.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11606,14 +10701,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11627,8 +10722,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11638,12 +10733,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)*(2-(0.6)))^2))|0.6+((0.35)*t)*(1/sqrt(1+((-2.6)*(2-(0.6)))^2))*((-2.6)*(2-(0.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11651,14 +10746,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11672,8 +10767,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11683,12 +10778,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)*(2-(0.6)))^2))|0.6+((0.35)*t)*(1/sqrt(1+((-2.2)*(2-(0.6)))^2))*((-2.2)*(2-(0.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11696,14 +10791,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11717,8 +10812,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11728,12 +10823,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)*(2-(0.6)))^2))|0.6+((0.35)*t)*(1/sqrt(1+((-1.8)*(2-(0.6)))^2))*((-1.8)*(2-(0.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11741,14 +10836,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11762,8 +10857,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11773,12 +10868,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)*(2-(0.6)))^2))|0.6+((0.35)*t)*(1/sqrt(1+((-1.4)*(2-(0.6)))^2))*((-1.4)*(2-(0.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11786,14 +10881,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11807,8 +10902,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11818,12 +10913,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)*(2-(0.6)))^2))|0.6+((0.35)*t)*(1/sqrt(1+((-1.0)*(2-(0.6)))^2))*((-1.0)*(2-(0.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11831,14 +10926,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11852,8 +10947,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11863,12 +10958,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)*(2-(0.6)))^2))|0.6+((0.35)*t)*(1/sqrt(1+((-0.6)*(2-(0.6)))^2))*((-0.6)*(2-(0.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11876,14 +10971,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11897,8 +10992,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -11908,12 +11003,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)*(2-(0.6)))^2))|0.6+((0.35)*t)*(1/sqrt(1+((-0.2)*(2-(0.6)))^2))*((-0.2)*(2-(0.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11921,30 +11016,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11953,12 +11048,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+((0.2)*(2-(0.6)))^2))|0.6+((0.35)*t)*(1/sqrt(1+((0.2)*(2-(0.6)))^2))*((0.2)*(2-(0.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -11966,30 +11061,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11998,12 +11093,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+((0.6)*(2-(0.6)))^2))|0.6+((0.35)*t)*(1/sqrt(1+((0.6)*(2-(0.6)))^2))*((0.6)*(2-(0.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12011,14 +11106,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12032,8 +11127,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12043,12 +11138,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+((1.0)*(2-(0.6)))^2))|0.6+((0.35)*t)*(1/sqrt(1+((1.0)*(2-(0.6)))^2))*((1.0)*(2-(0.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12056,14 +11151,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12077,8 +11172,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12088,12 +11183,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+((1.4)*(2-(0.6)))^2))|0.6+((0.35)*t)*(1/sqrt(1+((1.4)*(2-(0.6)))^2))*((1.4)*(2-(0.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12101,14 +11196,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12122,8 +11217,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12133,12 +11228,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+((1.8)*(2-(0.6)))^2))|0.6+((0.35)*t)*(1/sqrt(1+((1.8)*(2-(0.6)))^2))*((1.8)*(2-(0.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12146,14 +11241,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12167,8 +11262,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12178,12 +11273,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+((2.2)*(2-(0.6)))^2))|0.6+((0.35)*t)*(1/sqrt(1+((2.2)*(2-(0.6)))^2))*((2.2)*(2-(0.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12191,14 +11286,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12212,8 +11307,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12223,12 +11318,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+((2.6)*(2-(0.6)))^2))|0.6+((0.35)*t)*(1/sqrt(1+((2.6)*(2-(0.6)))^2))*((2.6)*(2-(0.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12236,14 +11331,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12257,8 +11352,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12268,12 +11363,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)*(2-(1.0)))^2))|1.0+((0.35)*t)*(1/sqrt(1+((-3.00)*(2-(1.0)))^2))*((-3.00)*(2-(1.0)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12288,7 +11383,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12303,7 +11398,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12313,12 +11408,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)*(2-(1.0)))^2))|1.0+((0.35)*t)*(1/sqrt(1+((-2.6)*(2-(1.0)))^2))*((-2.6)*(2-(1.0)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12326,14 +11421,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12347,8 +11442,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12358,12 +11453,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)*(2-(1.0)))^2))|1.0+((0.35)*t)*(1/sqrt(1+((-2.2)*(2-(1.0)))^2))*((-2.2)*(2-(1.0)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12371,14 +11466,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12392,8 +11487,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12403,12 +11498,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)*(2-(1.0)))^2))|1.0+((0.35)*t)*(1/sqrt(1+((-1.8)*(2-(1.0)))^2))*((-1.8)*(2-(1.0)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12416,14 +11511,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12437,8 +11532,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12448,12 +11543,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)*(2-(1.0)))^2))|1.0+((0.35)*t)*(1/sqrt(1+((-1.4)*(2-(1.0)))^2))*((-1.4)*(2-(1.0)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12461,14 +11556,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12482,8 +11577,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12493,12 +11588,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)*(2-(1.0)))^2))|1.0+((0.35)*t)*(1/sqrt(1+((-1.0)*(2-(1.0)))^2))*((-1.0)*(2-(1.0)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12506,14 +11601,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12527,8 +11622,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12538,12 +11633,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)*(2-(1.0)))^2))|1.0+((0.35)*t)*(1/sqrt(1+((-0.6)*(2-(1.0)))^2))*((-0.6)*(2-(1.0)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12551,14 +11646,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12572,8 +11667,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12583,12 +11678,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)*(2-(1.0)))^2))|1.0+((0.35)*t)*(1/sqrt(1+((-0.2)*(2-(1.0)))^2))*((-0.2)*(2-(1.0)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12596,30 +11691,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -12628,12 +11723,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+((0.2)*(2-(1.0)))^2))|1.0+((0.35)*t)*(1/sqrt(1+((0.2)*(2-(1.0)))^2))*((0.2)*(2-(1.0)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12641,30 +11736,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -12673,12 +11768,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+((0.6)*(2-(1.0)))^2))|1.0+((0.35)*t)*(1/sqrt(1+((0.6)*(2-(1.0)))^2))*((0.6)*(2-(1.0)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12686,14 +11781,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12707,8 +11802,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12718,12 +11813,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+((1.0)*(2-(1.0)))^2))|1.0+((0.35)*t)*(1/sqrt(1+((1.0)*(2-(1.0)))^2))*((1.0)*(2-(1.0)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12731,14 +11826,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12752,8 +11847,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12763,12 +11858,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+((1.4)*(2-(1.0)))^2))|1.0+((0.35)*t)*(1/sqrt(1+((1.4)*(2-(1.0)))^2))*((1.4)*(2-(1.0)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12776,14 +11871,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12797,8 +11892,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12808,12 +11903,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+((1.8)*(2-(1.0)))^2))|1.0+((0.35)*t)*(1/sqrt(1+((1.8)*(2-(1.0)))^2))*((1.8)*(2-(1.0)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12821,14 +11916,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12842,8 +11937,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12853,12 +11948,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+((2.2)*(2-(1.0)))^2))|1.0+((0.35)*t)*(1/sqrt(1+((2.2)*(2-(1.0)))^2))*((2.2)*(2-(1.0)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12866,14 +11961,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12887,8 +11982,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12898,12 +11993,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+((2.6)*(2-(1.0)))^2))|1.0+((0.35)*t)*(1/sqrt(1+((2.6)*(2-(1.0)))^2))*((2.6)*(2-(1.0)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12911,14 +12006,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12932,8 +12027,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12943,12 +12038,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)*(2-(1.4)))^2))|1.4+((0.35)*t)*(1/sqrt(1+((-3.00)*(2-(1.4)))^2))*((-3.00)*(2-(1.4)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -12956,14 +12051,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12977,8 +12072,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -12988,12 +12083,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)*(2-(1.4)))^2))|1.4+((0.35)*t)*(1/sqrt(1+((-2.6)*(2-(1.4)))^2))*((-2.6)*(2-(1.4)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13001,14 +12096,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13022,8 +12117,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13033,12 +12128,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)*(2-(1.4)))^2))|1.4+((0.35)*t)*(1/sqrt(1+((-2.2)*(2-(1.4)))^2))*((-2.2)*(2-(1.4)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13046,14 +12141,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13067,8 +12162,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13078,12 +12173,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)*(2-(1.4)))^2))|1.4+((0.35)*t)*(1/sqrt(1+((-1.8)*(2-(1.4)))^2))*((-1.8)*(2-(1.4)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13091,14 +12186,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13112,8 +12207,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13123,12 +12218,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)*(2-(1.4)))^2))|1.4+((0.35)*t)*(1/sqrt(1+((-1.4)*(2-(1.4)))^2))*((-1.4)*(2-(1.4)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13136,14 +12231,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13157,8 +12252,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13168,12 +12263,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)*(2-(1.4)))^2))|1.4+((0.35)*t)*(1/sqrt(1+((-1.0)*(2-(1.4)))^2))*((-1.0)*(2-(1.4)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13181,14 +12276,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13202,8 +12297,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13213,12 +12308,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)*(2-(1.4)))^2))|1.4+((0.35)*t)*(1/sqrt(1+((-0.6)*(2-(1.4)))^2))*((-0.6)*(2-(1.4)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13226,30 +12321,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13258,12 +12353,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)*(2-(1.4)))^2))|1.4+((0.35)*t)*(1/sqrt(1+((-0.2)*(2-(1.4)))^2))*((-0.2)*(2-(1.4)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13271,30 +12366,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13303,12 +12398,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+((0.2)*(2-(1.4)))^2))|1.4+((0.35)*t)*(1/sqrt(1+((0.2)*(2-(1.4)))^2))*((0.2)*(2-(1.4)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13316,30 +12411,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13348,12 +12443,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+((0.6)*(2-(1.4)))^2))|1.4+((0.35)*t)*(1/sqrt(1+((0.6)*(2-(1.4)))^2))*((0.6)*(2-(1.4)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13361,30 +12456,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13393,12 +12488,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+((1.0)*(2-(1.4)))^2))|1.4+((0.35)*t)*(1/sqrt(1+((1.0)*(2-(1.4)))^2))*((1.0)*(2-(1.4)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13406,14 +12501,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13427,8 +12522,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13438,12 +12533,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+((1.4)*(2-(1.4)))^2))|1.4+((0.35)*t)*(1/sqrt(1+((1.4)*(2-(1.4)))^2))*((1.4)*(2-(1.4)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13451,14 +12546,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13472,8 +12567,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13483,12 +12578,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+((1.8)*(2-(1.4)))^2))|1.4+((0.35)*t)*(1/sqrt(1+((1.8)*(2-(1.4)))^2))*((1.8)*(2-(1.4)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13496,14 +12591,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13517,8 +12612,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13528,12 +12623,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+((2.2)*(2-(1.4)))^2))|1.4+((0.35)*t)*(1/sqrt(1+((2.2)*(2-(1.4)))^2))*((2.2)*(2-(1.4)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13541,14 +12636,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13562,8 +12657,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13573,12 +12668,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+((2.6)*(2-(1.4)))^2))|1.4+((0.35)*t)*(1/sqrt(1+((2.6)*(2-(1.4)))^2))*((2.6)*(2-(1.4)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13586,14 +12681,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13607,8 +12702,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -13618,12 +12713,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)*(2-(1.8)))^2))|1.8+((0.35)*t)*(1/sqrt(1+((-3.00)*(2-(1.8)))^2))*((-3.00)*(2-(1.8)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13631,30 +12726,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13663,12 +12758,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)*(2-(1.8)))^2))|1.8+((0.35)*t)*(1/sqrt(1+((-2.6)*(2-(1.8)))^2))*((-2.6)*(2-(1.8)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13676,30 +12771,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13708,12 +12803,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)*(2-(1.8)))^2))|1.8+((0.35)*t)*(1/sqrt(1+((-2.2)*(2-(1.8)))^2))*((-2.2)*(2-(1.8)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13721,30 +12816,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13753,12 +12848,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)*(2-(1.8)))^2))|1.8+((0.35)*t)*(1/sqrt(1+((-1.8)*(2-(1.8)))^2))*((-1.8)*(2-(1.8)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13766,30 +12861,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13798,12 +12893,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)*(2-(1.8)))^2))|1.8+((0.35)*t)*(1/sqrt(1+((-1.4)*(2-(1.8)))^2))*((-1.4)*(2-(1.8)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13811,30 +12906,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13843,12 +12938,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)*(2-(1.8)))^2))|1.8+((0.35)*t)*(1/sqrt(1+((-1.0)*(2-(1.8)))^2))*((-1.0)*(2-(1.8)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13856,30 +12951,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13888,12 +12983,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)*(2-(1.8)))^2))|1.8+((0.35)*t)*(1/sqrt(1+((-0.6)*(2-(1.8)))^2))*((-0.6)*(2-(1.8)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13901,30 +12996,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13933,12 +13028,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)*(2-(1.8)))^2))|1.8+((0.35)*t)*(1/sqrt(1+((-0.2)*(2-(1.8)))^2))*((-0.2)*(2-(1.8)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13946,30 +13041,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13978,12 +13073,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+((0.2)*(2-(1.8)))^2))|1.8+((0.35)*t)*(1/sqrt(1+((0.2)*(2-(1.8)))^2))*((0.2)*(2-(1.8)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -13991,30 +13086,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14023,12 +13118,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+((0.6)*(2-(1.8)))^2))|1.8+((0.35)*t)*(1/sqrt(1+((0.6)*(2-(1.8)))^2))*((0.6)*(2-(1.8)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14036,30 +13131,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14068,12 +13163,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+((1.0)*(2-(1.8)))^2))|1.8+((0.35)*t)*(1/sqrt(1+((1.0)*(2-(1.8)))^2))*((1.0)*(2-(1.8)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14081,30 +13176,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14113,12 +13208,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+((1.4)*(2-(1.8)))^2))|1.8+((0.35)*t)*(1/sqrt(1+((1.4)*(2-(1.8)))^2))*((1.4)*(2-(1.8)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14126,30 +13221,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14158,12 +13253,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+((1.8)*(2-(1.8)))^2))|1.8+((0.35)*t)*(1/sqrt(1+((1.8)*(2-(1.8)))^2))*((1.8)*(2-(1.8)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14171,30 +13266,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14203,12 +13298,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+((2.2)*(2-(1.8)))^2))|1.8+((0.35)*t)*(1/sqrt(1+((2.2)*(2-(1.8)))^2))*((2.2)*(2-(1.8)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14216,30 +13311,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14248,12 +13343,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+((2.6)*(2-(1.8)))^2))|1.8+((0.35)*t)*(1/sqrt(1+((2.6)*(2-(1.8)))^2))*((2.6)*(2-(1.8)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14261,30 +13356,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14293,12 +13388,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)*(2-(2.2)))^2))|2.2+((0.35)*t)*(1/sqrt(1+((-3.00)*(2-(2.2)))^2))*((-3.00)*(2-(2.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14306,30 +13401,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14338,12 +13433,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)*(2-(2.2)))^2))|2.2+((0.35)*t)*(1/sqrt(1+((-2.6)*(2-(2.2)))^2))*((-2.6)*(2-(2.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14351,30 +13446,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14383,12 +13478,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)*(2-(2.2)))^2))|2.2+((0.35)*t)*(1/sqrt(1+((-2.2)*(2-(2.2)))^2))*((-2.2)*(2-(2.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14396,30 +13491,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14428,12 +13523,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)*(2-(2.2)))^2))|2.2+((0.35)*t)*(1/sqrt(1+((-1.8)*(2-(2.2)))^2))*((-1.8)*(2-(2.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14441,30 +13536,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14473,12 +13568,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)*(2-(2.2)))^2))|2.2+((0.35)*t)*(1/sqrt(1+((-1.4)*(2-(2.2)))^2))*((-1.4)*(2-(2.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14486,30 +13581,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14518,12 +13613,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)*(2-(2.2)))^2))|2.2+((0.35)*t)*(1/sqrt(1+((-1.0)*(2-(2.2)))^2))*((-1.0)*(2-(2.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14531,30 +13626,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14563,12 +13658,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)*(2-(2.2)))^2))|2.2+((0.35)*t)*(1/sqrt(1+((-0.6)*(2-(2.2)))^2))*((-0.6)*(2-(2.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14576,30 +13671,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14608,12 +13703,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)*(2-(2.2)))^2))|2.2+((0.35)*t)*(1/sqrt(1+((-0.2)*(2-(2.2)))^2))*((-0.2)*(2-(2.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14621,30 +13716,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14653,12 +13748,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+((0.2)*(2-(2.2)))^2))|2.2+((0.35)*t)*(1/sqrt(1+((0.2)*(2-(2.2)))^2))*((0.2)*(2-(2.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14666,30 +13761,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14698,12 +13793,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+((0.6)*(2-(2.2)))^2))|2.2+((0.35)*t)*(1/sqrt(1+((0.6)*(2-(2.2)))^2))*((0.6)*(2-(2.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14711,30 +13806,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14743,12 +13838,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+((1.0)*(2-(2.2)))^2))|2.2+((0.35)*t)*(1/sqrt(1+((1.0)*(2-(2.2)))^2))*((1.0)*(2-(2.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14756,30 +13851,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14788,12 +13883,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+((1.4)*(2-(2.2)))^2))|2.2+((0.35)*t)*(1/sqrt(1+((1.4)*(2-(2.2)))^2))*((1.4)*(2-(2.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14801,30 +13896,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14833,12 +13928,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+((1.8)*(2-(2.2)))^2))|2.2+((0.35)*t)*(1/sqrt(1+((1.8)*(2-(2.2)))^2))*((1.8)*(2-(2.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14846,30 +13941,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14878,12 +13973,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+((2.2)*(2-(2.2)))^2))|2.2+((0.35)*t)*(1/sqrt(1+((2.2)*(2-(2.2)))^2))*((2.2)*(2-(2.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14891,30 +13986,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14923,12 +14018,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+((2.6)*(2-(2.2)))^2))|2.2+((0.35)*t)*(1/sqrt(1+((2.6)*(2-(2.2)))^2))*((2.6)*(2-(2.2)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14936,30 +14031,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14968,12 +14063,12 @@ a
tx@Dict begin /Func (-3.00+((0.35)*t)*(1/sqrt(1+((-3.00)*(2-(2.6)))^2))|2.6+((0.35)*t)*(1/sqrt(1+((-3.00)*(2-(2.6)))^2))*((-3.00)*(2-(2.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -14981,14 +14076,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15002,8 +14097,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15013,12 +14108,12 @@ a
tx@Dict begin /Func (-2.6+((0.35)*t)*(1/sqrt(1+((-2.6)*(2-(2.6)))^2))|2.6+((0.35)*t)*(1/sqrt(1+((-2.6)*(2-(2.6)))^2))*((-2.6)*(2-(2.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15026,14 +14121,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15047,8 +14142,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15058,12 +14153,12 @@ a
tx@Dict begin /Func (-2.2+((0.35)*t)*(1/sqrt(1+((-2.2)*(2-(2.6)))^2))|2.6+((0.35)*t)*(1/sqrt(1+((-2.2)*(2-(2.6)))^2))*((-2.2)*(2-(2.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15071,14 +14166,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15092,8 +14187,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15103,12 +14198,12 @@ a
tx@Dict begin /Func (-1.8+((0.35)*t)*(1/sqrt(1+((-1.8)*(2-(2.6)))^2))|2.6+((0.35)*t)*(1/sqrt(1+((-1.8)*(2-(2.6)))^2))*((-1.8)*(2-(2.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15116,14 +14211,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15137,8 +14232,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15148,12 +14243,12 @@ a
tx@Dict begin /Func (-1.4+((0.35)*t)*(1/sqrt(1+((-1.4)*(2-(2.6)))^2))|2.6+((0.35)*t)*(1/sqrt(1+((-1.4)*(2-(2.6)))^2))*((-1.4)*(2-(2.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15161,14 +14256,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15182,8 +14277,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15193,12 +14288,12 @@ a
tx@Dict begin /Func (-1.0+((0.35)*t)*(1/sqrt(1+((-1.0)*(2-(2.6)))^2))|2.6+((0.35)*t)*(1/sqrt(1+((-1.0)*(2-(2.6)))^2))*((-1.0)*(2-(2.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15206,14 +14301,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15227,8 +14322,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15238,12 +14333,12 @@ a
tx@Dict begin /Func (-0.6+((0.35)*t)*(1/sqrt(1+((-0.6)*(2-(2.6)))^2))|2.6+((0.35)*t)*(1/sqrt(1+((-0.6)*(2-(2.6)))^2))*((-0.6)*(2-(2.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15251,30 +14346,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -15283,12 +14378,12 @@ a
tx@Dict begin /Func (-0.2+((0.35)*t)*(1/sqrt(1+((-0.2)*(2-(2.6)))^2))|2.6+((0.35)*t)*(1/sqrt(1+((-0.2)*(2-(2.6)))^2))*((-0.2)*(2-(2.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15296,30 +14391,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -15328,12 +14423,12 @@ a
tx@Dict begin /Func (0.2+((0.35)*t)*(1/sqrt(1+((0.2)*(2-(2.6)))^2))|2.6+((0.35)*t)*(1/sqrt(1+((0.2)*(2-(2.6)))^2))*((0.2)*(2-(2.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15341,30 +14436,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -15373,12 +14468,12 @@ a
tx@Dict begin /Func (0.6+((0.35)*t)*(1/sqrt(1+((0.6)*(2-(2.6)))^2))|2.6+((0.35)*t)*(1/sqrt(1+((0.6)*(2-(2.6)))^2))*((0.6)*(2-(2.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15386,30 +14481,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 998 901 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -15418,12 +14513,12 @@ a
tx@Dict begin /Func (1.0+((0.35)*t)*(1/sqrt(1+((1.0)*(2-(2.6)))^2))|2.6+((0.35)*t)*(1/sqrt(1+((1.0)*(2-(2.6)))^2))*((1.0)*(2-(2.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15431,14 +14526,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15452,8 +14547,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15463,12 +14558,12 @@ a
tx@Dict begin /Func (1.4+((0.35)*t)*(1/sqrt(1+((1.4)*(2-(2.6)))^2))|2.6+((0.35)*t)*(1/sqrt(1+((1.4)*(2-(2.6)))^2))*((1.4)*(2-(2.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15476,14 +14571,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15497,8 +14592,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15508,12 +14603,12 @@ a
tx@Dict begin /Func (1.8+((0.35)*t)*(1/sqrt(1+((1.8)*(2-(2.6)))^2))|2.6+((0.35)*t)*(1/sqrt(1+((1.8)*(2-(2.6)))^2))*((1.8)*(2-(2.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15521,14 +14616,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15542,8 +14637,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15553,12 +14648,12 @@ a
tx@Dict begin /Func (2.2+((0.35)*t)*(1/sqrt(1+((2.2)*(2-(2.6)))^2))|2.6+((0.35)*t)*(1/sqrt(1+((2.2)*(2-(2.6)))^2))*((2.2)*(2-(2.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15566,14 +14661,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15587,8 +14682,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 998 901 a
@@ -15598,12 +14693,12 @@ a
tx@Dict begin /Func (2.6+((0.35)*t)*(1/sqrt(1+((2.6)*(2-(2.6)))^2))|2.6+((0.35)*t)*(1/sqrt(1+((2.6)*(2-(2.6)))^2))*((2.6)*(2-(2.6)))
) AlgParser cvx def end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a 998 901 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
998 901 a @beginspecial
@setspecial
@@ -15611,14 +14706,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -15632,8 +14727,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial @beginspecial @setspecial
@@ -15642,19 +14737,19 @@ def /ArrowB { BeginArrow 1. 1. scale false 0.4 1.4 1.5 2. CLW mul
add dup 2 div /w ED mul dup /h ED mul /a ED { 0 h T 1 -1 scale } if
gsave w neg h moveto 0 0 L w h L w neg a neg rlineto gsave fill grestore
grestore 0 h a sub moveto EndArrow } def /ArrowInside { } def
-/showOrigin true def 85.5 0 -85.5 0 ArrowA CP 4 2 roll ArrowB 2 copy
-/yEnd exch def /xEnd exch def L 1 setlinejoin 0 setlinecap stroke
- stroke /yStart exch def /xStart exch def 0 dup 2 mod 0 eq false and
-exch 2 lt true and or { /viceversa -85.5 85.5 gt { true }{ false
-} ifelse def /epsilon 0.01 def /minTickline -85.5 def /maxTickline
+/showOrigin true def 88.35017 0 -85.5 0 ArrowA CP 4 2 roll ArrowB
+2 copy /yEnd exch def /xEnd exch def L 0 setlinejoin 0 setlinecap
+stroke stroke /yStart exch def /xStart exch def 0 dup 2 mod 0 eq false
+and exch 2 lt true and or { /viceversa -85.5 88.35017 gt { true }{
+false } ifelse def /epsilon 0.01 def /minTickline -85.5 def /maxTickline
85.5 def /dT 1867776 abs 65536 div viceversa { neg } if def /subTNo
1 def subTNo 0 gt { /dsubT dT subTNo div def}{ /dsubT 0 def } ifelse
0.0 2.2 /tickend exch def /tickstart exch def /Twidth 0.4 def /subTwidth
0.2 def /STsize 0.75 def /TColor { 0 setgray } def /subTColor {
0.5 setgray } def /MinValue { xStart } def /MaxValue { xEnd 1.5 2.
CLW mul add 1.4 mul viceversa { add epsilon sub }{ sub epsilon add
-} ifelse } def /logLines { false } def /LSstroke { 1 setlinejoin
-0 setlinecap stroke stroke} def /subLSstroke { 1 setlinejoin 0
+} ifelse } def /logLines { false } def /LSstroke { 0 setlinejoin
+0 setlinecap stroke stroke} def /subLSstroke { 0 setlinejoin 0
setlinecap stroke stroke} def 0 dT MaxValue 1 add { /cntTick exch def
logLines { gsave 1 10 subTNo div 9.99 { /dx exch def /x cntTick dT
dx log mul add def x abs MaxValue abs le { false { x minTickline moveto
@@ -15695,7 +14790,7 @@ moveto EndArrow } def /ArrowInside { } def 0.7 SLW 0 setgray
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ 0.0 85.5 0.0 -85.5 /Lineto /lineto load def 1 setlinejoin
+{ } def [ 0.0 85.5 0.0 -85.5 /Lineto /lineto load def 0 setlinejoin
false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if () length 0 gt
{ 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add /arrowlength
exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1
@@ -15709,7 +14804,7 @@ div }{0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def
x2 x1 sub ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside
pop pop } repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2
sub def n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop }
-if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 1 setlinejoin
+if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial @beginspecial
@@ -15723,7 +14818,7 @@ moveto EndArrow } def /ArrowInside { } def 0.7 SLW 0 setgray
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ 85.5 0.0 -85.5 0.0 /Lineto /lineto load def 1 setlinejoin
+{ } def [ 88.35017 0.0 -85.5 0.0 /Lineto /lineto load def 0 setlinejoin
false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if () length 0 gt
{ 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add /arrowlength
exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1
@@ -15737,7 +14832,7 @@ div }{0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def
x2 x1 sub ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside
pop pop } repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2
sub def n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop }
-if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 1 setlinejoin
+if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial @beginspecial @setspecial
@@ -15747,18 +14842,18 @@ add dup 2 div /w ED mul dup /h ED mul /a ED { 0 h T 1 -1 scale } if
gsave w neg h moveto 0 0 L w h L w neg a neg rlineto gsave fill grestore
grestore 0 h a sub moveto EndArrow } def /ArrowInside { } def
/showOrigin true def 0 85.5 0 -85.5 ArrowA CP 4 2 roll ArrowB 2 copy
-/yEnd exch def /xEnd exch def L 1 setlinejoin 0 setlinecap stroke
+/yEnd exch def /xEnd exch def L 0 setlinejoin 0 setlinecap stroke
stroke /yStart exch def /xStart exch def 0 dup 2 mod 0 eq true and
exch 2 lt false and or { /viceversa -85.5 85.5 gt { true }{ false
} ifelse def /epsilon 0.01 def /minTickline -85.5 def /maxTickline
-85.5 def /dT 1867776 abs 65536 div viceversa { neg } if def /subTNo
+88.35017 def /dT 1867776 abs 65536 div viceversa { neg } if def /subTNo
1 def subTNo 0 gt { /dsubT dT subTNo div def}{ /dsubT 0 def } ifelse
0.0 2.2 /tickend exch def /tickstart exch def /Twidth 0.4 def /subTwidth
0.2 def /STsize 0.75 def /TColor { 0 setgray } def /subTColor {
0.5 setgray } def /MinValue { yStart } def /MaxValue { yEnd 1.5 2.
CLW mul add 1.4 mul viceversa { add epsilon sub }{ sub epsilon add
-} ifelse } def /logLines { false } def /LSstroke { 1 setlinejoin
-0 setlinecap stroke stroke} def /subLSstroke { 1 setlinejoin 0
+} ifelse } def /logLines { false } def /LSstroke { 0 setlinejoin
+0 setlinecap stroke stroke} def /subLSstroke { 0 setlinejoin 0
setlinecap stroke stroke} def 0 dT MaxValue 1 add { /cntTick exch
def logLines { gsave 1 10 subTNo div 9.99 { /dx exch def /x cntTick
dT dx log mul add def x abs MaxValue abs le { false { x minTickline
@@ -15800,7 +14895,7 @@ moveto EndArrow } def /ArrowInside { } def 0.7 SLW 0 setgray
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ 0.0 85.5 0.0 -85.5 /Lineto /lineto load def 1 setlinejoin
+{ } def [ 0.0 85.5 0.0 -85.5 /Lineto /lineto load def 0 setlinejoin
false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if () length 0 gt
{ 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add /arrowlength
exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1
@@ -15814,7 +14909,7 @@ div }{0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def
x2 x1 sub ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside
pop pop } repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2
sub def n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop }
-if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 1 setlinejoin
+if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial @beginspecial
@@ -15828,7 +14923,7 @@ moveto EndArrow } def /ArrowInside { } def 0.7 SLW 0 setgray
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ 85.5 0.0 -85.5 0.0 /Lineto /lineto load def 1 setlinejoin
+{ } def [ 88.35017 0.0 -85.5 0.0 /Lineto /lineto load def 0 setlinejoin
false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if () length 0 gt
{ 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add /arrowlength
exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1
@@ -15842,7 +14937,7 @@ div }{0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def
x2 x1 sub ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside
pop pop } repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2
sub def n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop }
-if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 1 setlinejoin
+if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 930 685 a Fb(1)930 449 y(2)875
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vec5.eps b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vecb5.eps
index 27aa2c7e13d..f1c95b8d538 100644
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vec5.eps
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vecb5.eps
@@ -1,7 +1,7 @@
%!PS-Adobe-3.0 EPSF-3.0
-%%Creator: dvips(k) 5.992 Copyright 2012 Radical Eye Software
+%%Creator: dvips(k) 5.993 Copyright 2013 Radical Eye Software
%%Title: testps-fig1.dvi
-%%CreationDate: Tue Oct 01 21:02:24 2013
+%%CreationDate: Tue Apr 01 21:50:28 2014
%%Pages: 1
%%PageOrder: Ascend
%%BoundingBox: 101 580 227 698
@@ -11,7 +11,7 @@
%DVIPSWebPage: (www.radicaleye.com)
%DVIPSCommandLine: DVIPS.EXE testps-fig1
%DVIPSParameters: dpi=600
-%DVIPSSource: TeX output 2013.10.01:2102
+%DVIPSSource: TeX output 2014.04.01:2150
%%BeginProcSet: tex.pro 0 0
%!
/TeXDict 300 dict def TeXDict begin/N{def}def/B{bind def}N/S{exch}N/X{S
@@ -43,19 +43,21 @@ SI restore userdict/eop-hook known{eop-hook}if showpage}N/@start{
userdict/start-hook known{start-hook}if pop/VResolution X/Resolution X
1000 div/DVImag X/IEn 256 array N 2 string 0 1 255{IEn S A 360 add 36 4
index cvrs cvn put}for pop 65781.76 div/vsize X 65781.76 div/hsize X}N
-/p{show}N/RMat[1 0 0 -1 0 0]N/BDot 260 string N/Rx 0 N/Ry 0 N/V{}B/RV/v{
-/Ry X/Rx X V}B statusdict begin/product where{pop false[(Display)(NeXT)
-(LaserWriter 16/600)]{A length product length le{A length product exch 0
-exch getinterval eq{pop true exit}if}{pop}ifelse}forall}{false}ifelse
-end{{gsave TR -.1 .1 TR 1 1 scale Rx Ry false RMat{BDot}imagemask
-grestore}}{{gsave TR -.1 .1 TR Rx Ry scale 1 1 false RMat{BDot}
-imagemask grestore}}ifelse B/QV{gsave newpath transform round exch round
-exch itransform moveto Rx 0 rlineto 0 Ry neg rlineto Rx neg 0 rlineto
-fill grestore}B/a{moveto}B/delta 0 N/tail{A/delta X 0 rmoveto}B/M{S p
-delta add tail}B/b{S p tail}B/c{-4 M}B/d{-3 M}B/e{-2 M}B/f{-1 M}B/g{0 M}
-B/h{1 M}B/i{2 M}B/j{3 M}B/k{4 M}B/w{0 rmoveto}B/l{p -4 w}B/m{p -3 w}B/n{
-p -2 w}B/o{p -1 w}B/q{p 1 w}B/r{p 2 w}B/s{p 3 w}B/t{p 4 w}B/x{0 S
-rmoveto}B/y{3 2 roll p a}B/bos{/SS save N}B/eos{SS restore}B end
+/dir 0 def/dyy{/dir 0 def}B/dyt{/dir 1 def}B/dty{/dir 2 def}B/dtt{/dir 3
+def}B/p{dir 2 eq{-90 rotate show 90 rotate}{dir 3 eq{-90 rotate show 90
+rotate}{show}ifelse}ifelse}N/RMat[1 0 0 -1 0 0]N/BDot 260 string N/Rx 0
+N/Ry 0 N/V{}B/RV/v{/Ry X/Rx X V}B statusdict begin/product where{pop
+false[(Display)(NeXT)(LaserWriter 16/600)]{A length product length le{A
+length product exch 0 exch getinterval eq{pop true exit}if}{pop}ifelse}
+forall}{false}ifelse end{{gsave TR -.1 .1 TR 1 1 scale Rx Ry false RMat{
+BDot}imagemask grestore}}{{gsave TR -.1 .1 TR Rx Ry scale 1 1 false RMat
+{BDot}imagemask grestore}}ifelse B/QV{gsave newpath transform round exch
+round exch itransform moveto Rx 0 rlineto 0 Ry neg rlineto Rx neg 0
+rlineto fill grestore}B/a{moveto}B/delta 0 N/tail{A/delta X 0 rmoveto}B
+/M{S p delta add tail}B/b{S p tail}B/c{-4 M}B/d{-3 M}B/e{-2 M}B/f{-1 M}
+B/g{0 M}B/h{1 M}B/i{2 M}B/j{3 M}B/k{4 M}B/w{0 rmoveto}B/l{p -4 w}B/m{p
+-3 w}B/n{p -2 w}B/o{p -1 w}B/q{p 1 w}B/r{p 2 w}B/s{p 3 w}B/t{p 4 w}B/x{
+0 S rmoveto}B/y{3 2 roll p a}B/bos{/SS save N}B/eos{SS restore}B end
%%EndProcSet
%%BeginProcSet: pstricks.pro 0 0
@@ -4021,941 +4023,21 @@ tx@FuncDict begin
end
%%EndProcSet
-%%BeginProcSet: pst-3dplot.pro 0 0
-%% $Id: pst-3dplot.pro 236 2009-12-31 08:59:43Z herbert $
-%%
-%% This is file `pst-3dplot.pro',
-%%
-%% IMPORTANT NOTICE:
-%%
-%% Package `pst-3dplot.tex'
-%%
-%% Herbert Voss <voss _at_ PSTricks.de>
-%%
-%% This program can be redistributed and/or modified under the terms
-%% of the LaTeX Project Public License Distributed from CTAN archives
-%% in directory macros/latex/base/lppl.txt.
-%%
-%% DESCRIPTION:
-%% `pst-3dplot' is a PSTricks package to draw 3d curves and graphical objects
-%%
-%%
-%% version 0.30 / 2010-01-01 Herbert Voss <voss _at_ PSTricks.de>
-%% with contributions of Darrell Lamm <darrell.lamm _at_ gtri.gatech.edu<
-%%
-%
-/tx@3DPlotDict 200 dict def
-tx@3DPlotDict begin
-%
-/printDot { gsave 2 copy 2 0 360 arc fill stroke grestore } def
-%
-/saveCoor {
- dzUnit mul /z ED
- dyUnit mul /y ED
- dxUnit mul /x ED
-} def
-%
-/ConvertTo2D {
- RotatePoint
- 1 { % dummy loop, will run only 1 time, allows exit
- coorType 0 le { % the default |
- /x2D x leftHanded not { neg } if Alpha cos mul y Alpha sin mul add def % /\ co system
- /y2D x leftHanded { neg } if Alpha sin mul y Alpha cos mul add neg Beta sin mul z Beta cos mul add def
- exit } if
- coorType 1 le {
- /x2D y x Alpha 90 sub sin mul sub def % |/_ co system, no shortened x axis
- /y2D z x Alpha 90 sub cos mul sub def
- exit } if
- coorType 2 le { % coorType |/_ with a 1/sqrt(2) shortend x-axis and 135 degrees
- /x2D y x 0.5 mul sub def
- /y2D z x 0.5 mul sub def
- exit } if
- coorType 3 le { % coorType |/_ with a 1/sqrt(2) shortend x-axis and 135 degrees
- /x2D y x -0.5 mul sub def
- /y2D z x -0.5 mul sub def
- exit } if
- coorType 4 le { % Normalbild in Trimetrie Skalierung so, dass coorType2
- /x2D x -0.5 mul y 1 mul add def
- /y2D x -0.5 mul y -0.25 mul add z 1 mul add def
- exit } if
- } repeat
-} def
-%
-/Conv3D2D { /z ED /y ED /x ED ConvertTo2D x2D y2D } def
-%
-/ConvertToCartesian {
- /latitude exch def
- /longitude exch def
- /Radius exch def
- 1 { % dummy loop, will run only 1 time, allows exit
- SphericalCoorType 0 le { % the default |
- /z { Radius latitude sin mul } def
- /x { Radius longitude cos mul latitude cos mul } def
- /y { Radius longitude sin mul latitude cos mul } def
- exit } if
- SphericalCoorType 2 le {
- /z { Radius longitude cos mul } def
- /x { Radius longitude sin mul latitude cos mul} def
- /y { Radius longitude sin mul latitude sin mul } def
- exit } if
- } repeat
-} def
-%
-/ConvCylToCartesian { % r phi h -> x y z
- 3 1 roll % h r phi
- /Phi ED
- /Radius ED % h->z on stack
- Radius Phi cos mul exch % x z
- Radius Phi sin mul exch % x y z
-} def
-%
-/SphericalTo2D {
- x y z ConvertToCartesian ConvertTo2D
-} def
-%
-/CylinderTo2D { % r phi h
- x y z ConvCylToCartesian ConvertTo2D
-} def
-%
-/convertStackTo2D {
- counttomark
- /n ED /n3 n 3 div cvi def
- n3 {
- n -3 roll
- SphericalCoor { ConvertToCartesian } { saveCoor } ifelse
- ConvertTo2D
- x2D xUnit y2D yUnit
- /n n 1 sub def
- } repeat
-} def
-%
-% the angle in the parameter equation for an ellipse is not proportional to the real angle!
-% phi=atan(b*tan(angle)/a)+floor(angle/180+0.5)*180
-%
-/getPhi { % on stack: vecA vecB angle
- 3 dict begin
- /angle exch def /vecB exch def /vecA exch def
- angle cvi 90 mod 0 eq { angle } { vecA angle tan mul vecB atan
- angle 180 div .5 add floor 180 mul add } ifelse
- end
-} def
-%
-/RotSet (set ) def
-%
-/eulerRotation false def
-% Matrix multiplication procedure
-/matmul {
-
- /M@tMulDict 20 dict def
- M@tMulDict begin
- /m2 ED
- /m1 ED
- m1 dup length 2 sub 2 getinterval aload pop
- /col1max ED
- /row1max ED
- m2 dup length 2 sub 2 getinterval aload pop
- /col2max ED
- /row2max ED
- /m3 row1max col2max mul 2 add array def
- m3 dup length 2 sub row1max col2max 2 array astore putinterval
- 0 1 row1max 1 sub {
- /row ED
- 0 1 col2max 1 sub {
- /col ED
- /sum 0 def
- 0 1 col1max 1 sub{
- /rowcol ED
- sum
- m1 row col1max mul rowcol add get
- m2 rowcol col2max mul col add get
- mul add
- /sum ED
- } for
- m3 row col2max mul col add sum put
- } for
- } for
- m3
- end % end of M@tMulDict
-
-} def
-%
-/SetMQuaternion {
-
- /MnewTOold 11 array def
-
- /Qu@ternionDict 30 dict def
- Qu@ternionDict begin
-
- /normRotVec xRotVec yRotVec zRotVec 3 array astore VecNorm def
- normRotVec 0 gt
- {/xRotVecNorm xRotVec normRotVec div def
- /yRotVecNorm yRotVec normRotVec div def
- /zRotVecNorm zRotVec normRotVec div def
- RotAngle}
- {/xRotVecNorm 1 def
- /yRotVecNorm 0 def
- /zRotVecNorm 0 def
- 0} ifelse
-
- 2 div dup
- /q0 exch cos def
- sin dup dup
- /q1 exch xRotVecNorm mul def
- /q2 exch yRotVecNorm mul def
- /q3 exch zRotVecNorm mul def
-
- /q0q0 q0 q0 mul def
- /q0q1 q0 q1 mul def
- /q0q2 q0 q2 mul def
- /q0q3 q0 q3 mul def
-
- /q1q1 q1 q1 mul def
- /q1q2 q1 q2 mul def
- /q1q3 q1 q3 mul def
-
- /q2q2 q2 q2 mul def
- /q2q3 q2 q3 mul def
-
- /q3q3 q3 q3 mul def
-
- MnewTOold 0 q0q0 q1q1 add q2q2 sub q3q3 sub put
- MnewTOold 1 q1q2 q0q3 sub 2 mul put
- MnewTOold 2 q1q3 q0q2 add 2 mul put
-
- MnewTOold 3 q1q2 q0q3 add 2 mul put
- MnewTOold 4 q0q0 q1q1 sub q2q2 add q3q3 sub put
- MnewTOold 5 q2q3 q0q1 sub 2 mul put
-
- MnewTOold 6 q1q3 q0q2 sub 2 mul put
- MnewTOold 7 q2q3 q0q1 add 2 mul put
- MnewTOold 8 q0q0 q1q1 sub q2q2 sub q3q3 add put
-
- MnewTOold 9 3 put
- MnewTOold 10 3 put
-
- end % end of Qu@ternionDict
-
-} def
-%
-/SetMxyz {
- 1.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0 1.0 3 3 11 array astore /MnewTOold ED
- RotSequence cvx exec % Now create a new MnewTOold using xyz, etc.
-} def
-%
-/ConcatMQuaternion {
- MnewTOold % Push onto stack
- SetMQuaternion % Uses [xyz]RotVec and RotAngle to make MnewToOld
- MnewTOold matmul /MnewTOold ED
-} def
-%
-/ConcatMxyz {
- MnewTOold % Push onto stack
- SetMxyz % Uses RotX, etc. to set MnewTOold
- MnewTOold matmul /MnewTOold ED
-} def
-%
-/RotatePoint{
- MnewTOold x y z 3 1 5 array astore matmul
- 0 3 getinterval aload pop
- /z ED
- /y ED
- /x ED
-} def
-%
-/makeMoldTOnew {
- /MoldTOnew 11 array def
- MoldTOnew 0 MnewTOold 0 get put
- MoldTOnew 1 MnewTOold 3 get put
- MoldTOnew 2 MnewTOold 6 get put
- MoldTOnew 3 MnewTOold 1 get put
- MoldTOnew 4 MnewTOold 4 get put
- MoldTOnew 5 MnewTOold 7 get put
- MoldTOnew 6 MnewTOold 2 get put
- MoldTOnew 7 MnewTOold 5 get put
- MoldTOnew 8 MnewTOold 8 get put
- MoldTOnew 9 3 put
- MoldTOnew 10 3 put
-} def
-%
-/RotXaxis {
- eulerRotation
- {1 0 0}
- {makeMoldTOnew MoldTOnew 1 0 0 3 1 5 array astore matmul
- 0 3 getinterval aload pop} ifelse
- /zRotVec ED
- /yRotVec ED
- /xRotVec ED
- /RotAngle RotX def
- ConcatMQuaternion
-} def
-/RotYaxis {
- eulerRotation
- {0 1 0}
- {makeMoldTOnew MoldTOnew 0 1 0 3 1 5 array astore matmul
- 0 3 getinterval aload pop} ifelse
- /zRotVec ED
- /yRotVec ED
- /xRotVec ED
- /RotAngle RotY def
- ConcatMQuaternion
-} def
-/RotZaxis {
- eulerRotation
- {0 0 1}
- {makeMoldTOnew MoldTOnew 0 0 1 3 1 5 array astore matmul
- 0 3 getinterval aload pop} ifelse
- /zRotVec ED
- /yRotVec ED
- /xRotVec ED
- /RotAngle RotZ def
- ConcatMQuaternion
-} def
-/xyz { RotXaxis RotYaxis RotZaxis } def
-/yxz { RotYaxis RotXaxis RotZaxis } def
-/yzx { RotYaxis RotZaxis RotXaxis } def
-/xzy { RotXaxis RotZaxis RotYaxis } def
-/zxy { RotZaxis RotXaxis RotYaxis } def
-/zyx { RotZaxis RotYaxis RotXaxis } def
-/quaternion { } def % Null
-%
-/VecNorm { 0 exch { dup mul add } forall sqrt } def
-%
-/UnitVec { % on stack is [a]; returns a vector with [a][a]/|a|=1
- dup VecNorm /norm ED
- norm 0 lt {/norm 0 def} if
- { norm div } forall 3 array astore } def
-%
-/AxB { % on the stack are the two vectors [a][b]
- aload pop /b3 ED /b2 ED /b1 ED
- aload pop /a3 ED /a2 ED /a1 ED
- a2 b3 mul a3 b2 mul sub
- a3 b1 mul a1 b3 mul sub
- a1 b2 mul a2 b1 mul sub
- 3 array astore } def
-%
-/AaddB { % on the stack are the two vectors [a][b]
- aload pop /b3 ED /b2 ED /b1 ED
- aload pop /a3 ED /a2 ED /a1 ED
- a1 b1 add a2 b2 add a3 b3 add
- 3 array astore } def
-%
-/AmulC { % on stack is [a] and c; returns [a] mul c
- /factor ED { factor mul } forall 3 array astore } def
-%
-%
-/setColorLight { % expects 7 values on stack C M Y K xL yL zL
-% les rayons de lumi�re
- xLight dup mul yLight dup mul zLight dup mul add add sqrt /NormeLight ED
-% the color values
- /K ED
- /Yellow ED
- /Magenta ED
- /Cyan ED
-} def
-%
-/facetteSphere {
- newpath
- /Xpoint Rsphere theta cos mul phi cos mul CX add def
- /Ypoint Rsphere theta sin mul phi cos mul CY add def
- /Zpoint Rsphere phi sin mul CZ add def
- Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end moveto
- theta 1 theta increment add {%
- /theta1 ED
- /Xpoint Rsphere theta1 cos mul phi cos mul CX add def
- /Ypoint Rsphere theta1 sin mul phi cos mul CY add def
- /Zpoint Rsphere phi sin mul CZ add def
- Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
- } for
- phi 1 phi increment add {
- /phi1 ED
- /Xpoint Rsphere theta increment add cos mul phi1 cos mul CX add def
- /Ypoint Rsphere theta increment add sin mul phi1 cos mul CY add def
- /Zpoint Rsphere phi1 sin mul CZ add def
- Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
- } for
- theta increment add -1 theta {%
- /theta1 ED
- /Xpoint Rsphere theta1 cos mul phi increment add cos mul CX add def
- /Ypoint Rsphere theta1 sin mul phi increment add cos mul CY add def
- /Zpoint Rsphere phi increment add sin mul CZ add def
- Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
- } for
- phi increment add -1 phi {
- /phi1 ED
- /Xpoint Rsphere theta cos mul phi1 cos mul CX add def
- /Ypoint Rsphere theta sin mul phi1 cos mul CY add def
- /Zpoint Rsphere phi1 sin mul CZ add def
- Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
- } for
- closepath
-} def
-%
-/MaillageSphere {
-% on stack must be x y z Radius increment C M Y K
- setColorLight
- /increment ED
- /Rsphere ED
- /CZ ED
- /CY ED
- /CX ED
- /StartTheta 0 def
- /condition { PSfacetteSphere 0 ge } def
- -90 increment 90 increment sub {%
- /phi ED
- StartTheta increment 360 StartTheta add increment sub {%
- /theta ED
- % Centre de la facette
- /Xpoint Rsphere theta increment 2 div add cos mul phi increment 2 div add cos mul CX add def
- /Ypoint Rsphere theta increment 2 div add sin mul phi increment 2 div add cos mul CY add def
- /Zpoint Rsphere phi increment 2 div add sin mul CZ add def
- % normale � la facette
- /nXfacette Xpoint CX sub def
- /nYfacette Ypoint CY sub def
- /nZfacette Zpoint CZ sub def
- % test de visibilit�
- /PSfacetteSphere
- vX nXfacette mul
- vY nYfacette mul add
- vZ nZfacette mul add
- def
- condition {
- gsave
- facetteSphere
- /cosV { 1 xLight nXfacette mul
- yLight nYfacette mul
- zLight nZfacette mul
- add add
- NormeLight
- nXfacette dup mul
- nYfacette dup mul
- nZfacette dup mul
- add add sqrt mul div sub } bind def
- Cyan cosV mul Magenta cosV mul Yellow cosV mul K cosV mul setcmykcolor fill
- grestore
-% 0 setgray
- showgrid { facetteSphere stroke } if
- } if
- } for
- % /StartTheta StartTheta increment 2 div add def
- } for
-} def
-%
-%---------------------- Cylinder ---------------------------
-%
-/PlanCoupeCylinder { %
- /TableauxPoints [
- 0 1 359 {
- /phi ED
- [ Radius phi Height ConvCyl2d ] % on décrit le cercle
- } for
- ] def
- newpath
- TableauxPoints 0 get aload pop moveto
- 1 1 359 { TableauxPoints exch get aload pop lineto } for
- closepath
-} def
-%
-/facetteCylinder { %
- newpath
- Radius phi currentHeight ConvCyl2d moveto
- phi 1 phi dAngle add { % loop variable on stack
- Radius exch currentHeight ConvCyl2d lineto
- } for
- phi dAngle add -1 phi { % fill dHeight
- Radius exch currentHeight dHeight add ConvCyl2d lineto
- } for
- closepath
- } def % facette
-%
-/MaillageCylinder { % on stack true or false for saving values
- { setColorLight % expects 4 values on stack C M Y K
- /dHeight ED /dAngle ED /Height ED /Radius ED
- /CZ ED /CY ED /CX ED } if
-%
- 0 dHeight Height dHeight sub {
- /currentHeight ED
- 0 dAngle 360 dAngle sub {
- /phi ED
-% Normal vector of the center
- /nXfacetteCylinder Radius phi dAngle 2 div add cos mul CX add def
- /nYfacetteCylinder Radius phi dAngle 2 div add sin mul CY add def
- /nZfacetteCylinder currentHeight dHeight 2 div add CZ add def
- /NormeN
- nXfacetteCylinder dup mul
- nYfacetteCylinder dup mul
- nZfacetteCylinder dup mul
- add add sqrt def
- NormeN 0 eq { /NormeN 1e-10 def } if
-% test de visibilité
- /PSfacetteCylinder
- vX nXfacetteCylinder mul
- vY nYfacetteCylinder mul add
- vZ nZfacetteCylinder mul add def
- condition {
- facetteCylinder
- /cosV
- 1 xLight nXfacetteCylinder mul
- yLight nYfacetteCylinder mul
- zLight nZfacetteCylinder mul
- add add
- NormeLight NormeN mul div sub def
- Cyan Magenta Yellow K
- cosV mul 4 1 roll cosV mul 4 1 roll
- cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
- setcmykcolor fill
- showgrid {
- 0 setgray
- facetteCylinder % drawing the segments
- stroke } if
- } if
- } for
- } for
-} def
-%
-%------------------------ Cylinder type II -----------------------
-%
-/MoveTo { Conv3D2D moveto } def
-/LineTo { Conv3D2D lineto } def
-
-/IIIDEllipse { % x y z rA rB startAngle endAngle Wedge
- /dAngle 1 def
- /isWedge ED
- /endAngle ED
- /startAngle ED
- /radiusB ED
- /radiusA ED
- startAngle cos radiusA mul startAngle sin radiusB mul 0
- isWedge { 0 0 moveto LineTo }{ MoveTo } ifelse
- /Angle startAngle def
- startAngle dAngle endAngle {
- /Angle ED
- Angle cos radiusA mul Angle sin radiusB mul 0 LineTo
- } for
- isWedge { 0 0 lineto } if
-} def
-
-/IIIDCircle { % x y z r startAngle endAngle Wedge
- 7 3 roll % startAngle endAngle Wedge x y z r
- dup % startAngle endAngle Wedge x y z r r
- 8 -3 roll
- IIIDEllipse
-} def
-
-/IIIDWedge { % x y z r startAngle endAngle
- true IIIDCircle
-} def
-
-/IIIDCylinder {% x y z r h start end wedge
- /isWedge ED
- /increment ED
- /endAngle ED
- /startAngle ED
- /height ED
- /radius ED
- startAngle increment endAngle {
- /Angle ED
- radius Angle 0 ConvCylToCartesian MoveTo
- radius Angle height ConvCylToCartesian LineTo
- } for
- stroke
-} def
-%
-%---------------------- Box ---------------------------
-%
-/PlanCoupeBox { % x y z
- /TableauxPoints [
- [ CX CY CZ Height add ConvBox2d ] % top or bottom
- [ CX CY Depth add CZ Height add ConvBox2d ]
- [ CX Width add CY Depth add CZ Height add ConvBox2d ]
- [ CX Width add CY CZ Height add ConvBox2d ]
- [ CX CY CZ Height add ConvBox2d ] % bottom
- ] def
- newpath
- TableauxPoints 0 get aload pop moveto
- 0 1 3 {
- TableauxPoints exch get aload pop
- lineto } for
- closepath
-} def
-%
-/facetteBox { %
- newpath
- dup
- 1 eq { % back
- CX CY CZ ConvBox2d moveto
- CX CY CZ Height add ConvBox2d lineto
- CX Width add CY CZ Height add ConvBox2d lineto
- CX Width add CY CZ ConvBox2d lineto
- CX CY CZ ConvBox2d lineto
- } if
- dup
- 2 eq { % right
- CX CY CZ ConvBox2d moveto
- CX CY CZ Height add ConvBox2d lineto
- CX CY Depth add CZ Height add ConvBox2d lineto
- CX CY Depth add CZ ConvBox2d lineto
- CX CY CZ ConvBox2d lineto
- } if
- dup
- 3 eq { % left
- CX Width add CY CZ ConvBox2d moveto
- CX Width add CY Depth add CZ ConvBox2d lineto
- CX Width add CY Depth add CZ Height add ConvBox2d lineto
- CX Width add CY CZ Height add ConvBox2d lineto
- CX Width add CY CZ ConvBox2d lineto
- } if
- 4 eq { % front
- CX CY Depth add CZ ConvBox2d moveto
- CX CY Depth add CZ Height add ConvBox2d lineto
- CX Width add CY Depth add CZ Height add ConvBox2d lineto
- CX Width add CY Depth add CZ ConvBox2d lineto
- CX CY Depth add CZ ConvBox2d lineto
- } if
- closepath
- } def % facette
-%
-/TestPlane { % on stack x y z of the plane center and # of plane
- /nZfacetteBox ED /nYfacetteBox ED /nXfacetteBox ED
- /Plane ED
- /NormeN
- nXfacetteBox dup mul
- nYfacetteBox dup mul
- nZfacetteBox dup mul
- add add sqrt def
- NormeN 0 eq { /NormeN 1e-10 def } if
-% test de visibilit�
- /PSfacetteBox
- vX nXfacetteBox mul
- vY nYfacetteBox mul add
- vZ nZfacetteBox mul add def
- condition {
- Plane facetteBox
- /cosV
- 1 xLight nXfacetteBox mul
- yLight nYfacetteBox mul
- zLight nZfacetteBox mul
- add add
- NormeLight NormeN mul div sub def
- Cyan Magenta Yellow K
- cosV mul 4 1 roll cosV mul 4 1 roll
- cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
- setcmykcolor fill
- 0 setgray
- Plane facetteBox % drawing the segments
- stroke
- } if
-} def
-%
-/MaillageBox { % on stack true or false for saving values
- { setColorLight % expects 4 values on stack C M Y K
- /Depth ED /Height ED /Width ED
- /CZ ED /CY ED /CX ED } if
-%
-% Normal vector of the box center
- /PlaneSet [
- [ Width 2 div CX add
- CY
- Height 2 div CZ add ] % normal back
- [ CX
- Depth 2 div CY add
- Height 2 div CZ add ] % normal right
- [ Width CX add
- Depth 2 div CY add
- Height 2 div CZ add ] % normal left
- [ Width 2 div CX add
- Depth CY add
- Height 2 div CZ add ] % normal front
- ] def
- PlaneSequence length 0 eq { % user defined?
- Alpha abs cvi 360 mod /iAlpha ED
- iAlpha 90 lt { [ 1 2 3 4 ]
- }{ iAlpha 180 lt { [ 2 4 1 3 ]
- }{ iAlpha 270 lt { [ 3 4 1 2 ] }{ [ 3 1 4 2] } ifelse } ifelse } ifelse
- }{ PlaneSequence } ifelse
- { dup 1 sub PlaneSet exch get aload pop TestPlane } forall
-} def
-%
-%--------------------------- Paraboloid -----------------------------
-/PlanCoupeParaboloid {
- /Z height store
- /V {Z sqrt} bind def
- /TableauxPoints [
- 0 1 359 {
- /U ED [ U U Z V calculate2DPoint ] % on d�crit le cercle
- } for
- ] def
- newpath
- TableauxPoints 0 get aload pop moveto
- 0 1 359 {
- /compteur ED
- TableauxPoints compteur get aload pop
- lineto } for
- closepath
-} def
-%
-/facetteParaboloid{
- newpath
- U U Z V calculate2DPoint moveto
- U 1 U increment add {%
- /U1 ED
- U1 U1 Z V calculate2DPoint lineto
- } for
- Z pas10 Z pas add pas10 add{
- /Z1 ED
- /V {Z1 sqrt} bind def
- U1 U1 Z1 V calculate2DPoint lineto
- } for
- U increment add -1 U {%
- /U2 ED
- U2 U2 Z pas add V calculate2DPoint lineto
- } for
- Z pas add pas10 sub pas10 neg Z pas10 sub {
- /Z2 ED
- /V Z2 abs sqrt def
- U U Z2 V calculate2DPoint lineto
- } for
- closepath
-} def % facette
-%
-/MaillageParaboloid {
- % on stack true or false for saving values
- { setColorLight % expects 7 values on stack C M Y K xL yL zL
-% /CZ ED /CY ED /CX ED
- } if
- 0 pas height pas sub {%
- /Z ED
- /V Z sqrt def
- 0 increment 360 increment sub {%
- /U ED
-% Centre de la facette
- /Ucentre U increment 2 div add def
- /Vcentre Z pas 2 div add sqrt def
-% normale à la facette
- /nXfacetteParaboloid 2 Vcentre dup mul mul Ucentre cos mul radius mul def
- /nYfacetteParaboloid 2 Vcentre dup mul mul Ucentre sin mul radius mul def
- /nZfacetteParaboloid Vcentre neg radius dup mul mul def
- /NormeN {
- nXfacetteParaboloid dup mul
- nYfacetteParaboloid dup mul
- nZfacetteParaboloid dup mul
- add add sqrt} bind def
- NormeN 0 eq {/NormeN 1e-10 def} if
-% test de visibilit�
- /PSfacetteParaboloid vX nXfacetteParaboloid mul
- vY nYfacetteParaboloid mul add
- vZ nZfacetteParaboloid mul add def
- condition {
- facetteParaboloid
- /cosV 1 xLight nXfacetteParaboloid mul
- yLight nYfacetteParaboloid mul
- zLight nZfacetteParaboloid mul
- add add
- NormeLight
- NormeN mul div sub def
- Cyan Magenta Yellow K
- cosV mul 4 1 roll cosV mul 4 1 roll cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
- setcmykcolor fill
- showgrid {
- 0 setgray
- facetteParaboloid
- stroke } if
- } if
- } for
- } for
-} def
-%
-% ------------------------------------ math stuff ----------------------------------
-%
-% Matrix A in arrays of rows A[[row1][row2]...]
-% with [row1]=[a11 a12 ... b1]
-% returns on stack solution vector X=[x1 x2 ... xn]
-/SolveLinEqSystem { % on stack matrix M=[A,b] (A*x=b)
- 10 dict begin % hold all ocal
- /A exch def
- /Rows A length def % Rows = number of rows
- /Cols A 0 get length def % Cols = number of columns
- /Index [ 0 1 Rows 1 sub { } for ] def % Index = [0 1 2 ... Rows-1]
- /col 0 def
- /row 0 def
- /PR Rows array def % PR[c] = pivot row for row row
- { % starts the loop, find pivot entry in row r
- col Cols ge row Rows ge or { exit } if % col < Cols and row < Rows else exit
- /pRow row def % pRow = pivot row
- /max A row get col get abs def % get A[row[col]], first A[0,0]
- row 1 add 1 Rows 1 sub { % starts for loop 1 1 Rows-1
- /j exch def % index counter
- /x A j get col get abs def % get A[j[r]]
- x max gt { % x>max, then save position
- /pRow j def
- /max x def
- } if
- } for % now we have the row with biggest A[0,1]
- % with pRow = the pivot row
- max 0 gt { % swap entries pRow and row in i
- /tmp Index row get def
- Index row Index pRow get put
- Index pRow tmp put % and columns pRow and row in A
- /tmp A row get def
- A row A pRow get put
- A pRow tmp put % pivot
- /row0 A row get def % the pivoting row
- /p0 row0 col get def % the pivot value
- row 1 add 1 Rows 1 sub { % start for loop
- /j exch def
- /c1 A j get def
- /p c1 col get p0 div def
- c1 col p put % subtract (p1/p0)*row[i] from row[j]
- col 1 add 1 Cols 1 sub { % start for loop
- /i exch def
- c1 dup i exch % c1 i c1
- i get row0 i get p mul sub put
- } for
- } for
- PR row col put
- /col col 1 add def
- /row row 1 add def
- }{ % all zero entries
- /row row 1 add def % continue loop with same row
- } ifelse
- } loop
- /X A def % solution vector
- A Rows 1 sub get dup
- Cols 1 sub get exch
- Cols 2 sub get div
- X Rows 1 sub 3 -1 roll put % X[n]
- Rows 2 sub -1 0 { % for loop to calculate X[i]
- /xi exch def % current index
- A xi get % i-th row
- /Axi exch def
- /sum 0 def
- Cols 2 sub -1 xi 1 add {
- /n exch def
- /sum sum Axi n get X n get mul add def
- } for
- Axi Cols 1 sub get % b=Axi[Cols-1]
- sum sub % b-sum
- Axi xi get div % b-sum / Axi[xi]
- X xi 3 -1 roll put % X[xi]
- } for
- X
- end
-} def
-%
-% u -> e_u with |e_u|=1
-/vector-unit { 1 dict begin
- dup vector-length 1 exch div
- vector-scale
- end
-} def
-%
-% u v -> u+v
-/vector-add { 1 dict begin
- /v exch def
- [ exch
- 0 % u i
- exch { % i u[i]
- v % i u[i] v
- 2 index get add % i u[i]+v[i]
- exch 1 add % i
- } forall
- pop
- ]
- end
-} def
-%
-% u v -> u-v
-/vector-sub { 1 dict begin
- /v exch def
- [ exch
- 0 % u i
- exch { % i u[i]
- v % i u[i] v
- 2 index get sub % i u[i]+v[i]
- exch 1 add % i
- } forall
- pop
- ]
-end } def
-%
-% [v] c -> [c.v]
-/vector-scale { 1 dict begin
- /c exch def
- [ exch
- { % s i u[i]
- c mul % s i u[i] v
- } forall
- ]
- end } def
-%
-%
-% [u] [v] -> [u x v]
-/vector-prod { %% x1 y1 z1 x2 y2 z2
-6 dict begin
- aload pop
- /zp exch def /yp exch def /xp exch def
- aload pop
- /z exch def /y exch def /x exch def
- [ y zp mul z yp mul sub
- z xp mul x zp mul sub
- x yp mul y xp mul sub ]
-end
-} def
-%
-% [u] [v] -> u.v
-/vector-mul { %% x1 y1 z1 x2 y2 z2
-6 dict begin
- aload pop
- /zp exch def /yp exch def /xp exch def
- aload pop
- /z exch def /y exch def /x exch def
- x xp mul y yp mul add z zp mul add
-end
-} def
-%
-% [x y z ... ] -> r
-% watch out for overflow
-/vector-length { 1 dict begin
-dup
-% find maximum entry
-/max 0 def
-{ % max
- abs dup max gt {
- % if abs gt max
- /max exch def
- } {
- pop
- } ifelse
-} forall
-max 0 ne {
- 0 exch
- { % 0 v[i]
- max div dup mul add
- } forall
- sqrt
- max mul
-} {
- pop 0
-} ifelse
-end } def
-%
-end % tx@3DPlotDict
-
-
-%%EndProcSet
%%BeginProcSet: texps.pro 0 0
%!
TeXDict begin/rf{findfont dup length 1 add dict begin{1 index/FID ne 2
index/UniqueID ne and{def}{pop pop}ifelse}forall[1 index 0 6 -1 roll
-exec 0 exch 5 -1 roll VResolution Resolution div mul neg 0 0]/Metrics
-exch def dict begin Encoding{exch dup type/integertype ne{pop pop 1 sub
-dup 0 le{pop}{[}ifelse}{FontMatrix 0 get div Metrics 0 get div def}
-ifelse}forall Metrics/Metrics currentdict end def[2 index currentdict
-end definefont 3 -1 roll makefont/setfont cvx]cvx def}def/ObliqueSlant{
-dup sin S cos div neg}B/SlantFont{4 index mul add}def/ExtendFont{3 -1
-roll mul exch}def/ReEncodeFont{CharStrings rcheck{/Encoding false def
-dup[exch{dup CharStrings exch known not{pop/.notdef/Encoding true def}
-if}forall Encoding{]exch pop}{cleartomark}ifelse}if/Encoding exch def}
-def end
+exec 0 exch 5 -1 roll VResolution Resolution div mul neg 0 0]FontType 0
+ne{/Metrics exch def dict begin Encoding{exch dup type/integertype ne{
+pop pop 1 sub dup 0 le{pop}{[}ifelse}{FontMatrix 0 get div Metrics 0 get
+div def}ifelse}forall Metrics/Metrics currentdict end def}{{1 index type
+/nametype eq{exit}if exch pop}loop}ifelse[2 index currentdict end
+definefont 3 -1 roll makefont/setfont cvx]cvx def}def/ObliqueSlant{dup
+sin S cos div neg}B/SlantFont{4 index mul add}def/ExtendFont{3 -1 roll
+mul exch}def/ReEncodeFont{CharStrings rcheck{/Encoding false def dup[
+exch{dup CharStrings exch known not{pop/.notdef/Encoding true def}if}
+forall Encoding{]exch pop}{cleartomark}ifelse}if/Encoding exch def}def
+end
%%EndProcSet
%%BeginProcSet: special.pro 0 0
@@ -4995,25 +4077,26 @@ currentpoint TR/psf$ury psfts/psf$urx psfts/psf$lly psfts/psf$llx psfts
/psf$y psfts/psf$x psfts currentpoint/psf$cy X/psf$cx X/psf$sx psf$x
psf$urx psf$llx sub div N/psf$sy psf$y psf$ury psf$lly sub div N psf$sx
psf$sy scale psf$cx psf$sx div psf$llx sub psf$cy psf$sy div psf$ury sub
-TR/showpage{}N/erasepage{}N/copypage{}N/p 3 def @MacSetUp}N/doclip{
-psf$llx psf$lly psf$urx psf$ury currentpoint 6 2 roll newpath 4 copy 4 2
-roll moveto 6 -1 roll S lineto S lineto S lineto closepath clip newpath
-moveto}N/endTexFig{end psf$SavedState restore}N/@beginspecial{SDict
-begin/SpecialSave save N gsave normalscale currentpoint TR
-@SpecialDefaults count/ocount X/dcount countdictstack N}N/@setspecial{
-CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs neg 0 rlineto
-closepath clip}if ho vo TR hsc vsc scale ang rotate rwiSeen{rwi urx llx
-sub div rhiSeen{rhi ury lly sub div}{dup}ifelse scale llx neg lly neg TR
-}{rhiSeen{rhi ury lly sub div dup scale llx neg lly neg TR}if}ifelse
-CLIP 2 eq{newpath llx lly moveto urx lly lineto urx ury lineto llx ury
-lineto closepath clip}if/showpage{}N/erasepage{}N/copypage{}N newpath}N
-/@endspecial{count ocount sub{pop}repeat countdictstack dcount sub{end}
-repeat grestore SpecialSave restore end}N/@defspecial{SDict begin}N
-/@fedspecial{end}B/li{lineto}B/rl{rlineto}B/rc{rcurveto}B/np{/SaveX
-currentpoint/SaveY X N 1 setlinecap newpath}N/st{stroke SaveX SaveY
-moveto}N/fil{fill SaveX SaveY moveto}N/ellipse{/endangle X/startangle X
-/yrad X/xrad X/savematrix matrix currentmatrix N TR xrad yrad scale 0 0
-1 startangle endangle arc savematrix setmatrix}N end
+TR/showpage{}N/erasepage{}N/setpagedevice{pop}N/copypage{}N/p 3 def
+@MacSetUp}N/doclip{psf$llx psf$lly psf$urx psf$ury currentpoint 6 2 roll
+newpath 4 copy 4 2 roll moveto 6 -1 roll S lineto S lineto S lineto
+closepath clip newpath moveto}N/endTexFig{end psf$SavedState restore}N
+/@beginspecial{SDict begin/SpecialSave save N gsave normalscale
+currentpoint TR @SpecialDefaults count/ocount X/dcount countdictstack N}
+N/@setspecial{CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs
+neg 0 rlineto closepath clip}if ho vo TR hsc vsc scale ang rotate
+rwiSeen{rwi urx llx sub div rhiSeen{rhi ury lly sub div}{dup}ifelse
+scale llx neg lly neg TR}{rhiSeen{rhi ury lly sub div dup scale llx neg
+lly neg TR}if}ifelse CLIP 2 eq{newpath llx lly moveto urx lly lineto urx
+ury lineto llx ury lineto closepath clip}if/showpage{}N/erasepage{}N
+/setpagedevice{pop}N/copypage{}N newpath}N/@endspecial{count ocount sub{
+pop}repeat countdictstack dcount sub{end}repeat grestore SpecialSave
+restore end}N/@defspecial{SDict begin}N/@fedspecial{end}B/li{lineto}B
+/rl{rlineto}B/rc{rcurveto}B/np{/SaveX currentpoint/SaveY X N 1
+setlinecap newpath}N/st{stroke SaveX SaveY moveto}N/fil{fill SaveX SaveY
+moveto}N/ellipse{/endangle X/startangle X/yrad X/xrad X/savematrix
+matrix currentmatrix N TR xrad yrad scale 0 0 1 startangle endangle arc
+savematrix setmatrix}N end
%%EndProcSet
%%BeginProcSet: color.pro 0 0
@@ -5555,40 +4638,44 @@ TeXDict begin
%%EndSetup
%%Page: 1 1
TeXDict begin 1 0 bop 0 TeXcolorgray Black 165 192 a
-tx@Dict begin gsave STV CP T /ps@rot 0 def grestore end
+ /pssetRGBcolor /setrgbcolor load def /pssetCMYKcolor /setcmykcolor
+load def /pssetGraycolor /setgray load def
165 192 a 165 192 a
+tx@Dict begin gsave STV CP T /ps@rot 0 def grestore end
+ 165 192 a 165 192 a
tx@Dict begin gsave STV CP T /ps@refangle 0. def grestore end
- 165 192 a 0 TeXcolorgray 165 192
-a
+ 165 192 a 0 TeXcolorgray
+165 192 a
tx@Dict begin gsave STV CP T /ps@rot 0 def grestore end
165 192 a 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
762 664 a 762 664 a
tx@Dict begin /Func (-2.00+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(-2.00))^2))|-2.00+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(-2.00))^2))*((-2.00)-2*(-2.00))
) AlgParser cvx def end
- 762 664 a 762
-664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+ 762
+664 a 762 664 a
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
- 762 664 a @beginspecial @setspecial
+ 762 664 a @beginspecial
+@setspecial
tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { BeginArrow
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5602,24 +4689,23 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
-
-
+
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
- 762 664 a 762 664 a
+ 762 664 a 762 664
+a
tx@Dict begin /Func (-1.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(-2.00))^2))|-2.00+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(-2.00))^2))*((-1.7)-2*(-2.00))
) AlgParser cvx def end
- 762 664 a
-762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+ 762 664 a 762 664 a
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -5634,7 +4720,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5649,7 +4735,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -5659,12 +4745,12 @@ a
tx@Dict begin /Func (-1.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(-2.00))^2))|-2.00+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(-2.00))^2))*((-1.4)-2*(-2.00))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -5679,7 +4765,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5694,7 +4780,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -5704,12 +4790,12 @@ a
tx@Dict begin /Func (-1.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(-2.00))^2))|-2.00+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(-2.00))^2))*((-1.1)-2*(-2.00))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -5724,7 +4810,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5739,7 +4825,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -5749,12 +4835,12 @@ a
tx@Dict begin /Func (-0.8+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(-2.00))^2))|-2.00+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(-2.00))^2))*((-0.8)-2*(-2.00))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -5769,7 +4855,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5784,7 +4870,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -5794,12 +4880,12 @@ a
tx@Dict begin /Func (-0.5+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(-2.00))^2))|-2.00+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(-2.00))^2))*((-0.5)-2*(-2.00))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -5807,14 +4893,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5828,8 +4914,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -5839,12 +4925,12 @@ a
tx@Dict begin /Func (-0.2+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(-2.00))^2))|-2.00+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(-2.00))^2))*((-0.2)-2*(-2.00))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -5859,7 +4945,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5874,7 +4960,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -5884,12 +4970,12 @@ a
tx@Dict begin /Func (0.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(-2.00))^2))|-2.00+((0.3)*t)*(1/sqrt(1+((0.1)-2*(-2.00))^2))*((0.1)-2*(-2.00))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -5904,7 +4990,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5919,7 +5005,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -5929,12 +5015,12 @@ a
tx@Dict begin /Func (0.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(-2.00))^2))|-2.00+((0.3)*t)*(1/sqrt(1+((0.4)-2*(-2.00))^2))*((0.4)-2*(-2.00))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -5942,14 +5028,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5963,8 +5049,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -5974,12 +5060,12 @@ a
tx@Dict begin /Func (0.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(-2.00))^2))|-2.00+((0.3)*t)*(1/sqrt(1+((0.7)-2*(-2.00))^2))*((0.7)-2*(-2.00))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -5994,7 +5080,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6009,7 +5095,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6019,12 +5105,12 @@ a
tx@Dict begin /Func (1.0+((0.3)*t)*(1/sqrt(1+((1.0)-2*(-2.00))^2))|-2.00+((0.3)*t)*(1/sqrt(1+((1.0)-2*(-2.00))^2))*((1.0)-2*(-2.00))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6032,14 +5118,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6053,8 +5139,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6064,12 +5150,12 @@ a
tx@Dict begin /Func (1.3+((0.3)*t)*(1/sqrt(1+((1.3)-2*(-2.00))^2))|-2.00+((0.3)*t)*(1/sqrt(1+((1.3)-2*(-2.00))^2))*((1.3)-2*(-2.00))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6077,14 +5163,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6098,8 +5184,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6109,12 +5195,12 @@ a
tx@Dict begin /Func (1.6+((0.3)*t)*(1/sqrt(1+((1.6)-2*(-2.00))^2))|-2.00+((0.3)*t)*(1/sqrt(1+((1.6)-2*(-2.00))^2))*((1.6)-2*(-2.00))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6122,14 +5208,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6143,8 +5229,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6154,12 +5240,12 @@ a
tx@Dict begin /Func (1.9+((0.3)*t)*(1/sqrt(1+((1.9)-2*(-2.00))^2))|-2.00+((0.3)*t)*(1/sqrt(1+((1.9)-2*(-2.00))^2))*((1.9)-2*(-2.00))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6167,14 +5253,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6188,8 +5274,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6199,12 +5285,12 @@ a
tx@Dict begin /Func (-2.00+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(-1.7))^2))|-1.7+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(-1.7))^2))*((-2.00)-2*(-1.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6212,14 +5298,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6233,8 +5319,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6244,12 +5330,12 @@ a
tx@Dict begin /Func (-1.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(-1.7))^2))|-1.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(-1.7))^2))*((-1.7)-2*(-1.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6264,7 +5350,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6279,7 +5365,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6289,12 +5375,12 @@ a
tx@Dict begin /Func (-1.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(-1.7))^2))|-1.7+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(-1.7))^2))*((-1.4)-2*(-1.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6302,14 +5388,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6323,8 +5409,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6334,12 +5420,12 @@ a
tx@Dict begin /Func (-1.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(-1.7))^2))|-1.7+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(-1.7))^2))*((-1.1)-2*(-1.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6354,7 +5440,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6369,7 +5455,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6379,12 +5465,12 @@ a
tx@Dict begin /Func (-0.8+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(-1.7))^2))|-1.7+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(-1.7))^2))*((-0.8)-2*(-1.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6399,7 +5485,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6414,7 +5500,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6424,12 +5510,12 @@ a
tx@Dict begin /Func (-0.5+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(-1.7))^2))|-1.7+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(-1.7))^2))*((-0.5)-2*(-1.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6444,7 +5530,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6459,7 +5545,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6469,12 +5555,12 @@ a
tx@Dict begin /Func (-0.2+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(-1.7))^2))|-1.7+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(-1.7))^2))*((-0.2)-2*(-1.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6489,7 +5575,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6504,7 +5590,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6514,12 +5600,12 @@ a
tx@Dict begin /Func (0.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(-1.7))^2))|-1.7+((0.3)*t)*(1/sqrt(1+((0.1)-2*(-1.7))^2))*((0.1)-2*(-1.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6527,14 +5613,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6548,8 +5634,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6559,12 +5645,12 @@ a
tx@Dict begin /Func (0.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(-1.7))^2))|-1.7+((0.3)*t)*(1/sqrt(1+((0.4)-2*(-1.7))^2))*((0.4)-2*(-1.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6579,7 +5665,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6594,7 +5680,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6604,12 +5690,12 @@ a
tx@Dict begin /Func (0.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(-1.7))^2))|-1.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(-1.7))^2))*((0.7)-2*(-1.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6624,7 +5710,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6639,7 +5725,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6649,12 +5735,12 @@ a
tx@Dict begin /Func (1.0+((0.3)*t)*(1/sqrt(1+((1.0)-2*(-1.7))^2))|-1.7+((0.3)*t)*(1/sqrt(1+((1.0)-2*(-1.7))^2))*((1.0)-2*(-1.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6662,14 +5748,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6683,8 +5769,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6694,12 +5780,12 @@ a
tx@Dict begin /Func (1.3+((0.3)*t)*(1/sqrt(1+((1.3)-2*(-1.7))^2))|-1.7+((0.3)*t)*(1/sqrt(1+((1.3)-2*(-1.7))^2))*((1.3)-2*(-1.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6714,7 +5800,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6729,7 +5815,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6739,12 +5825,12 @@ a
tx@Dict begin /Func (1.6+((0.3)*t)*(1/sqrt(1+((1.6)-2*(-1.7))^2))|-1.7+((0.3)*t)*(1/sqrt(1+((1.6)-2*(-1.7))^2))*((1.6)-2*(-1.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6752,14 +5838,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6773,8 +5859,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6784,12 +5870,12 @@ a
tx@Dict begin /Func (1.9+((0.3)*t)*(1/sqrt(1+((1.9)-2*(-1.7))^2))|-1.7+((0.3)*t)*(1/sqrt(1+((1.9)-2*(-1.7))^2))*((1.9)-2*(-1.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6797,14 +5883,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6818,8 +5904,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6829,12 +5915,12 @@ a
tx@Dict begin /Func (-2.00+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(-1.4))^2))|-1.4+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(-1.4))^2))*((-2.00)-2*(-1.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6849,7 +5935,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6864,7 +5950,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6874,12 +5960,12 @@ a
tx@Dict begin /Func (-1.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(-1.4))^2))|-1.4+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(-1.4))^2))*((-1.7)-2*(-1.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6887,14 +5973,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6908,8 +5994,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6919,12 +6005,12 @@ a
tx@Dict begin /Func (-1.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(-1.4))^2))|-1.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(-1.4))^2))*((-1.4)-2*(-1.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6932,14 +6018,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6953,8 +6039,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6964,12 +6050,12 @@ a
tx@Dict begin /Func (-1.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(-1.4))^2))|-1.4+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(-1.4))^2))*((-1.1)-2*(-1.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6984,7 +6070,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6999,7 +6085,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7009,12 +6095,12 @@ a
tx@Dict begin /Func (-0.8+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(-1.4))^2))|-1.4+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(-1.4))^2))*((-0.8)-2*(-1.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7022,14 +6108,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7043,8 +6129,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7054,12 +6140,12 @@ a
tx@Dict begin /Func (-0.5+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(-1.4))^2))|-1.4+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(-1.4))^2))*((-0.5)-2*(-1.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7074,7 +6160,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7089,7 +6175,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7099,12 +6185,12 @@ a
tx@Dict begin /Func (-0.2+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(-1.4))^2))|-1.4+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(-1.4))^2))*((-0.2)-2*(-1.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7119,7 +6205,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7134,7 +6220,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7144,12 +6230,12 @@ a
tx@Dict begin /Func (0.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(-1.4))^2))|-1.4+((0.3)*t)*(1/sqrt(1+((0.1)-2*(-1.4))^2))*((0.1)-2*(-1.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7164,7 +6250,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7179,7 +6265,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7189,12 +6275,12 @@ a
tx@Dict begin /Func (0.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(-1.4))^2))|-1.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(-1.4))^2))*((0.4)-2*(-1.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7209,7 +6295,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7224,7 +6310,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7234,12 +6320,12 @@ a
tx@Dict begin /Func (0.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(-1.4))^2))|-1.4+((0.3)*t)*(1/sqrt(1+((0.7)-2*(-1.4))^2))*((0.7)-2*(-1.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7254,7 +6340,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7269,7 +6355,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7279,12 +6365,12 @@ a
tx@Dict begin /Func (1.0+((0.3)*t)*(1/sqrt(1+((1.0)-2*(-1.4))^2))|-1.4+((0.3)*t)*(1/sqrt(1+((1.0)-2*(-1.4))^2))*((1.0)-2*(-1.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7299,7 +6385,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7314,7 +6400,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7324,12 +6410,12 @@ a
tx@Dict begin /Func (1.3+((0.3)*t)*(1/sqrt(1+((1.3)-2*(-1.4))^2))|-1.4+((0.3)*t)*(1/sqrt(1+((1.3)-2*(-1.4))^2))*((1.3)-2*(-1.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7344,7 +6430,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7359,7 +6445,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7369,12 +6455,12 @@ a
tx@Dict begin /Func (1.6+((0.3)*t)*(1/sqrt(1+((1.6)-2*(-1.4))^2))|-1.4+((0.3)*t)*(1/sqrt(1+((1.6)-2*(-1.4))^2))*((1.6)-2*(-1.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7382,14 +6468,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7403,8 +6489,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7414,12 +6500,12 @@ a
tx@Dict begin /Func (1.9+((0.3)*t)*(1/sqrt(1+((1.9)-2*(-1.4))^2))|-1.4+((0.3)*t)*(1/sqrt(1+((1.9)-2*(-1.4))^2))*((1.9)-2*(-1.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7434,7 +6520,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7449,7 +6535,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7459,12 +6545,12 @@ a
tx@Dict begin /Func (-2.00+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(-1.1))^2))|-1.1+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(-1.1))^2))*((-2.00)-2*(-1.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7472,30 +6558,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -7504,12 +6590,12 @@ a
tx@Dict begin /Func (-1.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(-1.1))^2))|-1.1+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(-1.1))^2))*((-1.7)-2*(-1.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7517,30 +6603,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -7549,12 +6635,12 @@ a
tx@Dict begin /Func (-1.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(-1.1))^2))|-1.1+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(-1.1))^2))*((-1.4)-2*(-1.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7569,7 +6655,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7584,7 +6670,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7594,12 +6680,12 @@ a
tx@Dict begin /Func (-1.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(-1.1))^2))|-1.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(-1.1))^2))*((-1.1)-2*(-1.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7607,14 +6693,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7628,8 +6714,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7639,12 +6725,12 @@ a
tx@Dict begin /Func (-0.8+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(-1.1))^2))|-1.1+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(-1.1))^2))*((-0.8)-2*(-1.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7659,7 +6745,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7674,7 +6760,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7684,12 +6770,12 @@ a
tx@Dict begin /Func (-0.5+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(-1.1))^2))|-1.1+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(-1.1))^2))*((-0.5)-2*(-1.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7704,7 +6790,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7719,7 +6805,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7729,12 +6815,12 @@ a
tx@Dict begin /Func (-0.2+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(-1.1))^2))|-1.1+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(-1.1))^2))*((-0.2)-2*(-1.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7742,14 +6828,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7763,8 +6849,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7774,12 +6860,12 @@ a
tx@Dict begin /Func (0.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(-1.1))^2))|-1.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(-1.1))^2))*((0.1)-2*(-1.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7794,7 +6880,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7809,7 +6895,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7819,12 +6905,12 @@ a
tx@Dict begin /Func (0.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(-1.1))^2))|-1.1+((0.3)*t)*(1/sqrt(1+((0.4)-2*(-1.1))^2))*((0.4)-2*(-1.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7839,7 +6925,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7854,7 +6940,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7864,12 +6950,12 @@ a
tx@Dict begin /Func (0.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(-1.1))^2))|-1.1+((0.3)*t)*(1/sqrt(1+((0.7)-2*(-1.1))^2))*((0.7)-2*(-1.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7884,7 +6970,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7899,7 +6985,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7909,12 +6995,12 @@ a
tx@Dict begin /Func (1.0+((0.3)*t)*(1/sqrt(1+((1.0)-2*(-1.1))^2))|-1.1+((0.3)*t)*(1/sqrt(1+((1.0)-2*(-1.1))^2))*((1.0)-2*(-1.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7929,7 +7015,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7944,7 +7030,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7954,12 +7040,12 @@ a
tx@Dict begin /Func (1.3+((0.3)*t)*(1/sqrt(1+((1.3)-2*(-1.1))^2))|-1.1+((0.3)*t)*(1/sqrt(1+((1.3)-2*(-1.1))^2))*((1.3)-2*(-1.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7967,14 +7053,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7988,8 +7074,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7999,12 +7085,12 @@ a
tx@Dict begin /Func (1.6+((0.3)*t)*(1/sqrt(1+((1.6)-2*(-1.1))^2))|-1.1+((0.3)*t)*(1/sqrt(1+((1.6)-2*(-1.1))^2))*((1.6)-2*(-1.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8019,7 +7105,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8034,7 +7120,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -8044,12 +7130,12 @@ a
tx@Dict begin /Func (1.9+((0.3)*t)*(1/sqrt(1+((1.9)-2*(-1.1))^2))|-1.1+((0.3)*t)*(1/sqrt(1+((1.9)-2*(-1.1))^2))*((1.9)-2*(-1.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8064,7 +7150,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8079,7 +7165,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -8089,12 +7175,12 @@ a
tx@Dict begin /Func (-2.00+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(-0.8))^2))|-0.8+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(-0.8))^2))*((-2.00)-2*(-0.8))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8102,30 +7188,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8134,12 +7220,12 @@ a
tx@Dict begin /Func (-1.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(-0.8))^2))|-0.8+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(-0.8))^2))*((-1.7)-2*(-0.8))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8147,30 +7233,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8179,12 +7265,12 @@ a
tx@Dict begin /Func (-1.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(-0.8))^2))|-0.8+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(-0.8))^2))*((-1.4)-2*(-0.8))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8192,30 +7278,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8224,12 +7310,12 @@ a
tx@Dict begin /Func (-1.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(-0.8))^2))|-0.8+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(-0.8))^2))*((-1.1)-2*(-0.8))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8237,30 +7323,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8269,12 +7355,12 @@ a
tx@Dict begin /Func (-0.8+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(-0.8))^2))|-0.8+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(-0.8))^2))*((-0.8)-2*(-0.8))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8289,7 +7375,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8304,7 +7390,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -8314,12 +7400,12 @@ a
tx@Dict begin /Func (-0.5+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(-0.8))^2))|-0.8+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(-0.8))^2))*((-0.5)-2*(-0.8))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8327,14 +7413,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8348,8 +7434,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -8359,12 +7445,12 @@ a
tx@Dict begin /Func (-0.2+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(-0.8))^2))|-0.8+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(-0.8))^2))*((-0.2)-2*(-0.8))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8379,7 +7465,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8394,7 +7480,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -8404,12 +7490,12 @@ a
tx@Dict begin /Func (0.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(-0.8))^2))|-0.8+((0.3)*t)*(1/sqrt(1+((0.1)-2*(-0.8))^2))*((0.1)-2*(-0.8))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8424,7 +7510,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8439,7 +7525,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -8449,12 +7535,12 @@ a
tx@Dict begin /Func (0.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(-0.8))^2))|-0.8+((0.3)*t)*(1/sqrt(1+((0.4)-2*(-0.8))^2))*((0.4)-2*(-0.8))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8462,14 +7548,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8483,8 +7569,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -8494,12 +7580,12 @@ a
tx@Dict begin /Func (0.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(-0.8))^2))|-0.8+((0.3)*t)*(1/sqrt(1+((0.7)-2*(-0.8))^2))*((0.7)-2*(-0.8))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8514,7 +7600,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8529,7 +7615,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -8539,12 +7625,12 @@ a
tx@Dict begin /Func (1.0+((0.3)*t)*(1/sqrt(1+((1.0)-2*(-0.8))^2))|-0.8+((0.3)*t)*(1/sqrt(1+((1.0)-2*(-0.8))^2))*((1.0)-2*(-0.8))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8559,7 +7645,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8574,7 +7660,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -8584,12 +7670,12 @@ a
tx@Dict begin /Func (1.3+((0.3)*t)*(1/sqrt(1+((1.3)-2*(-0.8))^2))|-0.8+((0.3)*t)*(1/sqrt(1+((1.3)-2*(-0.8))^2))*((1.3)-2*(-0.8))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8604,7 +7690,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8619,7 +7705,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -8629,12 +7715,12 @@ a
tx@Dict begin /Func (1.6+((0.3)*t)*(1/sqrt(1+((1.6)-2*(-0.8))^2))|-0.8+((0.3)*t)*(1/sqrt(1+((1.6)-2*(-0.8))^2))*((1.6)-2*(-0.8))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8649,7 +7735,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8664,7 +7750,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -8674,12 +7760,12 @@ a
tx@Dict begin /Func (1.9+((0.3)*t)*(1/sqrt(1+((1.9)-2*(-0.8))^2))|-0.8+((0.3)*t)*(1/sqrt(1+((1.9)-2*(-0.8))^2))*((1.9)-2*(-0.8))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8687,14 +7773,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8708,8 +7794,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -8719,12 +7805,12 @@ a
tx@Dict begin /Func (-2.00+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(-0.5))^2))|-0.5+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(-0.5))^2))*((-2.00)-2*(-0.5))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8732,14 +7818,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8753,8 +7839,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -8764,12 +7850,12 @@ a
tx@Dict begin /Func (-1.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(-0.5))^2))|-0.5+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(-0.5))^2))*((-1.7)-2*(-0.5))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8777,30 +7863,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8809,12 +7895,12 @@ a
tx@Dict begin /Func (-1.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(-0.5))^2))|-0.5+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(-0.5))^2))*((-1.4)-2*(-0.5))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8822,30 +7908,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8854,12 +7940,12 @@ a
tx@Dict begin /Func (-1.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(-0.5))^2))|-0.5+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(-0.5))^2))*((-1.1)-2*(-0.5))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8867,30 +7953,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8899,12 +7985,12 @@ a
tx@Dict begin /Func (-0.8+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(-0.5))^2))|-0.5+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(-0.5))^2))*((-0.8)-2*(-0.5))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8912,30 +7998,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8944,12 +8030,12 @@ a
tx@Dict begin /Func (-0.5+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(-0.5))^2))|-0.5+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(-0.5))^2))*((-0.5)-2*(-0.5))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8957,30 +8043,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8989,12 +8075,12 @@ a
tx@Dict begin /Func (-0.2+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(-0.5))^2))|-0.5+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(-0.5))^2))*((-0.2)-2*(-0.5))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9009,7 +8095,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9024,7 +8110,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9034,12 +8120,12 @@ a
tx@Dict begin /Func (0.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(-0.5))^2))|-0.5+((0.3)*t)*(1/sqrt(1+((0.1)-2*(-0.5))^2))*((0.1)-2*(-0.5))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9047,14 +8133,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9068,8 +8154,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9079,12 +8165,12 @@ a
tx@Dict begin /Func (0.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(-0.5))^2))|-0.5+((0.3)*t)*(1/sqrt(1+((0.4)-2*(-0.5))^2))*((0.4)-2*(-0.5))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9092,14 +8178,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9113,8 +8199,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9124,12 +8210,12 @@ a
tx@Dict begin /Func (0.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(-0.5))^2))|-0.5+((0.3)*t)*(1/sqrt(1+((0.7)-2*(-0.5))^2))*((0.7)-2*(-0.5))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9144,7 +8230,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9159,7 +8245,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9169,12 +8255,12 @@ a
tx@Dict begin /Func (1.0+((0.3)*t)*(1/sqrt(1+((1.0)-2*(-0.5))^2))|-0.5+((0.3)*t)*(1/sqrt(1+((1.0)-2*(-0.5))^2))*((1.0)-2*(-0.5))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9182,14 +8268,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9203,8 +8289,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9214,12 +8300,12 @@ a
tx@Dict begin /Func (1.3+((0.3)*t)*(1/sqrt(1+((1.3)-2*(-0.5))^2))|-0.5+((0.3)*t)*(1/sqrt(1+((1.3)-2*(-0.5))^2))*((1.3)-2*(-0.5))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9234,7 +8320,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9249,7 +8335,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9259,12 +8345,12 @@ a
tx@Dict begin /Func (1.6+((0.3)*t)*(1/sqrt(1+((1.6)-2*(-0.5))^2))|-0.5+((0.3)*t)*(1/sqrt(1+((1.6)-2*(-0.5))^2))*((1.6)-2*(-0.5))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9279,7 +8365,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9294,7 +8380,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9304,12 +8390,12 @@ a
tx@Dict begin /Func (1.9+((0.3)*t)*(1/sqrt(1+((1.9)-2*(-0.5))^2))|-0.5+((0.3)*t)*(1/sqrt(1+((1.9)-2*(-0.5))^2))*((1.9)-2*(-0.5))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9324,7 +8410,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9339,7 +8425,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9349,12 +8435,12 @@ a
tx@Dict begin /Func (-2.00+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(-0.2))^2))|-0.2+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(-0.2))^2))*((-2.00)-2*(-0.2))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9369,7 +8455,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9384,7 +8470,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9394,12 +8480,12 @@ a
tx@Dict begin /Func (-1.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(-0.2))^2))|-0.2+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(-0.2))^2))*((-1.7)-2*(-0.2))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9407,14 +8493,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9428,8 +8514,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9439,12 +8525,12 @@ a
tx@Dict begin /Func (-1.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(-0.2))^2))|-0.2+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(-0.2))^2))*((-1.4)-2*(-0.2))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9452,14 +8538,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9473,8 +8559,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9484,12 +8570,12 @@ a
tx@Dict begin /Func (-1.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(-0.2))^2))|-0.2+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(-0.2))^2))*((-1.1)-2*(-0.2))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9504,7 +8590,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9519,7 +8605,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9529,12 +8615,12 @@ a
tx@Dict begin /Func (-0.8+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(-0.2))^2))|-0.2+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(-0.2))^2))*((-0.8)-2*(-0.2))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9542,30 +8628,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -9574,12 +8660,12 @@ a
tx@Dict begin /Func (-0.5+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(-0.2))^2))|-0.2+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(-0.2))^2))*((-0.5)-2*(-0.2))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9587,30 +8673,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -9619,12 +8705,12 @@ a
tx@Dict begin /Func (-0.2+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(-0.2))^2))|-0.2+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(-0.2))^2))*((-0.2)-2*(-0.2))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9632,30 +8718,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -9664,12 +8750,12 @@ a
tx@Dict begin /Func (0.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(-0.2))^2))|-0.2+((0.3)*t)*(1/sqrt(1+((0.1)-2*(-0.2))^2))*((0.1)-2*(-0.2))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9677,30 +8763,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -9709,12 +8795,12 @@ a
tx@Dict begin /Func (0.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(-0.2))^2))|-0.2+((0.3)*t)*(1/sqrt(1+((0.4)-2*(-0.2))^2))*((0.4)-2*(-0.2))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9729,7 +8815,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9744,7 +8830,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9754,12 +8840,12 @@ a
tx@Dict begin /Func (0.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(-0.2))^2))|-0.2+((0.3)*t)*(1/sqrt(1+((0.7)-2*(-0.2))^2))*((0.7)-2*(-0.2))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9767,14 +8853,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9788,8 +8874,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9799,12 +8885,12 @@ a
tx@Dict begin /Func (1.0+((0.3)*t)*(1/sqrt(1+((1.0)-2*(-0.2))^2))|-0.2+((0.3)*t)*(1/sqrt(1+((1.0)-2*(-0.2))^2))*((1.0)-2*(-0.2))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9812,14 +8898,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9833,8 +8919,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9844,12 +8930,12 @@ a
tx@Dict begin /Func (1.3+((0.3)*t)*(1/sqrt(1+((1.3)-2*(-0.2))^2))|-0.2+((0.3)*t)*(1/sqrt(1+((1.3)-2*(-0.2))^2))*((1.3)-2*(-0.2))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9864,7 +8950,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9879,7 +8965,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9889,12 +8975,12 @@ a
tx@Dict begin /Func (1.6+((0.3)*t)*(1/sqrt(1+((1.6)-2*(-0.2))^2))|-0.2+((0.3)*t)*(1/sqrt(1+((1.6)-2*(-0.2))^2))*((1.6)-2*(-0.2))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9902,14 +8988,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9923,8 +9009,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9934,12 +9020,12 @@ a
tx@Dict begin /Func (1.9+((0.3)*t)*(1/sqrt(1+((1.9)-2*(-0.2))^2))|-0.2+((0.3)*t)*(1/sqrt(1+((1.9)-2*(-0.2))^2))*((1.9)-2*(-0.2))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9954,7 +9040,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9969,7 +9055,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9979,12 +9065,12 @@ a
tx@Dict begin /Func (-2.00+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(0.1))^2))|0.1+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(0.1))^2))*((-2.00)-2*(0.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9999,7 +9085,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10014,7 +9100,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10024,12 +9110,12 @@ a
tx@Dict begin /Func (-1.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(0.1))^2))|0.1+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(0.1))^2))*((-1.7)-2*(0.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10037,14 +9123,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10058,8 +9144,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10069,12 +9155,12 @@ a
tx@Dict begin /Func (-1.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(0.1))^2))|0.1+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(0.1))^2))*((-1.4)-2*(0.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10089,7 +9175,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10104,7 +9190,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10114,12 +9200,12 @@ a
tx@Dict begin /Func (-1.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(0.1))^2))|0.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(0.1))^2))*((-1.1)-2*(0.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10127,14 +9213,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10148,8 +9234,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10159,12 +9245,12 @@ a
tx@Dict begin /Func (-0.8+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(0.1))^2))|0.1+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(0.1))^2))*((-0.8)-2*(0.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10172,14 +9258,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10193,8 +9279,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10204,12 +9290,12 @@ a
tx@Dict begin /Func (-0.5+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(0.1))^2))|0.1+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(0.1))^2))*((-0.5)-2*(0.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10224,7 +9310,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10239,7 +9325,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10249,12 +9335,12 @@ a
tx@Dict begin /Func (-0.2+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(0.1))^2))|0.1+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(0.1))^2))*((-0.2)-2*(0.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10262,30 +9348,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10294,12 +9380,12 @@ a
tx@Dict begin /Func (0.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(0.1))^2))|0.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(0.1))^2))*((0.1)-2*(0.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10307,30 +9393,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10339,12 +9425,12 @@ a
tx@Dict begin /Func (0.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(0.1))^2))|0.1+((0.3)*t)*(1/sqrt(1+((0.4)-2*(0.1))^2))*((0.4)-2*(0.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10352,30 +9438,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10384,12 +9470,12 @@ a
tx@Dict begin /Func (0.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(0.1))^2))|0.1+((0.3)*t)*(1/sqrt(1+((0.7)-2*(0.1))^2))*((0.7)-2*(0.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10397,30 +9483,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10429,12 +9515,12 @@ a
tx@Dict begin /Func (1.0+((0.3)*t)*(1/sqrt(1+((1.0)-2*(0.1))^2))|0.1+((0.3)*t)*(1/sqrt(1+((1.0)-2*(0.1))^2))*((1.0)-2*(0.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10449,7 +9535,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10464,7 +9550,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10474,12 +9560,12 @@ a
tx@Dict begin /Func (1.3+((0.3)*t)*(1/sqrt(1+((1.3)-2*(0.1))^2))|0.1+((0.3)*t)*(1/sqrt(1+((1.3)-2*(0.1))^2))*((1.3)-2*(0.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10487,14 +9573,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10508,8 +9594,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10519,12 +9605,12 @@ a
tx@Dict begin /Func (1.6+((0.3)*t)*(1/sqrt(1+((1.6)-2*(0.1))^2))|0.1+((0.3)*t)*(1/sqrt(1+((1.6)-2*(0.1))^2))*((1.6)-2*(0.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10532,14 +9618,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10553,8 +9639,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10564,12 +9650,12 @@ a
tx@Dict begin /Func (1.9+((0.3)*t)*(1/sqrt(1+((1.9)-2*(0.1))^2))|0.1+((0.3)*t)*(1/sqrt(1+((1.9)-2*(0.1))^2))*((1.9)-2*(0.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10584,7 +9670,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10599,7 +9685,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10609,12 +9695,12 @@ a
tx@Dict begin /Func (-2.00+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(0.4))^2))|0.4+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(0.4))^2))*((-2.00)-2*(0.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10622,14 +9708,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10643,8 +9729,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10654,12 +9740,12 @@ a
tx@Dict begin /Func (-1.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(0.4))^2))|0.4+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(0.4))^2))*((-1.7)-2*(0.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10674,7 +9760,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10689,7 +9775,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10699,12 +9785,12 @@ a
tx@Dict begin /Func (-1.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(0.4))^2))|0.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(0.4))^2))*((-1.4)-2*(0.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10719,7 +9805,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10734,7 +9820,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10744,12 +9830,12 @@ a
tx@Dict begin /Func (-1.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(0.4))^2))|0.4+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(0.4))^2))*((-1.1)-2*(0.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10757,14 +9843,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10778,8 +9864,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10789,12 +9875,12 @@ a
tx@Dict begin /Func (-0.8+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(0.4))^2))|0.4+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(0.4))^2))*((-0.8)-2*(0.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10809,7 +9895,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10824,7 +9910,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10834,12 +9920,12 @@ a
tx@Dict begin /Func (-0.5+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(0.4))^2))|0.4+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(0.4))^2))*((-0.5)-2*(0.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10847,14 +9933,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10868,8 +9954,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10879,12 +9965,12 @@ a
tx@Dict begin /Func (-0.2+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(0.4))^2))|0.4+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(0.4))^2))*((-0.2)-2*(0.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10892,14 +9978,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10913,8 +9999,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10924,12 +10010,12 @@ a
tx@Dict begin /Func (0.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(0.4))^2))|0.4+((0.3)*t)*(1/sqrt(1+((0.1)-2*(0.4))^2))*((0.1)-2*(0.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10937,30 +10023,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10969,12 +10055,12 @@ a
tx@Dict begin /Func (0.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(0.4))^2))|0.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(0.4))^2))*((0.4)-2*(0.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10982,30 +10068,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11014,12 +10100,12 @@ a
tx@Dict begin /Func (0.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(0.4))^2))|0.4+((0.3)*t)*(1/sqrt(1+((0.7)-2*(0.4))^2))*((0.7)-2*(0.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11027,30 +10113,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11059,12 +10145,12 @@ a
tx@Dict begin /Func (1.0+((0.3)*t)*(1/sqrt(1+((1.0)-2*(0.4))^2))|0.4+((0.3)*t)*(1/sqrt(1+((1.0)-2*(0.4))^2))*((1.0)-2*(0.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11072,30 +10158,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11104,12 +10190,12 @@ a
tx@Dict begin /Func (1.3+((0.3)*t)*(1/sqrt(1+((1.3)-2*(0.4))^2))|0.4+((0.3)*t)*(1/sqrt(1+((1.3)-2*(0.4))^2))*((1.3)-2*(0.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11117,30 +10203,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11149,12 +10235,12 @@ a
tx@Dict begin /Func (1.6+((0.3)*t)*(1/sqrt(1+((1.6)-2*(0.4))^2))|0.4+((0.3)*t)*(1/sqrt(1+((1.6)-2*(0.4))^2))*((1.6)-2*(0.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11169,7 +10255,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11184,7 +10270,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -11194,12 +10280,12 @@ a
tx@Dict begin /Func (1.9+((0.3)*t)*(1/sqrt(1+((1.9)-2*(0.4))^2))|0.4+((0.3)*t)*(1/sqrt(1+((1.9)-2*(0.4))^2))*((1.9)-2*(0.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11207,14 +10293,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11228,8 +10314,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -11239,12 +10325,12 @@ a
tx@Dict begin /Func (-2.00+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(0.7))^2))|0.7+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(0.7))^2))*((-2.00)-2*(0.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11259,7 +10345,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11274,7 +10360,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -11284,12 +10370,12 @@ a
tx@Dict begin /Func (-1.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(0.7))^2))|0.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(0.7))^2))*((-1.7)-2*(0.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11304,7 +10390,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11319,7 +10405,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -11329,12 +10415,12 @@ a
tx@Dict begin /Func (-1.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(0.7))^2))|0.7+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(0.7))^2))*((-1.4)-2*(0.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11342,14 +10428,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11363,8 +10449,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -11374,12 +10460,12 @@ a
tx@Dict begin /Func (-1.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(0.7))^2))|0.7+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(0.7))^2))*((-1.1)-2*(0.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11394,7 +10480,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11409,7 +10495,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -11419,12 +10505,12 @@ a
tx@Dict begin /Func (-0.8+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(0.7))^2))|0.7+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(0.7))^2))*((-0.8)-2*(0.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11439,7 +10525,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11454,7 +10540,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -11464,12 +10550,12 @@ a
tx@Dict begin /Func (-0.5+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(0.7))^2))|0.7+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(0.7))^2))*((-0.5)-2*(0.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11477,14 +10563,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11498,8 +10584,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -11509,12 +10595,12 @@ a
tx@Dict begin /Func (-0.2+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(0.7))^2))|0.7+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(0.7))^2))*((-0.2)-2*(0.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11529,7 +10615,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11544,7 +10630,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -11554,12 +10640,12 @@ a
tx@Dict begin /Func (0.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(0.7))^2))|0.7+((0.3)*t)*(1/sqrt(1+((0.1)-2*(0.7))^2))*((0.1)-2*(0.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11567,14 +10653,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11588,8 +10674,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -11599,12 +10685,12 @@ a
tx@Dict begin /Func (0.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(0.7))^2))|0.7+((0.3)*t)*(1/sqrt(1+((0.4)-2*(0.7))^2))*((0.4)-2*(0.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11612,14 +10698,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11633,8 +10719,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -11644,12 +10730,12 @@ a
tx@Dict begin /Func (0.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(0.7))^2))|0.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(0.7))^2))*((0.7)-2*(0.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11657,30 +10743,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11689,12 +10775,12 @@ a
tx@Dict begin /Func (1.0+((0.3)*t)*(1/sqrt(1+((1.0)-2*(0.7))^2))|0.7+((0.3)*t)*(1/sqrt(1+((1.0)-2*(0.7))^2))*((1.0)-2*(0.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11702,30 +10788,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11734,12 +10820,12 @@ a
tx@Dict begin /Func (1.3+((0.3)*t)*(1/sqrt(1+((1.3)-2*(0.7))^2))|0.7+((0.3)*t)*(1/sqrt(1+((1.3)-2*(0.7))^2))*((1.3)-2*(0.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11747,30 +10833,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11779,12 +10865,12 @@ a
tx@Dict begin /Func (1.6+((0.3)*t)*(1/sqrt(1+((1.6)-2*(0.7))^2))|0.7+((0.3)*t)*(1/sqrt(1+((1.6)-2*(0.7))^2))*((1.6)-2*(0.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11792,30 +10878,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11824,12 +10910,12 @@ a
tx@Dict begin /Func (1.9+((0.3)*t)*(1/sqrt(1+((1.9)-2*(0.7))^2))|0.7+((0.3)*t)*(1/sqrt(1+((1.9)-2*(0.7))^2))*((1.9)-2*(0.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11837,30 +10923,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11869,12 +10955,12 @@ a
tx@Dict begin /Func (-2.00+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(1.0))^2))|1.0+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(1.0))^2))*((-2.00)-2*(1.0))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11889,7 +10975,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11904,7 +10990,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -11914,12 +11000,12 @@ a
tx@Dict begin /Func (-1.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(1.0))^2))|1.0+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(1.0))^2))*((-1.7)-2*(1.0))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11934,7 +11020,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11949,7 +11035,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -11959,12 +11045,12 @@ a
tx@Dict begin /Func (-1.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(1.0))^2))|1.0+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(1.0))^2))*((-1.4)-2*(1.0))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11979,7 +11065,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11994,7 +11080,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12004,12 +11090,12 @@ a
tx@Dict begin /Func (-1.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(1.0))^2))|1.0+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(1.0))^2))*((-1.1)-2*(1.0))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12024,7 +11110,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12039,7 +11125,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12049,12 +11135,12 @@ a
tx@Dict begin /Func (-0.8+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(1.0))^2))|1.0+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(1.0))^2))*((-0.8)-2*(1.0))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12069,7 +11155,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12084,7 +11170,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12094,12 +11180,12 @@ a
tx@Dict begin /Func (-0.5+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(1.0))^2))|1.0+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(1.0))^2))*((-0.5)-2*(1.0))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12114,7 +11200,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12129,7 +11215,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12139,12 +11225,12 @@ a
tx@Dict begin /Func (-0.2+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(1.0))^2))|1.0+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(1.0))^2))*((-0.2)-2*(1.0))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12159,7 +11245,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12174,7 +11260,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12184,12 +11270,12 @@ a
tx@Dict begin /Func (0.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(1.0))^2))|1.0+((0.3)*t)*(1/sqrt(1+((0.1)-2*(1.0))^2))*((0.1)-2*(1.0))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12197,14 +11283,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12218,8 +11304,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12229,12 +11315,12 @@ a
tx@Dict begin /Func (0.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(1.0))^2))|1.0+((0.3)*t)*(1/sqrt(1+((0.4)-2*(1.0))^2))*((0.4)-2*(1.0))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12249,7 +11335,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12264,7 +11350,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12274,12 +11360,12 @@ a
tx@Dict begin /Func (0.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(1.0))^2))|1.0+((0.3)*t)*(1/sqrt(1+((0.7)-2*(1.0))^2))*((0.7)-2*(1.0))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12287,14 +11373,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12308,8 +11394,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12319,12 +11405,12 @@ a
tx@Dict begin /Func (1.0+((0.3)*t)*(1/sqrt(1+((1.0)-2*(1.0))^2))|1.0+((0.3)*t)*(1/sqrt(1+((1.0)-2*(1.0))^2))*((1.0)-2*(1.0))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12332,14 +11418,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12353,8 +11439,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12364,12 +11450,12 @@ a
tx@Dict begin /Func (1.3+((0.3)*t)*(1/sqrt(1+((1.3)-2*(1.0))^2))|1.0+((0.3)*t)*(1/sqrt(1+((1.3)-2*(1.0))^2))*((1.3)-2*(1.0))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12377,30 +11463,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -12409,12 +11495,12 @@ a
tx@Dict begin /Func (1.6+((0.3)*t)*(1/sqrt(1+((1.6)-2*(1.0))^2))|1.0+((0.3)*t)*(1/sqrt(1+((1.6)-2*(1.0))^2))*((1.6)-2*(1.0))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12422,30 +11508,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -12454,12 +11540,12 @@ a
tx@Dict begin /Func (1.9+((0.3)*t)*(1/sqrt(1+((1.9)-2*(1.0))^2))|1.0+((0.3)*t)*(1/sqrt(1+((1.9)-2*(1.0))^2))*((1.9)-2*(1.0))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12467,30 +11553,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -12499,12 +11585,12 @@ a
tx@Dict begin /Func (-2.00+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(1.3))^2))|1.3+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(1.3))^2))*((-2.00)-2*(1.3))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12519,7 +11605,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12534,7 +11620,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12544,12 +11630,12 @@ a
tx@Dict begin /Func (-1.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(1.3))^2))|1.3+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(1.3))^2))*((-1.7)-2*(1.3))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12557,14 +11643,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12578,8 +11664,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12589,12 +11675,12 @@ a
tx@Dict begin /Func (-1.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(1.3))^2))|1.3+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(1.3))^2))*((-1.4)-2*(1.3))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12609,7 +11695,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12624,7 +11710,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12634,12 +11720,12 @@ a
tx@Dict begin /Func (-1.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(1.3))^2))|1.3+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(1.3))^2))*((-1.1)-2*(1.3))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12654,7 +11740,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12669,7 +11755,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12679,12 +11765,12 @@ a
tx@Dict begin /Func (-0.8+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(1.3))^2))|1.3+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(1.3))^2))*((-0.8)-2*(1.3))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12699,7 +11785,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12714,7 +11800,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12724,12 +11810,12 @@ a
tx@Dict begin /Func (-0.5+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(1.3))^2))|1.3+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(1.3))^2))*((-0.5)-2*(1.3))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12744,7 +11830,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12759,7 +11845,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12769,12 +11855,12 @@ a
tx@Dict begin /Func (-0.2+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(1.3))^2))|1.3+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(1.3))^2))*((-0.2)-2*(1.3))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12789,7 +11875,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12804,7 +11890,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12814,12 +11900,12 @@ a
tx@Dict begin /Func (0.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(1.3))^2))|1.3+((0.3)*t)*(1/sqrt(1+((0.1)-2*(1.3))^2))*((0.1)-2*(1.3))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12834,7 +11920,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12849,7 +11935,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12859,12 +11945,12 @@ a
tx@Dict begin /Func (0.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(1.3))^2))|1.3+((0.3)*t)*(1/sqrt(1+((0.4)-2*(1.3))^2))*((0.4)-2*(1.3))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12879,7 +11965,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12894,7 +11980,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12904,12 +11990,12 @@ a
tx@Dict begin /Func (0.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(1.3))^2))|1.3+((0.3)*t)*(1/sqrt(1+((0.7)-2*(1.3))^2))*((0.7)-2*(1.3))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12917,14 +12003,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12938,8 +12024,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12949,12 +12035,12 @@ a
tx@Dict begin /Func (1.0+((0.3)*t)*(1/sqrt(1+((1.0)-2*(1.3))^2))|1.3+((0.3)*t)*(1/sqrt(1+((1.0)-2*(1.3))^2))*((1.0)-2*(1.3))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12969,7 +12055,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12984,7 +12070,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12994,12 +12080,12 @@ a
tx@Dict begin /Func (1.3+((0.3)*t)*(1/sqrt(1+((1.3)-2*(1.3))^2))|1.3+((0.3)*t)*(1/sqrt(1+((1.3)-2*(1.3))^2))*((1.3)-2*(1.3))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13007,14 +12093,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13028,8 +12114,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13039,12 +12125,12 @@ a
tx@Dict begin /Func (1.6+((0.3)*t)*(1/sqrt(1+((1.6)-2*(1.3))^2))|1.3+((0.3)*t)*(1/sqrt(1+((1.6)-2*(1.3))^2))*((1.6)-2*(1.3))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13052,14 +12138,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13073,8 +12159,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13084,12 +12170,12 @@ a
tx@Dict begin /Func (1.9+((0.3)*t)*(1/sqrt(1+((1.9)-2*(1.3))^2))|1.3+((0.3)*t)*(1/sqrt(1+((1.9)-2*(1.3))^2))*((1.9)-2*(1.3))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13104,7 +12190,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13119,7 +12205,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13129,12 +12215,12 @@ a
tx@Dict begin /Func (-2.00+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(1.6))^2))|1.6+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(1.6))^2))*((-2.00)-2*(1.6))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13142,14 +12228,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13163,8 +12249,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13174,12 +12260,12 @@ a
tx@Dict begin /Func (-1.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(1.6))^2))|1.6+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(1.6))^2))*((-1.7)-2*(1.6))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13187,14 +12273,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13208,8 +12294,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13219,12 +12305,12 @@ a
tx@Dict begin /Func (-1.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(1.6))^2))|1.6+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(1.6))^2))*((-1.4)-2*(1.6))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13239,7 +12325,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13254,7 +12340,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13264,12 +12350,12 @@ a
tx@Dict begin /Func (-1.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(1.6))^2))|1.6+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(1.6))^2))*((-1.1)-2*(1.6))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13277,14 +12363,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13298,8 +12384,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13309,12 +12395,12 @@ a
tx@Dict begin /Func (-0.8+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(1.6))^2))|1.6+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(1.6))^2))*((-0.8)-2*(1.6))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13329,7 +12415,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13344,7 +12430,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13354,12 +12440,12 @@ a
tx@Dict begin /Func (-0.5+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(1.6))^2))|1.6+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(1.6))^2))*((-0.5)-2*(1.6))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13374,7 +12460,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13389,7 +12475,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13399,12 +12485,12 @@ a
tx@Dict begin /Func (-0.2+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(1.6))^2))|1.6+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(1.6))^2))*((-0.2)-2*(1.6))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13419,7 +12505,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13434,7 +12520,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13444,12 +12530,12 @@ a
tx@Dict begin /Func (0.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(1.6))^2))|1.6+((0.3)*t)*(1/sqrt(1+((0.1)-2*(1.6))^2))*((0.1)-2*(1.6))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13464,7 +12550,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13479,7 +12565,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13489,12 +12575,12 @@ a
tx@Dict begin /Func (0.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(1.6))^2))|1.6+((0.3)*t)*(1/sqrt(1+((0.4)-2*(1.6))^2))*((0.4)-2*(1.6))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13509,7 +12595,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13524,7 +12610,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13534,12 +12620,12 @@ a
tx@Dict begin /Func (0.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(1.6))^2))|1.6+((0.3)*t)*(1/sqrt(1+((0.7)-2*(1.6))^2))*((0.7)-2*(1.6))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13554,7 +12640,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13569,7 +12655,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13579,12 +12665,12 @@ a
tx@Dict begin /Func (1.0+((0.3)*t)*(1/sqrt(1+((1.0)-2*(1.6))^2))|1.6+((0.3)*t)*(1/sqrt(1+((1.0)-2*(1.6))^2))*((1.0)-2*(1.6))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13599,7 +12685,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13614,7 +12700,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13624,12 +12710,12 @@ a
tx@Dict begin /Func (1.3+((0.3)*t)*(1/sqrt(1+((1.3)-2*(1.6))^2))|1.6+((0.3)*t)*(1/sqrt(1+((1.3)-2*(1.6))^2))*((1.3)-2*(1.6))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13637,14 +12723,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13658,8 +12744,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13669,12 +12755,12 @@ a
tx@Dict begin /Func (1.6+((0.3)*t)*(1/sqrt(1+((1.6)-2*(1.6))^2))|1.6+((0.3)*t)*(1/sqrt(1+((1.6)-2*(1.6))^2))*((1.6)-2*(1.6))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13689,7 +12775,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13704,7 +12790,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13714,12 +12800,12 @@ a
tx@Dict begin /Func (1.9+((0.3)*t)*(1/sqrt(1+((1.9)-2*(1.6))^2))|1.6+((0.3)*t)*(1/sqrt(1+((1.9)-2*(1.6))^2))*((1.9)-2*(1.6))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13727,14 +12813,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13748,8 +12834,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13759,12 +12845,12 @@ a
tx@Dict begin /Func (-2.00+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(1.9))^2))|1.9+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(1.9))^2))*((-2.00)-2*(1.9))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13772,14 +12858,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13793,8 +12879,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13804,12 +12890,12 @@ a
tx@Dict begin /Func (-1.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(1.9))^2))|1.9+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(1.9))^2))*((-1.7)-2*(1.9))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13824,7 +12910,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13839,7 +12925,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13849,12 +12935,12 @@ a
tx@Dict begin /Func (-1.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(1.9))^2))|1.9+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(1.9))^2))*((-1.4)-2*(1.9))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13862,14 +12948,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13883,8 +12969,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13894,12 +12980,12 @@ a
tx@Dict begin /Func (-1.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(1.9))^2))|1.9+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(1.9))^2))*((-1.1)-2*(1.9))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13914,7 +13000,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13929,7 +13015,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13939,12 +13025,12 @@ a
tx@Dict begin /Func (-0.8+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(1.9))^2))|1.9+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(1.9))^2))*((-0.8)-2*(1.9))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13959,7 +13045,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13974,7 +13060,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13984,12 +13070,12 @@ a
tx@Dict begin /Func (-0.5+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(1.9))^2))|1.9+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(1.9))^2))*((-0.5)-2*(1.9))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13997,14 +13083,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14018,8 +13104,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -14029,12 +13115,12 @@ a
tx@Dict begin /Func (-0.2+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(1.9))^2))|1.9+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(1.9))^2))*((-0.2)-2*(1.9))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -14049,7 +13135,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14064,7 +13150,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -14074,12 +13160,12 @@ a
tx@Dict begin /Func (0.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(1.9))^2))|1.9+((0.3)*t)*(1/sqrt(1+((0.1)-2*(1.9))^2))*((0.1)-2*(1.9))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -14094,7 +13180,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14109,7 +13195,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -14119,12 +13205,12 @@ a
tx@Dict begin /Func (0.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(1.9))^2))|1.9+((0.3)*t)*(1/sqrt(1+((0.4)-2*(1.9))^2))*((0.4)-2*(1.9))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -14139,7 +13225,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14154,7 +13240,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -14164,12 +13250,12 @@ a
tx@Dict begin /Func (0.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(1.9))^2))|1.9+((0.3)*t)*(1/sqrt(1+((0.7)-2*(1.9))^2))*((0.7)-2*(1.9))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -14184,7 +13270,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14199,7 +13285,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -14209,12 +13295,12 @@ a
tx@Dict begin /Func (1.0+((0.3)*t)*(1/sqrt(1+((1.0)-2*(1.9))^2))|1.9+((0.3)*t)*(1/sqrt(1+((1.0)-2*(1.9))^2))*((1.0)-2*(1.9))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -14222,14 +13308,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14243,8 +13329,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -14254,12 +13340,12 @@ a
tx@Dict begin /Func (1.3+((0.3)*t)*(1/sqrt(1+((1.3)-2*(1.9))^2))|1.9+((0.3)*t)*(1/sqrt(1+((1.3)-2*(1.9))^2))*((1.3)-2*(1.9))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -14274,7 +13360,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14289,7 +13375,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -14299,12 +13385,12 @@ a
tx@Dict begin /Func (1.6+((0.3)*t)*(1/sqrt(1+((1.6)-2*(1.9))^2))|1.9+((0.3)*t)*(1/sqrt(1+((1.6)-2*(1.9))^2))*((1.6)-2*(1.9))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -14319,7 +13405,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14334,7 +13420,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -14344,12 +13430,12 @@ a
tx@Dict begin /Func (1.9+((0.3)*t)*(1/sqrt(1+((1.9)-2*(1.9))^2))|1.9+((0.3)*t)*(1/sqrt(1+((1.9)-2*(1.9))^2))*((1.9)-2*(1.9))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -14357,14 +13443,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14378,8 +13464,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial @beginspecial @setspecial
@@ -14389,7 +13475,7 @@ add dup 2 div /w ED mul dup /h ED mul /a ED { 0 h T 1 -1 scale } if
gsave w neg h moveto 0 0 L w h L w neg a neg rlineto gsave fill grestore
grestore 0 h a sub moveto EndArrow } def /ArrowInside { } def
/showOrigin true def 59.85017 0 -57.0 0 ArrowA CP 4 2 roll ArrowB
-2 copy /yEnd exch def /xEnd exch def L 1 setlinejoin 0 setlinecap
+2 copy /yEnd exch def /xEnd exch def L 0 setlinejoin 0 setlinecap
stroke stroke /yStart exch def /xStart exch def 0 dup 2 mod 0 eq false
and exch 2 lt true and or { /viceversa -57.0 59.85017 gt { true }{
false } ifelse def /epsilon 0.01 def /minTickline -57.0 def /maxTickline
@@ -14399,8 +13485,8 @@ false } ifelse def /epsilon 0.01 def /minTickline -57.0 def /maxTickline
0.2 def /STsize 0.75 def /TColor { 0 setgray } def /subTColor {
0.5 setgray } def /MinValue { xStart } def /MaxValue { xEnd 1.5 2.
CLW mul add 1.4 mul viceversa { add epsilon sub }{ sub epsilon add
-} ifelse } def /logLines { false } def /LSstroke { 1 setlinejoin
-0 setlinecap stroke stroke} def /subLSstroke { 1 setlinejoin 0
+} ifelse } def /logLines { false } def /LSstroke { 0 setlinejoin
+0 setlinecap stroke stroke} def /subLSstroke { 0 setlinejoin 0
setlinecap stroke stroke} def 0 dT MaxValue 1 add { /cntTick exch def
logLines { gsave 1 10 subTNo div 9.99 { /dx exch def /x cntTick dT
dx log mul add def x abs MaxValue abs le { false { x minTickline moveto
@@ -14441,7 +13527,7 @@ moveto EndArrow } def /ArrowInside { } def 0.7 SLW 0 setgray
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ 0.0 57.0 0.0 -57.0 /Lineto /lineto load def 1 setlinejoin
+{ } def [ 0.0 57.0 0.0 -57.0 /Lineto /lineto load def 0 setlinejoin
false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if () length 0 gt
{ 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add /arrowlength
exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1
@@ -14455,7 +13541,7 @@ div }{0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def
x2 x1 sub ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside
pop pop } repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2
sub def n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop }
-if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 1 setlinejoin
+if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial @beginspecial
@@ -14469,7 +13555,7 @@ moveto EndArrow } def /ArrowInside { } def 0.7 SLW 0 setgray
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ 59.85017 0.0 -57.0 0.0 /Lineto /lineto load def 1 setlinejoin
+{ } def [ 59.85017 0.0 -57.0 0.0 /Lineto /lineto load def 0 setlinejoin
false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if () length 0 gt
{ 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add /arrowlength
exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1
@@ -14483,7 +13569,7 @@ div }{0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def
x2 x1 sub ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside
pop pop } repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2
sub def n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop }
-if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 1 setlinejoin
+if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial @beginspecial @setspecial
@@ -14493,7 +13579,7 @@ add dup 2 div /w ED mul dup /h ED mul /a ED { 0 h T 1 -1 scale } if
gsave w neg h moveto 0 0 L w h L w neg a neg rlineto gsave fill grestore
grestore 0 h a sub moveto EndArrow } def /ArrowInside { } def
/showOrigin true def 0 57.0 0 -57.0 ArrowA CP 4 2 roll ArrowB 2 copy
-/yEnd exch def /xEnd exch def L 1 setlinejoin 0 setlinecap stroke
+/yEnd exch def /xEnd exch def L 0 setlinejoin 0 setlinecap stroke
stroke /yStart exch def /xStart exch def 0 dup 2 mod 0 eq true and
exch 2 lt false and or { /viceversa -57.0 57.0 gt { true }{ false
} ifelse def /epsilon 0.01 def /minTickline -57.0 def /maxTickline
@@ -14503,8 +13589,8 @@ exch 2 lt false and or { /viceversa -57.0 57.0 gt { true }{ false
0.2 def /STsize 0.75 def /TColor { 0 setgray } def /subTColor {
0.5 setgray } def /MinValue { yStart } def /MaxValue { yEnd 1.5 2.
CLW mul add 1.4 mul viceversa { add epsilon sub }{ sub epsilon add
-} ifelse } def /logLines { false } def /LSstroke { 1 setlinejoin
-0 setlinecap stroke stroke} def /subLSstroke { 1 setlinejoin 0
+} ifelse } def /logLines { false } def /LSstroke { 0 setlinejoin
+0 setlinecap stroke stroke} def /subLSstroke { 0 setlinejoin 0
setlinecap stroke stroke} def 0 dT MaxValue 1 add { /cntTick exch
def logLines { gsave 1 10 subTNo div 9.99 { /dx exch def /x cntTick
dT dx log mul add def x abs MaxValue abs le { false { x minTickline
@@ -14546,7 +13632,7 @@ moveto EndArrow } def /ArrowInside { } def 0.7 SLW 0 setgray
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ 0.0 57.0 0.0 -57.0 /Lineto /lineto load def 1 setlinejoin
+{ } def [ 0.0 57.0 0.0 -57.0 /Lineto /lineto load def 0 setlinejoin
false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if () length 0 gt
{ 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add /arrowlength
exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1
@@ -14560,7 +13646,7 @@ div }{0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def
x2 x1 sub ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside
pop pop } repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2
sub def n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop }
-if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 1 setlinejoin
+if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial @beginspecial
@@ -14574,7 +13660,7 @@ moveto EndArrow } def /ArrowInside { } def 0.7 SLW 0 setgray
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ 59.85017 0.0 -57.0 0.0 /Lineto /lineto load def 1 setlinejoin
+{ } def [ 59.85017 0.0 -57.0 0.0 /Lineto /lineto load def 0 setlinejoin
false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if () length 0 gt
{ 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add /arrowlength
exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1
@@ -14588,7 +13674,7 @@ div }{0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def
x2 x1 sub ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside
pop pop } repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2
sub def n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop }
-if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 1 setlinejoin
+if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 694 449 a Fb(1)639 919 y Fa(\000)p
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vec6.eps b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vecb6.eps
index 6454c296f60..7d96857165e 100644
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vec6.eps
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/For_Ps_Output/vecb6.eps
@@ -1,7 +1,7 @@
%!PS-Adobe-3.0 EPSF-3.0
-%%Creator: dvips(k) 5.992 Copyright 2012 Radical Eye Software
+%%Creator: dvips(k) 5.993 Copyright 2013 Radical Eye Software
%%Title: testps-fig1.dvi
-%%CreationDate: Tue Oct 01 21:04:03 2013
+%%CreationDate: Tue Apr 01 21:54:59 2014
%%Pages: 1
%%PageOrder: Ascend
%%BoundingBox: 101 580 227 698
@@ -11,7 +11,7 @@
%DVIPSWebPage: (www.radicaleye.com)
%DVIPSCommandLine: DVIPS.EXE testps-fig1
%DVIPSParameters: dpi=600
-%DVIPSSource: TeX output 2013.10.01:2104
+%DVIPSSource: TeX output 2014.04.01:2154
%%BeginProcSet: tex.pro 0 0
%!
/TeXDict 300 dict def TeXDict begin/N{def}def/B{bind def}N/S{exch}N/X{S
@@ -43,19 +43,21 @@ SI restore userdict/eop-hook known{eop-hook}if showpage}N/@start{
userdict/start-hook known{start-hook}if pop/VResolution X/Resolution X
1000 div/DVImag X/IEn 256 array N 2 string 0 1 255{IEn S A 360 add 36 4
index cvrs cvn put}for pop 65781.76 div/vsize X 65781.76 div/hsize X}N
-/p{show}N/RMat[1 0 0 -1 0 0]N/BDot 260 string N/Rx 0 N/Ry 0 N/V{}B/RV/v{
-/Ry X/Rx X V}B statusdict begin/product where{pop false[(Display)(NeXT)
-(LaserWriter 16/600)]{A length product length le{A length product exch 0
-exch getinterval eq{pop true exit}if}{pop}ifelse}forall}{false}ifelse
-end{{gsave TR -.1 .1 TR 1 1 scale Rx Ry false RMat{BDot}imagemask
-grestore}}{{gsave TR -.1 .1 TR Rx Ry scale 1 1 false RMat{BDot}
-imagemask grestore}}ifelse B/QV{gsave newpath transform round exch round
-exch itransform moveto Rx 0 rlineto 0 Ry neg rlineto Rx neg 0 rlineto
-fill grestore}B/a{moveto}B/delta 0 N/tail{A/delta X 0 rmoveto}B/M{S p
-delta add tail}B/b{S p tail}B/c{-4 M}B/d{-3 M}B/e{-2 M}B/f{-1 M}B/g{0 M}
-B/h{1 M}B/i{2 M}B/j{3 M}B/k{4 M}B/w{0 rmoveto}B/l{p -4 w}B/m{p -3 w}B/n{
-p -2 w}B/o{p -1 w}B/q{p 1 w}B/r{p 2 w}B/s{p 3 w}B/t{p 4 w}B/x{0 S
-rmoveto}B/y{3 2 roll p a}B/bos{/SS save N}B/eos{SS restore}B end
+/dir 0 def/dyy{/dir 0 def}B/dyt{/dir 1 def}B/dty{/dir 2 def}B/dtt{/dir 3
+def}B/p{dir 2 eq{-90 rotate show 90 rotate}{dir 3 eq{-90 rotate show 90
+rotate}{show}ifelse}ifelse}N/RMat[1 0 0 -1 0 0]N/BDot 260 string N/Rx 0
+N/Ry 0 N/V{}B/RV/v{/Ry X/Rx X V}B statusdict begin/product where{pop
+false[(Display)(NeXT)(LaserWriter 16/600)]{A length product length le{A
+length product exch 0 exch getinterval eq{pop true exit}if}{pop}ifelse}
+forall}{false}ifelse end{{gsave TR -.1 .1 TR 1 1 scale Rx Ry false RMat{
+BDot}imagemask grestore}}{{gsave TR -.1 .1 TR Rx Ry scale 1 1 false RMat
+{BDot}imagemask grestore}}ifelse B/QV{gsave newpath transform round exch
+round exch itransform moveto Rx 0 rlineto 0 Ry neg rlineto Rx neg 0
+rlineto fill grestore}B/a{moveto}B/delta 0 N/tail{A/delta X 0 rmoveto}B
+/M{S p delta add tail}B/b{S p tail}B/c{-4 M}B/d{-3 M}B/e{-2 M}B/f{-1 M}
+B/g{0 M}B/h{1 M}B/i{2 M}B/j{3 M}B/k{4 M}B/w{0 rmoveto}B/l{p -4 w}B/m{p
+-3 w}B/n{p -2 w}B/o{p -1 w}B/q{p 1 w}B/r{p 2 w}B/s{p 3 w}B/t{p 4 w}B/x{
+0 S rmoveto}B/y{3 2 roll p a}B/bos{/SS save N}B/eos{SS restore}B end
%%EndProcSet
%%BeginProcSet: pstricks.pro 0 0
@@ -4021,941 +4023,21 @@ tx@FuncDict begin
end
%%EndProcSet
-%%BeginProcSet: pst-3dplot.pro 0 0
-%% $Id: pst-3dplot.pro 236 2009-12-31 08:59:43Z herbert $
-%%
-%% This is file `pst-3dplot.pro',
-%%
-%% IMPORTANT NOTICE:
-%%
-%% Package `pst-3dplot.tex'
-%%
-%% Herbert Voss <voss _at_ PSTricks.de>
-%%
-%% This program can be redistributed and/or modified under the terms
-%% of the LaTeX Project Public License Distributed from CTAN archives
-%% in directory macros/latex/base/lppl.txt.
-%%
-%% DESCRIPTION:
-%% `pst-3dplot' is a PSTricks package to draw 3d curves and graphical objects
-%%
-%%
-%% version 0.30 / 2010-01-01 Herbert Voss <voss _at_ PSTricks.de>
-%% with contributions of Darrell Lamm <darrell.lamm _at_ gtri.gatech.edu<
-%%
-%
-/tx@3DPlotDict 200 dict def
-tx@3DPlotDict begin
-%
-/printDot { gsave 2 copy 2 0 360 arc fill stroke grestore } def
-%
-/saveCoor {
- dzUnit mul /z ED
- dyUnit mul /y ED
- dxUnit mul /x ED
-} def
-%
-/ConvertTo2D {
- RotatePoint
- 1 { % dummy loop, will run only 1 time, allows exit
- coorType 0 le { % the default |
- /x2D x leftHanded not { neg } if Alpha cos mul y Alpha sin mul add def % /\ co system
- /y2D x leftHanded { neg } if Alpha sin mul y Alpha cos mul add neg Beta sin mul z Beta cos mul add def
- exit } if
- coorType 1 le {
- /x2D y x Alpha 90 sub sin mul sub def % |/_ co system, no shortened x axis
- /y2D z x Alpha 90 sub cos mul sub def
- exit } if
- coorType 2 le { % coorType |/_ with a 1/sqrt(2) shortend x-axis and 135 degrees
- /x2D y x 0.5 mul sub def
- /y2D z x 0.5 mul sub def
- exit } if
- coorType 3 le { % coorType |/_ with a 1/sqrt(2) shortend x-axis and 135 degrees
- /x2D y x -0.5 mul sub def
- /y2D z x -0.5 mul sub def
- exit } if
- coorType 4 le { % Normalbild in Trimetrie Skalierung so, dass coorType2
- /x2D x -0.5 mul y 1 mul add def
- /y2D x -0.5 mul y -0.25 mul add z 1 mul add def
- exit } if
- } repeat
-} def
-%
-/Conv3D2D { /z ED /y ED /x ED ConvertTo2D x2D y2D } def
-%
-/ConvertToCartesian {
- /latitude exch def
- /longitude exch def
- /Radius exch def
- 1 { % dummy loop, will run only 1 time, allows exit
- SphericalCoorType 0 le { % the default |
- /z { Radius latitude sin mul } def
- /x { Radius longitude cos mul latitude cos mul } def
- /y { Radius longitude sin mul latitude cos mul } def
- exit } if
- SphericalCoorType 2 le {
- /z { Radius longitude cos mul } def
- /x { Radius longitude sin mul latitude cos mul} def
- /y { Radius longitude sin mul latitude sin mul } def
- exit } if
- } repeat
-} def
-%
-/ConvCylToCartesian { % r phi h -> x y z
- 3 1 roll % h r phi
- /Phi ED
- /Radius ED % h->z on stack
- Radius Phi cos mul exch % x z
- Radius Phi sin mul exch % x y z
-} def
-%
-/SphericalTo2D {
- x y z ConvertToCartesian ConvertTo2D
-} def
-%
-/CylinderTo2D { % r phi h
- x y z ConvCylToCartesian ConvertTo2D
-} def
-%
-/convertStackTo2D {
- counttomark
- /n ED /n3 n 3 div cvi def
- n3 {
- n -3 roll
- SphericalCoor { ConvertToCartesian } { saveCoor } ifelse
- ConvertTo2D
- x2D xUnit y2D yUnit
- /n n 1 sub def
- } repeat
-} def
-%
-% the angle in the parameter equation for an ellipse is not proportional to the real angle!
-% phi=atan(b*tan(angle)/a)+floor(angle/180+0.5)*180
-%
-/getPhi { % on stack: vecA vecB angle
- 3 dict begin
- /angle exch def /vecB exch def /vecA exch def
- angle cvi 90 mod 0 eq { angle } { vecA angle tan mul vecB atan
- angle 180 div .5 add floor 180 mul add } ifelse
- end
-} def
-%
-/RotSet (set ) def
-%
-/eulerRotation false def
-% Matrix multiplication procedure
-/matmul {
-
- /M@tMulDict 20 dict def
- M@tMulDict begin
- /m2 ED
- /m1 ED
- m1 dup length 2 sub 2 getinterval aload pop
- /col1max ED
- /row1max ED
- m2 dup length 2 sub 2 getinterval aload pop
- /col2max ED
- /row2max ED
- /m3 row1max col2max mul 2 add array def
- m3 dup length 2 sub row1max col2max 2 array astore putinterval
- 0 1 row1max 1 sub {
- /row ED
- 0 1 col2max 1 sub {
- /col ED
- /sum 0 def
- 0 1 col1max 1 sub{
- /rowcol ED
- sum
- m1 row col1max mul rowcol add get
- m2 rowcol col2max mul col add get
- mul add
- /sum ED
- } for
- m3 row col2max mul col add sum put
- } for
- } for
- m3
- end % end of M@tMulDict
-
-} def
-%
-/SetMQuaternion {
-
- /MnewTOold 11 array def
-
- /Qu@ternionDict 30 dict def
- Qu@ternionDict begin
-
- /normRotVec xRotVec yRotVec zRotVec 3 array astore VecNorm def
- normRotVec 0 gt
- {/xRotVecNorm xRotVec normRotVec div def
- /yRotVecNorm yRotVec normRotVec div def
- /zRotVecNorm zRotVec normRotVec div def
- RotAngle}
- {/xRotVecNorm 1 def
- /yRotVecNorm 0 def
- /zRotVecNorm 0 def
- 0} ifelse
-
- 2 div dup
- /q0 exch cos def
- sin dup dup
- /q1 exch xRotVecNorm mul def
- /q2 exch yRotVecNorm mul def
- /q3 exch zRotVecNorm mul def
-
- /q0q0 q0 q0 mul def
- /q0q1 q0 q1 mul def
- /q0q2 q0 q2 mul def
- /q0q3 q0 q3 mul def
-
- /q1q1 q1 q1 mul def
- /q1q2 q1 q2 mul def
- /q1q3 q1 q3 mul def
-
- /q2q2 q2 q2 mul def
- /q2q3 q2 q3 mul def
-
- /q3q3 q3 q3 mul def
-
- MnewTOold 0 q0q0 q1q1 add q2q2 sub q3q3 sub put
- MnewTOold 1 q1q2 q0q3 sub 2 mul put
- MnewTOold 2 q1q3 q0q2 add 2 mul put
-
- MnewTOold 3 q1q2 q0q3 add 2 mul put
- MnewTOold 4 q0q0 q1q1 sub q2q2 add q3q3 sub put
- MnewTOold 5 q2q3 q0q1 sub 2 mul put
-
- MnewTOold 6 q1q3 q0q2 sub 2 mul put
- MnewTOold 7 q2q3 q0q1 add 2 mul put
- MnewTOold 8 q0q0 q1q1 sub q2q2 sub q3q3 add put
-
- MnewTOold 9 3 put
- MnewTOold 10 3 put
-
- end % end of Qu@ternionDict
-
-} def
-%
-/SetMxyz {
- 1.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0 1.0 3 3 11 array astore /MnewTOold ED
- RotSequence cvx exec % Now create a new MnewTOold using xyz, etc.
-} def
-%
-/ConcatMQuaternion {
- MnewTOold % Push onto stack
- SetMQuaternion % Uses [xyz]RotVec and RotAngle to make MnewToOld
- MnewTOold matmul /MnewTOold ED
-} def
-%
-/ConcatMxyz {
- MnewTOold % Push onto stack
- SetMxyz % Uses RotX, etc. to set MnewTOold
- MnewTOold matmul /MnewTOold ED
-} def
-%
-/RotatePoint{
- MnewTOold x y z 3 1 5 array astore matmul
- 0 3 getinterval aload pop
- /z ED
- /y ED
- /x ED
-} def
-%
-/makeMoldTOnew {
- /MoldTOnew 11 array def
- MoldTOnew 0 MnewTOold 0 get put
- MoldTOnew 1 MnewTOold 3 get put
- MoldTOnew 2 MnewTOold 6 get put
- MoldTOnew 3 MnewTOold 1 get put
- MoldTOnew 4 MnewTOold 4 get put
- MoldTOnew 5 MnewTOold 7 get put
- MoldTOnew 6 MnewTOold 2 get put
- MoldTOnew 7 MnewTOold 5 get put
- MoldTOnew 8 MnewTOold 8 get put
- MoldTOnew 9 3 put
- MoldTOnew 10 3 put
-} def
-%
-/RotXaxis {
- eulerRotation
- {1 0 0}
- {makeMoldTOnew MoldTOnew 1 0 0 3 1 5 array astore matmul
- 0 3 getinterval aload pop} ifelse
- /zRotVec ED
- /yRotVec ED
- /xRotVec ED
- /RotAngle RotX def
- ConcatMQuaternion
-} def
-/RotYaxis {
- eulerRotation
- {0 1 0}
- {makeMoldTOnew MoldTOnew 0 1 0 3 1 5 array astore matmul
- 0 3 getinterval aload pop} ifelse
- /zRotVec ED
- /yRotVec ED
- /xRotVec ED
- /RotAngle RotY def
- ConcatMQuaternion
-} def
-/RotZaxis {
- eulerRotation
- {0 0 1}
- {makeMoldTOnew MoldTOnew 0 0 1 3 1 5 array astore matmul
- 0 3 getinterval aload pop} ifelse
- /zRotVec ED
- /yRotVec ED
- /xRotVec ED
- /RotAngle RotZ def
- ConcatMQuaternion
-} def
-/xyz { RotXaxis RotYaxis RotZaxis } def
-/yxz { RotYaxis RotXaxis RotZaxis } def
-/yzx { RotYaxis RotZaxis RotXaxis } def
-/xzy { RotXaxis RotZaxis RotYaxis } def
-/zxy { RotZaxis RotXaxis RotYaxis } def
-/zyx { RotZaxis RotYaxis RotXaxis } def
-/quaternion { } def % Null
-%
-/VecNorm { 0 exch { dup mul add } forall sqrt } def
-%
-/UnitVec { % on stack is [a]; returns a vector with [a][a]/|a|=1
- dup VecNorm /norm ED
- norm 0 lt {/norm 0 def} if
- { norm div } forall 3 array astore } def
-%
-/AxB { % on the stack are the two vectors [a][b]
- aload pop /b3 ED /b2 ED /b1 ED
- aload pop /a3 ED /a2 ED /a1 ED
- a2 b3 mul a3 b2 mul sub
- a3 b1 mul a1 b3 mul sub
- a1 b2 mul a2 b1 mul sub
- 3 array astore } def
-%
-/AaddB { % on the stack are the two vectors [a][b]
- aload pop /b3 ED /b2 ED /b1 ED
- aload pop /a3 ED /a2 ED /a1 ED
- a1 b1 add a2 b2 add a3 b3 add
- 3 array astore } def
-%
-/AmulC { % on stack is [a] and c; returns [a] mul c
- /factor ED { factor mul } forall 3 array astore } def
-%
-%
-/setColorLight { % expects 7 values on stack C M Y K xL yL zL
-% les rayons de lumi�re
- xLight dup mul yLight dup mul zLight dup mul add add sqrt /NormeLight ED
-% the color values
- /K ED
- /Yellow ED
- /Magenta ED
- /Cyan ED
-} def
-%
-/facetteSphere {
- newpath
- /Xpoint Rsphere theta cos mul phi cos mul CX add def
- /Ypoint Rsphere theta sin mul phi cos mul CY add def
- /Zpoint Rsphere phi sin mul CZ add def
- Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end moveto
- theta 1 theta increment add {%
- /theta1 ED
- /Xpoint Rsphere theta1 cos mul phi cos mul CX add def
- /Ypoint Rsphere theta1 sin mul phi cos mul CY add def
- /Zpoint Rsphere phi sin mul CZ add def
- Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
- } for
- phi 1 phi increment add {
- /phi1 ED
- /Xpoint Rsphere theta increment add cos mul phi1 cos mul CX add def
- /Ypoint Rsphere theta increment add sin mul phi1 cos mul CY add def
- /Zpoint Rsphere phi1 sin mul CZ add def
- Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
- } for
- theta increment add -1 theta {%
- /theta1 ED
- /Xpoint Rsphere theta1 cos mul phi increment add cos mul CX add def
- /Ypoint Rsphere theta1 sin mul phi increment add cos mul CY add def
- /Zpoint Rsphere phi increment add sin mul CZ add def
- Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
- } for
- phi increment add -1 phi {
- /phi1 ED
- /Xpoint Rsphere theta cos mul phi1 cos mul CX add def
- /Ypoint Rsphere theta sin mul phi1 cos mul CY add def
- /Zpoint Rsphere phi1 sin mul CZ add def
- Xpoint Ypoint Zpoint tx@3Ddict begin ProjThreeD end lineto
- } for
- closepath
-} def
-%
-/MaillageSphere {
-% on stack must be x y z Radius increment C M Y K
- setColorLight
- /increment ED
- /Rsphere ED
- /CZ ED
- /CY ED
- /CX ED
- /StartTheta 0 def
- /condition { PSfacetteSphere 0 ge } def
- -90 increment 90 increment sub {%
- /phi ED
- StartTheta increment 360 StartTheta add increment sub {%
- /theta ED
- % Centre de la facette
- /Xpoint Rsphere theta increment 2 div add cos mul phi increment 2 div add cos mul CX add def
- /Ypoint Rsphere theta increment 2 div add sin mul phi increment 2 div add cos mul CY add def
- /Zpoint Rsphere phi increment 2 div add sin mul CZ add def
- % normale � la facette
- /nXfacette Xpoint CX sub def
- /nYfacette Ypoint CY sub def
- /nZfacette Zpoint CZ sub def
- % test de visibilit�
- /PSfacetteSphere
- vX nXfacette mul
- vY nYfacette mul add
- vZ nZfacette mul add
- def
- condition {
- gsave
- facetteSphere
- /cosV { 1 xLight nXfacette mul
- yLight nYfacette mul
- zLight nZfacette mul
- add add
- NormeLight
- nXfacette dup mul
- nYfacette dup mul
- nZfacette dup mul
- add add sqrt mul div sub } bind def
- Cyan cosV mul Magenta cosV mul Yellow cosV mul K cosV mul setcmykcolor fill
- grestore
-% 0 setgray
- showgrid { facetteSphere stroke } if
- } if
- } for
- % /StartTheta StartTheta increment 2 div add def
- } for
-} def
-%
-%---------------------- Cylinder ---------------------------
-%
-/PlanCoupeCylinder { %
- /TableauxPoints [
- 0 1 359 {
- /phi ED
- [ Radius phi Height ConvCyl2d ] % on décrit le cercle
- } for
- ] def
- newpath
- TableauxPoints 0 get aload pop moveto
- 1 1 359 { TableauxPoints exch get aload pop lineto } for
- closepath
-} def
-%
-/facetteCylinder { %
- newpath
- Radius phi currentHeight ConvCyl2d moveto
- phi 1 phi dAngle add { % loop variable on stack
- Radius exch currentHeight ConvCyl2d lineto
- } for
- phi dAngle add -1 phi { % fill dHeight
- Radius exch currentHeight dHeight add ConvCyl2d lineto
- } for
- closepath
- } def % facette
-%
-/MaillageCylinder { % on stack true or false for saving values
- { setColorLight % expects 4 values on stack C M Y K
- /dHeight ED /dAngle ED /Height ED /Radius ED
- /CZ ED /CY ED /CX ED } if
-%
- 0 dHeight Height dHeight sub {
- /currentHeight ED
- 0 dAngle 360 dAngle sub {
- /phi ED
-% Normal vector of the center
- /nXfacetteCylinder Radius phi dAngle 2 div add cos mul CX add def
- /nYfacetteCylinder Radius phi dAngle 2 div add sin mul CY add def
- /nZfacetteCylinder currentHeight dHeight 2 div add CZ add def
- /NormeN
- nXfacetteCylinder dup mul
- nYfacetteCylinder dup mul
- nZfacetteCylinder dup mul
- add add sqrt def
- NormeN 0 eq { /NormeN 1e-10 def } if
-% test de visibilité
- /PSfacetteCylinder
- vX nXfacetteCylinder mul
- vY nYfacetteCylinder mul add
- vZ nZfacetteCylinder mul add def
- condition {
- facetteCylinder
- /cosV
- 1 xLight nXfacetteCylinder mul
- yLight nYfacetteCylinder mul
- zLight nZfacetteCylinder mul
- add add
- NormeLight NormeN mul div sub def
- Cyan Magenta Yellow K
- cosV mul 4 1 roll cosV mul 4 1 roll
- cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
- setcmykcolor fill
- showgrid {
- 0 setgray
- facetteCylinder % drawing the segments
- stroke } if
- } if
- } for
- } for
-} def
-%
-%------------------------ Cylinder type II -----------------------
-%
-/MoveTo { Conv3D2D moveto } def
-/LineTo { Conv3D2D lineto } def
-
-/IIIDEllipse { % x y z rA rB startAngle endAngle Wedge
- /dAngle 1 def
- /isWedge ED
- /endAngle ED
- /startAngle ED
- /radiusB ED
- /radiusA ED
- startAngle cos radiusA mul startAngle sin radiusB mul 0
- isWedge { 0 0 moveto LineTo }{ MoveTo } ifelse
- /Angle startAngle def
- startAngle dAngle endAngle {
- /Angle ED
- Angle cos radiusA mul Angle sin radiusB mul 0 LineTo
- } for
- isWedge { 0 0 lineto } if
-} def
-
-/IIIDCircle { % x y z r startAngle endAngle Wedge
- 7 3 roll % startAngle endAngle Wedge x y z r
- dup % startAngle endAngle Wedge x y z r r
- 8 -3 roll
- IIIDEllipse
-} def
-
-/IIIDWedge { % x y z r startAngle endAngle
- true IIIDCircle
-} def
-
-/IIIDCylinder {% x y z r h start end wedge
- /isWedge ED
- /increment ED
- /endAngle ED
- /startAngle ED
- /height ED
- /radius ED
- startAngle increment endAngle {
- /Angle ED
- radius Angle 0 ConvCylToCartesian MoveTo
- radius Angle height ConvCylToCartesian LineTo
- } for
- stroke
-} def
-%
-%---------------------- Box ---------------------------
-%
-/PlanCoupeBox { % x y z
- /TableauxPoints [
- [ CX CY CZ Height add ConvBox2d ] % top or bottom
- [ CX CY Depth add CZ Height add ConvBox2d ]
- [ CX Width add CY Depth add CZ Height add ConvBox2d ]
- [ CX Width add CY CZ Height add ConvBox2d ]
- [ CX CY CZ Height add ConvBox2d ] % bottom
- ] def
- newpath
- TableauxPoints 0 get aload pop moveto
- 0 1 3 {
- TableauxPoints exch get aload pop
- lineto } for
- closepath
-} def
-%
-/facetteBox { %
- newpath
- dup
- 1 eq { % back
- CX CY CZ ConvBox2d moveto
- CX CY CZ Height add ConvBox2d lineto
- CX Width add CY CZ Height add ConvBox2d lineto
- CX Width add CY CZ ConvBox2d lineto
- CX CY CZ ConvBox2d lineto
- } if
- dup
- 2 eq { % right
- CX CY CZ ConvBox2d moveto
- CX CY CZ Height add ConvBox2d lineto
- CX CY Depth add CZ Height add ConvBox2d lineto
- CX CY Depth add CZ ConvBox2d lineto
- CX CY CZ ConvBox2d lineto
- } if
- dup
- 3 eq { % left
- CX Width add CY CZ ConvBox2d moveto
- CX Width add CY Depth add CZ ConvBox2d lineto
- CX Width add CY Depth add CZ Height add ConvBox2d lineto
- CX Width add CY CZ Height add ConvBox2d lineto
- CX Width add CY CZ ConvBox2d lineto
- } if
- 4 eq { % front
- CX CY Depth add CZ ConvBox2d moveto
- CX CY Depth add CZ Height add ConvBox2d lineto
- CX Width add CY Depth add CZ Height add ConvBox2d lineto
- CX Width add CY Depth add CZ ConvBox2d lineto
- CX CY Depth add CZ ConvBox2d lineto
- } if
- closepath
- } def % facette
-%
-/TestPlane { % on stack x y z of the plane center and # of plane
- /nZfacetteBox ED /nYfacetteBox ED /nXfacetteBox ED
- /Plane ED
- /NormeN
- nXfacetteBox dup mul
- nYfacetteBox dup mul
- nZfacetteBox dup mul
- add add sqrt def
- NormeN 0 eq { /NormeN 1e-10 def } if
-% test de visibilit�
- /PSfacetteBox
- vX nXfacetteBox mul
- vY nYfacetteBox mul add
- vZ nZfacetteBox mul add def
- condition {
- Plane facetteBox
- /cosV
- 1 xLight nXfacetteBox mul
- yLight nYfacetteBox mul
- zLight nZfacetteBox mul
- add add
- NormeLight NormeN mul div sub def
- Cyan Magenta Yellow K
- cosV mul 4 1 roll cosV mul 4 1 roll
- cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
- setcmykcolor fill
- 0 setgray
- Plane facetteBox % drawing the segments
- stroke
- } if
-} def
-%
-/MaillageBox { % on stack true or false for saving values
- { setColorLight % expects 4 values on stack C M Y K
- /Depth ED /Height ED /Width ED
- /CZ ED /CY ED /CX ED } if
-%
-% Normal vector of the box center
- /PlaneSet [
- [ Width 2 div CX add
- CY
- Height 2 div CZ add ] % normal back
- [ CX
- Depth 2 div CY add
- Height 2 div CZ add ] % normal right
- [ Width CX add
- Depth 2 div CY add
- Height 2 div CZ add ] % normal left
- [ Width 2 div CX add
- Depth CY add
- Height 2 div CZ add ] % normal front
- ] def
- PlaneSequence length 0 eq { % user defined?
- Alpha abs cvi 360 mod /iAlpha ED
- iAlpha 90 lt { [ 1 2 3 4 ]
- }{ iAlpha 180 lt { [ 2 4 1 3 ]
- }{ iAlpha 270 lt { [ 3 4 1 2 ] }{ [ 3 1 4 2] } ifelse } ifelse } ifelse
- }{ PlaneSequence } ifelse
- { dup 1 sub PlaneSet exch get aload pop TestPlane } forall
-} def
-%
-%--------------------------- Paraboloid -----------------------------
-/PlanCoupeParaboloid {
- /Z height store
- /V {Z sqrt} bind def
- /TableauxPoints [
- 0 1 359 {
- /U ED [ U U Z V calculate2DPoint ] % on d�crit le cercle
- } for
- ] def
- newpath
- TableauxPoints 0 get aload pop moveto
- 0 1 359 {
- /compteur ED
- TableauxPoints compteur get aload pop
- lineto } for
- closepath
-} def
-%
-/facetteParaboloid{
- newpath
- U U Z V calculate2DPoint moveto
- U 1 U increment add {%
- /U1 ED
- U1 U1 Z V calculate2DPoint lineto
- } for
- Z pas10 Z pas add pas10 add{
- /Z1 ED
- /V {Z1 sqrt} bind def
- U1 U1 Z1 V calculate2DPoint lineto
- } for
- U increment add -1 U {%
- /U2 ED
- U2 U2 Z pas add V calculate2DPoint lineto
- } for
- Z pas add pas10 sub pas10 neg Z pas10 sub {
- /Z2 ED
- /V Z2 abs sqrt def
- U U Z2 V calculate2DPoint lineto
- } for
- closepath
-} def % facette
-%
-/MaillageParaboloid {
- % on stack true or false for saving values
- { setColorLight % expects 7 values on stack C M Y K xL yL zL
-% /CZ ED /CY ED /CX ED
- } if
- 0 pas height pas sub {%
- /Z ED
- /V Z sqrt def
- 0 increment 360 increment sub {%
- /U ED
-% Centre de la facette
- /Ucentre U increment 2 div add def
- /Vcentre Z pas 2 div add sqrt def
-% normale à la facette
- /nXfacetteParaboloid 2 Vcentre dup mul mul Ucentre cos mul radius mul def
- /nYfacetteParaboloid 2 Vcentre dup mul mul Ucentre sin mul radius mul def
- /nZfacetteParaboloid Vcentre neg radius dup mul mul def
- /NormeN {
- nXfacetteParaboloid dup mul
- nYfacetteParaboloid dup mul
- nZfacetteParaboloid dup mul
- add add sqrt} bind def
- NormeN 0 eq {/NormeN 1e-10 def} if
-% test de visibilit�
- /PSfacetteParaboloid vX nXfacetteParaboloid mul
- vY nYfacetteParaboloid mul add
- vZ nZfacetteParaboloid mul add def
- condition {
- facetteParaboloid
- /cosV 1 xLight nXfacetteParaboloid mul
- yLight nYfacetteParaboloid mul
- zLight nZfacetteParaboloid mul
- add add
- NormeLight
- NormeN mul div sub def
- Cyan Magenta Yellow K
- cosV mul 4 1 roll cosV mul 4 1 roll cosV dup mul mul 4 1 roll cosV dup mul mul 4 1 roll
- setcmykcolor fill
- showgrid {
- 0 setgray
- facetteParaboloid
- stroke } if
- } if
- } for
- } for
-} def
-%
-% ------------------------------------ math stuff ----------------------------------
-%
-% Matrix A in arrays of rows A[[row1][row2]...]
-% with [row1]=[a11 a12 ... b1]
-% returns on stack solution vector X=[x1 x2 ... xn]
-/SolveLinEqSystem { % on stack matrix M=[A,b] (A*x=b)
- 10 dict begin % hold all ocal
- /A exch def
- /Rows A length def % Rows = number of rows
- /Cols A 0 get length def % Cols = number of columns
- /Index [ 0 1 Rows 1 sub { } for ] def % Index = [0 1 2 ... Rows-1]
- /col 0 def
- /row 0 def
- /PR Rows array def % PR[c] = pivot row for row row
- { % starts the loop, find pivot entry in row r
- col Cols ge row Rows ge or { exit } if % col < Cols and row < Rows else exit
- /pRow row def % pRow = pivot row
- /max A row get col get abs def % get A[row[col]], first A[0,0]
- row 1 add 1 Rows 1 sub { % starts for loop 1 1 Rows-1
- /j exch def % index counter
- /x A j get col get abs def % get A[j[r]]
- x max gt { % x>max, then save position
- /pRow j def
- /max x def
- } if
- } for % now we have the row with biggest A[0,1]
- % with pRow = the pivot row
- max 0 gt { % swap entries pRow and row in i
- /tmp Index row get def
- Index row Index pRow get put
- Index pRow tmp put % and columns pRow and row in A
- /tmp A row get def
- A row A pRow get put
- A pRow tmp put % pivot
- /row0 A row get def % the pivoting row
- /p0 row0 col get def % the pivot value
- row 1 add 1 Rows 1 sub { % start for loop
- /j exch def
- /c1 A j get def
- /p c1 col get p0 div def
- c1 col p put % subtract (p1/p0)*row[i] from row[j]
- col 1 add 1 Cols 1 sub { % start for loop
- /i exch def
- c1 dup i exch % c1 i c1
- i get row0 i get p mul sub put
- } for
- } for
- PR row col put
- /col col 1 add def
- /row row 1 add def
- }{ % all zero entries
- /row row 1 add def % continue loop with same row
- } ifelse
- } loop
- /X A def % solution vector
- A Rows 1 sub get dup
- Cols 1 sub get exch
- Cols 2 sub get div
- X Rows 1 sub 3 -1 roll put % X[n]
- Rows 2 sub -1 0 { % for loop to calculate X[i]
- /xi exch def % current index
- A xi get % i-th row
- /Axi exch def
- /sum 0 def
- Cols 2 sub -1 xi 1 add {
- /n exch def
- /sum sum Axi n get X n get mul add def
- } for
- Axi Cols 1 sub get % b=Axi[Cols-1]
- sum sub % b-sum
- Axi xi get div % b-sum / Axi[xi]
- X xi 3 -1 roll put % X[xi]
- } for
- X
- end
-} def
-%
-% u -> e_u with |e_u|=1
-/vector-unit { 1 dict begin
- dup vector-length 1 exch div
- vector-scale
- end
-} def
-%
-% u v -> u+v
-/vector-add { 1 dict begin
- /v exch def
- [ exch
- 0 % u i
- exch { % i u[i]
- v % i u[i] v
- 2 index get add % i u[i]+v[i]
- exch 1 add % i
- } forall
- pop
- ]
- end
-} def
-%
-% u v -> u-v
-/vector-sub { 1 dict begin
- /v exch def
- [ exch
- 0 % u i
- exch { % i u[i]
- v % i u[i] v
- 2 index get sub % i u[i]+v[i]
- exch 1 add % i
- } forall
- pop
- ]
-end } def
-%
-% [v] c -> [c.v]
-/vector-scale { 1 dict begin
- /c exch def
- [ exch
- { % s i u[i]
- c mul % s i u[i] v
- } forall
- ]
- end } def
-%
-%
-% [u] [v] -> [u x v]
-/vector-prod { %% x1 y1 z1 x2 y2 z2
-6 dict begin
- aload pop
- /zp exch def /yp exch def /xp exch def
- aload pop
- /z exch def /y exch def /x exch def
- [ y zp mul z yp mul sub
- z xp mul x zp mul sub
- x yp mul y xp mul sub ]
-end
-} def
-%
-% [u] [v] -> u.v
-/vector-mul { %% x1 y1 z1 x2 y2 z2
-6 dict begin
- aload pop
- /zp exch def /yp exch def /xp exch def
- aload pop
- /z exch def /y exch def /x exch def
- x xp mul y yp mul add z zp mul add
-end
-} def
-%
-% [x y z ... ] -> r
-% watch out for overflow
-/vector-length { 1 dict begin
-dup
-% find maximum entry
-/max 0 def
-{ % max
- abs dup max gt {
- % if abs gt max
- /max exch def
- } {
- pop
- } ifelse
-} forall
-max 0 ne {
- 0 exch
- { % 0 v[i]
- max div dup mul add
- } forall
- sqrt
- max mul
-} {
- pop 0
-} ifelse
-end } def
-%
-end % tx@3DPlotDict
-
-
-%%EndProcSet
%%BeginProcSet: texps.pro 0 0
%!
TeXDict begin/rf{findfont dup length 1 add dict begin{1 index/FID ne 2
index/UniqueID ne and{def}{pop pop}ifelse}forall[1 index 0 6 -1 roll
-exec 0 exch 5 -1 roll VResolution Resolution div mul neg 0 0]/Metrics
-exch def dict begin Encoding{exch dup type/integertype ne{pop pop 1 sub
-dup 0 le{pop}{[}ifelse}{FontMatrix 0 get div Metrics 0 get div def}
-ifelse}forall Metrics/Metrics currentdict end def[2 index currentdict
-end definefont 3 -1 roll makefont/setfont cvx]cvx def}def/ObliqueSlant{
-dup sin S cos div neg}B/SlantFont{4 index mul add}def/ExtendFont{3 -1
-roll mul exch}def/ReEncodeFont{CharStrings rcheck{/Encoding false def
-dup[exch{dup CharStrings exch known not{pop/.notdef/Encoding true def}
-if}forall Encoding{]exch pop}{cleartomark}ifelse}if/Encoding exch def}
-def end
+exec 0 exch 5 -1 roll VResolution Resolution div mul neg 0 0]FontType 0
+ne{/Metrics exch def dict begin Encoding{exch dup type/integertype ne{
+pop pop 1 sub dup 0 le{pop}{[}ifelse}{FontMatrix 0 get div Metrics 0 get
+div def}ifelse}forall Metrics/Metrics currentdict end def}{{1 index type
+/nametype eq{exit}if exch pop}loop}ifelse[2 index currentdict end
+definefont 3 -1 roll makefont/setfont cvx]cvx def}def/ObliqueSlant{dup
+sin S cos div neg}B/SlantFont{4 index mul add}def/ExtendFont{3 -1 roll
+mul exch}def/ReEncodeFont{CharStrings rcheck{/Encoding false def dup[
+exch{dup CharStrings exch known not{pop/.notdef/Encoding true def}if}
+forall Encoding{]exch pop}{cleartomark}ifelse}if/Encoding exch def}def
+end
%%EndProcSet
%%BeginProcSet: special.pro 0 0
@@ -4995,25 +4077,26 @@ currentpoint TR/psf$ury psfts/psf$urx psfts/psf$lly psfts/psf$llx psfts
/psf$y psfts/psf$x psfts currentpoint/psf$cy X/psf$cx X/psf$sx psf$x
psf$urx psf$llx sub div N/psf$sy psf$y psf$ury psf$lly sub div N psf$sx
psf$sy scale psf$cx psf$sx div psf$llx sub psf$cy psf$sy div psf$ury sub
-TR/showpage{}N/erasepage{}N/copypage{}N/p 3 def @MacSetUp}N/doclip{
-psf$llx psf$lly psf$urx psf$ury currentpoint 6 2 roll newpath 4 copy 4 2
-roll moveto 6 -1 roll S lineto S lineto S lineto closepath clip newpath
-moveto}N/endTexFig{end psf$SavedState restore}N/@beginspecial{SDict
-begin/SpecialSave save N gsave normalscale currentpoint TR
-@SpecialDefaults count/ocount X/dcount countdictstack N}N/@setspecial{
-CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs neg 0 rlineto
-closepath clip}if ho vo TR hsc vsc scale ang rotate rwiSeen{rwi urx llx
-sub div rhiSeen{rhi ury lly sub div}{dup}ifelse scale llx neg lly neg TR
-}{rhiSeen{rhi ury lly sub div dup scale llx neg lly neg TR}if}ifelse
-CLIP 2 eq{newpath llx lly moveto urx lly lineto urx ury lineto llx ury
-lineto closepath clip}if/showpage{}N/erasepage{}N/copypage{}N newpath}N
-/@endspecial{count ocount sub{pop}repeat countdictstack dcount sub{end}
-repeat grestore SpecialSave restore end}N/@defspecial{SDict begin}N
-/@fedspecial{end}B/li{lineto}B/rl{rlineto}B/rc{rcurveto}B/np{/SaveX
-currentpoint/SaveY X N 1 setlinecap newpath}N/st{stroke SaveX SaveY
-moveto}N/fil{fill SaveX SaveY moveto}N/ellipse{/endangle X/startangle X
-/yrad X/xrad X/savematrix matrix currentmatrix N TR xrad yrad scale 0 0
-1 startangle endangle arc savematrix setmatrix}N end
+TR/showpage{}N/erasepage{}N/setpagedevice{pop}N/copypage{}N/p 3 def
+@MacSetUp}N/doclip{psf$llx psf$lly psf$urx psf$ury currentpoint 6 2 roll
+newpath 4 copy 4 2 roll moveto 6 -1 roll S lineto S lineto S lineto
+closepath clip newpath moveto}N/endTexFig{end psf$SavedState restore}N
+/@beginspecial{SDict begin/SpecialSave save N gsave normalscale
+currentpoint TR @SpecialDefaults count/ocount X/dcount countdictstack N}
+N/@setspecial{CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs
+neg 0 rlineto closepath clip}if ho vo TR hsc vsc scale ang rotate
+rwiSeen{rwi urx llx sub div rhiSeen{rhi ury lly sub div}{dup}ifelse
+scale llx neg lly neg TR}{rhiSeen{rhi ury lly sub div dup scale llx neg
+lly neg TR}if}ifelse CLIP 2 eq{newpath llx lly moveto urx lly lineto urx
+ury lineto llx ury lineto closepath clip}if/showpage{}N/erasepage{}N
+/setpagedevice{pop}N/copypage{}N newpath}N/@endspecial{count ocount sub{
+pop}repeat countdictstack dcount sub{end}repeat grestore SpecialSave
+restore end}N/@defspecial{SDict begin}N/@fedspecial{end}B/li{lineto}B
+/rl{rlineto}B/rc{rcurveto}B/np{/SaveX currentpoint/SaveY X N 1
+setlinecap newpath}N/st{stroke SaveX SaveY moveto}N/fil{fill SaveX SaveY
+moveto}N/ellipse{/endangle X/startangle X/yrad X/xrad X/savematrix
+matrix currentmatrix N TR xrad yrad scale 0 0 1 startangle endangle arc
+savematrix setmatrix}N end
%%EndProcSet
%%BeginProcSet: color.pro 0 0
@@ -5555,40 +4638,44 @@ TeXDict begin
%%EndSetup
%%Page: 1 1
TeXDict begin 1 0 bop 0 TeXcolorgray Black 165 192 a
-tx@Dict begin gsave STV CP T /ps@rot 0 def grestore end
+ /pssetRGBcolor /setrgbcolor load def /pssetCMYKcolor /setcmykcolor
+load def /pssetGraycolor /setgray load def
165 192 a 165 192 a
+tx@Dict begin gsave STV CP T /ps@rot 0 def grestore end
+ 165 192 a 165 192 a
tx@Dict begin gsave STV CP T /ps@refangle 0. def grestore end
- 165 192 a 0 TeXcolorgray 165 192
-a
+ 165 192 a 0 TeXcolorgray
+165 192 a
tx@Dict begin gsave STV CP T /ps@rot 0 def grestore end
165 192 a 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
762 664 a 762 664 a
tx@Dict begin /Func (-2.00+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(-2.00))^2))|-2.00+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(-2.00))^2))*((-2.00)-2*(-2.00))
) AlgParser cvx def end
- 762 664 a 762
-664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+ 762
+664 a 762 664 a
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
- 762 664 a @beginspecial @setspecial
+ 762 664 a @beginspecial
+@setspecial
tx@Dict begin STP newpath /ArrowA { moveto } def /ArrowB { BeginArrow
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5602,24 +4689,23 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
-
-
+
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
- 762 664 a 762 664 a
+ 762 664 a 762 664
+a
tx@Dict begin /Func (-1.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(-2.00))^2))|-2.00+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(-2.00))^2))*((-1.7)-2*(-2.00))
) AlgParser cvx def end
- 762 664 a
-762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+ 762 664 a 762 664 a
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -5634,7 +4720,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5649,7 +4735,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -5659,12 +4745,12 @@ a
tx@Dict begin /Func (-1.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(-2.00))^2))|-2.00+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(-2.00))^2))*((-1.4)-2*(-2.00))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -5679,7 +4765,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5694,7 +4780,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -5704,12 +4790,12 @@ a
tx@Dict begin /Func (-1.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(-2.00))^2))|-2.00+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(-2.00))^2))*((-1.1)-2*(-2.00))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -5717,14 +4803,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5738,8 +4824,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -5749,12 +4835,12 @@ a
tx@Dict begin /Func (-0.8+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(-2.00))^2))|-2.00+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(-2.00))^2))*((-0.8)-2*(-2.00))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -5769,7 +4855,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5784,7 +4870,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -5794,12 +4880,12 @@ a
tx@Dict begin /Func (-0.5+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(-2.00))^2))|-2.00+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(-2.00))^2))*((-0.5)-2*(-2.00))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -5807,14 +4893,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5828,8 +4914,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -5839,12 +4925,12 @@ a
tx@Dict begin /Func (-0.2+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(-2.00))^2))|-2.00+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(-2.00))^2))*((-0.2)-2*(-2.00))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -5852,14 +4938,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5873,8 +4959,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -5884,12 +4970,12 @@ a
tx@Dict begin /Func (0.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(-2.00))^2))|-2.00+((0.3)*t)*(1/sqrt(1+((0.1)-2*(-2.00))^2))*((0.1)-2*(-2.00))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -5897,14 +4983,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5918,9 +5004,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -5929,12 +5014,12 @@ a
tx@Dict begin /Func (0.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(-2.00))^2))|-2.00+((0.3)*t)*(1/sqrt(1+((0.4)-2*(-2.00))^2))*((0.4)-2*(-2.00))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -5942,14 +5027,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -5963,9 +5048,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -5974,12 +5058,12 @@ a
tx@Dict begin /Func (0.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(-2.00))^2))|-2.00+((0.3)*t)*(1/sqrt(1+((0.7)-2*(-2.00))^2))*((0.7)-2*(-2.00))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -5994,7 +5078,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6009,7 +5093,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6018,12 +5102,12 @@ a
tx@Dict begin /Func (1.0+((0.3)*t)*(1/sqrt(1+((1.0)-2*(-2.00))^2))|-2.00+((0.3)*t)*(1/sqrt(1+((1.0)-2*(-2.00))^2))*((1.0)-2*(-2.00))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6038,7 +5122,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6053,7 +5137,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6062,12 +5146,12 @@ a
tx@Dict begin /Func (1.3+((0.3)*t)*(1/sqrt(1+((1.3)-2*(-2.00))^2))|-2.00+((0.3)*t)*(1/sqrt(1+((1.3)-2*(-2.00))^2))*((1.3)-2*(-2.00))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6082,7 +5166,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6097,7 +5181,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6106,12 +5190,12 @@ a
tx@Dict begin /Func (1.6+((0.3)*t)*(1/sqrt(1+((1.6)-2*(-2.00))^2))|-2.00+((0.3)*t)*(1/sqrt(1+((1.6)-2*(-2.00))^2))*((1.6)-2*(-2.00))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6126,7 +5210,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6141,7 +5225,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6150,12 +5234,12 @@ a
tx@Dict begin /Func (1.9+((0.3)*t)*(1/sqrt(1+((1.9)-2*(-2.00))^2))|-2.00+((0.3)*t)*(1/sqrt(1+((1.9)-2*(-2.00))^2))*((1.9)-2*(-2.00))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6170,7 +5254,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6185,7 +5269,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6194,12 +5278,12 @@ a
tx@Dict begin /Func (-2.00+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(-1.7))^2))|-1.7+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(-1.7))^2))*((-2.00)-2*(-1.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6214,7 +5298,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6229,7 +5313,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6239,12 +5323,12 @@ a
tx@Dict begin /Func (-1.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(-1.7))^2))|-1.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(-1.7))^2))*((-1.7)-2*(-1.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6259,7 +5343,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6274,7 +5358,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6284,12 +5368,12 @@ a
tx@Dict begin /Func (-1.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(-1.7))^2))|-1.7+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(-1.7))^2))*((-1.4)-2*(-1.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6297,14 +5381,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6318,8 +5402,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6329,12 +5413,12 @@ a
tx@Dict begin /Func (-1.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(-1.7))^2))|-1.7+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(-1.7))^2))*((-1.1)-2*(-1.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6349,7 +5433,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6364,7 +5448,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6374,12 +5458,12 @@ a
tx@Dict begin /Func (-0.8+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(-1.7))^2))|-1.7+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(-1.7))^2))*((-0.8)-2*(-1.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6394,7 +5478,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6409,7 +5493,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6419,12 +5503,12 @@ a
tx@Dict begin /Func (-0.5+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(-1.7))^2))|-1.7+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(-1.7))^2))*((-0.5)-2*(-1.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6432,14 +5516,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6453,8 +5537,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6464,12 +5548,12 @@ a
tx@Dict begin /Func (-0.2+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(-1.7))^2))|-1.7+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(-1.7))^2))*((-0.2)-2*(-1.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6484,7 +5568,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6499,7 +5583,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6509,12 +5593,12 @@ a
tx@Dict begin /Func (0.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(-1.7))^2))|-1.7+((0.3)*t)*(1/sqrt(1+((0.1)-2*(-1.7))^2))*((0.1)-2*(-1.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6522,14 +5606,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6543,8 +5627,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6554,12 +5638,12 @@ a
tx@Dict begin /Func (0.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(-1.7))^2))|-1.7+((0.3)*t)*(1/sqrt(1+((0.4)-2*(-1.7))^2))*((0.4)-2*(-1.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6567,14 +5651,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6588,8 +5672,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6599,12 +5683,12 @@ a
tx@Dict begin /Func (0.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(-1.7))^2))|-1.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(-1.7))^2))*((0.7)-2*(-1.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6612,14 +5696,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6633,9 +5717,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6644,12 +5727,12 @@ a
tx@Dict begin /Func (1.0+((0.3)*t)*(1/sqrt(1+((1.0)-2*(-1.7))^2))|-1.7+((0.3)*t)*(1/sqrt(1+((1.0)-2*(-1.7))^2))*((1.0)-2*(-1.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6657,14 +5740,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6678,9 +5761,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6689,12 +5771,12 @@ a
tx@Dict begin /Func (1.3+((0.3)*t)*(1/sqrt(1+((1.3)-2*(-1.7))^2))|-1.7+((0.3)*t)*(1/sqrt(1+((1.3)-2*(-1.7))^2))*((1.3)-2*(-1.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6709,7 +5791,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6724,7 +5806,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6733,12 +5815,12 @@ a
tx@Dict begin /Func (1.6+((0.3)*t)*(1/sqrt(1+((1.6)-2*(-1.7))^2))|-1.7+((0.3)*t)*(1/sqrt(1+((1.6)-2*(-1.7))^2))*((1.6)-2*(-1.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6753,7 +5835,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6768,7 +5850,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6777,12 +5859,12 @@ a
tx@Dict begin /Func (1.9+((0.3)*t)*(1/sqrt(1+((1.9)-2*(-1.7))^2))|-1.7+((0.3)*t)*(1/sqrt(1+((1.9)-2*(-1.7))^2))*((1.9)-2*(-1.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6797,7 +5879,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6812,7 +5894,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -6821,12 +5903,12 @@ a
tx@Dict begin /Func (-2.00+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(-1.4))^2))|-1.4+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(-1.4))^2))*((-2.00)-2*(-1.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6834,14 +5916,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6855,8 +5937,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6866,12 +5948,12 @@ a
tx@Dict begin /Func (-1.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(-1.4))^2))|-1.4+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(-1.4))^2))*((-1.7)-2*(-1.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6879,14 +5961,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6900,8 +5982,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6911,12 +5993,12 @@ a
tx@Dict begin /Func (-1.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(-1.4))^2))|-1.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(-1.4))^2))*((-1.4)-2*(-1.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6931,7 +6013,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6946,7 +6028,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -6956,12 +6038,12 @@ a
tx@Dict begin /Func (-1.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(-1.4))^2))|-1.4+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(-1.4))^2))*((-1.1)-2*(-1.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -6976,7 +6058,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -6991,7 +6073,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7001,12 +6083,12 @@ a
tx@Dict begin /Func (-0.8+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(-1.4))^2))|-1.4+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(-1.4))^2))*((-0.8)-2*(-1.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7021,7 +6103,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7036,7 +6118,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7046,12 +6128,12 @@ a
tx@Dict begin /Func (-0.5+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(-1.4))^2))|-1.4+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(-1.4))^2))*((-0.5)-2*(-1.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7066,7 +6148,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7081,7 +6163,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7091,12 +6173,12 @@ a
tx@Dict begin /Func (-0.2+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(-1.4))^2))|-1.4+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(-1.4))^2))*((-0.2)-2*(-1.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7111,7 +6193,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7126,7 +6208,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7136,12 +6218,12 @@ a
tx@Dict begin /Func (0.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(-1.4))^2))|-1.4+((0.3)*t)*(1/sqrt(1+((0.1)-2*(-1.4))^2))*((0.1)-2*(-1.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7149,14 +6231,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7170,8 +6252,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7181,12 +6263,12 @@ a
tx@Dict begin /Func (0.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(-1.4))^2))|-1.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(-1.4))^2))*((0.4)-2*(-1.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7201,7 +6283,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7216,7 +6298,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7226,12 +6308,12 @@ a
tx@Dict begin /Func (0.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(-1.4))^2))|-1.4+((0.3)*t)*(1/sqrt(1+((0.7)-2*(-1.4))^2))*((0.7)-2*(-1.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7239,14 +6321,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7260,8 +6342,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7271,12 +6353,12 @@ a
tx@Dict begin /Func (1.0+((0.3)*t)*(1/sqrt(1+((1.0)-2*(-1.4))^2))|-1.4+((0.3)*t)*(1/sqrt(1+((1.0)-2*(-1.4))^2))*((1.0)-2*(-1.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7284,14 +6366,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7305,8 +6387,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7316,12 +6398,12 @@ a
tx@Dict begin /Func (1.3+((0.3)*t)*(1/sqrt(1+((1.3)-2*(-1.4))^2))|-1.4+((0.3)*t)*(1/sqrt(1+((1.3)-2*(-1.4))^2))*((1.3)-2*(-1.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7329,14 +6411,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7350,9 +6432,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -7361,12 +6442,12 @@ a
tx@Dict begin /Func (1.6+((0.3)*t)*(1/sqrt(1+((1.6)-2*(-1.4))^2))|-1.4+((0.3)*t)*(1/sqrt(1+((1.6)-2*(-1.4))^2))*((1.6)-2*(-1.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7374,14 +6455,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7395,9 +6476,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -7406,12 +6486,12 @@ a
tx@Dict begin /Func (1.9+((0.3)*t)*(1/sqrt(1+((1.9)-2*(-1.4))^2))|-1.4+((0.3)*t)*(1/sqrt(1+((1.9)-2*(-1.4))^2))*((1.9)-2*(-1.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7426,7 +6506,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7441,7 +6521,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -7450,12 +6530,12 @@ a
tx@Dict begin /Func (-2.00+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(-1.1))^2))|-1.1+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(-1.1))^2))*((-2.00)-2*(-1.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7463,30 +6543,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -7495,12 +6575,12 @@ a
tx@Dict begin /Func (-1.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(-1.1))^2))|-1.1+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(-1.1))^2))*((-1.7)-2*(-1.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7508,14 +6588,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7529,8 +6609,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7540,12 +6620,12 @@ a
tx@Dict begin /Func (-1.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(-1.1))^2))|-1.1+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(-1.1))^2))*((-1.4)-2*(-1.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7560,7 +6640,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7575,7 +6655,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7585,12 +6665,12 @@ a
tx@Dict begin /Func (-1.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(-1.1))^2))|-1.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(-1.1))^2))*((-1.1)-2*(-1.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7598,14 +6678,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7619,8 +6699,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7630,12 +6710,12 @@ a
tx@Dict begin /Func (-0.8+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(-1.1))^2))|-1.1+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(-1.1))^2))*((-0.8)-2*(-1.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7650,7 +6730,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7665,7 +6745,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7675,12 +6755,12 @@ a
tx@Dict begin /Func (-0.5+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(-1.1))^2))|-1.1+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(-1.1))^2))*((-0.5)-2*(-1.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7695,7 +6775,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7710,7 +6790,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7720,12 +6800,12 @@ a
tx@Dict begin /Func (-0.2+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(-1.1))^2))|-1.1+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(-1.1))^2))*((-0.2)-2*(-1.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7740,7 +6820,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7755,7 +6835,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7765,12 +6845,12 @@ a
tx@Dict begin /Func (0.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(-1.1))^2))|-1.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(-1.1))^2))*((0.1)-2*(-1.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7785,7 +6865,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7800,7 +6880,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7810,12 +6890,12 @@ a
tx@Dict begin /Func (0.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(-1.1))^2))|-1.1+((0.3)*t)*(1/sqrt(1+((0.4)-2*(-1.1))^2))*((0.4)-2*(-1.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7830,7 +6910,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7845,7 +6925,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7855,12 +6935,12 @@ a
tx@Dict begin /Func (0.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(-1.1))^2))|-1.1+((0.3)*t)*(1/sqrt(1+((0.7)-2*(-1.1))^2))*((0.7)-2*(-1.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7868,14 +6948,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7889,8 +6969,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7900,12 +6980,12 @@ a
tx@Dict begin /Func (1.0+((0.3)*t)*(1/sqrt(1+((1.0)-2*(-1.1))^2))|-1.1+((0.3)*t)*(1/sqrt(1+((1.0)-2*(-1.1))^2))*((1.0)-2*(-1.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7913,14 +6993,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7934,8 +7014,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7945,12 +7025,12 @@ a
tx@Dict begin /Func (1.3+((0.3)*t)*(1/sqrt(1+((1.3)-2*(-1.1))^2))|-1.1+((0.3)*t)*(1/sqrt(1+((1.3)-2*(-1.1))^2))*((1.3)-2*(-1.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -7965,7 +7045,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -7980,7 +7060,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -7990,12 +7070,12 @@ a
tx@Dict begin /Func (1.6+((0.3)*t)*(1/sqrt(1+((1.6)-2*(-1.1))^2))|-1.1+((0.3)*t)*(1/sqrt(1+((1.6)-2*(-1.1))^2))*((1.6)-2*(-1.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8003,14 +7083,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8024,8 +7104,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -8035,12 +7115,12 @@ a
tx@Dict begin /Func (1.9+((0.3)*t)*(1/sqrt(1+((1.9)-2*(-1.1))^2))|-1.1+((0.3)*t)*(1/sqrt(1+((1.9)-2*(-1.1))^2))*((1.9)-2*(-1.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8048,14 +7128,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8069,9 +7149,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8080,12 +7159,12 @@ a
tx@Dict begin /Func (-2.00+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(-0.8))^2))|-0.8+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(-0.8))^2))*((-2.00)-2*(-0.8))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8093,30 +7172,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8125,12 +7204,12 @@ a
tx@Dict begin /Func (-1.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(-0.8))^2))|-0.8+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(-0.8))^2))*((-1.7)-2*(-0.8))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8138,30 +7217,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8170,12 +7249,12 @@ a
tx@Dict begin /Func (-1.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(-0.8))^2))|-0.8+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(-0.8))^2))*((-1.4)-2*(-0.8))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8183,30 +7262,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8215,12 +7294,12 @@ a
tx@Dict begin /Func (-1.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(-0.8))^2))|-0.8+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(-0.8))^2))*((-1.1)-2*(-0.8))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8235,7 +7314,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8250,7 +7329,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -8260,12 +7339,12 @@ a
tx@Dict begin /Func (-0.8+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(-0.8))^2))|-0.8+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(-0.8))^2))*((-0.8)-2*(-0.8))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8280,7 +7359,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8295,7 +7374,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -8305,12 +7384,12 @@ a
tx@Dict begin /Func (-0.5+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(-0.8))^2))|-0.8+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(-0.8))^2))*((-0.5)-2*(-0.8))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8318,14 +7397,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8339,8 +7418,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -8350,12 +7429,12 @@ a
tx@Dict begin /Func (-0.2+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(-0.8))^2))|-0.8+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(-0.8))^2))*((-0.2)-2*(-0.8))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8370,7 +7449,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8385,7 +7464,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -8395,12 +7474,12 @@ a
tx@Dict begin /Func (0.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(-0.8))^2))|-0.8+((0.3)*t)*(1/sqrt(1+((0.1)-2*(-0.8))^2))*((0.1)-2*(-0.8))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8415,7 +7494,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8430,7 +7509,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -8440,12 +7519,12 @@ a
tx@Dict begin /Func (0.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(-0.8))^2))|-0.8+((0.3)*t)*(1/sqrt(1+((0.4)-2*(-0.8))^2))*((0.4)-2*(-0.8))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8453,14 +7532,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8474,8 +7553,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -8485,12 +7564,12 @@ a
tx@Dict begin /Func (0.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(-0.8))^2))|-0.8+((0.3)*t)*(1/sqrt(1+((0.7)-2*(-0.8))^2))*((0.7)-2*(-0.8))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8505,7 +7584,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8520,7 +7599,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -8530,12 +7609,12 @@ a
tx@Dict begin /Func (1.0+((0.3)*t)*(1/sqrt(1+((1.0)-2*(-0.8))^2))|-0.8+((0.3)*t)*(1/sqrt(1+((1.0)-2*(-0.8))^2))*((1.0)-2*(-0.8))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8550,7 +7629,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8565,7 +7644,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -8575,12 +7654,12 @@ a
tx@Dict begin /Func (1.3+((0.3)*t)*(1/sqrt(1+((1.3)-2*(-0.8))^2))|-0.8+((0.3)*t)*(1/sqrt(1+((1.3)-2*(-0.8))^2))*((1.3)-2*(-0.8))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8588,14 +7667,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8609,8 +7688,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -8620,12 +7699,12 @@ a
tx@Dict begin /Func (1.6+((0.3)*t)*(1/sqrt(1+((1.6)-2*(-0.8))^2))|-0.8+((0.3)*t)*(1/sqrt(1+((1.6)-2*(-0.8))^2))*((1.6)-2*(-0.8))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8633,14 +7712,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8654,8 +7733,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -8665,12 +7744,12 @@ a
tx@Dict begin /Func (1.9+((0.3)*t)*(1/sqrt(1+((1.9)-2*(-0.8))^2))|-0.8+((0.3)*t)*(1/sqrt(1+((1.9)-2*(-0.8))^2))*((1.9)-2*(-0.8))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8678,14 +7757,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8699,8 +7778,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -8710,12 +7789,12 @@ a
tx@Dict begin /Func (-2.00+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(-0.5))^2))|-0.5+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(-0.5))^2))*((-2.00)-2*(-0.5))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8730,7 +7809,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8745,7 +7824,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -8755,12 +7834,12 @@ a
tx@Dict begin /Func (-1.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(-0.5))^2))|-0.5+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(-0.5))^2))*((-1.7)-2*(-0.5))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8768,14 +7847,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8789,8 +7868,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -8800,12 +7879,12 @@ a
tx@Dict begin /Func (-1.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(-0.5))^2))|-0.5+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(-0.5))^2))*((-1.4)-2*(-0.5))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8813,30 +7892,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8845,12 +7924,12 @@ a
tx@Dict begin /Func (-1.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(-0.5))^2))|-0.5+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(-0.5))^2))*((-1.1)-2*(-0.5))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8858,30 +7937,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8890,12 +7969,12 @@ a
tx@Dict begin /Func (-0.8+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(-0.5))^2))|-0.5+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(-0.5))^2))*((-0.8)-2*(-0.5))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8903,30 +7982,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -8935,12 +8014,12 @@ a
tx@Dict begin /Func (-0.5+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(-0.5))^2))|-0.5+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(-0.5))^2))*((-0.5)-2*(-0.5))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -8955,7 +8034,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -8970,7 +8049,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -8980,12 +8059,12 @@ a
tx@Dict begin /Func (-0.2+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(-0.5))^2))|-0.5+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(-0.5))^2))*((-0.2)-2*(-0.5))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9000,7 +8079,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9015,7 +8094,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9025,12 +8104,12 @@ a
tx@Dict begin /Func (0.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(-0.5))^2))|-0.5+((0.3)*t)*(1/sqrt(1+((0.1)-2*(-0.5))^2))*((0.1)-2*(-0.5))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9038,14 +8117,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9059,8 +8138,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9070,12 +8149,12 @@ a
tx@Dict begin /Func (0.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(-0.5))^2))|-0.5+((0.3)*t)*(1/sqrt(1+((0.4)-2*(-0.5))^2))*((0.4)-2*(-0.5))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9090,7 +8169,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9105,7 +8184,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9115,12 +8194,12 @@ a
tx@Dict begin /Func (0.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(-0.5))^2))|-0.5+((0.3)*t)*(1/sqrt(1+((0.7)-2*(-0.5))^2))*((0.7)-2*(-0.5))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9135,7 +8214,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9150,7 +8229,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9160,12 +8239,12 @@ a
tx@Dict begin /Func (1.0+((0.3)*t)*(1/sqrt(1+((1.0)-2*(-0.5))^2))|-0.5+((0.3)*t)*(1/sqrt(1+((1.0)-2*(-0.5))^2))*((1.0)-2*(-0.5))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9173,14 +8252,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9194,8 +8273,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9205,12 +8284,12 @@ a
tx@Dict begin /Func (1.3+((0.3)*t)*(1/sqrt(1+((1.3)-2*(-0.5))^2))|-0.5+((0.3)*t)*(1/sqrt(1+((1.3)-2*(-0.5))^2))*((1.3)-2*(-0.5))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9225,7 +8304,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9240,7 +8319,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9250,12 +8329,12 @@ a
tx@Dict begin /Func (1.6+((0.3)*t)*(1/sqrt(1+((1.6)-2*(-0.5))^2))|-0.5+((0.3)*t)*(1/sqrt(1+((1.6)-2*(-0.5))^2))*((1.6)-2*(-0.5))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9270,7 +8349,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9285,7 +8364,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9295,12 +8374,12 @@ a
tx@Dict begin /Func (1.9+((0.3)*t)*(1/sqrt(1+((1.9)-2*(-0.5))^2))|-0.5+((0.3)*t)*(1/sqrt(1+((1.9)-2*(-0.5))^2))*((1.9)-2*(-0.5))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9308,14 +8387,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9329,8 +8408,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9340,12 +8419,12 @@ a
tx@Dict begin /Func (-2.00+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(-0.2))^2))|-0.2+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(-0.2))^2))*((-2.00)-2*(-0.2))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9360,7 +8439,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9375,7 +8454,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9385,12 +8464,12 @@ a
tx@Dict begin /Func (-1.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(-0.2))^2))|-0.2+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(-0.2))^2))*((-1.7)-2*(-0.2))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9405,7 +8484,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9420,7 +8499,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9430,12 +8509,12 @@ a
tx@Dict begin /Func (-1.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(-0.2))^2))|-0.2+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(-0.2))^2))*((-1.4)-2*(-0.2))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9450,7 +8529,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9465,7 +8544,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9475,12 +8554,12 @@ a
tx@Dict begin /Func (-1.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(-0.2))^2))|-0.2+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(-0.2))^2))*((-1.1)-2*(-0.2))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9488,14 +8567,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9509,8 +8588,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9520,12 +8599,12 @@ a
tx@Dict begin /Func (-0.8+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(-0.2))^2))|-0.2+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(-0.2))^2))*((-0.8)-2*(-0.2))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9540,7 +8619,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9555,7 +8634,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9565,12 +8644,12 @@ a
tx@Dict begin /Func (-0.5+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(-0.2))^2))|-0.2+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(-0.2))^2))*((-0.5)-2*(-0.2))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9578,30 +8657,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -9610,12 +8689,12 @@ a
tx@Dict begin /Func (-0.2+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(-0.2))^2))|-0.2+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(-0.2))^2))*((-0.2)-2*(-0.2))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9623,30 +8702,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -9655,12 +8734,12 @@ a
tx@Dict begin /Func (0.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(-0.2))^2))|-0.2+((0.3)*t)*(1/sqrt(1+((0.1)-2*(-0.2))^2))*((0.1)-2*(-0.2))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9675,7 +8754,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9690,7 +8769,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9700,12 +8779,12 @@ a
tx@Dict begin /Func (0.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(-0.2))^2))|-0.2+((0.3)*t)*(1/sqrt(1+((0.4)-2*(-0.2))^2))*((0.4)-2*(-0.2))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9713,14 +8792,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9734,8 +8813,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9745,12 +8824,12 @@ a
tx@Dict begin /Func (0.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(-0.2))^2))|-0.2+((0.3)*t)*(1/sqrt(1+((0.7)-2*(-0.2))^2))*((0.7)-2*(-0.2))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9758,14 +8837,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9779,8 +8858,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9790,12 +8869,12 @@ a
tx@Dict begin /Func (1.0+((0.3)*t)*(1/sqrt(1+((1.0)-2*(-0.2))^2))|-0.2+((0.3)*t)*(1/sqrt(1+((1.0)-2*(-0.2))^2))*((1.0)-2*(-0.2))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9810,7 +8889,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9825,7 +8904,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9835,12 +8914,12 @@ a
tx@Dict begin /Func (1.3+((0.3)*t)*(1/sqrt(1+((1.3)-2*(-0.2))^2))|-0.2+((0.3)*t)*(1/sqrt(1+((1.3)-2*(-0.2))^2))*((1.3)-2*(-0.2))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9855,7 +8934,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9870,7 +8949,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9880,12 +8959,12 @@ a
tx@Dict begin /Func (1.6+((0.3)*t)*(1/sqrt(1+((1.6)-2*(-0.2))^2))|-0.2+((0.3)*t)*(1/sqrt(1+((1.6)-2*(-0.2))^2))*((1.6)-2*(-0.2))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9893,14 +8972,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9914,8 +8993,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9925,12 +9004,12 @@ a
tx@Dict begin /Func (1.9+((0.3)*t)*(1/sqrt(1+((1.9)-2*(-0.2))^2))|-0.2+((0.3)*t)*(1/sqrt(1+((1.9)-2*(-0.2))^2))*((1.9)-2*(-0.2))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9945,7 +9024,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -9960,7 +9039,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -9970,12 +9049,12 @@ a
tx@Dict begin /Func (-2.00+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(0.1))^2))|0.1+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(0.1))^2))*((-2.00)-2*(0.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -9990,7 +9069,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10005,7 +9084,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10015,12 +9094,12 @@ a
tx@Dict begin /Func (-1.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(0.1))^2))|0.1+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(0.1))^2))*((-1.7)-2*(0.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10035,7 +9114,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10050,7 +9129,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10060,12 +9139,12 @@ a
tx@Dict begin /Func (-1.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(0.1))^2))|0.1+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(0.1))^2))*((-1.4)-2*(0.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10080,7 +9159,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10095,7 +9174,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10105,12 +9184,12 @@ a
tx@Dict begin /Func (-1.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(0.1))^2))|0.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(0.1))^2))*((-1.1)-2*(0.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10125,7 +9204,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10140,7 +9219,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10150,12 +9229,12 @@ a
tx@Dict begin /Func (-0.8+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(0.1))^2))|0.1+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(0.1))^2))*((-0.8)-2*(0.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10163,14 +9242,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10184,8 +9263,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10195,12 +9274,12 @@ a
tx@Dict begin /Func (-0.5+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(0.1))^2))|0.1+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(0.1))^2))*((-0.5)-2*(0.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10208,14 +9287,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10229,8 +9308,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10240,12 +9319,12 @@ a
tx@Dict begin /Func (-0.2+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(0.1))^2))|0.1+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(0.1))^2))*((-0.2)-2*(0.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10260,7 +9339,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10275,7 +9354,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10285,12 +9364,12 @@ a
tx@Dict begin /Func (0.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(0.1))^2))|0.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(0.1))^2))*((0.1)-2*(0.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10298,30 +9377,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10330,12 +9409,12 @@ a
tx@Dict begin /Func (0.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(0.1))^2))|0.1+((0.3)*t)*(1/sqrt(1+((0.4)-2*(0.1))^2))*((0.4)-2*(0.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10343,30 +9422,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -10375,12 +9454,12 @@ a
tx@Dict begin /Func (0.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(0.1))^2))|0.1+((0.3)*t)*(1/sqrt(1+((0.7)-2*(0.1))^2))*((0.7)-2*(0.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10395,7 +9474,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10410,7 +9489,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10420,12 +9499,12 @@ a
tx@Dict begin /Func (1.0+((0.3)*t)*(1/sqrt(1+((1.0)-2*(0.1))^2))|0.1+((0.3)*t)*(1/sqrt(1+((1.0)-2*(0.1))^2))*((1.0)-2*(0.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10433,14 +9512,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10454,8 +9533,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10465,12 +9544,12 @@ a
tx@Dict begin /Func (1.3+((0.3)*t)*(1/sqrt(1+((1.3)-2*(0.1))^2))|0.1+((0.3)*t)*(1/sqrt(1+((1.3)-2*(0.1))^2))*((1.3)-2*(0.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10478,14 +9557,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10499,8 +9578,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10510,12 +9589,12 @@ a
tx@Dict begin /Func (1.6+((0.3)*t)*(1/sqrt(1+((1.6)-2*(0.1))^2))|0.1+((0.3)*t)*(1/sqrt(1+((1.6)-2*(0.1))^2))*((1.6)-2*(0.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10530,7 +9609,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10545,7 +9624,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10555,12 +9634,12 @@ a
tx@Dict begin /Func (1.9+((0.3)*t)*(1/sqrt(1+((1.9)-2*(0.1))^2))|0.1+((0.3)*t)*(1/sqrt(1+((1.9)-2*(0.1))^2))*((1.9)-2*(0.1))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10575,7 +9654,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10590,7 +9669,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10600,12 +9679,12 @@ a
tx@Dict begin /Func (-2.00+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(0.4))^2))|0.4+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(0.4))^2))*((-2.00)-2*(0.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10620,7 +9699,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10635,7 +9714,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10645,12 +9724,12 @@ a
tx@Dict begin /Func (-1.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(0.4))^2))|0.4+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(0.4))^2))*((-1.7)-2*(0.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10658,14 +9737,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10679,8 +9758,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10690,12 +9769,12 @@ a
tx@Dict begin /Func (-1.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(0.4))^2))|0.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(0.4))^2))*((-1.4)-2*(0.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10710,7 +9789,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10725,7 +9804,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10735,12 +9814,12 @@ a
tx@Dict begin /Func (-1.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(0.4))^2))|0.4+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(0.4))^2))*((-1.1)-2*(0.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10755,7 +9834,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10770,7 +9849,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10780,12 +9859,12 @@ a
tx@Dict begin /Func (-0.8+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(0.4))^2))|0.4+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(0.4))^2))*((-0.8)-2*(0.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10793,14 +9872,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10814,8 +9893,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10825,12 +9904,12 @@ a
tx@Dict begin /Func (-0.5+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(0.4))^2))|0.4+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(0.4))^2))*((-0.5)-2*(0.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10845,7 +9924,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10860,7 +9939,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10870,12 +9949,12 @@ a
tx@Dict begin /Func (-0.2+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(0.4))^2))|0.4+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(0.4))^2))*((-0.2)-2*(0.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10890,7 +9969,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10905,7 +9984,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10915,12 +9994,12 @@ a
tx@Dict begin /Func (0.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(0.4))^2))|0.4+((0.3)*t)*(1/sqrt(1+((0.1)-2*(0.4))^2))*((0.1)-2*(0.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10928,14 +10007,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -10949,8 +10028,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -10960,12 +10039,12 @@ a
tx@Dict begin /Func (0.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(0.4))^2))|0.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(0.4))^2))*((0.4)-2*(0.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -10973,30 +10052,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11005,12 +10084,12 @@ a
tx@Dict begin /Func (0.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(0.4))^2))|0.4+((0.3)*t)*(1/sqrt(1+((0.7)-2*(0.4))^2))*((0.7)-2*(0.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11018,30 +10097,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11050,12 +10129,12 @@ a
tx@Dict begin /Func (1.0+((0.3)*t)*(1/sqrt(1+((1.0)-2*(0.4))^2))|0.4+((0.3)*t)*(1/sqrt(1+((1.0)-2*(0.4))^2))*((1.0)-2*(0.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11063,30 +10142,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11095,12 +10174,12 @@ a
tx@Dict begin /Func (1.3+((0.3)*t)*(1/sqrt(1+((1.3)-2*(0.4))^2))|0.4+((0.3)*t)*(1/sqrt(1+((1.3)-2*(0.4))^2))*((1.3)-2*(0.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11108,14 +10187,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11129,8 +10208,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -11140,12 +10219,12 @@ a
tx@Dict begin /Func (1.6+((0.3)*t)*(1/sqrt(1+((1.6)-2*(0.4))^2))|0.4+((0.3)*t)*(1/sqrt(1+((1.6)-2*(0.4))^2))*((1.6)-2*(0.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11160,7 +10239,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11175,7 +10254,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -11185,12 +10264,12 @@ a
tx@Dict begin /Func (1.9+((0.3)*t)*(1/sqrt(1+((1.9)-2*(0.4))^2))|0.4+((0.3)*t)*(1/sqrt(1+((1.9)-2*(0.4))^2))*((1.9)-2*(0.4))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11198,14 +10277,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11219,8 +10298,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -11230,12 +10309,12 @@ a
tx@Dict begin /Func (-2.00+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(0.7))^2))|0.7+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(0.7))^2))*((-2.00)-2*(0.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11243,14 +10322,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11264,8 +10343,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -11275,12 +10354,12 @@ a
tx@Dict begin /Func (-1.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(0.7))^2))|0.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(0.7))^2))*((-1.7)-2*(0.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11295,7 +10374,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11310,7 +10389,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -11320,12 +10399,12 @@ a
tx@Dict begin /Func (-1.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(0.7))^2))|0.7+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(0.7))^2))*((-1.4)-2*(0.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11340,7 +10419,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11355,7 +10434,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -11365,12 +10444,12 @@ a
tx@Dict begin /Func (-1.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(0.7))^2))|0.7+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(0.7))^2))*((-1.1)-2*(0.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11378,14 +10457,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11399,8 +10478,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -11410,12 +10489,12 @@ a
tx@Dict begin /Func (-0.8+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(0.7))^2))|0.7+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(0.7))^2))*((-0.8)-2*(0.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11430,7 +10509,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11445,7 +10524,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -11455,12 +10534,12 @@ a
tx@Dict begin /Func (-0.5+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(0.7))^2))|0.7+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(0.7))^2))*((-0.5)-2*(0.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11475,7 +10554,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11490,7 +10569,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -11500,12 +10579,12 @@ a
tx@Dict begin /Func (-0.2+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(0.7))^2))|0.7+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(0.7))^2))*((-0.2)-2*(0.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11513,14 +10592,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.6 0.6 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.7 0.7 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11534,8 +10613,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -11545,12 +10624,12 @@ a
tx@Dict begin /Func (0.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(0.7))^2))|0.7+((0.3)*t)*(1/sqrt(1+((0.1)-2*(0.7))^2))*((0.1)-2*(0.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11565,7 +10644,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11580,7 +10659,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -11590,12 +10669,12 @@ a
tx@Dict begin /Func (0.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(0.7))^2))|0.7+((0.3)*t)*(1/sqrt(1+((0.4)-2*(0.7))^2))*((0.4)-2*(0.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11610,7 +10689,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11625,7 +10704,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -11635,12 +10714,12 @@ a
tx@Dict begin /Func (0.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(0.7))^2))|0.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(0.7))^2))*((0.7)-2*(0.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11648,14 +10727,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11669,8 +10748,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -11680,12 +10759,12 @@ a
tx@Dict begin /Func (1.0+((0.3)*t)*(1/sqrt(1+((1.0)-2*(0.7))^2))|0.7+((0.3)*t)*(1/sqrt(1+((1.0)-2*(0.7))^2))*((1.0)-2*(0.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11693,30 +10772,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11725,12 +10804,12 @@ a
tx@Dict begin /Func (1.3+((0.3)*t)*(1/sqrt(1+((1.3)-2*(0.7))^2))|0.7+((0.3)*t)*(1/sqrt(1+((1.3)-2*(0.7))^2))*((1.3)-2*(0.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11738,30 +10817,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11770,12 +10849,12 @@ a
tx@Dict begin /Func (1.6+((0.3)*t)*(1/sqrt(1+((1.6)-2*(0.7))^2))|0.7+((0.3)*t)*(1/sqrt(1+((1.6)-2*(0.7))^2))*((1.6)-2*(0.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11783,30 +10862,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11815,12 +10894,12 @@ a
tx@Dict begin /Func (1.9+((0.3)*t)*(1/sqrt(1+((1.9)-2*(0.7))^2))|0.7+((0.3)*t)*(1/sqrt(1+((1.9)-2*(0.7))^2))*((1.9)-2*(0.7))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11835,7 +10914,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11850,7 +10929,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -11860,12 +10939,12 @@ a
tx@Dict begin /Func (-2.00+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(1.0))^2))|1.0+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(1.0))^2))*((-2.00)-2*(1.0))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11873,14 +10952,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11894,9 +10973,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -11905,12 +10983,12 @@ a
tx@Dict begin /Func (-1.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(1.0))^2))|1.0+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(1.0))^2))*((-1.7)-2*(1.0))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11918,14 +10996,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11939,8 +11017,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -11950,12 +11028,12 @@ a
tx@Dict begin /Func (-1.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(1.0))^2))|1.0+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(1.0))^2))*((-1.4)-2*(1.0))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -11963,14 +11041,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -11984,8 +11062,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -11995,12 +11073,12 @@ a
tx@Dict begin /Func (-1.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(1.0))^2))|1.0+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(1.0))^2))*((-1.1)-2*(1.0))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12015,7 +11093,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12030,7 +11108,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12040,12 +11118,12 @@ a
tx@Dict begin /Func (-0.8+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(1.0))^2))|1.0+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(1.0))^2))*((-0.8)-2*(1.0))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12053,14 +11131,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12074,8 +11152,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12085,12 +11163,12 @@ a
tx@Dict begin /Func (-0.5+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(1.0))^2))|1.0+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(1.0))^2))*((-0.5)-2*(1.0))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12098,14 +11176,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12119,8 +11197,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12130,12 +11208,12 @@ a
tx@Dict begin /Func (-0.2+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(1.0))^2))|1.0+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(1.0))^2))*((-0.2)-2*(1.0))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12150,7 +11228,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12165,7 +11243,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12175,12 +11253,12 @@ a
tx@Dict begin /Func (0.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(1.0))^2))|1.0+((0.3)*t)*(1/sqrt(1+((0.1)-2*(1.0))^2))*((0.1)-2*(1.0))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12195,7 +11273,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12210,7 +11288,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12220,12 +11298,12 @@ a
tx@Dict begin /Func (0.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(1.0))^2))|1.0+((0.3)*t)*(1/sqrt(1+((0.4)-2*(1.0))^2))*((0.4)-2*(1.0))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12240,7 +11318,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12255,7 +11333,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12265,12 +11343,12 @@ a
tx@Dict begin /Func (0.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(1.0))^2))|1.0+((0.3)*t)*(1/sqrt(1+((0.7)-2*(1.0))^2))*((0.7)-2*(1.0))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12285,7 +11363,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12300,7 +11378,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12310,12 +11388,12 @@ a
tx@Dict begin /Func (1.0+((0.3)*t)*(1/sqrt(1+((1.0)-2*(1.0))^2))|1.0+((0.3)*t)*(1/sqrt(1+((1.0)-2*(1.0))^2))*((1.0)-2*(1.0))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12330,7 +11408,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12345,7 +11423,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12355,12 +11433,12 @@ a
tx@Dict begin /Func (1.3+((0.3)*t)*(1/sqrt(1+((1.3)-2*(1.0))^2))|1.0+((0.3)*t)*(1/sqrt(1+((1.3)-2*(1.0))^2))*((1.3)-2*(1.0))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12368,14 +11446,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12389,8 +11467,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12400,12 +11478,12 @@ a
tx@Dict begin /Func (1.6+((0.3)*t)*(1/sqrt(1+((1.6)-2*(1.0))^2))|1.0+((0.3)*t)*(1/sqrt(1+((1.6)-2*(1.0))^2))*((1.6)-2*(1.0))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12413,30 +11491,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -12445,12 +11523,12 @@ a
tx@Dict begin /Func (1.9+((0.3)*t)*(1/sqrt(1+((1.9)-2*(1.0))^2))|1.0+((0.3)*t)*(1/sqrt(1+((1.9)-2*(1.0))^2))*((1.9)-2*(1.0))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12458,30 +11536,30 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
- /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
-1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
-h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
-gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
-} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
-setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
-length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
-/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
-y1 sub x2 x1 sub Atan def ArrowA x1 Alpha cos arrowlength mul add y1
-Alpha sin arrowlength mul add /n n 1 sub def n { 4 copy /y1 ED /x1
-ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha y2 y1 sub x2 x1 sub Atan
-def /ArrowPos 0. def /dArrowPos 0.5 abs def 1. cvi { /ArrowPos ArrowPos
-dArrowPos add def x1 Alpha cos ArrowPos mul add y1 Alpha sin ArrowPos
-mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
-1. 1 gt {1.0 1. 1.0 add div }{0.5 } ifelse def 1. cvi { /ArrowPos
-ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
-ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
-} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.95 0.95
+ setrgbcolor /ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale
+ false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul
+/a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg
+a neg rlineto gsave fill grestore grestore 0 h a sub moveto EndArrow
+ } def /ArrowInside { } def [ tx@NodeDict begin tx@NodeDict /N@P1
+known { /N@P1 load GetCenter } { 0 0 } ifelse end tx@NodeDict begin
+tx@NodeDict /N@P0 known { /N@P0 load GetCenter } { 0 0 } ifelse end
+ /Lineto /lineto load def 0 setlinejoin false NArray n 0 eq not
+{ n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2. CLW mul add dup
+1.4 mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1 ED /x1
+ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA x1 Alpha
+cos arrowlength mul add y1 Alpha sin arrowlength mul add /n n 1 sub
+def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5 1 gt { /Alpha
+y2 y1 sub x2 x1 sub Atan def /ArrowPos 0. def /dArrowPos 0.5 abs
+def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x1 Alpha cos ArrowPos
+mul add y1 Alpha sin ArrowPos mul add ArrowInside pop pop } repeat
+}{ /ArrowPos 0. def /dArrowPos 1. 1 gt {1.0 1. 1.0 add div }{0.5 }
+ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def x2 x1 sub
+ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside pop pop
+} repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2 sub def
+n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop } if gsave
+0.8 SLW 1 0.95 0.95 setrgbcolor 1. .setopacityalpha 0 setlinejoin
+0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -12490,12 +11568,12 @@ a
tx@Dict begin /Func (-2.00+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(1.3))^2))|1.3+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(1.3))^2))*((-2.00)-2*(1.3))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12510,7 +11588,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12525,7 +11603,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -12534,12 +11612,12 @@ a
tx@Dict begin /Func (-1.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(1.3))^2))|1.3+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(1.3))^2))*((-1.7)-2*(1.3))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12547,14 +11625,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12568,9 +11646,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -12579,12 +11656,12 @@ a
tx@Dict begin /Func (-1.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(1.3))^2))|1.3+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(1.3))^2))*((-1.4)-2*(1.3))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12592,14 +11669,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12613,9 +11690,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -12624,12 +11700,12 @@ a
tx@Dict begin /Func (-1.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(1.3))^2))|1.3+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(1.3))^2))*((-1.1)-2*(1.3))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12637,14 +11713,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12658,8 +11734,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12669,12 +11745,12 @@ a
tx@Dict begin /Func (-0.8+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(1.3))^2))|1.3+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(1.3))^2))*((-0.8)-2*(1.3))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12682,14 +11758,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12703,8 +11779,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12714,12 +11790,12 @@ a
tx@Dict begin /Func (-0.5+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(1.3))^2))|1.3+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(1.3))^2))*((-0.5)-2*(1.3))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12734,7 +11810,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12749,7 +11825,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12759,12 +11835,12 @@ a
tx@Dict begin /Func (-0.2+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(1.3))^2))|1.3+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(1.3))^2))*((-0.2)-2*(1.3))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12772,14 +11848,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12793,8 +11869,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12804,12 +11880,12 @@ a
tx@Dict begin /Func (0.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(1.3))^2))|1.3+((0.3)*t)*(1/sqrt(1+((0.1)-2*(1.3))^2))*((0.1)-2*(1.3))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12817,14 +11893,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12838,8 +11914,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12849,12 +11925,12 @@ a
tx@Dict begin /Func (0.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(1.3))^2))|1.3+((0.3)*t)*(1/sqrt(1+((0.4)-2*(1.3))^2))*((0.4)-2*(1.3))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12869,7 +11945,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12884,7 +11960,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12894,12 +11970,12 @@ a
tx@Dict begin /Func (0.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(1.3))^2))|1.3+((0.3)*t)*(1/sqrt(1+((0.7)-2*(1.3))^2))*((0.7)-2*(1.3))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12914,7 +11990,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12929,7 +12005,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12939,12 +12015,12 @@ a
tx@Dict begin /Func (1.0+((0.3)*t)*(1/sqrt(1+((1.0)-2*(1.3))^2))|1.3+((0.3)*t)*(1/sqrt(1+((1.0)-2*(1.3))^2))*((1.0)-2*(1.3))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -12959,7 +12035,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -12974,7 +12050,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -12984,12 +12060,12 @@ a
tx@Dict begin /Func (1.3+((0.3)*t)*(1/sqrt(1+((1.3)-2*(1.3))^2))|1.3+((0.3)*t)*(1/sqrt(1+((1.3)-2*(1.3))^2))*((1.3)-2*(1.3))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13004,7 +12080,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13019,7 +12095,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13029,12 +12105,12 @@ a
tx@Dict begin /Func (1.6+((0.3)*t)*(1/sqrt(1+((1.6)-2*(1.3))^2))|1.3+((0.3)*t)*(1/sqrt(1+((1.6)-2*(1.3))^2))*((1.6)-2*(1.3))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13049,7 +12125,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13064,7 +12140,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13074,12 +12150,12 @@ a
tx@Dict begin /Func (1.9+((0.3)*t)*(1/sqrt(1+((1.9)-2*(1.3))^2))|1.3+((0.3)*t)*(1/sqrt(1+((1.9)-2*(1.3))^2))*((1.9)-2*(1.3))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13087,14 +12163,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.8 0.8 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.9 0.9 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13108,8 +12184,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.8 0.8 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.9 0.9 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13119,12 +12195,12 @@ a
tx@Dict begin /Func (-2.00+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(1.6))^2))|1.6+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(1.6))^2))*((-2.00)-2*(1.6))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13139,7 +12215,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13154,7 +12230,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13163,12 +12239,12 @@ a
tx@Dict begin /Func (-1.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(1.6))^2))|1.6+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(1.6))^2))*((-1.7)-2*(1.6))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13183,7 +12259,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13198,7 +12274,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13207,12 +12283,12 @@ a
tx@Dict begin /Func (-1.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(1.6))^2))|1.6+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(1.6))^2))*((-1.4)-2*(1.6))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13227,7 +12303,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13242,7 +12318,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13251,12 +12327,12 @@ a
tx@Dict begin /Func (-1.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(1.6))^2))|1.6+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(1.6))^2))*((-1.1)-2*(1.6))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13264,14 +12340,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13285,9 +12361,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13296,12 +12371,12 @@ a
tx@Dict begin /Func (-0.8+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(1.6))^2))|1.6+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(1.6))^2))*((-0.8)-2*(1.6))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13309,14 +12384,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13330,9 +12405,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13341,12 +12415,12 @@ a
tx@Dict begin /Func (-0.5+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(1.6))^2))|1.6+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(1.6))^2))*((-0.5)-2*(1.6))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13354,14 +12428,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13375,8 +12449,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13386,12 +12460,12 @@ a
tx@Dict begin /Func (-0.2+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(1.6))^2))|1.6+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(1.6))^2))*((-0.2)-2*(1.6))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13399,14 +12473,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13420,8 +12494,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13431,12 +12505,12 @@ a
tx@Dict begin /Func (0.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(1.6))^2))|1.6+((0.3)*t)*(1/sqrt(1+((0.1)-2*(1.6))^2))*((0.1)-2*(1.6))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13451,7 +12525,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13466,7 +12540,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13476,12 +12550,12 @@ a
tx@Dict begin /Func (0.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(1.6))^2))|1.6+((0.3)*t)*(1/sqrt(1+((0.4)-2*(1.6))^2))*((0.4)-2*(1.6))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13489,14 +12563,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13510,8 +12584,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13521,12 +12595,12 @@ a
tx@Dict begin /Func (0.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(1.6))^2))|1.6+((0.3)*t)*(1/sqrt(1+((0.7)-2*(1.6))^2))*((0.7)-2*(1.6))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13541,7 +12615,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13556,7 +12630,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13566,12 +12640,12 @@ a
tx@Dict begin /Func (1.0+((0.3)*t)*(1/sqrt(1+((1.0)-2*(1.6))^2))|1.6+((0.3)*t)*(1/sqrt(1+((1.0)-2*(1.6))^2))*((1.0)-2*(1.6))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13586,7 +12660,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13601,7 +12675,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13611,12 +12685,12 @@ a
tx@Dict begin /Func (1.3+((0.3)*t)*(1/sqrt(1+((1.3)-2*(1.6))^2))|1.6+((0.3)*t)*(1/sqrt(1+((1.3)-2*(1.6))^2))*((1.3)-2*(1.6))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13631,7 +12705,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13646,7 +12720,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13656,12 +12730,12 @@ a
tx@Dict begin /Func (1.6+((0.3)*t)*(1/sqrt(1+((1.6)-2*(1.6))^2))|1.6+((0.3)*t)*(1/sqrt(1+((1.6)-2*(1.6))^2))*((1.6)-2*(1.6))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13676,7 +12750,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13691,7 +12765,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13701,12 +12775,12 @@ a
tx@Dict begin /Func (1.9+((0.3)*t)*(1/sqrt(1+((1.9)-2*(1.6))^2))|1.6+((0.3)*t)*(1/sqrt(1+((1.9)-2*(1.6))^2))*((1.9)-2*(1.6))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13721,7 +12795,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13736,7 +12810,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.7 0.7 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -13746,12 +12820,12 @@ a
tx@Dict begin /Func (-2.00+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(1.9))^2))|1.9+((0.3)*t)*(1/sqrt(1+((-2.00)-2*(1.9))^2))*((-2.00)-2*(1.9))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13766,7 +12840,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13781,7 +12855,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13790,12 +12864,12 @@ a
tx@Dict begin /Func (-1.7+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(1.9))^2))|1.9+((0.3)*t)*(1/sqrt(1+((-1.7)-2*(1.9))^2))*((-1.7)-2*(1.9))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13810,7 +12884,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13825,7 +12899,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13834,12 +12908,12 @@ a
tx@Dict begin /Func (-1.4+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(1.9))^2))|1.9+((0.3)*t)*(1/sqrt(1+((-1.4)-2*(1.9))^2))*((-1.4)-2*(1.9))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13854,7 +12928,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13869,7 +12943,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13878,12 +12952,12 @@ a
tx@Dict begin /Func (-1.1+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(1.9))^2))|1.9+((0.3)*t)*(1/sqrt(1+((-1.1)-2*(1.9))^2))*((-1.1)-2*(1.9))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13898,7 +12972,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13913,7 +12987,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13922,12 +12996,12 @@ a
tx@Dict begin /Func (-0.8+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(1.9))^2))|1.9+((0.3)*t)*(1/sqrt(1+((-0.8)-2*(1.9))^2))*((-0.8)-2*(1.9))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13942,7 +13016,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -13957,7 +13031,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
-.setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore end
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -13966,12 +13040,12 @@ a
tx@Dict begin /Func (-0.5+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(1.9))^2))|1.9+((0.3)*t)*(1/sqrt(1+((-0.5)-2*(1.9))^2))*((-0.5)-2*(1.9))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -13979,14 +13053,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0 0 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14000,9 +13074,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
-end
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0 0 setrgbcolor 1.
+.setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore end
@endspecial 762 664 a
tx@Dict begin /t0 0 def /t1 1 def t1 t0 sub end 1 div /dt exch def
@@ -14011,12 +13084,12 @@ a
tx@Dict begin /Func (-0.2+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(1.9))^2))|1.9+((0.3)*t)*(1/sqrt(1+((-0.2)-2*(1.9))^2))*((-0.2)-2*(1.9))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -14024,14 +13097,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14045,8 +13118,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -14056,12 +13129,12 @@ a
tx@Dict begin /Func (0.1+((0.3)*t)*(1/sqrt(1+((0.1)-2*(1.9))^2))|1.9+((0.3)*t)*(1/sqrt(1+((0.1)-2*(1.9))^2))*((0.1)-2*(1.9))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -14069,14 +13142,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.1 0.1 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14090,8 +13163,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.1 0.1 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -14101,12 +13174,12 @@ a
tx@Dict begin /Func (0.4+((0.3)*t)*(1/sqrt(1+((0.4)-2*(1.9))^2))|1.9+((0.3)*t)*(1/sqrt(1+((0.4)-2*(1.9))^2))*((0.4)-2*(1.9))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -14114,14 +13187,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.3 0.3 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.2 0.2 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14135,8 +13208,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.2 0.2 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -14146,12 +13219,12 @@ a
tx@Dict begin /Func (0.7+((0.3)*t)*(1/sqrt(1+((0.7)-2*(1.9))^2))|1.9+((0.3)*t)*(1/sqrt(1+((0.7)-2*(1.9))^2))*((0.7)-2*(1.9))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -14166,7 +13239,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14181,7 +13254,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.3 0.3 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -14191,12 +13264,12 @@ a
tx@Dict begin /Func (1.0+((0.3)*t)*(1/sqrt(1+((1.0)-2*(1.9))^2))|1.9+((0.3)*t)*(1/sqrt(1+((1.0)-2*(1.9))^2))*((1.0)-2*(1.9))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -14211,7 +13284,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14226,7 +13299,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -14236,12 +13309,12 @@ a
tx@Dict begin /Func (1.3+((0.3)*t)*(1/sqrt(1+((1.3)-2*(1.9))^2))|1.9+((0.3)*t)*(1/sqrt(1+((1.3)-2*(1.9))^2))*((1.3)-2*(1.9))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -14249,14 +13322,14 @@ def NewNode end end
1. 1. scale false 0.4 1.4 1.5 2. CLW mul add dup 2 div /w ED mul
dup /h ED mul /a ED { 0 h T 1 -1 scale } if gsave w neg h moveto 0
0 L w h L w neg a neg rlineto gsave fill grestore grestore 0 h a sub
-moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.5 0.5 setrgbcolor
+moveto EndArrow } def /ArrowInside { } def 0.8 SLW 1 0.4 0.4 setrgbcolor
/ArrowA { moveto } def /ArrowB { BeginArrow 1. 1. scale false 0.4
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14270,8 +13343,8 @@ mul add ArrowInside pop pop } repeat }{ /ArrowPos 0. def /dArrowPos
ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
-2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.4 0.4 setrgbcolor
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -14281,12 +13354,12 @@ a
tx@Dict begin /Func (1.6+((0.3)*t)*(1/sqrt(1+((1.6)-2*(1.9))^2))|1.9+((0.3)*t)*(1/sqrt(1+((1.6)-2*(1.9))^2))*((1.6)-2*(1.9))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -14301,7 +13374,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14316,7 +13389,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.5 0.5 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial 762 664 a
@@ -14326,12 +13399,12 @@ a
tx@Dict begin /Func (1.9+((0.3)*t)*(1/sqrt(1+((1.9)-2*(1.9))^2))|1.9+((0.3)*t)*(1/sqrt(1+((1.9)-2*(1.9))^2))*((1.9)-2*(1.9))
) AlgParser cvx def end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 0 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P0 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a 762 664 a
-tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
-mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
+tx@Dict begin tx@NodeDict begin { /t 0 dt 1 mul add def Func 28.5
+mul exch 28.5 mul exch } false /N@P1 10 {InitPnode } /NodeScale {}
def NewNode end end
762 664 a @beginspecial
@setspecial
@@ -14346,7 +13419,7 @@ h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
{ } def [ tx@NodeDict begin tx@NodeDict /N@P1 known { /N@P1 load GetCenter
} { 0 0 } ifelse end tx@NodeDict begin tx@NodeDict /N@P0 known { /N@P0
-load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 1
+load GetCenter } { 0 0 } ifelse end /Lineto /lineto load def 0
setlinejoin false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ()
length 0 gt { 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add
/arrowlength exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2
@@ -14361,7 +13434,7 @@ ArrowPos dArrowPos add def x2 x1 sub ArrowPos mul x1 add y2 y1 sub
ArrowPos mul y1 add ArrowInside pop pop } repeat } ifelse pop pop Lineto
} repeat }{ ArrowA /n n 2 sub def n { Lineto } repeat } ifelse CP 4
2 roll ArrowB L pop pop } if gsave 0.8 SLW 1 0.6 0.6 setrgbcolor
- 1. .setopacityalpha 1 setlinejoin 0 setlinecap stroke grestore
+ 1. .setopacityalpha 0 setlinejoin 0 setlinecap stroke grestore
end
@endspecial @beginspecial @setspecial
@@ -14371,7 +13444,7 @@ add dup 2 div /w ED mul dup /h ED mul /a ED { 0 h T 1 -1 scale } if
gsave w neg h moveto 0 0 L w h L w neg a neg rlineto gsave fill grestore
grestore 0 h a sub moveto EndArrow } def /ArrowInside { } def
/showOrigin true def 59.85017 0 -57.0 0 ArrowA CP 4 2 roll ArrowB
-2 copy /yEnd exch def /xEnd exch def L 1 setlinejoin 0 setlinecap
+2 copy /yEnd exch def /xEnd exch def L 0 setlinejoin 0 setlinecap
stroke stroke /yStart exch def /xStart exch def 0 dup 2 mod 0 eq false
and exch 2 lt true and or { /viceversa -57.0 59.85017 gt { true }{
false } ifelse def /epsilon 0.01 def /minTickline -57.0 def /maxTickline
@@ -14381,8 +13454,8 @@ false } ifelse def /epsilon 0.01 def /minTickline -57.0 def /maxTickline
0.2 def /STsize 0.75 def /TColor { 0 setgray } def /subTColor {
0.5 setgray } def /MinValue { xStart } def /MaxValue { xEnd 1.5 2.
CLW mul add 1.4 mul viceversa { add epsilon sub }{ sub epsilon add
-} ifelse } def /logLines { false } def /LSstroke { 1 setlinejoin
-0 setlinecap stroke stroke} def /subLSstroke { 1 setlinejoin 0
+} ifelse } def /logLines { false } def /LSstroke { 0 setlinejoin
+0 setlinecap stroke stroke} def /subLSstroke { 0 setlinejoin 0
setlinecap stroke stroke} def 0 dT MaxValue 1 add { /cntTick exch def
logLines { gsave 1 10 subTNo div 9.99 { /dx exch def /x cntTick dT
dx log mul add def x abs MaxValue abs le { false { x minTickline moveto
@@ -14423,7 +13496,7 @@ moveto EndArrow } def /ArrowInside { } def 0.7 SLW 0 setgray
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ 0.0 57.0 0.0 -57.0 /Lineto /lineto load def 1 setlinejoin
+{ } def [ 0.0 57.0 0.0 -57.0 /Lineto /lineto load def 0 setlinejoin
false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if () length 0 gt
{ 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add /arrowlength
exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1
@@ -14437,7 +13510,7 @@ div }{0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def
x2 x1 sub ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside
pop pop } repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2
sub def n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop }
-if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 1 setlinejoin
+if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial @beginspecial
@@ -14451,7 +13524,7 @@ moveto EndArrow } def /ArrowInside { } def 0.7 SLW 0 setgray
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ 59.85017 0.0 -57.0 0.0 /Lineto /lineto load def 1 setlinejoin
+{ } def [ 59.85017 0.0 -57.0 0.0 /Lineto /lineto load def 0 setlinejoin
false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if () length 0 gt
{ 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add /arrowlength
exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1
@@ -14465,7 +13538,7 @@ div }{0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def
x2 x1 sub ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside
pop pop } repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2
sub def n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop }
-if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 1 setlinejoin
+if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial @beginspecial @setspecial
@@ -14475,7 +13548,7 @@ add dup 2 div /w ED mul dup /h ED mul /a ED { 0 h T 1 -1 scale } if
gsave w neg h moveto 0 0 L w h L w neg a neg rlineto gsave fill grestore
grestore 0 h a sub moveto EndArrow } def /ArrowInside { } def
/showOrigin true def 0 57.0 0 -57.0 ArrowA CP 4 2 roll ArrowB 2 copy
-/yEnd exch def /xEnd exch def L 1 setlinejoin 0 setlinecap stroke
+/yEnd exch def /xEnd exch def L 0 setlinejoin 0 setlinecap stroke
stroke /yStart exch def /xStart exch def 0 dup 2 mod 0 eq true and
exch 2 lt false and or { /viceversa -57.0 57.0 gt { true }{ false
} ifelse def /epsilon 0.01 def /minTickline -57.0 def /maxTickline
@@ -14485,8 +13558,8 @@ exch 2 lt false and or { /viceversa -57.0 57.0 gt { true }{ false
0.2 def /STsize 0.75 def /TColor { 0 setgray } def /subTColor {
0.5 setgray } def /MinValue { yStart } def /MaxValue { yEnd 1.5 2.
CLW mul add 1.4 mul viceversa { add epsilon sub }{ sub epsilon add
-} ifelse } def /logLines { false } def /LSstroke { 1 setlinejoin
-0 setlinecap stroke stroke} def /subLSstroke { 1 setlinejoin 0
+} ifelse } def /logLines { false } def /LSstroke { 0 setlinejoin
+0 setlinecap stroke stroke} def /subLSstroke { 0 setlinejoin 0
setlinecap stroke stroke} def 0 dT MaxValue 1 add { /cntTick exch
def logLines { gsave 1 10 subTNo div 9.99 { /dx exch def /x cntTick
dT dx log mul add def x abs MaxValue abs le { false { x minTickline
@@ -14528,7 +13601,7 @@ moveto EndArrow } def /ArrowInside { } def 0.7 SLW 0 setgray
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ 0.0 57.0 0.0 -57.0 /Lineto /lineto load def 1 setlinejoin
+{ } def [ 0.0 57.0 0.0 -57.0 /Lineto /lineto load def 0 setlinejoin
false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if () length 0 gt
{ 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add /arrowlength
exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1
@@ -14542,7 +13615,7 @@ div }{0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def
x2 x1 sub ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside
pop pop } repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2
sub def n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop }
-if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 1 setlinejoin
+if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial @beginspecial
@@ -14556,7 +13629,7 @@ moveto EndArrow } def /ArrowInside { } def 0.7 SLW 0 setgray
1.4 1.5 2. CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0
h T 1 -1 scale } if gsave w neg h moveto 0 0 L w h L w neg a neg rlineto
gsave fill grestore grestore 0 h a sub moveto EndArrow } def /ArrowInside
-{ } def [ 59.85017 0.0 -57.0 0.0 /Lineto /lineto load def 1 setlinejoin
+{ } def [ 59.85017 0.0 -57.0 0.0 /Lineto /lineto load def 0 setlinejoin
false NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if () length 0 gt
{ 1.5 2. CLW mul add dup 1.4 mul exch 0.4 mul neg add /arrowlength
exch def 4 copy /y1 ED /x1 ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1
@@ -14570,7 +13643,7 @@ div }{0.5 } ifelse def 1. cvi { /ArrowPos ArrowPos dArrowPos add def
x2 x1 sub ArrowPos mul x1 add y2 y1 sub ArrowPos mul y1 add ArrowInside
pop pop } repeat } ifelse pop pop Lineto } repeat }{ ArrowA /n n 2
sub def n { Lineto } repeat } ifelse CP 4 2 roll ArrowB L pop pop }
-if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 1 setlinejoin
+if gsave 0.7 SLW 0 setgray 1. .setopacityalpha 0 setlinejoin
0 setlinecap stroke grestore end
@endspecial 694 449 a Fb(1)639 919 y Fa(\000)p
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/README b/Master/texmf-dist/doc/latex/pstricks_calcnotes/README
index d4fcde3a370..837194735a1 100644
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/README
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/README
@@ -1,5 +1,11 @@
-This package presents two applications of PSTricks for making LaTeX lecture notes in
-Calculus. The remarks on the second one give a way of coloring arrows for a vector field.
+This package presents three applications of PSTricks for making LaTeX lecture notes in
+Calculus.
+
+Application 1: Drawing approximations to the area under a graph by rectangles.
+Application 2: Drawing the vector field of an ordinary differential equation of order one.
+ (The remarks on this application give a way of coloring arrows properly for a vector field.)
+Application 3: Drawing partitions of a simply connected plane domain.
+
Author: Le Phuong Quan
License: lppl
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/ThreeAppsPDF.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/ThreeAppsPDF.pdf
new file mode 100644
index 00000000000..cbca59039ff
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/pstricks_calcnotes/ThreeAppsPDF.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/pstricks_calcnotes/Two_Apps_Remarks.pdf b/Master/texmf-dist/doc/latex/pstricks_calcnotes/Two_Apps_Remarks.pdf
deleted file mode 100644
index 88ab66cc2bc..00000000000
--- a/Master/texmf-dist/doc/latex/pstricks_calcnotes/Two_Apps_Remarks.pdf
+++ /dev/null
Binary files differ