diff options
author | Karl Berry <karl@freefriends.org> | 2013-07-22 22:05:35 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2013-07-22 22:05:35 +0000 |
commit | 7dbc8db79cf2073291ae3cd4c1e9ca21a75576c9 (patch) | |
tree | a9d0d9c9d3893a9db6cb503b4b88f7e68806f3ca /Master/texmf-dist/dvips | |
parent | d596187ceaaa238c02ae2006ee9be30e61772253 (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')
-rw-r--r-- | Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro | 57 |
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 |