%% %% 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.) %% $Id: pst-blur.dtx,v 2.0 2005/09/08 09:48:33 giese Exp $ %% %% Copyright 1998-2007 Martin Giese, mgiese@risc.uni-linz.ac.at %% Herbert Voss, voss@pstricks.de %% %% This file is under the LaTeX Project Public License %% See CTAN archives in directory macros/latex/base/lppl.txt. %% %% DESCRIPTION: %% `pst-blur' is a PSTricks package for blurred shadows %% \csname PstBlurLoaded\endcsname \let\PstBlurLoaded\endinput \ifx\PSTricksLoaded\endinput\else \def\next{\input pstricks.tex }\expandafter\next \fi \ifx\PSTXKeyLoaded\endinput\else\input pst-xkey \fi %% \def\fileversion{2.0} \def\filedate{2005/09/08} \message{ v\fileversion, \filedate} \edef\TheAtCode{\the\catcode`\@} \catcode`\@=11 \pst@addfams{pst-blur} \pstheader{pst-blur.pro} \newif\ifpsblur \define@key[psset]{pst-blur}{blur}[true]{\@nameuse{psblur#1}\pst@setrepeatarrowsflag} \psset{blur=false} %% \define@key[psset]{pst-blur}{blurradius}{\pst@getlength{#1}\psx@blurradius} \psset{blurradius=1.5pt} %% \define@key[psset]{pst-blur}{blursteps}{\pst@getint{#1}\psx@blursteps} \psset{blursteps=20} %% \define@key[psset]{pst-blur}{blurbg}{\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'.