%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% eepic-supplement to  %%% eepic Version 1.1b < Febrary 7, 1988 >  %%%
%                      %%%                 Written by Conrad Kwok  %%%
% Version 0.1 < 26 Feb 1993 >
%                   by IWAKUMA Tetsuo (bear@hashi1.civil.tohoku.ac.jp)
%
\typeout{%
Supplement to Eepic and LaTeX. Version 0.1 <26 Feb 1993>}
% to adjust shading pattern
\def\shade{\@ifnextchar[{\shade@special}{\@killglue\special{sh}\ignorespaces}}
\def\shade@special[#1]{\@killglue\special{sh #1}\ignorespaces}
%
% to add shaded area with/without lines or curves
\def\shadingwithoutoutline{\gdef\@fp@special{ip}\gdef\@ar@special{ia}}
\def\outlinedshading{\gdef\@fp@special{fp}\gdef\@ar@special{ar}}
\outlinedshading % default
%
\def\@absspdrawline(#1,#2)(#3,#4){%
    \special{pn \the\@gphlinewidth}%
    \@tempdimc=#1\relax
    \@tempcnta \@tempdimc\relax \advance\@tempcnta 2368 \divide\@tempcnta 4736
    \@tempdimc=#2\relax
    \@tempcntb -\@tempdimc\relax \advance\@tempcntb -2368 \divide\@tempcntb 4736
    \@paspecial{\the\@tempcnta}{\the\@tempcntb}%
    \@tempdimc=#3\relax
    \@tempcnta\@tempdimc\relax \advance\@tempcnta 2368 \divide\@tempcnta 4736
    \@tempdimc=#4\relax
    \@tempcntb -\@tempdimc\relax \advance\@tempcntb -2368 \divide\@tempcntb 4736
    \@paspecial{\the\@tempcnta}{\the\@tempcntb}%
    \special{\@fp@special}%
    \ignorespaces
}
%
\def\@linespecial#1#2{%
       \special{pn \the\@gphlinewidth}%
       \special{pa 0 0}%
       \special{pa #1 #2}%
       \special{\@fp@special}%
}
%
\def\@path(#1,#2){%
    \@tempdima #1\unitlength
    \@tempdimb #2\unitlength
    \@tempcnta \@tempdima \advance\@tempcnta 2368 \divide\@tempcnta 4736
    \@tempcntb -\@tempdimb \advance\@tempcntb -2368 \divide\@tempcntb 4736
    \@paspecial{\the\@tempcnta}{\the\@tempcntb}%
    \@ifnextchar ({\@path}{\special{\@fp@special}}%
}
%
\def\@circlespecial#1#2#3#4{%
       \special{pn \the\@gphlinewidth}%
       \special{\@ar@special 0 0 #1 #2 #3 #4}
}
%
\def\@qcircspecial#1#2#3#4#5{\special{\@ar@special #1 #2 #3 #3 #4 #5}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\endinput
%%
%% an example
%%
\documentstyle[epic,eepic,eepicsup]{article}
\textheight=20cm
\newcommand{\bs}{{\tt\symbol{'134}}}
\begin{document}
\title{Supplement to eepic.sty}
\author{an author}
\date{26 Feb 1993}
\maketitle\thispagestyle{empty}
\unitlength=.25mm
\begin{description}
\item[{\tt {\bs}shade[n]} : ] to change shading pattern,
where {\tt n} can be a number between 0 and 1.
\begin{center}
\begin{picture}(192,149)(205,-5)
\thinlines
\shade\put(320,63){\circle{40}}
\shade[0.1]\path (300,115)(312,139)(352,127)(352,95)(328,95)(300,115)
\shade[0.7]\path (376,95)(375.6,96.4)(375,97.6)(374.4,98.4)(373.8,98.8)
(373,99)(372.2,98.8)(371.2,98.4)(370.2,97.6)(369.2,96.4)
(368,95)(365.7,91.6)(363.5,88.3)(361.5,85)(359.7,81.7)
(358,78.5)(356.5,75.3)(355.1,72.2)(353.9,69.1)(352.9,66)
(352,63)(350.4,58.9)(349.1,55.2)(348.2,51.7)(347.7,48.4)
(347.5,45.5)(347.7,42.8)(348.2,40.5)(349.1,38.4)(350.4,36.5)
(352,35)(356.9,33.4)(361.4,32.1)(365.7,31.2)(369.8,30.7)
(373.5,30.5)(377,30.7)(380.1,31.2)(383,32.1)(385.7,33.4)
(388,35)(390.1,39.1)(391.8,43.2)(393.3,47.1)(394.6,50.8)
(395.5,54.5)(396.2,58)(396.5,61.5)(396.6,64.8)(396.5,67.9)
(396,71)(395.3,73.9)(394.2,76.8)(392.9,79.5)(391.4,82)
(389.5,84.5)(387.4,86.8)(384.9,89.1)(382.2,91.2)(379.3,93.1)(376,95)
\end{picture}
\end{center}

\item[{\tt {\bs}shadingwithoutoutline} : ] to remove outlines
of the shaded areas.
\shadingwithoutoutline
\begin{center}
\begin{picture}(192,149)(205,-5)
\thinlines
\shade\put(320,63){\circle{40}}
\shade[0.8]\path (300,115)(312,139)(352,127)(352,95)(328,95)(300,115)
\shade[0.2]\path (376,95)(375.6,96.4)(375,97.6)(374.4,98.4)(373.8,98.8)
(373,99)(372.2,98.8)(371.2,98.4)(370.2,97.6)(369.2,96.4)
(368,95)(365.7,91.6)(363.5,88.3)(361.5,85)(359.7,81.7)
(358,78.5)(356.5,75.3)(355.1,72.2)(353.9,69.1)(352.9,66)
(352,63)(350.4,58.9)(349.1,55.2)(348.2,51.7)(347.7,48.4)
(347.5,45.5)(347.7,42.8)(348.2,40.5)(349.1,38.4)(350.4,36.5)
(352,35)(356.9,33.4)(361.4,32.1)(365.7,31.2)(369.8,30.7)
(373.5,30.5)(377,30.7)(380.1,31.2)(383,32.1)(385.7,33.4)
(388,35)(390.1,39.1)(391.8,43.2)(393.3,47.1)(394.6,50.8)
(395.5,54.5)(396.2,58)(396.5,61.5)(396.6,64.8)(396.5,67.9)
(396,71)(395.3,73.9)(394.2,76.8)(392.9,79.5)(391.4,82)
(389.5,84.5)(387.4,86.8)(384.9,89.1)(382.2,91.2)(379.3,93.1)(376,95)
\outlinedshading
\whiten\put(326,57){\circle{40}}
\end{picture}
\end{center}

\item[{\tt {\bs}outlinedshading} : ] for outlined shadings.
\outlinedshading
\begin{center}
\begin{picture}(192,149)(205,-5)
\thinlines
\shade\put(320,63){\circle{40}}
\shade[0.6]\path (300,115)(312,139)(352,127)(352,95)(328,95)(300,115)
\shade[0.5]\path (376,95)(375.6,96.4)(375,97.6)(374.4,98.4)(373.8,98.8)
(373,99)(372.2,98.8)(371.2,98.4)(370.2,97.6)(369.2,96.4)
(368,95)(365.7,91.6)(363.5,88.3)(361.5,85)(359.7,81.7)
(358,78.5)(356.5,75.3)(355.1,72.2)(353.9,69.1)(352.9,66)
(352,63)(350.4,58.9)(349.1,55.2)(348.2,51.7)(347.7,48.4)
(347.5,45.5)(347.7,42.8)(348.2,40.5)(349.1,38.4)(350.4,36.5)
(352,35)(356.9,33.4)(361.4,32.1)(365.7,31.2)(369.8,30.7)
(373.5,30.5)(377,30.7)(380.1,31.2)(383,32.1)(385.7,33.4)
(388,35)(390.1,39.1)(391.8,43.2)(393.3,47.1)(394.6,50.8)
(395.5,54.5)(396.2,58)(396.5,61.5)(396.6,64.8)(396.5,67.9)
(396,71)(395.3,73.9)(394.2,76.8)(392.9,79.5)(391.4,82)
(389.5,84.5)(387.4,86.8)(384.9,89.1)(382.2,91.2)(379.3,93.1)(376,95)
\end{picture}
\end{center}
\end{description}
\end{document}