summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-blur
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-12 23:46:03 +0000
committerKarl Berry <karl@freefriends.org>2006-01-12 23:46:03 +0000
commit873660d1a83ece926fe7206288dda9c36b349c1b (patch)
treea48f77125c309a355b5d0eb58d6b24446abe9d62 /Master/texmf-dist/tex/generic/pst-blur
parent2939242967231097459df0fc3150fabc2f639111 (diff)
generic 1
git-svn-id: svn://tug.org/texlive/trunk@613 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-blur')
-rw-r--r--Master/texmf-dist/tex/generic/pst-blur/pst-blur.tex107
1 files changed, 107 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/pst-blur/pst-blur.tex b/Master/texmf-dist/tex/generic/pst-blur/pst-blur.tex
new file mode 100644
index 00000000000..a3f37982805
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/pst-blur/pst-blur.tex
@@ -0,0 +1,107 @@
+%%
+%% 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.)
+\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'.