xpicture.dtx

git-svn-id: svn://tug.org/texlive/trunk@28770 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 1256 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/xpicture/xpicture.sty b/Master/texmf-dist/tex/latex/xpicture/xpicture.sty
new file mode 100644
index 00000000000..0676c93eadf
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/xpicture/xpicture.sty
@@ -0,0 +1,1256 @@
+%%
+%% This is file `xpicture.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% xpicture.dtx  (with options: `xpicture,defaults')
+%% ********************************************************************
+%% The xpicture package
+%% Copyright (C) 2010, 2011, 2012 by Robert Fuster <rfuster@mat.upv.es>
+%% All rights reserved
+%% 
+%% This file may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either version 1.3c
+%% of this license or (at your option) any later version.
+%% The latest version of this license is in
+%% 
+%%    http://www.latex-project.org/lppl.txt
+%% 
+%% and version 1.3c or later is part of all distributions of LaTeX
+%% version 2005/12/01 or later.
+%% ********************************************************************
+%% \CharacterTable
+%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+%%   Digits        \0\1\2\3\4\5\6\7\8\9
+%%   Exclamation   \!     Double quote  \"     Hash (number) \#
+%%   Dollar        \$     Percent       \%     Ampersand     \&
+%%   Acute accent  \'     Left paren    \(     Right paren   \)
+%%   Asterisk      \*     Plus          \+     Comma         \,
+%%   Minus         \-     Point         \.     Solidus       \/
+%%   Colon         \:     Semicolon     \;     Less than     \<
+%%   Equals        \=     Greater than  \>     Question mark \?
+%%   Commercial at \@     Left bracket  \[     Backslash     \\
+%%   Right bracket \]     Circumflex    \^     Underscore    \_
+%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
+%%   Right brace   \}     Tilde         \~}
+
+
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{xpicture}[2012/12/17 v.1.2a picture environment extensions]
+\newif\ifdraft\draftfalse
+\DeclareOption{draft}{\drafttrue}
+\DeclareOption*{%
+   \PassOptionsToPackage{\CurrentOption}{curve2e}
+    \PassOptionsToPackage{\CurrentOption}{xcolor}}
+\ProcessOptions
+\newif\ifpolar\polarfalse
+\newif\ifrputstar\rputstarfalse
+\newif\ifdegrees\degreesfalse
+\newif\iftics\ticstrue
+\newif\iflabels\labelstrue
+\newif\ifgrid\gridfalse
+\newif\ifticslabelsgrid\ticslabelsgridfalse
+\newif\ifinzeroaxes\inzeroaxestrue
+\newif\ifbg\bgfalse
+\RequirePackage{curve2e}
+\RequirePackage{xcolor}
+\RequirePackage{calculus}
+\def\xpct@Warnbadpos{%
+      \PackageWarning{xpicture}%
+        {Argument in \noexpand\defaultPut command must be either
+        'c' or 'r'\MessageBreak
+         I will no change the default position for
+         \noexpand\Put commands}}
+\def\xpct@Infopos#1{%
+      \PackageInfo{xpicture}%
+        {Default position for \noexpand\Put commands changed to #1}}
+\def\xpct@WarnIncSys(#1,#2)(#3,#4){%
+      \PackageWarning{xpicture}{%
+           Incompatible linear system!\MessageBreak
+           Tangent lines are parallel}}
+\def\xpct@ErrHypCons{%
+       \PackageError{xpicture}{%
+        Inconsistent parameters in \noexpand\Hyperbola command}{%
+        The first and second parameters in a \noexpand\Hyperbola
+        command\MessageBreak
+        must be, respectively, lesser than the third and
+        the fourth ones.}}
+\def\xpct@Infocfg{\PackageInfo{xpicture}{%
+          Loading local configuration file xpicture.cfg}}
+\def\xpct@Infonocfg{\PackageInfo{xpicture}{%
+          Local configuration file xpicture.cfg does not exists}}
+\newcounter{xpct@counta}
+\newcounter{xpct@countb}
+\newcounter{xpct@step}
+\newcounter{multiput}
+\newdimen\xpct@bxw
+\newdimen\xpct@bxh
+\def\xpct@maxnum{16383.99998}
+\def\makenotics{\ticsfalse}
+\def\maketics{\ticstrue}
+\def\makenolabels{\labelsfalse}
+\def\makelabels{\labelstrue}
+\def\makenogrid{\gridfalse}
+\def\makegrid{\gridtrue}
+\def\externalaxes{\inzeroaxesfalse}
+\def\internalaxes{\inzeroaxestrue}
+\newdimen\axesthickness
+\def\xpct@axeslabelattrib{\axeslabelsize%
+       \pictcolor{\axeslabelcolor}%
+       \mathversion{\axeslabelmathversion}}
+\newdimen\ticsthickness
+\newdimen\ticssize
+\newdimen\secundaryticssize
+\newdimen\gridthickness
+\newdimen\secundarygridthickness
+\def\pictcolor{\@killglue\color}
+\def\standardreferencesystem{\referencesystem(0,0)(1,0)(0,1)}
+\def\referencesystem(#1,#2)(#3,#4)(#5,#6){%
+       \COPY{#1}\xpct@xorigin
+       \COPY{#2}\xpct@yorigin
+       \COPY{#3}\xpct@xI
+       \COPY{#4}\xpct@yI
+       \COPY{#5}\xpct@xII
+       \COPY{#6}\xpct@yII}
+\def\changereferencesystem(#1)(#2)(#3){%
+       \refsysPoint(#1)(\xpct@newx,\xpct@newy)
+       \refsysVector(#2)(\xpct@newux,\xpct@newuy)
+       \refsysVector(#3)(\xpct@newvx,\xpct@newvy)
+       \referencesystem(\xpct@newx,\xpct@newy)(\xpct@newux,\xpct@newuy)%
+       (\xpct@newvx,\xpct@newvy)}
+\def\translateorigin(#1){\changereferencesystem(#1)(1,0)(0,1)}
+\def\rotateaxes#1{%
+       \ifdegrees\DEGREESCOS{#1}\xpct@cosine\DEGREESSIN{#1}\xpct@sine
+       \else\COS{#1}\xpct@cosine\SIN{#1}\xpct@sine\fi
+       \changereferencesystem%
+          (0,0)(\xpct@cosine,\xpct@sine)(-\xpct@sine,\xpct@cosine)}
+\def\symmetrize#1{%
+       \MULTIPLY{2}{#1}{\xpct@sym}
+       \ifdegrees
+          \DEGREESCOS{\xpct@sym}\xpct@cosine\DEGREESSIN{\xpct@sym}\xpct@sine
+       \else
+          \COS{\xpct@sym}\xpct@cosine\SIN{\xpct@sym}\xpct@sine\fi
+       \changereferencesystem%
+          (0,0)(\xpct@cosine,\xpct@sine)(\xpct@sine,-\xpct@cosine)}
+\def\refsysxyVector(#1)(#2,#3){%
+       \MATRIXVECTORPRODUCT%
+          (\xpct@xI,\xpct@xII;\xpct@yI,\xpct@yII)(#1)(#2,#3)}
+\def\refsysxyPoint(#1)(#2,#3){%
+       \MATRIXVECTORPRODUCT(\xpct@xI,\xpct@xII;\xpct@yI,\xpct@yII)(#1)(#2,#3)
+       \VECTORADD(#2,#3)(\xpct@xorigin,\xpct@yorigin)(#2,#3)}
+\def\refsyspVector(#1,#2)(#3,#4){%
+      \polarcoor(#1,#2)(\xpct@polarx,\xpct@polary)
+      \refsysxyVector(\xpct@polarx,\xpct@polary)(#3,#4)}
+\def\refsyspPoint(#1,#2)(#3,#4){%
+      \polarcoor(#1,#2)(\xpct@polarx,\xpct@polary)
+      \refsysxyPoint(\xpct@polarx,\xpct@polary)(#3,#4)}
+\def\cartesianreference{%
+       \def\refsysVector{\refsysxyVector}%
+       \def\refsysPoint{\refsysxyPoint}\polarfalse}
+\def\polarreference{%
+       \def\refsysVector{\refsyspVector}%
+       \def\refsysPoint{\refsyspPoint}\polartrue}
+\def\polarcoor(#1,#2)(#3,#4){%
+       \ifdegrees\DEGREESCOS{#2}{\xpct@Px}\DEGREESSIN{#2}{\xpct@Py}
+       \else\COS{#2}{\xpct@Px}\SIN{#2}{\xpct@Py}\fi
+       \MULTIPLY{\xpct@Px}{#1}{#3}
+       \MULTIPLY{\xpct@Py}{#1}{#4}}
+\def\degreesangles{\degreestrue}
+\def\radiansangles{\degreesfalse}
+\def\Picture{\@ifnextchar[{\xpct@@Picture}{\xpct@Picture}}
+\def\xpct@Picture(#1,#2)(#3,#4){%
+       \refsysxyPoint(#1,#2)(\xpct@xzero,\xpct@yzero)
+       \refsysxyPoint(#3,#4)(\xpct@xone,\xpct@yone)
+       \refsysxyPoint(#1,#4)(\xpct@xtwo,\xpct@ytwo)
+       \refsysxyPoint(#3,#2)(\xpct@xthree,\xpct@ythree)
+       \MIN{\xpct@xzero}{\xpct@xone}{\xpct@xmin}
+       \MIN{\xpct@xmin}{\xpct@xtwo}{\xpct@xmin}
+       \MIN{\xpct@xmin}{\xpct@xthree}{\xpct@xmin}
+       \MIN{\xpct@yzero}{\xpct@yone}{\xpct@ymin}
+       \MIN{\xpct@ymin}{\xpct@ytwo}{\xpct@ymin}
+       \MIN{\xpct@ymin}{\xpct@ythree}{\xpct@ymin}
+       \MAX{\xpct@xzero}{\xpct@xone}{\xpct@xmax}
+       \MAX{\xpct@xmax}{\xpct@xtwo}{\xpct@xmax}
+       \MAX{\xpct@xmax}{\xpct@xthree}{\xpct@xmax}
+       \MAX{\xpct@yzero}{\xpct@yone}{\xpct@ymax}
+       \MAX{\xpct@ymax}{\xpct@ytwo}{\xpct@ymax}
+       \MAX{\xpct@ymax}{\xpct@ythree}{\xpct@ymax}
+       \SUBTRACT{\xpct@xmax}{\xpct@xmin}{\xpct@pictwidth}
+       \SUBTRACT{\xpct@ymax}{\xpct@ymin}{\xpct@pictheight}
+          \begin{picture}(\xpct@pictwidth,\xpct@pictheight)(%
+             \xpct@xmin,\xpct@ymin)
+          \highestlabel{\normalfont\normalsize$1$}
+          \ifdraft
+            \colorlet{backgroundcolor}{lightgray}
+            \xpct@backgrd
+            \put(\xpct@xmin,\xpct@ymin){\line(1,0){\xpct@pictwidth}}
+            \put(\xpct@xmin,\xpct@ymin){\line(0,1){\xpct@pictheight}}
+            \put(\xpct@xmin,\xpct@ymax){\line(1,0){\xpct@pictwidth}}
+            \put(\xpct@xmax,\xpct@ymin){\line(0,1){\xpct@pictheight}}
+            \VECTORADD(\xpct@xmax,\xpct@ymax)(\xpct@xmin,\xpct@ymin)(%
+            \xpct@xmed,\xpct@ymed)
+            \SCALARVECTORPRODUCT{0.5}(\xpct@xmed,\xpct@ymed)(%
+            \xpct@xmed,\xpct@ymed)
+            \put(\xpct@xmed,\xpct@ymed){\makebox(0,0){\scshape xpicture}}
+         \else
+            \ifbg\xpct@backgrd\fi
+         \fi}
+\def\xpct@@Picture[#1](#2,#3)(#4,#5){%
+         \colorlet{backgroundcolor}{#1}%
+         \bgtrue\xpct@Picture(#2,#3)(#4,#5)}
+\def\xpct@backgrd{\begingroup
+                \pictcolor{backgroundcolor}
+                \moveto(\xpct@xzero,\xpct@yzero)
+                \lineto(\xpct@xthree,\xpct@ythree)
+                \lineto(\xpct@xone,\xpct@yone)
+                \lineto(\xpct@xtwo,\xpct@ytwo)
+                \closepath\fillpath
+            \endgroup}
+\def\endPicture{\end{picture}}
+\newenvironment{xpicture}{\begin{Picture}}{\end{Picture}}
+\def\cPut#1(#2,#3)#4{%
+       \COPY{0}{\xpct@CorRput}
+       \xpct@PUT{#1}(#2,#3){#4}}
+\def\rPut{\@ifstar
+             \xpct@rPutstar%
+             \xpct@rPut%
+             }
+\def\Put{\@ifstar
+            \xpct@Putstar%
+            \xpct@Put%
+        }
+\def\defaultPut#1{\def\xpct@tempa{#1}\def\xpct@tempb{r}
+       \ifx\xpct@tempa\xpct@tempb
+          \xpct@Infopos#1
+          \def\xpct@defaultPut{\rPut}
+       \else
+          \xpct@Infopos#1
+          \def\xpct@tempc{c}
+          \ifx\xpct@tempa\xpct@tempc
+             \def\xpct@defaultPut{\cPut}
+          \else
+             \xpct@Warnbadpos
+       \fi\fi}
+\def\highestlabel#1{\settoheight{\xpct@bxh}{#1}%
+       \LENGTHDIVIDE{\xpct@bxh}{\unitlength}{\xpct@rputmxhg}}
+\def\xpct@rPutstar{\rputstartrue\COPY{1}{\xpct@CorRput}\xpct@PUT}
+\def\xpct@rPut{\rputstarfalse\COPY{1}{\xpct@CorRput}\xpct@PUT}
+\def\xpct@Putstar{\@ifnextchar[{\xpct@@Putstar}{\xpct@@Put}}
+\def\xpct@Put{\@ifnextchar[{\xpct@@@Put}{\xpct@@Put}}
+\def\xpct@@Put(#1){\refsysPoint(#1)(\xpct@abscoorx,\xpct@abscoory)
+       \put(\xpct@abscoorx,\xpct@abscoory)}
+\def\xpct@@Putstar[#1](#2)#3{\xpct@convtoang{#1}{\xpct@putpos}{\xpct@CorR}
+       \if\xpct@CorR c
+          \cPut{#1}(#2){#3}
+       \else
+          \rPut*{#1}(#2){#3}
+       \fi}
+\def\xpct@@@Put[#1](#2)#3{\xpct@convtoang{#1}{\xpct@putpos}{\xpct@CorR}
+       \if\xpct@CorR c
+          \cPut{#1}(#2){#3}
+       \else
+          \if\xpct@CorR r
+             \rPut{#1}(#2){#3}
+          \else
+             \xpct@defaultPut{#1}(#2){#3}
+       \fi\fi}
+\def\xpct@PUT#1(#2,#3)#4{%
+       \xpct@alphaput{#1}{\xpct@CorRput}
+       \refsysxyVector(\xpct@xPictsep,\xpct@yPictsep)(\xpct@Posx,\xpct@Posy)
+       \refsysPoint(#2,#3)(\xpct@posx,\xpct@posy)
+       \xpct@alphamove{#4}{\xpct@CorRput}
+       \VECTORADD(\xpct@posx,\xpct@posy)(\xpct@Posx,\xpct@Posy)(%
+          \xpct@Posx,\xpct@Posy)
+       \put(\xpct@Posx,\xpct@Posy){#4}}
+\def\xpct@alphaput#1#2{\def\xpct@tempa{#1}\def\xpct@tempb{c}%
+       \ifx\xpct@tempa\xpct@tempb
+          \COPY{0}{\xpct@xPictsep}\COPY{0}{\xpct@yPictsep}
+       \else
+          \xpct@convtoang{#1}{\xpct@putpos}{\xpct@CorR}
+          \ifnum #2=0
+             \DEGREESCOS{\xpct@putpos}{\xpct@cosine}
+             \DEGREESSIN{\xpct@putpos}{\xpct@sine}
+          \else
+             \qCOS{\xpct@putpos}{\xpct@cosine}
+             \qSIN{\xpct@putpos}{\xpct@sine}
+          \fi
+          \MULTIPLY{\Pictlabelsep}{\xpct@cosine}{\xpct@xPictsep}
+          \MULTIPLY{\Pictlabelsep}{\xpct@sine}{\xpct@yPictsep}
+       \fi}
+\def\xpct@alphamove#1#2{%
+       \xpct@halfbox{#1}{\xpct@amplada}{\xpct@altura}
+       \ifx\xpct@tempa\xpct@tempb
+       \else
+          \ifnum #2=0
+             \UNITVECTOR(\xpct@Posx,\xpct@Posy)(\xpct@xdir,\xpct@ydir)
+          \else
+             \qUNITVECTOR(\xpct@Posx,\xpct@Posy)(\xpct@xdir,\xpct@ydir)
+             \ifrputstar
+                \ifdim\xpct@ydir\p@=-1\p@
+                   \DIVIDE{\xpct@rputmxhg}{2}{\xpct@altura}
+                \fi
+             \fi
+             \fi
+             \MULTIPLY{\xpct@ydir}{\xpct@altura}{\xpct@ydir}
+             \MULTIPLY{\xpct@xdir}{\xpct@amplada}{\xpct@xdir}
+             \VECTORADD(\xpct@Posx,\xpct@Posy)(\xpct@xdir,\xpct@ydir)%
+                       (\xpct@Posx,\xpct@Posy)
+       \fi
+       \VECTORSUB(\xpct@Posx,\xpct@Posy)(\xpct@amplada,\xpct@altura)(%
+          \xpct@Posx,\xpct@Posy)}
+\def\xpct@convtoang#1#2#3{%
+     \def\xpct@tempc{#1}
+     \def\xpct@tempd{r}\ifx\xpct@tempc\xpct@tempd\COPY{0}{#2}\def#3{r}\else
+     \def\xpct@tempd{tr}\ifx\xpct@tempc\xpct@tempd\COPY{45}{#2}\def#3{r}\else
+     \def\xpct@tempd{t}\ifx\xpct@tempc\xpct@tempd\COPY{90}{#2}\def#3{r}\else
+     \def\xpct@tempd{tl}\ifx\xpct@tempc\xpct@tempd\COPY{135}{#2}\def#3{r}\else
+     \def\xpct@tempd{l}\ifx\xpct@tempc\xpct@tempd\COPY{180}{#2}\def#3{r}
+     \else
+     \def\xpct@tempd{bl}\ifx\xpct@tempc\xpct@tempd\COPY{-135}{#2}
+     \def#3{r}\else
+     \def\xpct@tempd{b}\ifx\xpct@tempc\xpct@tempd\COPY{-90}{#2}
+     \def#3{r}\else
+     \def\xpct@tempd{br}\ifx\xpct@tempc\xpct@tempd\COPY{-45}{#2}
+     \def#3{r}\else
+     \def\xpct@tempd{rtr}\ifx\xpct@tempc\xpct@tempd\COPY{22.5}{#2}
+     \def#3{r}\else
+     \def\xpct@tempd{ttr}\ifx\xpct@tempc\xpct@tempd\COPY{67.5}{#2}
+     \def#3{r}\else
+     \def\xpct@tempd{ttl}\ifx\xpct@tempc\xpct@tempd\COPY{112.5}{#2}
+     \def#3{r}\else
+     \def\xpct@tempd{ltl}\ifx\xpct@tempc\xpct@tempd\COPY{157.5}{#2}
+     \def#3{r}\else
+     \def\xpct@tempd{lbl}\ifx\xpct@tempc\xpct@tempd\COPY{-157.5}{#2}
+     \def#3{r}\else
+     \def\xpct@tempd{bbl}\ifx\xpct@tempc\xpct@tempd\COPY{-112.5}{#2}
+     \def#3{r}\else
+     \def\xpct@tempd{bbr}\ifx\xpct@tempc\xpct@tempd\COPY{-67.5}{#2}
+     \def#3{r}\else
+     \def\xpct@tempd{rbr}\ifx\xpct@tempc\xpct@tempd\COPY{-22.5}{#2}
+     \def#3{r}\else
+     \def\xpct@tempd{E}\ifx\xpct@tempc\xpct@tempd\COPY{0}{#2}\def#3{c}\else
+     \def\xpct@tempd{NE}\ifx\xpct@tempc\xpct@tempd\COPY{45}{#2}\def#3{c}\else
+     \def\xpct@tempd{N}\ifx\xpct@tempc\xpct@tempd\COPY{90}{#2}\def#3{c}\else
+     \def\xpct@tempd{NW}\ifx\xpct@tempc\xpct@tempd\COPY{135}{#2}\def#3{c}\else
+     \def\xpct@tempd{W}\ifx\xpct@tempc\xpct@tempd\COPY{180}{#2}\def#3{c}\else
+     \def\xpct@tempd{SW}\ifx\xpct@tempc\xpct@tempd\COPY{-135}{#2}
+     \def#3{c}\else
+     \def\xpct@tempd{S}\ifx\xpct@tempc\xpct@tempd\COPY{-90}{#2}\def#3{c}\else
+     \def\xpct@tempd{SE}\ifx\xpct@tempc\xpct@tempd\COPY{-45}{#2}\def#3{c}\else
+     \def\xpct@tempd{ENE}\ifx\xpct@tempc\xpct@tempd\COPY{22.5}{#2}
+     \def#3{c}\else
+     \def\xpct@tempd{NNE}\ifx\xpct@tempc\xpct@tempd\COPY{67.5}{#2}
+     \def#3{c}\else
+     \def\xpct@tempd{NNW}\ifx\xpct@tempc\xpct@tempd\COPY{112.5}{#2}
+     \def#3{c}\else
+     \def\xpct@tempd{WNW}\ifx\xpct@tempc\xpct@tempd\COPY{157.5}{#2}
+     \def#3{c}\else
+     \def\xpct@tempd{WSW}\ifx\xpct@tempc\xpct@tempd\COPY{-157.5}{#2}
+     \def#3{c}\else
+     \def\xpct@tempd{SSW}\ifx\xpct@tempc\xpct@tempd\COPY{-112.5}{#2}
+     \def#3{c}\else
+     \def\xpct@tempd{SSE}\ifx\xpct@tempc\xpct@tempd\COPY{-67.5}{#2}
+     \def#3{c}\else
+     \def\xpct@tempd{ESE}\ifx\xpct@tempc\xpct@tempd\COPY{-22.5}{#2}
+     \def#3{c}\else
+     \def\xpct@tempd{c}\ifx\xpct@tempc\xpct@tempd\COPY{0}{#2}\def#3{c}\else
+     \COPY{#1}{#2}\def#3{a}
+\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
+\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
+\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
+}
+\def\xpct@halfbox#1#2#3{%
+        \settowidth\xpct@bxw{#1}%
+        \settoheight\xpct@bxh{#1}%
+        \LENGTHDIVIDE{\xpct@bxw}{\unitlength}{#2}
+        \LENGTHDIVIDE{\xpct@bxh}{\unitlength}{#3}
+        \MULTIPLY{0.5}{#2}{#2}
+        \MULTIPLY{0.5}{#3}{#3}}
+\def\qCOS#1#2{%
+    \ifdim #1\p@<-135\p@
+         \ADD{360}{#1}{\xpct@angles}\qCOS{\xpct@angles}{#2}
+    \else
+       \ifdim #1\p@>225\p@ \SUBTRACT{#1}{360}{\xpct@angles}
+                           \qCOS{\xpct@angles}{#2}
+       \else
+          \ifdim #1\p@<-45\p@ \DEGREESCOT{#1}{#2}\MULTIPLY{-1}{#2}{#2}
+          \else
+             \ifdim #1\p@<45\p@ \COPY{1}{#2}
+             \else
+                \ifdim #1\p@<135\p@ \DEGREESCOT{#1}{#2}
+                \else
+                   \COPY{-1}{#2}
+                \fi
+             \fi
+          \fi
+       \fi
+    \fi
+}
+\def\qSIN#1#2{%
+    \ifdim #1\p@<-135\p@
+         \ADD{360}{#1}{\xpct@angles}\qSIN{\xpct@angles}{#2}
+    \else
+       \ifdim #1\p@>225\p@ \SUBTRACT{#1}{360}{\xpct@angles}
+                           \qSIN{\xpct@angles}{#2}
+       \else
+          \ifdim #1\p@<-45\p@ \COPY{-1}{#2}
+          \else
+             \ifdim #1\p@<45\p@ \DEGREESTAN{#1}{#2}
+             \else
+                \ifdim #1\p@<135\p@ \COPY{1}{#2}
+                \else
+                   \DEGREESTAN{#1}{#2}\MULTIPLY{-1}{#2}{#2}
+                \fi
+             \fi
+          \fi
+       \fi
+    \fi
+}
+\def\qUNITVECTOR(#1,#2)(#3,#4){%
+          \VECTORCOPY(#1,#2)(#3,#4)
+          \ABSVALUE{#4}{\xpct@Ydir}
+          \ifdim \xpct@Ydir\p@ < 0.00005\p@
+          \COPY{\xpct@maxnum}{\xpct@tan}
+          \else
+             \DIVIDE{#3}{#4}{\xpct@tan}
+          \fi
+          \ifdim #3\p@ > 0\p@
+             \ifdim #4\p@ > 0\p@
+                \ifdim #3\p@ > #4\p@
+                   \COPY{1}{#3}\DIVIDE{#4}{\xpct@tan}{#4}
+                \else
+                   \COPY{1}{#4}\COPY{\xpct@tan}{#3}
+                \fi
+                \else
+                   \ifdim #3\p@ > -#4\p@
+                      \COPY{1}{#3}\DIVIDE{-#4}{\xpct@tan}{#4}
+                   \else
+                      \COPY{-1}{#4}\MULTIPLY{-1}{\xpct@tan}{#3}
+                   \fi
+                \fi
+             \else
+                \ifdim #4\p@ > 0\p@
+                   \ifdim -#3\p@ > #4\p@
+                      \COPY{-1}{#3}\DIVIDE{-#4}{\xpct@tan}{#4}
+                   \else
+                      \COPY{1}{#4}\COPY{\xpct@tan}{#3}
+                   \fi
+                \else
+                   \ifdim #3\p@ > #4\p@
+                      \COPY{-1}{#4}\COPY{-\xpct@tan}{#3}
+                   \else
+                      \COPY{-1}{#3}\DIVIDE{#4}{\xpct@tan}{#4}
+                   \fi
+                \fi
+             \fi
+}
+\def\multicPut#1{\def\xpct@mPut{\cPut{#1}}\xpct@@mPut}
+\def\multirPut{\@ifstar
+       \xpct@multirPutstar%
+       \xpct@multirPut%
+       }
+\def\multiPut{\@ifstar
+       \xpct@multiPutstar%
+       \xpct@multiPut%
+       }
+\def\xpct@multirPutstar#1{\def\xpct@mPut{\rPut*{#1}}\xpct@@mPut}
+\def\xpct@multirPut#1{\def\xpct@mPut{\rPut{#1}}\xpct@@mPut}
+\def\xpct@multiPut{\@ifnextchar[{\xpct@@@multiPut}{\xpct@@multiPut}}
+\def\xpct@multiPutstar{\@ifnextchar[{\xpct@@@multiPutstar}{\xpct@@multiPutstar}}
+\def\xpct@@multiPut{\def\xpct@mPut{\Put}\xpct@@mPut}
+\def\xpct@@multiPutstar{\def\xpct@mPut{\Put*}\xpct@@mPut}
+\def\xpct@@@multiPut[#1]{\def\xpct@mPut{\Put[#1]}\xpct@@mPut}
+\def\xpct@@@multiPutstar[#1]{\def\xpct@mPut{\Put*[#1]}\xpct@@mPut}
+\def\xpct@@mPut(#1,#2)(#3,#4)#5#6{%
+       \COPY{#1}\xpct@@abscoorx\COPY{#2}\xpct@@abscoory
+       \setcounter{multiput}{0}%
+       \@whilenum\value{multiput}<#5 \do
+          {\xpct@mPut(\xpct@@abscoorx,\xpct@@abscoory){#6}
+           \ADD{#3}\xpct@@abscoorx\xpct@@abscoorx
+           \ADD{#4}\xpct@@abscoory\xpct@@abscoory
+           \stepcounter{multiput}}}
+\def\multicPlot#1#2(#3){\cPut{#1}(#3){#2}\@ifnextchar({\multicPlot{#1}{#2}}{}}
+\def\multirPlot{\@ifstar
+       \xpct@multirPlotstar%
+       \xpct@multirPlot%
+       }
+\def\multiPlot{\@ifstar
+             \xpct@multiPlotstar%
+             \xpct@multiPlot%
+             }
+\def\xpct@multirPlotstar#1#2(#3){\rPut*{#1}(#3){#2}
+       \@ifnextchar({\xpct@multirPlotstar{#1}{#2}}{}}
+\def\xpct@multirPlot#1#2(#3){\rPut{#1}(#3){#2}
+       \@ifnextchar({\xpct@multirPlot{#1}{#2}}{}}
+\def\xpct@multiPlotstar{%
+   \@ifnextchar[{\xpct@@@multiPlotstar}{\xpct@@multiPlotstar}}
+\def\xpct@multiPlot{\@ifnextchar[{\xpct@@@multiPlot}{\xpct@@multiPlot}}
+\def\xpct@@multiPlot#1(#2){\Put(#2){#1}\@ifnextchar({\xpct@@multiPlot{#1}}{}}
+\def\xpct@@@multiPlot[#1]#2(#3){\Put[#1](#3){#2}
+       \@ifnextchar({\xpct@@@multiPlot[#1]{#2}}{}}
+\def\xpct@@multiPlotstar#1(#2){\Put*(#2){#1}
+       \@ifnextchar({\xpct@@multiPlotstar{#1}}{}}
+\def\xpct@@@multiPlotstar[#1]#2(#3){\Put*[#1](#3){#2}
+       \@ifnextchar({\xpct@@@multiPlotstar[#1]{#2}}{}}
+\def\xLINE(#1)(#2){%
+         \refsysPoint(#1)(\xpct@xzero,\xpct@yzero)
+         \refsysPoint(#2)(\xpct@xone,\xpct@yone)
+         \xpct@strline(\xpct@xzero,\xpct@yzero)(\xpct@xone,\xpct@yone)}
+\let\strline\xLINE
+\def\xpct@strline{\@killglue\@ifundefined{segment}{\LINE}{\segment}}
+\def\xVECTOR(#1)(#2){%
+       \refsysPoint(#1)(\xpct@xzero,\xpct@yzero)
+       \refsysPoint(#2)(\xpct@xone,\xpct@yone)
+       \VECTOR(\xpct@xzero,\xpct@yzero)(\xpct@xone,\xpct@yone)}
+\def\xtrivVECTOR(#1)(#2){%
+       \refsysPoint(#1)(\xpct@xzeropoint,\xpct@yzeropoint)
+       \refsysPoint(#2)(\xpct@xonepoint,\xpct@yonepoint)
+       \xpct@xtrivVECTOR(\xpct@xzeropoint,\xpct@yzeropoint)(%
+                         \xpct@xonepoint,\xpct@yonepoint)}
+\def\arrowsize#1#2{\COPY{#1}{\xpct@xarrowlen}
+                   \COPY{#2}{\xpct@yarrowlen}}
+\def\xpct@xtrivVECTOR(#1)(#2){%
+         \xpct@strline(#1)(#2)
+         \VECTORSUB(#2)(#1)(\xpct@xarrow,\xpct@yarrow)
+         \VECTORNORM(\xpct@xarrow,\xpct@yarrow){\xpct@xarrowunit}
+         \DIVIDE{\xpct@xarrow}{\xpct@xarrowunit}{\xpct@xarrow}
+         \DIVIDE{\xpct@yarrow}{\xpct@xarrowunit}{\xpct@yarrow}
+         \xpct@arrow(#2){\xpct@xarrow}{\xpct@yarrow}}
+\def\xpct@arrow(#1)#2#3{\begingroup%
+             \referencesystem(#1)(#2,#3)(-#3,#2)
+             \Put(0,0){\setlength{\unitlength}{1pt}%
+                \begin{Picture}(0,0)(0,0)\cartesianreference
+                         \xLINE(-\xpct@xarrowlen,\xpct@yarrowlen)(0,0)
+                         \xLINE(0,0)(-\xpct@xarrowlen,-\xpct@yarrowlen)
+                \end{Picture}}\endgroup}
+\def\zerovector(#1){%
+   \UNITVECTOR(#1)(\xpct@dirx,\xpct@diry)
+   \SCALARVECTORPRODUCT{0.01}(\xpct@dirx,\xpct@diry)(\xpct@dirx,\xpct@diry)
+    \xVECTOR(0,0)(\xpct@dirx,\xpct@diry)}
+\def\zerotrivvector(#1){%
+   \UNITVECTOR(#1)(\xpct@dirx,\xpct@diry)
+   \SCALARVECTORPRODUCT{0.01}(\xpct@dirx,\xpct@diry)(\xpct@dirx,\xpct@diry)
+    \xtrivVECTOR(0,0)(\xpct@dirx,\xpct@diry)}
+\def\xline(#1,#2)#3{%
+       \xpct@xline(#1,#2){#3}
+   \xLINE(0,0)(\xpct@@xdir,\xpct@@ydir)}
+
+\def\xvector(#1,#2)#3{%
+   \ifdim #3 pt = 0 pt \zerovector(#1,#2)
+   \else
+       \xpct@xline(#1,#2){#3}
+   \xVECTOR(0,0)(\xpct@@xdir,\xpct@@ydir)
+   \fi}
+
+\def\xtrivvector(#1,#2)#3{%
+   \ifdim #3 pt = 0 pt \zerotrivvector(#1,#2)
+   \else
+       \xpct@xline(#1,#2){#3}
+   \xtrivVECTOR(0,0)(\xpct@@xdir,\xpct@@ydir)
+   \fi}
+\def\xpct@xline(#1,#2)#3{%
+         \ABSVALUE{#1}{\xpct@modx}
+         \ifdim \xpct@modx pt < 0.0001 pt
+              \COPY{0}{\xpct@@xdir}
+              \ifdim #2\p@>\z@ \COPY{#3}{\xpct@@ydir}
+              \else \MULTIPLY{-1}{#3}{\xpct@@ydir}
+              \fi
+         \else
+              \DIVIDE{#1}{\xpct@modx}{\xpct@@xdir}
+              \DIVIDE{#2}{\xpct@modx}{\xpct@@ydir}
+              \SCALARVECTORPRODUCT{#3}(\xpct@@xdir,\xpct@@ydir)(%
+                                       \xpct@@xdir,\xpct@@ydir)
+        \fi}
+\def\Polyline(#1)(#2){%
+         \xLINE(#1)(#2)\@ifnextchar({\Polyline(#2)}{}}
+\def\Polygon(#1,#2)(#3){%
+       \COPY{#1}{\xpct@firstx}\COPY{#2}{\xpct@firsty}
+                  \xpct@Polygon(#1,#2)(#3)}
+\def\xpct@Polygon(#1)(#2){%
+       \xLINE(#1)(#2)\@ifnextchar({\xpct@Polygon(#2)}{%
+       \xLINE(#2)(\xpct@firstx,\xpct@firsty)}}
+\def\regularPolygon{%
+       \@ifnextchar[{\xpct@regPolygon}{\xpct@@regPolygon}}
+\def\xpct@@regPolygon#1#2{\xpct@regPolygon[0]{#1}{#2}}
+\def\xpct@regPolygon[#1]#2#3{\begingroup%
+       \polarreference\degreesangles
+       \setcounter{xpct@counta}{0}%
+       \setcounter{xpct@countb}{#3}%
+       \DIVIDE{360}{#3}{\xpct@angles}
+       \COPY{#1}{\xpct@anglea}
+       \@whilenum\value{xpct@counta}<\value{xpct@countb} \do {%
+          \ADD{\xpct@anglea}{\xpct@angles}{\xpct@angleb}
+          \xLINE(#2,\xpct@anglea)(#2,\xpct@angleb)
+          \COPY{\xpct@angleb}{\xpct@anglea}\stepcounter{xpct@counta}}
+       \endgroup}
+\def\xpct@ctrlpoint(#1,#2)(#3,#4)(#5,#6)(#7,#8){%
+       \DETERMINANT(#3,#4;#7,#8)\xpct@detA
+       \DETERMINANT(#1,#2;#3,#4)\xpct@detB
+       \DETERMINANT(#5,#6;#7,#8)\xpct@detC
+       \DETERMINANT(#3,#7;\xpct@detB,\xpct@detC)\xpct@detD
+       \DETERMINANT(#4,#8;\xpct@detB,\xpct@detC)\xpct@detE
+       \ABSVALUE{\xpct@detA}{\xpct@@detA}
+       \ABSVALUE{\xpct@detD}{\xpct@@detD}
+       \ABSVALUE{\xpct@detE}{\xpct@@detE}
+       \ifdim \xpct@@detA pt<0.00005 pt
+          \ifdim \xpct@@detD pt<0.00005 pt %\xpct@detD pt=0 pt
+             \ifdim \xpct@@detE pt<0.00005 pt %\xpct@detE pt=0 pt
+                \ADD{#1}{#5}{\xpct@solx}\DIVIDE{\xpct@solx}{2}{\xpct@solx}
+                \ADD{#2}{#6}{\xpct@soly}\DIVIDE{\xpct@soly}{2}{\xpct@soly}
+             \fi\else
+             \xpct@WarnIncSys(#1,#2)(#5,#6)
+             \let\xpct@solx\undefined\let\xpct@soly\undefined
+          \fi
+       \else
+          \DIVIDE{\xpct@detD}{\xpct@detA}{\xpct@solx}
+          \DIVIDE{\xpct@detE}{\xpct@detA}{\xpct@soly}
+       \fi}
+\def\qCurve(#1){\@ifnextchar({\xpct@@qCurve(#1)}{\xpct@@@qCurve(#1)}}
+\def\xpct@@qCurve(#1)(#2)(#3)(#4){%
+       \refsysPoint(#1)(\xpct@@xzero,\xpct@@yzero)
+       \refsysPoint(#3)(\xpct@@xone,\xpct@@yone)
+       \refsysVector(#2)(\xpct@@dxzero,\xpct@@dyzero)
+       \refsysVector(#4)(\xpct@@dxone,\xpct@@dyone)
+       \xpct@qCurve(\xpct@@xzero,\xpct@@yzero)(\xpct@@dxzero,\xpct@@dyzero)(%
+                    \xpct@@xone,\xpct@@yone)%
+          (\xpct@@dxone,\xpct@@dyone)}
+\def\xpct@@@qCurve(#1)#2(#3)#4{%
+             \ifpolar
+                 \qCurve(#1)(1,#2)(#3)(1,#4)
+             \else
+             \DEGREESCOS{#2}{\xpct@angxz}
+             \DEGREESSIN{#2}{\xpct@angyz}
+             \DEGREESCOS{#4}{\xpct@angxo}
+             \DEGREESSIN{#4}{\xpct@angyo}
+             \qCurve(#1)(\xpct@angxz,\xpct@angyz)(#3)%
+                (\xpct@angxo,\xpct@angyo)\fi}
+\def\xpct@qCurve(#1)(#2)(#3)(#4){%
+       \xpct@ctrlpoint(#1)(#2)(#3)(#4)
+       \ifx\xpct@solx\undefined
+       \else
+          \qbezier(#1)(\xpct@solx,\xpct@soly)(#3)\fi\ignorespaces}
+\def\PlotQuadraticCurve(#1){%
+       \@ifnextchar({\xpct@PlotQuadraticCurve(#1)}{%
+                     \xpct@@PlotQuadraticCurve(#1)}}
+\def\xpct@PlotQuadraticCurve(#1)(#2)(#3)(#4){%
+       \qCurve(#1)(#2)(#3)(#4)
+       \@ifnextchar({\PlotQuadraticCurve(#3)(#4)}{}}
+\def\xpct@@PlotQuadraticCurve(#1)#2(#3)#4{%
+       \qCurve(#1){#2}(#3){#4}
+       \@ifnextchar({\PlotQuadraticCurve(#3){#4}}{}}
+\newvectorfunction{\xpct@circulararc}{%
+    \ifdegrees
+       \DEGREESCOS{\t}{\x}
+       \DEGREESSIN{\t}{\y}
+       \COPY{\x}{\Dy}
+       \MULTIPLY{-1}{\y}{\Dx}
+    \else
+       \COS{\t}{\x}
+       \SIN{\t}{\y}
+       \COPY{\x}{\Dy}
+       \MULTIPLY{-1}{\y}{\Dx}
+    \fi}
+\newvectorfunction{\xpct@hyperbolicarc}{%
+       \DIVIDE{1}{\t}{\xpct@invt}
+       \ADD{\t}{\xpct@invt}{\x}
+       \SUBTRACT{\t}{\xpct@invt}{\y}
+       \MULTIPLY{0.5}{\x}{\x}
+       \MULTIPLY{0.5}{\y}{\y}
+       \COPY{\x}{\Dy}
+       \COPY{\y}{\Dx}}
+\newvectorfunction{\xpct@parabolicarc}{%
+        \COPY{\t}{\y}
+        \COPY{1}{\Dy}
+        \SQUARE{\t}{\x}
+        \MULTIPLY{2}{\t}{\Dx}}
+\def\circularArc#1#2#3{\ellipticArc{#1}{#1}{#2}{#3}}
+\let\xArc\circularArc
+\def\ellipticArc#1#2#3#4{%
+    \begingroup
+      \cartesianreference
+       \changereferencesystem(0,0)(#1,0)(0,#2)
+       \PlotParametricFunction[\defaultplotdivs]{\xpct@circulararc}{#3}{#4}
+    \endgroup\ignorespaces}
+\def\Circle#1{\begingroup\radiansangles
+                     \circularArc{#1}{0}{\numberTWOPI}\endgroup\ignorespaces}
+\def\Ellipse#1#2{\begingroup\radiansangles
+                         \ellipticArc{#1}{#2}{0}{\numberTWOPI}
+                         \endgroup\ignorespaces}
+\def\lhyperbolicArc#1#2#3#4{%
+            \begingroup
+               \changereferencesystem(0,0)(-1,0)(0,1)
+               \rhyperbolicArc{#1}{#2}{#3}{#4}
+           \endgroup}
+\def\rhyperbolicArc#1#2#3#4{%
+              \xpct@hypluy{#2}{#3}{\xpct@uone}
+              \xpct@hypluy{#2}{#4}{\xpct@utwo}
+              \xpct@hyperbolicArc{#1}{#2}{\xpct@uone}{\xpct@utwo}}
+\def\xpct@hyperbolicArc#1#2#3#4{%
+    \begingroup
+      \cartesianreference
+      \changereferencesystem(0,0)(#1,0)(0,#2)
+       \PlotParametricFunction[\defaultplotdivs]{\xpct@hyperbolicarc}{#3}{#4}
+    \endgroup}
+\def\lHyperbola#1#2#3#4{%
+          \begingroup
+          \changereferencesystem(0,0)(-1,0)(0,1)
+          \rHyperbola{#1}{#2}{#3}{#4}
+          \endgroup}
+\def\rHyperbola#1#2#3#4{%
+       \def\xpct@hycons{}\xpct@hypconsist{#1}{#3}%
+          \ifx\xpct@hycons\undefined
+          \else
+              \xpct@hyperbolalastu{#1}{#2}{#3}{#4}
+              \DIVIDE{1}{\xpct@umax}{\xpct@umin}
+              \xpct@hyperbolicArc{#1}{#2}{\xpct@umin}{1}
+               \xpct@hyperbolicArc{#1}{#2}{1}{\xpct@umax}
+          \fi}
+\def\Hyperbola#1#2#3#4{%
+       \begingroup
+       \def\xpct@hycons{}\xpct@hypconsist{#1}{#3}%
+          \ifx\xpct@hycons\undefined
+          \else
+              \xpct@hyperbolalastu{#1}{#2}{#3}{#4}
+              \DIVIDE{1}{\xpct@umax}{\xpct@umin}
+               \xpct@hyperbolicArc{#1}{#2}{\xpct@umin}{1}
+               \xpct@hyperbolicArc{#1}{#2}{1}{\xpct@umax}
+             \changereferencesystem(0,0)(-1,0)(0,1)
+              \xpct@hyperbolicArc{#1}{#2}{\xpct@umin}{1}
+               \xpct@hyperbolicArc{#1}{#2}{1}{\xpct@umax}
+          \fi\endgroup}
+\def\xpct@hypconsist#1#2{%
+       \ifnum #1<#2\else\xpct@ErrHypCons
+                            \let\xpct@hycons\undefined\fi}
+\def\xpct@hyperbolalastu#1#2#3#4{%
+      \xpct@hyplux{#1}{#3}{\xpct@umaxx}
+      \xpct@hypluy{#2}{#4}{\xpct@umaxy}
+       \MIN{\xpct@umaxx}{\xpct@umaxy}{\xpct@umax}}
+\def \xpct@hyplux#1#2#3{%
+       \DIVIDE{#2}{#1}{\xpct@xa}
+       \SQUARE{\xpct@xa}{#3}
+       \SUBTRACT{#3}{1}{#3}
+       \SQUAREROOT{#3}{\xpct@@umaxx}
+       \ADD{\xpct@xa}{\xpct@@umaxx}{#3}}
+\def \xpct@hypluy#1#2#3{%
+       \DIVIDE{#2}{#1}{\xpct@xa}
+       \SQUARE{\xpct@xa}{#3}
+       \ADD{#3}{1}{#3}
+       \SQUAREROOT{#3}{\xpct@@umaxx}
+       \ADD{\xpct@xa}{\xpct@@umaxx}{#3}}
+\def\parabolicArc#1#2#3{%
+    \begingroup
+       \changereferencesystem(0,0)(#1,0)(0,1)
+       \PlotParametricFunction[\defaultplotdivs]{\xpct@parabolicarc}{#2}{#3}
+    \endgroup}
+\def\Parabola#1#2#3{%
+              \xpct@parabolalasty{#1}{#2}{#3}
+              \parabolicArc{#1}{-\xpct@maxy}{0}
+              \parabolicArc{#1}{0}{\xpct@maxy}}
+\def\xpct@parabolalasty#1#2#3{%
+       \ABSVALUE{#1}{\xpct@@maxy}
+       \DIVIDE{#2}{\xpct@@maxy}{\xpct@@maxy}
+       \SQUAREROOT{\xpct@@maxy}{\xpct@maxy}
+       \MIN{\xpct@maxy}{#3}{\xpct@maxy}}
+\def\PlotFunction{%
+       \@ifnextchar[{\xpct@iterateplotfunction}{\xpct@plotfunction}}
+\def\xpct@iterateplotfunction[#1]#2#3#4{%
+\setcounter{xpct@step}{0}%
+\COPY{#3}{\xpct@oldt}
+\SUBTRACT{#4}{#3}{\xpct@step}
+\DIVIDE{\xpct@step}{#1}{\xpct@step}
+\@whilenum \value{xpct@step}<#1 \do
+   {\ADD{\xpct@oldt}{\xpct@step}{\xpct@newt}
+   \xpct@plotfunction{#2}{\xpct@oldt}{\xpct@newt}
+   \stepcounter{xpct@step}%
+   \COPY\xpct@newt\xpct@oldt
+}}
+\def\xpct@plotfunction#1#2#3{\@killglue%
+       #1{#2}{\yzero}{\Dyzero}%
+       #1{#3}{\yone}{\Dyone}%
+       \PlotxyDyData(#2,\yzero,\Dyzero)(#3,\yone,\Dyone)
+       \ifx\xpct@solx\undefined
+       \ADD{#2}{#3}{\xpct@middt}
+       \MULTIPLY{0.5}{\xpct@middt}{\xpct@middt}
+       \xpct@plotfunction{#1}{#2}{\xpct@middt}
+       \xpct@plotfunction{#1}{\xpct@middt}{#3}
+       \fi}
+\def\PlotPointsOfFunction#1#2#3#4{%
+   \setcounter{xpct@step}{0}%
+\COPY{#3}{\xpct@oldt}
+\SUBTRACT{#4}{#3}{\xpct@step}
+\DIVIDE{\xpct@step}{#1}{\xpct@step}
+\ADD{#1}{1}{\xpct@lastt}
+\@whilenum \value{xpct@step}<\xpct@lastt \do
+   {\ADD{\xpct@oldt}{\xpct@step}{\xpct@newt}
+   #2{\xpct@oldt}{\xpct@oldy}{\xpct@oldDy}
+   \Put[c](\xpct@oldt,\xpct@oldy){\pointmark}
+   \stepcounter{xpct@step}%
+   \COPY\xpct@newt\xpct@oldt
+}}
+\def\PlotxyDyData(#1,#2,#3)(#4,#5,#6){%
+       \qCurve(#1,#2)(1,#3)(#4,#5)(1,#6)
+       \@ifnextchar({\PlotxyDyData(#4,#5,#6)}{}}
+\def\PlotParametricFunction{%
+    \@ifnextchar[{\xpct@iterateplotpfunction}{\xpct@plotpfunction}}
+\def\xpct@iterateplotpfunction[#1]#2#3#4{%
+\setcounter{xpct@step}{0}%
+\COPY{#3}{\xpct@oldt}
+\SUBTRACT{#4}{#3}{\xpct@step}
+\DIVIDE{\xpct@step}{#1}{\xpct@step}
+\@whilenum \value{xpct@step}<#1 \do
+   {\ADD{\xpct@oldt}{\xpct@step}{\xpct@newt}
+   \xpct@plotpfunction{#2}{\xpct@oldt}{\xpct@newt}
+   \stepcounter{xpct@step}%
+   \COPY\xpct@newt\xpct@oldt}\ignorespaces}
+\def\xpct@plotpfunction#1#2#3{%
+    \begingroup
+       #1{#2}\xzero\Dxzero\yzero\Dyzero
+       #1{#3}\xone\Dxone\yone\Dyone
+       \cartesianreference
+       \qCurve(\xzero,\yzero)(\Dxzero,\Dyzero)(\xone,\yone)(\Dxone,\Dyone)
+    \endgroup\ignorespaces}
+\def\cartesiangrid(#1,#2)(#3,#4){%
+       \begingroup\gridtrue\cartesianaxes(#1,#2)(#3,#4)\endgroup}
+\def\cartesianaxes(#1,#2)(#3,#4){%
+       \begingroup\cartesianreference
+          \GLOBALCOPY{#1}{\xpct@XZero}\GLOBALCOPY{#2}{\xpct@YZero}
+          \GLOBALCOPY{#3}{\xpct@XOne}\GLOBALCOPY{#4}{\xpct@YOne}
+          \iftics
+             \ticslabelsgridtrue
+          \else
+             \iflabels
+                \ticslabelsgridtrue
+             \else
+                \ifgrid
+                   \ticslabelsgridtrue
+          \fi\fi\fi
+          \ifticslabelsgrid
+             \xpct@plotticslabels
+          \fi
+          \xpct@plotaxes\endgroup}
+\def\plotxtic#1{%
+          \maketics
+          \xpct@adjticssize
+          \xpct@adjxorytics{#1}{0}
+          \xpct@printtic}
+\def\plotytic#1{%
+          \maketics
+          \xpct@adjticssize
+          \xpct@adjxorytics{#1}{1}
+          \xpct@printtic}
+\def\printxlabel#1#2{%
+          \xpct@adjticssize
+          \xpct@adjxorytics{#1}{0}
+          \xpct@printlabel{0}{#2}}
+\def\printylabel#1#2{%
+          \xpct@adjticssize
+          \xpct@adjxorytics{#1}{1}
+          \xpct@printlabel{1}{#2}}
+\def\printxticlabel#1#2{\plotxtic{#1}\printxlabel{#1}{#2}}
+\def\printyticlabel#1#2{\plotytic{#1}\printylabel{#1}{#2}}
+\def\plotxtics{\xpct@plottics{0}}
+\def\plotytics{\xpct@plottics{1}}
+\def\printxlabels{%
+   \@ifnextchar[{\xpct@printlabels{0}}{\xpct@printlabels{0}[-1]}}
+\def\printylabels{%
+   \@ifnextchar[{\xpct@printlabels{1}}{\xpct@printlabels{1}[-1]}}
+\def\printxticslabels{%
+   \@ifnextchar[{\xpct@printxticslabels}{\xpct@printxticslabels[-1]}}
+\def\printyticslabels{%
+   \@ifnextchar[{\xpct@printyticslabels}{\xpct@printyticslabels[-1]}}
+
+\def\xpct@plotaxes{\linethickness{\axesthickness}%
+               \pictcolor{\axescolor}
+               \ifinzeroaxes
+                  \xLINE(\xpct@XZero,0)(\xpct@XOne,0)
+                  \xLINE(0,\xpct@YZero)(0,\xpct@YOne)
+               \else
+                   \xLINE(\xpct@XZero,\xpct@YZero)(\xpct@XOne,\xpct@YZero)
+                   \xLINE(\xpct@XZero,\xpct@YZero)(\xpct@XZero,\xpct@YOne)
+               \fi}
+\def\xpct@plotticslabels{%
+       \xpct@adjticssize
+       \xpct@plotxticslabels\xpct@plotyticslabels}
+\def\xpct@plotxticslabels{%
+       \ifgrid\xpct@plotgrid\fi
+       \begingroup
+          \ifnum\xunitdivisions=1
+             \xpct@ticsinterval{\xpct@XZero}{\xpct@XOne}
+             \xpct@plotxtics
+          \else
+             \begingroup
+                \xpct@adjstics
+                \MULTIPLY{\secundaryyticssize}{\yunitdivisions}{\yticssize}
+                \makenolabels
+                \def\xunitdivisions{1}
+                \xpct@plotxticslabels
+             \endgroup
+             \def\xunitdivisions{1}
+             \xpct@plotxticslabels
+          \fi
+       \endgroup}
+\def\xpct@plotyticslabels{%
+       \begingroup
+          \ifnum\yunitdivisions=1
+             \xpct@ticsinterval{\xpct@YZero}{\xpct@YOne}
+             \xpct@plotytics
+          \else
+             \begingroup
+                \xpct@adjstics
+                \MULTIPLY{\secundaryxticssize}{\xunitdivisions}{\xticssize}
+                \makenolabels
+                \def\yunitdivisions{1}
+                \xpct@plotyticslabels
+             \endgroup
+             \def\yunitdivisions{1}
+             \xpct@plotyticslabels
+          \fi
+       \endgroup}
+\def\xpct@adjstics{%
+                \MULTIPLY{\xpct@XZero}{\xunitdivisions}{\xpct@XZero}
+                \MULTIPLY{\xpct@YZero}{\yunitdivisions}{\xpct@YZero}
+                \MULTIPLY{\xpct@XOne}{\xunitdivisions}{\xpct@XOne}
+                \MULTIPLY{\xpct@YOne}{\yunitdivisions}{\xpct@YOne}
+                \DIVIDE{1}{\xunitdivisions}{\xpct@xunit}
+                \DIVIDE{1}{\yunitdivisions}{\xpct@yunit}
+                \changereferencesystem(0,0)(\xpct@xunit,0)(0,\xpct@yunit)
+                \def\gridthickness{\secundarygridthickness}
+                \def\gridcolor{\secundarygridcolor}}
+\def\xpct@plotxtics{\xpct@maketics{\xpct@firstint}{\xpct@numtics}{0}}
+\def\xpct@plotytics{\xpct@maketics{\xpct@firstint}{\xpct@numtics}{1}}
+\def\xpct@maketics#1#2#3{%
+   \xpct@adjxorytics{#1}{#3}
+       \setcounter{xpct@counta}{0}%
+       \iflabels\setcounter{xpct@countb}{#1}\fi
+       \@whilenum \value{xpct@counta}<#2 \do {%
+          \iftics
+           \xpct@printtic
+           \fi
+           \iflabels
+              \highestlabel{\xpct@axeslabelattrib%
+                            $\axeslabelmathalphabet{1}$}%
+              \xpct@printlabel{#3}{\thexpct@countb}
+              \stepcounter{xpct@countb}%
+           \fi
+           \stepcounter{xpct@counta}%
+           \VECTORADD(\xpct@@xzero,\xpct@@yzero)(\xpct@@xincr,\xpct@@yincr)%
+           (\xpct@@xzero,\xpct@@yzero)
+           \VECTORADD(\xpct@@xone,\xpct@@yone)(\xpct@@xincr,\xpct@@yincr)%
+           (\xpct@@xone,\xpct@@yone)
+       }}
+\def\xpct@adjxorytics#1#2{%
+      \ifnum #2=0
+                \COPY{#1}{\xpct@@xzero}
+                \COPY{-\yticssize}{\xpct@@yzero}
+                \COPY{#1}{\xpct@@xone}
+                \COPY{\yticssize}{\xpct@@yone}
+                \COPY{1}{\xpct@@xincr}
+                \COPY{0}{\xpct@@yincr}
+                \ifinzeroaxes\else
+                   \ADD{\xpct@YZero}{\xpct@@yzero}{\xpct@@yzero}
+                   \ADD{\xpct@YZero}{\xpct@@yone}{\xpct@@yone}
+                \fi
+           \else
+                \COPY{#1}{\xpct@@yzero}
+                \COPY{-\xticssize}{\xpct@@xzero}
+                \COPY{#1}{\xpct@@yone}
+                \COPY{\xticssize}{\xpct@@xone}
+                \COPY{1}{\xpct@@yincr}
+                \COPY{0}{\xpct@@xincr}
+                \ifinzeroaxes\else
+                   \ADD{\xpct@XZero}{\xpct@@xzero}{\xpct@@xzero}
+                   \ADD{\xpct@XZero}{\xpct@@xone}{\xpct@@xone}
+                \fi
+       \fi}
+\def\xpct@printtic{\pictcolor{\ticscolor}
+             \linethickness{\ticsthickness}
+             \xLINE(\xpct@@xzero,\xpct@@yzero)(\xpct@@xone,\xpct@@yone)}
+\def\xpct@adjticssize{%
+       \LENGTHDIVIDE{\ticssize}{\unitlength}{\xpct@ticssize}
+       \LENGTHDIVIDE{\secundaryticssize}{\unitlength}{\xpct@sticssize}
+       \refsysxyVector(1,0)(\xpct@a,\xpct@b)
+          \VECTORNORM(\xpct@a,\xpct@b){\xpct@norm}
+          \DIVIDE{\xpct@ticssize}{\xpct@norm}{\xticssize}
+          \DIVIDE{\xpct@sticssize}{\xpct@norm}{\secundaryxticssize}
+          \DIVIDE{\axislabelsep}{\xpct@norm}{\xpct@xaxislabelsep}
+       \refsysxyVector(0,1)(\xpct@a,\xpct@b)
+          \VECTORNORM(\xpct@a,\xpct@b){\xpct@norm}
+          \DIVIDE{\xpct@ticssize}{\xpct@norm}{\yticssize}
+          \DIVIDE{\xpct@sticssize}{\xpct@norm}{\secundaryyticssize}
+          \DIVIDE{\axislabelsep}{\xpct@norm}{\xpct@yaxislabelsep}}
+\def\xpct@printlabel#1#2{%
+       \iftics
+          \ifnum #1=0
+             \ADD{\yticssize}{\xpct@yaxislabelsep}{\Pictlabelsep}
+          \else
+             \ADD{\xticssize}{\xpct@xaxislabelsep}{\Pictlabelsep}
+          \fi
+       \else
+          \ifnum #1=0
+             \COPY{\xpct@yaxislabelsep}{\Pictlabelsep}
+          \else
+             \COPY{\xpct@xaxislabelsep}{\Pictlabelsep}
+          \fi
+       \fi
+    \ifinzeroaxes
+       \ifnum\thexpct@countb=0
+       \else
+          \ifnum #1=0
+             \rPut*{\xpct@xlblpos}(\xpct@@xzero,0){%
+                \xpct@axeslabelattrib%
+                \ensuremath{\axeslabelmathalphabet{#2}}}
+          \else
+             \rPut*{\xpct@ylblpos}(0,\xpct@@yzero){%
+                \xpct@axeslabelattrib%
+                \ensuremath{\axeslabelmathalphabet{#2}}}
+          \fi
+       \fi
+    \else
+       \ifnum #1=0
+          \rPut*{\xpct@xlblpos}(\xpct@@xzero,\xpct@YZero){%
+             \xpct@axeslabelattrib%
+             \ensuremath{\axeslabelmathalphabet{#2}}}
+       \else
+          \rPut*{\xpct@ylblpos}(\xpct@XZero,\xpct@@yzero){%
+             \xpct@axeslabelattrib%
+             \ensuremath{\axeslabelmathalphabet{#2}}}
+       \fi
+    \fi}
+\def\xlabelpos#1{\xpct@convtoang{#1}{\xpct@xlblpos}{\xpct@CorR}}
+\def\ylabelpos#1{\xpct@convtoang{#1}{\xpct@ylblpos}{\xpct@CorR}}
+\def\xpct@printxticslabels[#1]#2#3#4{%
+       \plotxtics{#2}{#3}{#4}\printxlabels[#1]{#2}{#3}{#4}}
+\def\xpct@printyticslabels[#1]#2#3#4{%
+       \plotytics{#2}{#3}{#4}\printylabels[#1]{#2}{#3}{#4}}
+\def\xpct@plottics#1#2#3#4{%
+      \COPY{#2}{\xpct@ticcoor}
+      \@whiledim\xpct@ticcoor\p@<#4\p@ \do {%
+      \ifnum #1=0
+         \plotxtic{\xpct@ticcoor}
+      \else
+         \plotytic{\xpct@ticcoor}
+      \fi
+      \ADD{#3}{\xpct@ticcoor}{\xpct@ticcoor}
+      }
+      \ifdim\xpct@ticcoor\p@>#4\p@
+      \else
+         \ifnum #1=0
+            \plotxtic{\xpct@ticcoor}
+         \else
+            \plotytic{\xpct@ticcoor}
+         \fi
+      \fi}
+\def\xpct@printlabels#1[#2]#3#4#5{%
+      \COPY{#3}{\xpct@ticcoor}
+      \@whiledim\xpct@ticcoor\p@<#5\p@ \do {%
+         \ifnum #2=-1
+            \COPY{\xpct@ticcoor}{\xpct@Ticcoor}
+         \else
+            \ROUND[#2]{\xpct@ticcoor}{\xpct@Ticcoor}
+         \fi
+         \xpct@prtlbl{#1}
+         \ADD{#4}{\xpct@ticcoor}{\xpct@ticcoor}}
+      \ifdim\xpct@ticcoor\p@>#5\p@
+      \else
+         \ifnum #2=-1
+            \COPY{\xpct@ticcoor}{\xpct@Ticcoor}
+         \else
+            \ROUND[#2]{\xpct@ticcoor}{\xpct@Ticcoor}
+         \fi
+         \xpct@prtlbl{#1}
+      \fi}
+\def\xpct@prtlbl#1{%
+        \ifinzeroaxes
+        \ifdim \xpct@ticcoor\p@=\z@\else
+            \xpct@adjticssize
+            \xpct@adjxorytics{\xpct@ticcoor}{#1}
+            \xpct@printlabel{#1}{\xpct@Ticcoor}
+         \fi
+         \else
+            \xpct@adjticssize
+            \xpct@adjxorytics{\xpct@ticcoor}{#1}
+            \xpct@printlabel{#1}{\xpct@Ticcoor}\fi}
+\def\xpct@plotgrid{%
+       \xpct@ticsinterval{\xpct@XZero}{\xpct@XOne}
+       \begingroup\setcounter{xpct@counta}{0}%
+          \pictcolor{\gridcolor}\linethickness{\gridthickness}
+          \COPY{\xpct@firstint}{\xpct@grid}
+          \@whilenum\value{xpct@counta}<\xpct@numtics\do{
+             \xLINE(\xpct@grid,\xpct@YZero)(\xpct@grid,\xpct@YOne)
+             \ADD{1}{\xpct@grid}{\xpct@grid}
+             \stepcounter{xpct@counta}}\endgroup
+       \xpct@ticsinterval{\xpct@YZero}{\xpct@YOne}
+       \begingroup\setcounter{xpct@counta}{0}%
+          \pictcolor{\gridcolor}\linethickness{\gridthickness}
+          \COPY{\xpct@firstint}{\xpct@grid}
+          \@whilenum\value{xpct@counta}<\xpct@numtics\do{
+             \xLINE(\xpct@XZero,\xpct@grid)(\xpct@XOne,\xpct@grid)
+             \ADD{1}{\xpct@grid}{\xpct@grid}
+             \stepcounter{xpct@counta}}\endgroup}
+\def\xpct@ticsinterval#1#2{\TRUNCATE[0]{#1}{\xpct@firstint}
+                       \TRUNCATE[0]{#2}{\xpct@lastint}
+                       \SUBTRACT{\xpct@lastint}{\xpct@firstint}{\xpct@numtics}
+                       \ADD{\xpct@numtics}{1}{\xpct@numtics}}
+\def\polargrid#1#2{%
+       \begingroup
+       \polarreference
+       \FLOOR{#1}{\xpct@rint}
+       \MULTIPLY{\xpct@rint}{\runitdivisions}{\xpct@rdivs}
+       \DIVIDE{1}{\runitdivisions}{\rincr}
+       \COPY{0}{\xpct@radius}
+       \setcounter{xpct@counta}{1}%
+       \begingroup
+          \pictcolor{\gridcolor}
+          \linethickness{\gridthickness}
+          \@whilenum \value{xpct@counta}<\xpct@rdivs\do {%
+             \ADD{\rincr}{\xpct@radius}{\xpct@radius}
+             \Ellipse{\xpct@radius}{\xpct@radius}
+             \stepcounter{xpct@counta}}%
+          \pictcolor{\axescolor}
+          \linethickness{\axesthickness}
+          \Ellipse{\xpct@rint}{\xpct@rint}
+       \endgroup
+       \COPY{0}{\xpct@angle}
+       \DIVIDE{\numberTWOPI}{#2}{\xpct@angincr}
+       \setcounter{xpct@counta}{0}%
+       \pictcolor{\gridcolor}
+       \linethickness{\gridthickness}
+       \@whilenum \value{xpct@counta}<#2 \do {%
+          \xLINE(0,0)(#1,\xpct@angle)
+          \iflabels
+             \COPY{\axislabelsep}{\Pictlabelsep}
+             \MULTIPLY{2}{\thexpct@counta}{\xpct@arc}
+             \xpct@polarlabel{#1}{\xpct@arc}{#2}\fi
+          \ADD{\xpct@angincr}{\xpct@angle}{\xpct@angle}
+          \stepcounter{xpct@counta}}%
+        \pictcolor{\axescolor}
+        \linethickness{\axesthickness}
+        \xLINE(0,0)(#1,0)
+       \iflabels
+          \highestlabel{\xpct@axeslabelattrib$\axeslabelmathalphabet{1}$}
+          \multiPut*[\xpct@rlblpos](1,0)(1,0){\xpct@rint}{%
+             \ADD{\value{multiput}}{1}{\xpct@lbl}
+             \xpct@axeslabelattrib%
+             \ensuremath{\axeslabelmathalphabet{\xpct@lbl}}}%
+       \fi
+       \endgroup}
+
+\def\rlabelpos#1{\xpct@convtoang{#1}{\xpct@rlblpos}{\xpct@CorR}}
+\def\degreespolarlabels{\def\xpct@polarlabel{\xpct@degreeslabel}}
+\def\radianspolarlabels{\def\xpct@polarlabel{\xpct@radianslabel}}
+\def\xpct@degreeslabel#1#2#3{%
+       \FRACTIONSIMPLIFY{#2}{#3}\xpct@num\xpct@den
+       \MULTIPLY{\xpct@num}{180}{\xpct@degangle}
+       \DIVIDE{\xpct@degangle}{\xpct@den}{\xpct@degangle}
+       \cPut{\xpct@degangle}(#1,\xpct@angle){%
+          \xpct@axeslabelattrib%
+          \ensuremath{\axeslabelmathalphabet{\xpct@degangle^\mathrm{o}}}}}
+\def\xpct@radianslabel#1#2#3{%
+          \RADtoDEG{\xpct@angle}{\xpct@angles}
+          \cPut{\xpct@angles}(#1,\xpct@angle){%
+             \xpct@axeslabelattrib%
+             \ensuremath{\axeslabelmathalphabet
+                 {\xpct@prtfracrad{#2}{#3}}}}}
+\def\xpct@prtfracrad#1#2{%
+       \FRACTIONSIMPLIFY{#1}{#2}\xpct@num\xpct@den
+          \ifnum \xpct@num = 0 0
+          \else
+             \ifnum \xpct@num = 1
+                \ifnum \xpct@den = 1 \pi
+                \else \pi/\xpct@den
+                \fi
+             \else \xpct@num\pi/\xpct@den
+             \fi
+          \fi}
+\axesthickness=1pt
+\def\axescolor{black}
+\def\axeslabelcolor{\axescolor}
+\def\axeslabelsize{\small}
+\def\axeslabelmathversion{normal}
+\def\axeslabelmathalphabet{\mathrm}
+\xlabelpos{-90}
+\ylabelpos{180}
+\rlabelpos{bbr}
+\def\axislabelsep{0.1}
+\def\ticscolor{\axescolor}
+\ticsthickness=1pt
+\ticssize=4pt
+\secundaryticssize=2pt
+\gridthickness=0.4pt
+\def\gridcolor{gray}
+\secundarygridthickness=0.2pt
+\def\secundarygridcolor{lightgray}
+\def\xunitdivisions{1}
+\def\yunitdivisions{1}
+\def\runitdivisions{1}
+\def\xpct@polarlabel{\xpct@radianslabel}
+\def\Pictlabelsep{0.1}
+\defaultPut{c}
+\referencesystem(0,0)(1,0)(0,1)
+\cartesianreference
+\arrowsize{5}{2}
+\def\defaultplotdivs{8}
+\def\pointmarkdiam{0.1}
+\def\pointmark{\circle*{\pointmarkdiam}}
+\def\draftPictures{%
+       \drafttrue
+       \def\cPut##1(##2,##3)##4{}
+       \def\xpct@@Put(##1)##2{}
+       \def\xpct@@Putstar[##1](##2)##3{}
+       \def\xpct@@@Put[##1](##2)##3{}
+       \def\defaultPut##1{\def\xpct@defaultPut{\cPut}}
+       \def\xpct@@mPut(##1,##2)(##3,##4)##5##6{}
+       \def\xpct@PUT##1(##2,##3)##4{}
+       \def\xLINE(##1)(##2){}
+       \def\xtrivVECTOR(##1)(##2){}
+       \def\xVECTOR(##1)(##2){}
+       \def\zerovector(##1){}
+       \def\zerotrivvector(##1){}
+       \def\xline(##1,##2)##3{}
+       \def\xvector(##1,##2)##3{}
+       \def\xtrivvector(##1,##2)##3{}
+       \def\xpct@regPolygon[##1]##2##3{}
+       \def\xpct@@qCurve(##1)(##2)(##3)(##4){}
+       \def\xpct@PlotQuadraticCurve(##1)(##2)(##3)(##4){%
+           \@ifnextchar({\PlotQuadraticCurve(##3)(##4)}{}}
+       \def\xpct@@PlotQuadraticCurve(##1)##2(##3)##4{%
+           \@ifnextchar({\PlotQuadraticCurve(##3){##4}}{}}
+       \def\circularArc##1##2##3{}
+       \def\ellipticArc##1##2##3##4{}
+       \def\Ellipse##1##2{}
+       \def\Circle##1{}
+       \def\xpct@hyperbolicArc##1##2##3##4{}
+       \def\lHyperbola##1##2##3##4{}
+       \def\rHyperbola##1##2##3##4{}
+       \def\Hyperbola##1##2##3##4{}
+       \def\rhyperbolicArc##1##2##3##4{}
+       \def\lhyperbolicArc##1##2##3##4{}
+       \def\parabolicArc##1##2##3{}
+       \def\Parabola##1##2##3{}
+       \def\PlotPointsOfFunction##1##2##3##4{}
+       \def\xpct@iterateplotfunction[##1]##2##3##4{}
+       \def\xpct@plotfunction##1##2##3{}
+       \def\xpct@iterateplotpfunction[##1]##2##3##4{}
+       \def\xpct@plotpfunction##1##2##3{}
+       \def\cartesianaxes(##1,##2)(##3,##4){}
+       \def\cartesiangrid(##1,##2)(##3,##4){}
+       \def\plotxtic##1{}
+       \def\plotytic##1{}
+       \def\printxlabel##1##2{}
+       \def\printylabel##1##2{}
+       \def\printxticlabel##1##2{}
+       \def\printyticlabel##1##2{}
+       \def\plotxtics##1##2##3{}
+       \def\plotytics##1##2##3{}
+       \def\xpct@printlabels##1[##2]##3##4##5{}
+       \def\polargrid##1##2{}
+}
+\ifdraft
+   \draftPictures
+\fi
+\InputIfFileExists{xpicture.cfg}{\xpct@Infocfg}{\xpct@Infonocfg}
+%% 
+%%
+%% End of file `xpicture.sty'.