%% %% This is file `pst-slpe.tex', %% generated with the docstrip utility. %% %% The original source files were: %% %% pst-slpe.dtx (with options: `texfile') %% %% IMPORTANT NOTICE: %% %% For the copyright see the source file. %% %% Any modified versions of this file must be renamed %% with new filenames distinct from pst-slpe.tex. %% %% For distribution of the original source see the terms %% for copying and modification in the file pst-slpe.dtx. %% %% This generated file may be distributed as long as the %% original source files, as listed above, are part of the %% same distribution. (The sources need not necessarily be %% in the same archive or directory.) %% 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. %% \def\pstslpefileversion{1.31} \def\pstslpefiledate{2011/10/25} \message{ v\pstslpefileversion, \pstslpefiledate} \csname PstSlopeLoaded\endcsname \let\PstSlopeLoaded\endinput \ifx\PSTricksLoaded\endinput\else \def\next{\input pstricks.tex }\expandafter\next \fi \ifx\PSTXKeyLoaded\endinput\else\input pst-xkey \fi % --> hv \edef\TheAtCode{\the\catcode`\@} \catcode`\@=11 \pst@addfams{pst-slpe} % --> hv \pstheader{pst-slpe.pro} \newrgbcolor{slopebegin}{0.9 1 0} \define@key[psset]{pst-slpe}{slopebegin}{\pst@getcolor{#1}\psslopebegin}% --> hv \psset[pst-slpe]{slopebegin=slopebegin} % --> hv \newrgbcolor{slopeend}{0 0 1} \define@key[psset]{pst-slpe}{slopeend}{\pst@getcolor{#1}\psslopeend}% --> hv \psset[pst-slpe]{slopeend=slopeend}% --> hv \define@key[psset]{pst-slpe}{slopesteps}{\pst@getint{#1}\psslopesteps}% --> hv \psset[pst-slpe]{slopesteps=100}% --> hv \define@key[psset]{pst-slpe}{slopeangle}{\pst@getangle{#1}\psx@slopeangle}% --> hv \psset[pst-slpe]{slopeangle=0}% --> hv \define@key[psset]{pst-slpe}{slopecolors}{\def\psx@slopecolors{#1}}% --> hv \psset[pst-slpe]{slopecolors={% --> hv 0.0 1 0 0 0.4 0 1 0 0.8 0 0 1 1.0 1 0 1 4}} \define@key[psset]{pst-slpe}{slopecenter}{\def\psx@slopecenter{#1}}% --> hv \psset[pst-slpe]{slopecenter={0.5 0.5}}% --> hv \define@key[psset]{pst-slpe}{sloperadius}{\pst@getlength{#1}\psx@sloperadius}% --> hv \psset[pst-slpe]{sloperadius=0}% --> hv \define@boolkey[psset]{pst-slpe}[PST@]{fading}[true]{}% --> hv \psset[pst-slpe]{fading=false}% --> hv \define@key[psset]{pst-slpe}{startfading}{\pst@checknum{#1}\psk@startfading }% --> hv \define@key[psset]{pst-slpe}{endfading}{\pst@checknum{#1}\psk@endfading }% --> hv \psset[pst-slpe]{startfading=0,endfading=1}% --> hv \def\psfs@slopes{% \addto@pscode{ \psx@slopecolors\space \psslopesteps \psx@slopeangle \ifPST@fading \psk@startfading \psk@endfading true \else false \fi tx@PstSlopeDict begin SlopesFill end}} \def\psfs@slope{% \addto@pscode{% gsave 0 \pst@usecolor\psslopebegin currentrgbcolor 1 \pst@usecolor\psslopeend currentrgbcolor 2 grestore \psslopesteps \psx@slopeangle \ifPST@fading \psk@startfading \psk@endfading true \else false \fi tx@PstSlopeDict begin SlopesFill end}} \def\psfs@ccslopes{% \addto@pscode{% \psx@slopecolors\space \psslopesteps \psx@slopecenter\space \psx@sloperadius\space \ifPST@fading \psk@startfading \psk@endfading true \else false \fi tx@PstSlopeDict begin CcSlopesFill end}} \def\psfs@ccslope{% \addto@pscode{% gsave 0 \pst@usecolor\psslopebegin currentrgbcolor 1 \pst@usecolor\psslopeend currentrgbcolor 2 grestore \psslopesteps \psx@slopecenter\space \psx@sloperadius\space \ifPST@fading \psk@startfading \psk@endfading true \else false \fi tx@PstSlopeDict begin CcSlopesFill end}} \def\psfs@radslopes{% \addto@pscode{% \psx@slopecolors\space \psslopesteps\psx@slopecenter\space\psx@sloperadius\space\psx@slopeangle \ifPST@fading \psk@startfading \psk@endfading true \else false \fi tx@PstSlopeDict begin RadSlopesFill end}} \def\psfs@radslope{% \addto@pscode{% gsave 0 \pst@usecolor\psslopebegin currentrgbcolor 1 \pst@usecolor\psslopeend currentrgbcolor 2 \pst@usecolor\psslopebegin currentrgbcolor 3 \pst@usecolor\psslopeend currentrgbcolor 4 \pst@usecolor\psslopebegin currentrgbcolor 5 grestore \psslopesteps\psx@slopecenter\space\psx@sloperadius\space\psx@slopeangle \ifPST@fading \psk@startfading \psk@endfading true \else false \fi tx@PstSlopeDict begin RadSlopesFill end}} \def\psBall{\pst@object{psBall}} \def\psBall@i{\@ifnextchar(\psBall@ii{\psBall@ii(0,0)}} \def\psBall@ii(#1,#2)#3#4{{% \pst@killglue \pssetlength\pst@dima{#4}%%%%% 20111025 hv \pst@dimb=\pst@dima%%%%%%%%%%% 20111025 hv \advance\pst@dima by 0.075\pst@dimb% \addbefore@par{sloperadius=\the\pst@dima,fillstyle=ccslope, slopebegin=white,slopeend=#3,slopecenter=0.4 0.6,linestyle=none}% \use@par% \pscircle(#1,#2){#4}% }\ignorespaces% } \catcode`\@=\TheAtCode\relax \endinput %% %% End of file `pst-slpe.tex'.