summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-07-22 22:05:35 +0000
committerKarl Berry <karl@freefriends.org>2013-07-22 22:05:35 +0000
commit7dbc8db79cf2073291ae3cd4c1e9ca21a75576c9 (patch)
treea9d0d9c9d3893a9db6cb503b4b88f7e68806f3ca /Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro
parentd596187ceaaa238c02ae2006ee9be30e61772253 (diff)
pst-optexp (22jul13)
git-svn-id: svn://tug.org/texlive/trunk@31266 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro')
-rw-r--r--Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro57
1 files changed, 56 insertions, 1 deletions
diff --git a/Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro b/Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro
index 99a06e55cfc..3fd41c12bee 100644
--- a/Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro
+++ b/Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro
@@ -9,7 +9,7 @@
%% This is a generated file.
%%
%% Project: pst-optexp
-%% Version: 4.4 (2013/07/14)
+%% Version: 4.5 (2013/07/21)
%%
%% Copyright (C) 2007-2013 by Christoph Bersch <usenet@bersch.net>
%%
@@ -1571,6 +1571,61 @@ tx@OptexpDict begin
} ifelse
DebugEnd
} bind def
+/ClipFadeValue {
+ dup 0 lt { pop 0 }{ dup 1 gt { pop 1 } if } ifelse
+} bind def
+/fadeto@white {
+ FadeFunc ClipFadeValue @S mul @H exch @B sethsbcolor
+} bind def
+/fadeto@black {
+ FadeFunc ClipFadeValue @B mul @H exch @S exch sethsbcolor
+} bind def
+/fadeto@transparency {
+ FadeFunc ClipFadeValue @T mul .setopacityalpha
+} bind def
+/fadefunc@linear {
+ neg 1 add
+} bind def
+/fadefunc@squared {
+ dup mul neg 1 add
+} bind def
+/fadefunc@gauss {
+ 0.4 div dup mul neg Euler exch exp
+} bind def
+/fadefunc@exp {
+ -6 mul Euler exch exp
+} bind def
+/FadeStroke {
+ /FadeFunc ED /FadeToColor ED /@T ED
+ PathLength dup /@L ED exch div /@dl ED
+ mark
+ { false counttomark 3 roll }
+ { true counttomark 3 roll }
+ {} {} pathforall
+ currenthsbcolor /@B ED /@S ED /@H ED
+ newpath /currL 0 def
+ counttomark 3 idiv 1 1 3 -1 roll {
+ pop
+ { % lineto
+ /y2 ED /x2 ED x2 x1 sub y2 y1 sub 2 copy
+ dup mul exch dup mul add sqrt dup @L div exch
+ @dl div 1 add floor dup dup
+ 4 2 roll div 5 1 roll
+ 1 1 3 -1 roll {
+ 5 copy 4 copy 2 copy eq not { fadecorrect add } if exch div VecScale
+ 6 2 roll 1 sub dup 0 eq not { fadecorrect sub } if exch div VecScale
+ x1 y1 VecAdd moveto x1 y1 VecAdd lineto
+ mul currL add FadeToColor
+ stroke
+ } for
+ 4 1 roll pop pop mul currL add /currL ED
+ /y1 y2 def /x1 x2 def
+ } { % moveto
+ /y1 ED /x1 ED
+ } ifelse
+ } for
+ pop
+} def
/mymax {
2 copy lt { exch } if pop
} bind def