%%
%% This is file `pst-blur.tex',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% pst-blur.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-blur.tex.
%% 
%% For distribution of the original source see the terms
%% for copying and modification in the file pst-blur.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.)
\def\pstblurfileversion{1.0}
\def\pstblurfiledate{98/09/15}
\message{ v\pstblurfileversion, \pstblurfiledate}
\csname PstBlurLoaded\endcsname
\let\PstBlurLoaded\endinput
\ifx\PSTricksLoaded\endinput\else
  \def\next{\input pstricks.tex }\expandafter\next
\fi
\edef\TheAtCode{\the\catcode`\@}
\catcode`\@=11
\pstheader{pst-blur.pro}
\newif\ifpsblur
\def\psset@blur#1{\@nameuse{psblur#1}\pst@setrepeatarrowsflag}
\psset@blur{false}

\def\psset@blurradius#1{\pst@getlength{#1}\psx@blurradius}
\psset@blurradius{1.5pt}

\def\psset@blursteps#1{\pst@getint{#1}\psx@blursteps}
\psset@blursteps{20}

\def\psset@blurbg#1{\pst@getcolor{#1}\psx@blurbg}
\psset@blurbg{white}
\def\pst@closedshadow{%
\ifpsblur\pst@blurclosedshadow\else\pst@sharpclosedshadow\fi
}
\def\pst@sharpclosedshadow{%
\addto@pscode{%
gsave
\psk@shadowsize \psk@shadowangle \tx@PtoC
\tx@Shadow
\pst@usecolor\psshadowcolor
gsave fill grestore
stroke
grestore
gsave
\pst@usecolor\psfillcolor
gsave fill grestore
stroke
grestore}}
\def\pst@blurclosedshadow{%
\addto@pscode{%
gsave
gsave \pst@usecolor\psshadowcolor currentrgbcolor grestore
gsave \pst@usecolor\psx@blurbg currentrgbcolor grestore
\psx@blurradius\space
\psx@blursteps\space
\psk@shadowsize \psk@shadowangle \tx@PtoC
tx@PstBlurDict begin BlurShadow end
grestore
gsave
\pst@usecolor\psfillcolor
gsave fill grestore
stroke
grestore
}}
\def\psblurbox{%
\def\pst@par{}\pst@object{psblurbox}}
\def\psblurbox@i{\pst@makebox\psblurbox@ii}
\def\psblurbox@ii{%
\begingroup
\pst@useboxpar
\psblurtrue
\psshadowtrue
\psboxseptrue
\setbox\pst@hbox=\hbox{\psframebox@ii}%
\pst@dimh=\psk@shadowsize\p@
\pst@dimh=.7071\pst@dimh
\advance\pst@dimh\psx@blurradius\p@
\pst@dimg=\dp\pst@hbox
\advance\pst@dimg\pst@dimh
\dp\pst@hbox=\pst@dimg
\pst@dimg=\wd\pst@hbox
\advance\pst@dimg\pst@dimh
\wd\pst@hbox=\pst@dimg
\leavevmode
\box\pst@hbox
\endgroup}

\catcode`\@=\TheAtCode\relax
\endinput
%%
%% End of file `pst-blur.tex'.
