blob: 0aaa4e3f2ea485a91bbb297928e154d4ec0c55b7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
%%
%% 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.)
%% $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
%%
/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
|
