bxeepic (18may13)

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

2 files changed, 676 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/bxeepic/bxdpxp2e.def b/Master/texmf-dist/tex/latex/bxeepic/bxdpxp2e.def
new file mode 100644
index 00000000000..b1fde9c7352
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/bxeepic/bxdpxp2e.def
@@ -0,0 +1,10 @@
+\typeout{%
+!!!!!!!!!!!!!!!!!!!! WARNING !!!!!!!!!!!!!!!!!!!!^^J%
+Loading the file 'bxdpxp2e.def' in 'pict2e.cfg' should be^^J%
+no longer needed, because the recent pict2e package (>=0.2y)^^J%
+properly supports dvipdfmx.^^J%
+If your pict2e is of older version, then update pict2e, or^^J%
+load 'bxeepic' package (with 'dvipdfmx' driver option) in^^J%
+place of 'pict2e' package.^^J%
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!}
+\endinput
diff --git a/Master/texmf-dist/tex/latex/bxeepic/bxeepic.sty b/Master/texmf-dist/tex/latex/bxeepic/bxeepic.sty
new file mode 100644
index 00000000000..f450f154b26
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/bxeepic/bxeepic.sty
@@ -0,0 +1,666 @@
+%
+% bxeepic.sty
+%
+
+%% package declarations
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{bxeepic}[2013/04/28 v0.2]
+
+%% preparation
+\def\bxpz@ee@pkgname{bxeepic}
+\def\bxpz@ee@error{\PackageError\bxpz@ee@pkgname}
+\def\bxpz@ee@warn{\PackageWarning\bxpz@ee@pkgname}
+% (errors)
+\def\bxpz@warn@peald#1{\bxpz@ee@warn
+  {Option '#1' ignored (pict2e already loaded)}}
+\def\bxpz@warn@wnpnt{\bxpz@ee@warn
+  {Poly-line commands need at least two vertices.}}
+\def\bxpz@warn@wnstr{\bxpz@ee@warn
+  {Blank lines due to too low stretch value.}}
+% (globals)
+\newif\ifbxpz@injoin
+\newif\ifbxpz@dashset
+\newif\ifbxpz@eepic@dotl
+\newif\ifbxpz@uselbl
+\newif\ifbxpz@first
+\chardef\bxpz@boxa=8
+
+%% public parameters
+%%<*> \dashlinestretch
+\def\dashlinestretch{0}
+%%<*> \drawlinestretch
+\def\drawlinestretch{0}
+%%<*> \maxovaldiam
+\newdimen\maxovaldiam \maxovaldiam=40pt
+%%<*> \epictopgridlabelsep
+\def\epictopgridlabelsep{2mm}
+%%<*> \epicbottomgridlabelsep
+\def\epicbottomgridlabelsep{2\unitlength}
+%%<*> \epicsidegridlabelsep
+\def\epicsidegridlabelsep{\spacewidth}
+%% other initial settings
+\AtEndOfPackage{%
+  \drawlines
+  \eepicdottedlines
+  \def\bxpz@tmpa{20pt}%
+  %\ifx\maxovalrad\bxpz@tmpa \def\maxovalrad{.5\maxovaldiam}\fi
+}
+
+%% internal parameters
+\def\bxpz@dashlen@drawline{10pt}
+\def\bxpz@setdash@phase{0}
+\def\bxpz@dflt@linecap{0}
+\def\bxpz@dflt@linejoin{0}
+
+%% dvipdfmx option
+\IfFileExists{p2e-dvipdfmx.def}{}{%else
+  % if pict2e lacks of proper support of dvipdfmx
+  \@ifpackageloaded{pict2e}{}{%else
+    \DeclareOption{dvipdfmx}{%
+      \PassOptionsToPackage{dvipdfm}{pict2e}%
+      \def\bxpz@begin@picture@hook{\let\pdfliteral\bxpz@pdfliteral}%
+      \def\bxpz@pdfliteral##1{\special{pdf:literal ##1}}%
+      \let\bxpz@org@@picture\@picture
+      \def\@picture{\bxpz@begin@picture@hook \bxpz@org@@picture}%
+    }%
+  }%
+}
+%% option handling
+\newif\ifbxpz@safe
+\DeclareOption{safe}{\bxpz@safetrue}
+\DeclareOption{nosafe}{\bxpz@safefalse}
+% other options are passed to pict2e
+\@ifpackageloaded{pict2e}{%
+  \DeclareOption*{\bxpz@warn@peald\CurrentOption}%
+}{%else
+  \DeclareOption*{\PassOptionsToPackage{\CurrentOption}{pict2e}}%
+}%
+\ExecuteOptions{nosafe}
+\ProcessOptions*
+
+% load pict2e if not done
+\@ifpackageloaded{pict2e}{}{\RequirePackage{pict2e}}
+
+% pretend that epic & eepic are already loaded
+\@namedef{ver@epic.sty}{2100/01/01}
+\@namedef{ver@eepic.sty}{2100/01/01}
+
+%%------ mode-dependent stuffs
+
+%% exits unless in right mode
+\ifnum\pIIe@mode<\@ne
+  \endinput\expandafter\fi
+
+%% 
+\ifcase\pIIe@mode\relax
+  \or
+  \def\bxpz@setdash@op{setdash}
+  \or
+  \def\bxpz@setdash@op{d}
+\fi
+\def\bxpz@beginarray@op{[}
+\def\bxpz@endarray@op{]}
+
+%%------ Poly-line commands
+
+%% \bxpz@asdraw / \bxpz@asjoin / \bxpz@asmode
+\def\bxpz@asdraw{\chardef\bxpz@lm@invoke\z@}
+\def\bxpz@asjoin{\chardef\bxpz@lm@invoke\@ne}
+\def\bxpz@asmode{\chardef\bxpz@lm@invoke\tw@}
+
+%%<*> \drawline/\dottedline/\dashline
+% \dottedline[CHAR]{DOTGAP}(X1,Y1)...(XN,YN)
+% \dashline[STRETCH]{DASHLEN}[DOTGAP](X1,Y1)...(XN,YN)
+%   * DOTGAP is ignored
+% \drawline[STRETCH](X1,Y1)...(XN,YN)
+%   * switches to \dashline in case of negative STRETCH
+\def\drawline{\bxpz@asdraw\bxpz@drawl@a}
+\def\dottedline{\bxpz@asdraw\bxpz@dotl@a}
+\def\dashline{\bxpz@asdraw\bxpz@dashl@a}
+\def\bxpz@drawl@a{\@testopt\bxpz@drawl@b\drawlinestretch}
+\def\bxpz@drawl@b[#1]{%
+  \ifnum#1<\z@ \def\bxpz@nxt{\bxpz@path{\bxpz@dp@drawl@x{#1}}}%
+  \else \let\bxpz@nxt\bxpz@drawl@c
+  \fi \bxpz@nxt}
+\def\bxpz@drawl@c{\bxpz@path{\bxpz@dp@drawl}}
+\def\bxpz@dashl@a{\@testopt\bxpz@dashl@b\dashlinestretch}
+\def\bxpz@dashl@b[#1]#2{\@testopt{\bxpz@dashl@c{#1}{#2}}{}}
+\def\bxpz@dashl@c#1#2[#3]{\bxpz@path{\bxpz@dp@dashl{#1}{#2}}}
+\def\bxpz@dotl@a{\@testopt\bxpz@dotl@b{}}
+\def\bxpz@dotl@b[#1]#2{\bxpz@path{\bxpz@dp@dotl{#1}{#2}}}
+%\def\path{\bxpz@asdraw\bxpz@path{}}
+%% \bxpz@path{<dash-pattern>}
+\def\bxpz@path#1{%
+  #1\ifcase\bxpz@lm@invoke
+    \expandafter\bxpz@polyline
+    \or \expandafter\bxpz@join@start
+    \or \expandafter\bxpz@dash@mode
+  \fi}
+
+%% \bxpz@polyline
+% Same as \polyline in pict2e, except that \bxpz@stroke@graph is
+% used instead of \pIIe@strokeGraph.
+\def\bxpz@polyline(#1,#2){%
+  \@killglue
+  \pIIe@moveto{#1\unitlength}{#2\unitlength}%
+  \@ifnextchar\lp@r{\bxpz@polyline@a}%
+   {\ifnum\bxpz@lm@invoke=\z@ \bxpz@warn@wnpnt \fi \ignorespaces}}
+\def\bxpz@polyline@a(#1,#2){%
+  \pIIe@lineto{#1\unitlength}{#2\unitlength}%
+  \@ifnextchar\lp@r{\bxpz@polyline@a}{\bxpz@stroke@graph\ignorespaces}}
+
+%%<*> drawjoin / dottedjoin / dashjoin environment
+% \begin{dottedjoin}[CHAR]{DOTGAP}...\end{dottedjoin}
+% \begin{dashjoin}[STRETCH]{DASHLEN}[DOTGAP]...\end{dashjoin}
+% \begin{drawjoin}[STRETCH]...\end{drawjoin}
+\def\drawjoin{\bxpz@asjoin\bxpz@drawl@a}
+\def\dottedjoin{\bxpz@asjoin\bxpz@dotl@a}
+\def\dashjoin{\bxpz@asjoin\bxpz@dashl@a}
+\def\bxpz@endjoin{\bxpz@join@end\aftergroup\bxpz@join@finale}
+\let\enddrawjoin\bxpz@endjoin
+\let\enddottedjoin\bxpz@endjoin
+\let\enddashjoin\bxpz@endjoin
+
+%%<*> \jput(X,Y){something}
+\def\jput(#1,#2){%
+  \ifbxpz@injoin
+    \xdef\bxpz@g@join@last{(#1,#2)}%
+    \xdef\bxpz@g@join@path{\bxpz@g@join@path\bxpz@g@join@last}%
+  \fi \put(#1,#2)}
+\let\bxpz@g@join@last\relax
+\let\bxpz@g@join@path\@empty
+
+%% \bxpz@join@start
+\def\bxpz@join@start{%
+  \bxpz@renew@join \let\bxpz@dp@join\bxpz@dp
+  \edef\bxpz@wholewidth@join{\the\@wholewidth}%
+  \bxpz@dp@clear \bxpz@injointrue \ignorespaces}
+
+%% \bxpz@join@end
+\def\bxpz@join@end{\bxpz@renew@join}
+
+%% \bxpz@join@finale
+\def\bxpz@join@finale{%
+  \ifbxpz@injoin\else
+    \global\let\bxpz@g@join@last\relax
+    \global\let\bxpz@g@join@path\@empty
+  \fi \ignorespaces}
+
+%%<*> \flushjoin
+\def\flushjoin{%
+  \bxpz@flush@join \global\let\bxpz@g@join@last\relax}
+%% \bxpz@renew@join
+\def\bxpz@renew@join{%
+  \bxpz@flush@join
+  \ifx\bxpz@g@join@last\relax\else
+    \global\let\bxpz@g@join@path\bxpz@g@join@last \fi}
+\def\bxpz@flush@join{%
+  \ifx\bxpz@g@join@path\@empty\else
+    \bgroup \bxpz@asjoin
+      \@wholewidth=\bxpz@wholewidth@join \let\bxpz@dp\bxpz@dp@join
+      \expandafter\bxpz@polyline\bxpz@g@join@path
+    \egroup \global\let\bxpz@g@join@path\@empty
+  \fi}
+
+%%<*> \drawlines / \dottedlines / \dashlines
+\def\drawlines{\bxpz@asmode\bxpz@drawl@a}
+\def\dottedlines{\bxpz@asmode\bxpz@dotl@a}
+\def\dashlines{\bxpz@asmode\bxpz@dashl@a}
+
+%% \bxpz@dash@mode
+\def\bxpz@dash@mode{%
+  \let\bxpz@dp@mode\bxpz@dp \bxpz@dp@clear \ignorespaces}
+
+%%<*>\path(X1,Y1)..(Xn,Yn)
+\def\path{\bxpz@asdraw \bxpz@polyline}
+
+%%------ Dash-pattern generator
+
+% A dash-pattern generator defines \bxpz@dp to be
+% {<PS dash array>}{<dash flag>}
+% where <dash flag> means: 0 = normal; 1 = ordinary dotted line,
+% line-width adjustment is needed; 2 = character dotted line.
+
+%% \bxpz@dp@drawl
+\def\bxpz@dp@drawl{\let\bxpz@dp\bxpz@dp@drawl@val}
+%% \bxpz@dp@dotl{<IGNORED>}{<dot-gap>}
+\def\bxpz@dp@dotl#1#2{\bxpz@dp@start
+  \bxpz@addto@dp@nums{\@wholewidth}{#2\unitlength}%
+  \gdef\bxpz@g@dpflag{1}\bxpz@dp@end}
+%% \bxpz@dp@drawl@x{<stretch>}
+% For \drawline with negative stretch.
+\def\bxpz@dp@drawl@x#1{\bxpz@dp@dashl@sub{%
+  \@tempcnta=#1\relax\multiply\@tempcnta\tw@
+  \@tempdima=\bxpz@dashlen@drawline}}
+%% \bxpz@dp@dashl{<stretch>}{<dash-length>}
+\def\bxpz@dp@dashl#1#2{\bxpz@dp@dashl@sub{%
+  \@tempcnta=#1\relax\advance\@tempcnta-100 
+  \@tempdima=#2\unitlength}}
+% \bxpz@dp@dashl@sub
+% Here dash gap length is calculated so that 'ink ratio' in resulted
+% lines equals the value derived from the given stretch value.
+% ink ratio:     (blank)0.0    0.5     1.0(solid)
+% \drawline stretch:   -100 .. -50 ..    0
+% \dashline stretch:   -100 ..   0 ..  100
+\def\bxpz@dp@dashl@sub#1{\bxpz@dp@start
+  #1% here \@tempcnta is adjusted in range -200..0
+  \ifnum\@tempcnta<\z@
+    \ifnum\@tempcnta>-200 %
+      \@tempdimb=-\@tempcnta\@tempdima
+      \advance\@tempcnta200 \divide\@tempdimb\@tempcnta
+      \bxpz@addto@dp@nums{\@tempdima}{\@tempdimb}%
+    \else % 'blank' lines
+      \bxpz@warn@wnstr \bxpz@addto@dp@nums{\z@}{1000pt}%
+    \fi
+  \fi % if \@tempcnta >=0 then do nothing (solid lines)
+  \bxpz@dp@end}
+% some internal stuffs
+\def\bxpz@dp@start{%
+  \bgroup \global\let\bxpz@g@dp\@empty \gdef\bxpz@g@dpflag{0}}
+\def\bxpz@dp@end{
+  \egroup \edef\bxpz@dp{{\bxpz@g@dpflag}{\bxpz@g@dp}}}
+\def\bxpz@dp@drawl@val{{}{0}}
+\def\bxpz@addto@dp@nums#1#2{%
+  \bgroup \@tempdima#1\relax \@tempdimb#2\relax
+    \xdef\bxpz@g@dp{%
+     \bxpz@g@dp\strip@pt\@tempdima\space\strip@pt\@tempdimb\space}%
+  \egroup}
+\def\bxpz@dp@clear{\let\bxpz@dp\relax}
+
+%%------ Strokes with dash-pattern in effect
+
+%% pict2e original \pIIe@strokeGraph
+\def\bxpz@pIIe@strokeGraph{\begingroup \@tempswafalse\pIIe@drawGraph}
+
+% \bxpz@stroke@graph
+\def\bxpz@stroke@graph{\begingroup \bxpz@draw@graph}
+\def\bxpz@draw@graph{%
+  \ifx\bxpz@dp\relax \let\bxpz@dp\bxpz@dp@mode \fi
+  \ifx\bxpz@dp\bxpz@dp@drawl@val \let\bxpz@setdash\@empty
+  \else
+    \ifbxpz@eepic@dotl \roundcap \fi
+    \bxpz@set@dp\bxpz@dp
+    \ifnum \bxpz@dpflag=\@ne \bxpz@adj@linewidth \fi
+    \xdef\bxpz@setdash{\bxpz@beginarray@op\space\bxpz@dpary
+      \bxpz@endarray@op\space\bxpz@setdash@phase\space
+      \bxpz@setdash@op\space}%
+  \fi
+  \edef\x{\pIIe@debug@comment\space\pIIe@scale@PTtoBP}%
+  \edef\x{\x\space\bxpz@setdash\strip@pt\@wholewidth\space
+    \pIIe@setlinewidth@op}%
+  \edef\y{\pIIe@stroke@op}%
+  \expandafter\pIIe@code\expandafter{%
+   \expandafter\x\the\pIIe@GRAPH\space\y}%
+  \global\pIIe@GRAPH{}\xdef\pIIe@CPx{}\xdef\pIIe@CPy{}%
+  \endgroup
+  \let\bxpz@dp\relax}
+
+%% \bxpz@set@dp\DP
+\def\bxpz@set@dp#1{\expandafter\bxpz@set@dp@a#1}
+\def\bxpz@set@dp@a#1#2{%
+  \def\bxpz@dpary{#2}\def\bxpz@dpflag{#1}}
+
+\def\bxpz@adj@linewidth{%
+  \ifdim\@wholewidth<0.2pt \@wholewidth=2\@wholewidth
+  \else\ifdim\@wholewidth<1pt
+    \@wholewidth=0.75\@wholewidth \advance\@wholewidth0.25pt
+  \fi\fi}
+
+%%------ Circles & ovals
+
+% pict2e's original \@arc command
+\let\bxpz@pIIe@arc\@arc
+
+%% \@arc{<diam>}{<s_angle>}{<e_angle>}
+% If the arguments obey the format shown above then passes them
+% to \bxpz@eepic@arc; otherwise passes them to \bxpz@pIIe@arc.
+\def\@arc{\@ifnextchar[{\@arc}{\bxpz@arc@a}}
+\def\bxpz@arc@a#1{%
+  \def\bxpz@argi{#1}\futurelet\bxpz@tok\bxpz@arc@b}
+\def\bxpz@arc@b{%
+  \ifx\bxpz@tok\bgroup \expandafter\bxpz@arc@c
+  \else \bxpz@pIIe@arc\bxpz@argi \fi}
+\def\bxpz@arc@c#1{%
+  \def\bxpz@doargii{\bxpz@do{#1}}\futurelet\bxpz@tok\bxpz@arc@d}
+\def\bxpz@arc@d{%
+  \ifx\bxpz@tok\bgroup \expandafter\bxpz@arc@f
+  \else \expandafter\bxpz@arc@e \fi}
+\def\bxpz@arc@e{%
+  \bxpz@pIIe@arc\bxpz@argi \let\bxpz@do\@empty\bxpz@doargii}
+\def\bxpz@arc@f{%
+  \def\bxpz@do##1{\bxpz@eepic@arc\bxpz@argi{##1}}\bxpz@doargii}
+
+%% \bxpz@eepic@arc{<diam>}{<s_angle>}{<e_angle>}
+\def\bxpz@eepic@arc#1#2#3{%
+  \bgroup
+    \@tempdima=#2\p@ \@tempdimb=#3\p@ \bxpz@conv@arc@param
+    \@tempdimc=#1\unitlength \divide\@tempdimc\tw@
+    \xdef\bxpz@g@tmpa{%
+      {\the\@tempdimc}{\strip@pt\@tempdima}{\strip@pt\@tempdimb}}%
+  \egroup
+  \if@tempswa
+    \def\bxpz@do{\pIIe@arc{\z@}{\z@}}%
+    \pIIe@moveto\z@\z@ \expandafter\bxpz@do\bxpz@g@tmpa
+    \pIIe@closepath\pIIe@fillGraph
+  \else
+    \def\bxpz@do{\pIIe@arc[1]{\z@}{\z@}}%
+    \expandafter\bxpz@do\bxpz@g@tmpa \pIIe@strokeGraph
+  \fi}
+
+%% \bxpz@conv@arc@param
+% Converts tpic degree arguments (s, e) to pict2e ones (S, E); values
+% of (\@tempdima, \@tempdimb) are changed from (s, e) to (S, E).
+% Let (S', E') = -(180/pi)(s, e); then:
+% * if e - s >= 2pi (ie. S' - 360 >= E') then (S, E) = (0, 360)
+%   so that a whole circle is drawn;
+% * otherwise, adjust S' and E' to values in range [0, 360), and then
+%   if S' < E' then decrement E' by 360, since in tpic an arc is
+%   always drawn in clockwise direction and thus S' >= E' must hold.
+% Note: After scaling by 180/pi, degree values are rounded to multiples
+% of 2^(-10). This rounding eliminates errors in the case of 'common
+% angles' such as 15deg, while generally it enlarges the maximum possible
+% error by factor about two.
+\def\bxpz@conv@arc@param{%
+%\typeout{BEFORE:\the\@tempdima/\the\@tempdimb}%
+  \bxpz@conv@arc@param@a\@tempdima \bxpz@conv@arc@param@a\@tempdimb
+  \@tempdimc\@tempdima \dimen@360\p@ \advance\@tempdimc-\dimen@
+  \ifdim \@tempdimb>\@tempdimc
+    \bxpz@conv@arc@param@b\@tempdima \bxpz@conv@arc@param@b\@tempdimb
+    \ifdim \@tempdima<\@tempdimb \advance\@tempdimb-\dimen@ \fi
+  \else \@tempdima\z@ \@tempdimb\dimen@ \fi
+%\typeout{AFTER : \the\@tempdima/\the\@tempdimb}%
+}
+\def\bxpz@conv@arc@param@a#1{%
+  #1=57.29577951#1\advance#132sp \divide#164\multiply#1-64\relax}
+\def\bxpz@conv@arc@param@b#1{%
+  \@whiledim#1>\z@ \do{\advance#1-\dimen@}%
+  \@whiledim#1<\z@ \do{\advance#1\dimen@}}%
+
+%%<*> \ellipse[*]{<x_diam>}{<y_diam>}
+\def\ellipse{%
+  \@ifstar{\begingroup\@tempswatrue\bxpz@ellipse}%
+   {\begingroup\@tempswafalse\bxpz@ellipse}}
+\def\bxpz@ellipse#1#2{%
+    \@tempdima=#1\unitlength\@tempdimb=#2\unitlength
+    \ifdim\@tempdima<\z@ \@tempdima\z@ \fi
+    \ifdim\@tempdimb<\z@ \@tempdimb\z@ \fi
+    \divide\@tempdima\tw@ \divide\@tempdimb\tw@
+    \bxpz@ellipse@a
+    \if@tempswa \pIIe@fillGraph \else \pIIe@strokeGraph \fi
+  \endgroup}
+\def\bxpz@ellipse@a{%
+  \buttcap \@ovxx\@tempdima \@ovyy\@tempdimb
+  \@ovdx=0.55228475\@ovxx \@ovdy=0.55228475\@ovyy
+  \pIIe@moveto\@ovxx\z@
+  \pIIe@curveto\@ovxx\@ovdy\@ovdx\@ovyy\z@\@ovyy
+  \pIIe@curveto{-\@ovdx}\@ovyy{-\@ovxx}\@ovdy{-\@ovxx}\z@
+  \pIIe@curveto{-\@ovxx}{-\@ovdy}{-\@ovdx}{-\@ovyy}\z@{-\@ovyy}%
+  \pIIe@curveto\@ovdx{-\@ovyy}\@ovxx{-\@ovdy}\@ovxx\z@
+  \pIIe@closepath}
+
+
+%%------ Chaikin spline curves
+
+%%<*> \spline
+% Same as \polyline in pict2e, except that \bxpz@stroke@graph is
+% used instead of \pIIe@strokeGraph.
+\def\spline{\bxpz@firsttrue\bxpz@spline@a}
+\def\bxpz@spline@a(#1,#2){%
+  \@killglue \@xdim=#1\unitlength \@ydim=#2\unitlength
+  \pIIe@moveto\@xdim\@ydim
+  \@ifnextchar\lp@r{\bxpz@spline@b}%
+   {\ifnum \bxpz@warn@wnpnt \ignorespaces}}
+\def\bxpz@spline@b(#1,#2){%
+  % M1:previous midpoint   (\@ovdx,\@ovdy)
+  % P1:previous point      (\@xdim,\@ydim)
+  % M2:current midpoint    (\@ovxx,\@ovyy)
+  % P2:current point       (\@tempdima,\@tempdimb)
+  \@tempdima=#1\unitlength\@tempdimb=#2\unitlength
+  \@ovxx\@tempdima \advance\@ovxx\@xdim \divide\@ovxx\tw@
+  \@ovyy\@tempdimb \advance\@ovyy\@ydim \divide\@ovyy\tw@
+  \ifbxpz@first
+    \pIIe@lineto\@ovxx\@ovyy \bxpz@firstfalse
+  \else\bgroup
+    % quadratic Bezier curve M1--P1--M2
+    \pIIe@bezier@QtoC\@ovdx\@xdim\@ovdx
+    \pIIe@bezier@QtoC\@ovdy\@ydim\@ovdy
+    \pIIe@bezier@QtoC\@ovxx\@xdim\@xdim
+    \pIIe@bezier@QtoC\@ovyy\@ydim\@ydim
+    \pIIe@curveto\@ovdx\@ovdy\@xdim\@ydim\@ovxx\@ovyy
+  \egroup\fi
+  \@ovdx\@ovxx \@ovdy\@ovyy
+  \@xdim\@tempdima \@ydim\@tempdimb
+  \@ifnextchar\lp@r{\bxpz@spline@b}{\bxpz@spline@c}}
+\def\bxpz@spline@c{%
+  \pIIe@lineto\@xdim\@ydim
+  \bxpz@stroke@graph\ignorespaces}
+
+
+%%------ Functions not dependent on special features
+
+%%<*> \allinesthickness
+% In pict2e \linethickness setting applies to all kinds of lines.
+% For better compatibility with eepic, \allinesthickness changes
+% (without much aim) the LaTeX "line fonts".
+\def\allinethickness{\bxpz@thicklinefont \linethickness}
+\def\bxpz@thicklinefont{\let\@linefnt\tenlnw\let\@circlefnt\tencircw}
+
+%%<*> \Thicklines
+% Sets line-width to 1.5 times the width of \thicklines.
+\def\Thicklines{\bxpz@thicklinefont \@wholewidth\fontdimen8\tenlnw
+  \linethickness{1.5\@wholewidth}}
+
+%%<*> \picsquare
+% Not of much use.
+\def\picsquare{%
+  \hskip-\@halfwidth
+  \vrule\@width\@wholewidth\@height\@halfwidth\@depth\@halfwidth\relax}
+
+%%<*> \multiputlist
+% \multiputlist(X,Y)(DX,DY)[tbrl]{ITEM,...}
+\def\multiputlist(#1,#2)(#3,#4){%
+  \@xdim=#1\unitlength \@ydim=#2\unitlength \@killglue
+  \@ifnextchar[{\bxpz@multiputlist@a{#3}{#4}}%
+    {\bxpz@multiputlist@a{#3}{#4}[]}}
+\def\bxpz@multiputlist@a#1#2[#3]#4{%
+  \@for\bxpz@x:={#4}\do{%
+    \raise\@ydim\hb@xt@\z@{\kern\@xdim
+      \@imakepicbox(0,0)[#3]\bxpz@x \hss}%
+    \advance\@xdim#1\unitlength \advance\@ydim#2\unitlength}%
+  \ignorespaces}
+
+%%<*> \matrixput
+% \matrixput(X,Y)(DX1,DY1){N1}(DX2,DY2){N2}{ITEM}
+\def\matrixput(#1,#2)(#3,#4)#5(#6,#7)#8#9{%
+  \bgroup \@xdim\z@ \@ydim\z@
+    \setbox\bxpz@boxa\hbox{%
+      \@multicnt=#8\relax
+      \@whilenum\@multicnt>\z@\do{%
+        \raise\@ydim\hb@xt@\z@{\kern\@xdim #9\hss}%
+        \advance\@xdim#6\unitlength \advance\@ydim#7\unitlength
+        \advance\@multicnt\m@ne}}%
+    \@xdim=#1\unitlength \@ydim=#2\unitlength \@killglue
+    \@multicnt=#5\relax
+    \@whilenum\@multicnt>\z@\do{%
+      \raise\@ydim\hb@xt@\z@{\kern\@xdim \copy\bxpz@boxa\hss}%
+      \advance\@xdim#3\unitlength \advance\@ydim#4\unitlength
+      \advance\@multicnt\m@ne}%
+  \egroup \ignorespaces}
+
+%%<*> \grid
+% \grid(W,H)(DW,DH)[X0,Y0]
+\def\grid(#1,#2)(#3,#4){%
+  \@ovxx=#1\unitlength \@ovyy=#2\unitlength 
+  \edef\bxpz@gridx{#3}\edef\bxpz@gridy{#4}%
+  \@ifnextchar[{\bxpz@grid@a}{\bxpz@grid@a[,]}}
+\def\bxpz@grid@a[#1,#2]{%
+  \@killglue \let\spacewidth\@ovri
+  \setbox\bxpz@boxa\hbox{\space}\@ovri=\wd\bxpz@boxa
+  \@tempdimc=\z@ \@ovdx=\bxpz@gridx\unitlength
+  \ifx @#1@\bxpz@uselblfalse
+  \else \@tempdima=#1\p@ \bxpz@uselbltrue \fi
+  \@tempdimb\@ovxx \advance\@tempdimb.5\@ovdx \divide\@tempdimb\@ovdx
+  \@tempcnta\@tempdimb \advance\@tempcnta\@ne
+  \@whilenum\@tempcnta>\z@ \do{%
+    \hb@xt@\z@{\kern\@tempdimc \kern-\@halfwidth
+      \vrule\@height\@ovyy\@width\@wholewidth \hss}%
+    \ifbxpz@uselbl \bxpz@makelbl
+      \setbox\bxpz@boxa\hb@xt@\z@{\hss\copy\bxpz@boxa\hss}%
+      \hb@xt@\z@{\kern\@tempdimc
+        \vtop{\kern\epicbottomgridlabelsep\copy\bxpz@boxa}\hss}%
+      \raise\@ovyy\hb@xt@\z@{\kern\@tempdimc
+        \vbox{\copy\bxpz@boxa\kern\epictopgridlabelsep}\hss}%
+    \fi
+    \advance\@tempdima\bxpz@gridx\p@ \advance\@tempdimc\@ovdx
+    \advance\@tempcnta\m@ne}%
+  \@tempdimc=\z@ \@ovdy=\bxpz@gridy\unitlength 
+  \ifx @#2@\bxpz@uselblfalse
+  \else \@tempdima=#2\p@ \bxpz@uselbltrue \fi
+  \@tempdimb\@ovyy \advance\@tempdimb.5\@ovdy \divide\@tempdimb\@ovdy
+  \@tempcnta\@tempdimb \advance\@tempcnta\@ne
+  \@whilenum\@tempcnta>\z@ \do{%
+    \raise\@tempdimc\hb@xt@\z@{%
+      \vrule\@height\@halfwidth\@depth\@halfwidth\@width\@ovxx \hss}%
+    \ifbxpz@uselbl \bxpz@makelbl
+      \setbox\bxpz@boxa\vbox to\z@{\vss\copy\bxpz@boxa\vss}%
+      \raise\@tempdimc\hb@xt@\z@{%
+        \hss\copy\bxpz@boxa\kern\epicsidegridlabelsep}%
+      \raise\@tempdimc\hb@xt@\z@{\kern\@ovxx
+        \kern\epicsidegridlabelsep\copy\bxpz@boxa\hss}%
+    \fi
+    \advance\@tempdima\bxpz@gridy\p@ \advance\@tempdimc\@ovdy
+    \advance\@tempcnta\m@ne}%
+  \let\spacewidth\@undefined
+  \ignorespaces}
+\def\bxpz@makelbl{%
+  \edef\bxpz@tmpa{\noexpand\bxGridLabelForm{\strip@pt\@tempdima}}%
+  \setbox\bxpz@boxa\hbox{\bxpz@tmpa}}
+
+%<+> \bxGridLabelForm{<real>}
+% It must output the formatted string for value <real>. which is
+% given as numerals (e.g. 72 or 10.333333).
+% The default implementation uses decimal strings of the value
+% rounded to integers.
+\def\bxGridLabelForm#1{\@tempdima#1\p@ \advance\@tempdima.5\p@
+  \expandafter\bxpz@gridlabelform@a\the\@tempdima\@nil}
+\def\bxpz@gridlabelform@a#1.#2\@nil{#1}
+
+%%<*> \putfile{<filename>}{<general_text>}
+\def\putfile#1#2{%
+  \def\bxpz@body{#2}%
+  \let\bxpz@dofile\bxpz@putfile@a \let\bxpz@dofile@skipped\relax
+  \bxpz@dofile@ifexists{#1}}
+\let\bxpz@fhread\@inputcheck
+\def\bxpz@putfile@a#1{%
+  \openin\bxpz@fhread=#1\relax \let\bxpz@tmpa\relax
+  \ifeof\bxpz@fhread\else \expandafter\bxpz@putfile@b \fi
+  \closein\bxpz@fhread \ignorespaces}
+\def\bxpz@putfile@b{%
+  \read\bxpz@fhread to\bxpz@line
+  \ifx\bxpz@line\bxpz@line@par \let\bxpz@line\@empty \fi
+  \edef\bxpz@line{\bxpz@line\space\space}%
+  \expandafter\bxpz@putfile@c\bxpz@line
+  \ifeof\bxpz@fhread\else \expandafter\bxpz@putfile@b \fi}
+\def\bxpz@putfile@c#1 {%
+  \ifx @#1@\relax \else
+    \ifx\bxpz@tmpa\relax \def\bxpz@tmpa{#1}%
+    \else \put(\bxpz@tmpa,#1){\bxpz@body}
+          \let\bxpz@tmpa\relax
+    \fi \expandafter\bxpz@putfile@c
+  \fi}
+\def\bxpz@line@par{\par}
+
+%% \bxpz@dofile@ifexists
+\newif\ifbxpz@dofile@ok
+\def\bxpz@InputIfFileExists#1#2{%
+  \IfFileExists{#1}{\bxpz@dofile@ifex@a\bxpz@dofile{#1}}}
+\let\bxpz@ltx@InputIfFileExists\InputIfFileExists
+\def\bxpz@dofile@ifexists#1{%
+  \let\InputIfFileExists\bxpz@InputIfFileExists
+  \bxpz@dofile@okfalse \@iinput{#1}%
+  \ifbxpz@dofile@ok\else
+    \bxpz@dofile@ifex@a \bxpz@dofile@skipped \fi}
+\def\bxpz@dofile@ifex@a{\bxpz@dofile@oktrue
+  \let\InputIfFileExists\bxpz@ltx@InputIfFileExists}
+
+%%------
+\ifbxpz@safe        %----<*safe>
+
+%%<*> \[no]eepicdottedlines
+% No-op in safe mode.
+\let\eepicdottedlines\relax
+\let\noeepicdottedlines\relax
+
+\else               %----<*!safe>
+
+%%<*> \[no]eepicdottedlines
+\let\eepicdottedlines\bxpz@eepic@dotltrue
+\let\noeepicdottedlines\bxpz@eepic@dotlfalse
+
+%% \bxpz@redefine@linestyle\LSCMD{<attr>}{<val>}
+\def\bxpz@redefine@linestyle#1#2#3{%
+  \expandafter\bxpz@redefine@linestyle@a
+   \csname bxpz@raw@\expandafter\@gobble\string#1\expandafter\endcsname
+   \csname bxpz@#2\expandafter\endcsname
+   \csname bxpz@LS/#2/#3\expandafter\endcsname
+   \csname bxpz@SLS/#2\endcsname #1{#2}{#3}}
+\def\bxpz@redefine@linestyle@a#1#2#3#4#5#6#7{%
+  % \[bxpz@raw@LSCMD]\[bxpz@<attr>]\[bxpz@LS/<attr>/<val>]
+  % \[bxpz@SLS/<attr>]\LSCMD{<attr>}{<val>}
+  \let#1#5\let#3#5\def#5{\def#2{#7}#3\aftergroup#4}%
+  \def#4{\csname bxpz@LS/#6/#2\endcsname}}
+% redefine linestyle commands
+\bxpz@redefine@linestyle\buttcap{lcap}{0}
+\bxpz@redefine@linestyle\roundcap{lcap}{1}
+\bxpz@redefine@linestyle\squarecap{lcap}{2}
+\bxpz@redefine@linestyle\miterjoin{ljoin}{0}
+\bxpz@redefine@linestyle\roundjoin{ljoin}{1}
+\bxpz@redefine@linestyle\beveljoin{ljoin}{2}
+
+% default values of states
+\let\bxpz@lcap\bxpz@dflt@linecap
+\let\bxpz@ljoin\bxpz@dflt@linejoin
+
+%% patch to \pIIe@circle
+% \buttcap moved one-level outside.
+\def\pIIe@circle#1{%
+  \buttcap
+  \begingroup
+  \pIIe@qcircle[1]\z@{#1}\pIIe@qcircle  \@ne{#1}%
+  \pIIe@qcircle  \tw@{#1}\pIIe@qcircle\thr@@{#1}%
+  \endgroup}
+
+
+\fi                 %----</safe>
+\endinput
+%%------
+%
+% List of epic features not contained in pict2e
+%
+%\multiputlist(X,Y)(DX,DY)[tbrl]{ITEM,...}
+%\matrixput(X,Y)(DX1,DY1){N1}(DX2,DY2){N2}{ITEM}
+%\grid(W,H)(DW,DH)[X0,Y0]
+%\dottedline[CHAR]{DOTGAP}(X1,Y1)...(XN,YN)
+%\dashline[STRETCH]{DASHLEN}[DOTGAP](X1,Y1)...(XN,YN)
+%\drawline[STRETCH](X1,Y1)...(XN,YN)
+%\jput(X,Y){ITEM}
+%\begin{dottedjoin}[C]{G} ... \end{dottedjoin}
+%\begin{dashjoin}[S]{D}[G] ... \end{dashjoin}
+%\begin{drawjoin}[S] ... \end{drawjoin}
+%\picsquare
+%\putfile{FILE}
+%\dashlinestretch
+%\drawlinestretch
+%
+% List of eepic features not contained in pict2e
+%
+%\maxovaldimen (for \oval)
+%\allinethickness
+%\Thicklines
+%\path(X1,Y1)..(Xn,Yn)
+%\spline(X1,Y1)..(Xn,Yn)
+%\ellipse[*]{XDIAM}{YDIAM}
+%\arc{DIAM}{SANG}{EANG}    *angle in radian, +ve = clockwise
+%\filltype{FILL} / \blacken / \whiten / \shade
+%
+%% EOF