summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pst-blur
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-09 01:01:02 +0000
committerKarl Berry <karl@freefriends.org>2006-01-09 01:01:02 +0000
commit4a6fbdc0e89fde6f9efcaa24de3db8e137da4404 (patch)
treeefe2b5d7e2f07d6ce478982a9b1e5f43d41cb56c /Master/texmf-dist/dvips/pst-blur
parent524dc4b7a5d60a1c703450ac6fd3749ffe81afa3 (diff)
trunk/Master/texmf-dist/dvips
git-svn-id: svn://tug.org/texlive/trunk@88 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips/pst-blur')
-rw-r--r--Master/texmf-dist/dvips/pst-blur/pst-blur.pro67
1 files changed, 67 insertions, 0 deletions
diff --git a/Master/texmf-dist/dvips/pst-blur/pst-blur.pro b/Master/texmf-dist/dvips/pst-blur/pst-blur.pro
new file mode 100644
index 00000000000..f480366f328
--- /dev/null
+++ b/Master/texmf-dist/dvips/pst-blur/pst-blur.pro
@@ -0,0 +1,67 @@
+%%
+%% This is file `pst-blur.pro',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% pst-blur.dtx (with options: `prolog')
+%%
+%% 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.pro.
+%%
+%% 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.)
+/tx@PstBlurDict 60 dict def
+tx@PstBlurDict begin
+/Iterate {
+ /SegLines ED
+ /ThisB ED /ThisG ED /ThisR ED
+ /NextB ED /NextG ED /NextR ED
+ /W 2.0 BlurRadius mul def
+ /WDec W SegLines div def
+ /RInc NextR ThisR sub SegLines div def
+ /GInc NextG ThisG sub SegLines div def
+ /BInc NextB ThisB sub SegLines div def
+ /R ThisR def
+ /G ThisG def
+ /B ThisB def
+ SegLines {
+ R G B
+ sqrt 3 1 roll sqrt 3 1 roll sqrt 3 1 roll
+ setrgbcolor
+ gsave W setlinewidth
+ stroke grestore
+ /W W WDec sub def
+ /R R RInc add def
+ /G G GInc add def
+ /B B BInc add def
+ } bind repeat
+} def
+/BlurShadow {
+ Shadow
+ /BlurSteps ED
+ /BlurRadius ED
+ dup mul /BEnd ED dup mul /GEnd ED dup mul /REnd ED
+ dup mul /BBeg ED dup mul /GBeg ED dup mul /RBeg ED
+ RBeg REnd add 0.5 mul /RMid ED
+ GBeg GEnd add 0.5 mul /GMid ED
+ BBeg BEnd add 0.5 mul /BMid ED
+ /OuterSteps BlurSteps 2 div cvi def
+ /InnerSteps BlurSteps OuterSteps sub def
+ 1 setlinejoin
+ RMid GMid BMid REnd GEnd BEnd OuterSteps Iterate
+ gsave RBeg sqrt GBeg sqrt BBeg sqrt setrgbcolor fill grestore
+ clip
+ 0 setlinejoin
+ RMid GMid BMid RBeg GBeg BBeg InnerSteps Iterate
+} def
+end