summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-grad
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-11-30 22:00:11 +0000
committerKarl Berry <karl@freefriends.org>2006-11-30 22:00:11 +0000
commit8f3c66451e590adc3ce6c15dd5c11d89e399f9a7 (patch)
tree3df45c0d19a1e702576b0e91cf7c5f1f1f97ac5f /Master/texmf-dist/tex/generic/pst-grad
parent50b457db9ae8c77bdad87ef2bb4a246769a36c91 (diff)
pst-grad/eps
git-svn-id: svn://tug.org/texlive/trunk@2565 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-grad')
-rw-r--r--Master/texmf-dist/tex/generic/pst-grad/pst-grad.tex119
1 files changed, 119 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/pst-grad/pst-grad.tex b/Master/texmf-dist/tex/generic/pst-grad/pst-grad.tex
new file mode 100644
index 00000000000..79eb3732ae5
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/pst-grad/pst-grad.tex
@@ -0,0 +1,119 @@
+%% BEGIN pst-grad.tex
+%%
+%% Gradient fillstyle with PSTricks.
+%% See the PSTricks User's Guide for description.
+%% This uses the header file `pst-grad.pro'.
+%%
+%% Based on some EPS files by leeweyr!bill@nuchat.sccsi.com (W. R. Lee).
+%%
+%%
+%% COPYRIGHT 1993, 1994, 1999 by Timothy Van Zandt, tvz@nwu.edu.
+%% 2006 Herbert Voss, hvoss@tug.org
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN
+%% archives in directory macros/latex/base/lppl.txt.
+%%
+%% This defines a new fill style, "gradient", for use with PSTricks,
+%% which has gradiated color. The following parameters are used:
+%%
+%% gradbegin=color : Beginning color.
+%% gradend=color : Final color.
+%% gradlines=int : Number of lines to use. The higher the number,
+%% the slower the rendering.
+%% gradmidpoint=num : Gradient color goes from gradbegin to gradend,
+%% and then back to beginning. Midpoint (point
+%% where "gradend" color appears, is gradmidpoint
+%% from the top. (0 <= Gmidpoint <= 1).
+%% gradangle=angle : Rotate image by angle.
+%% GradientCircle=true : Instead of a linear a circled gradient is build.
+%% (version 1.04)
+%% GradientPos=(x,y) : the center of the circled gradient
+%% (version 1.04)
+%% GradientScale=float : scaling factor of the circled gradient
+%% (version 1.04)
+%% GradientHSB : Use HSB color model
+%%
+\csname GradientLoaded\endcsname
+\let\GradientLoaded\endinput
+\ifx\PSTricksLoaded\endinput\else
+ \def\next{\input pstricks.tex }\expandafter\next
+\fi
+\ifx\PSTXKeyLoaded\endinput\else\input pst-xkey \fi
+
+\def\fileversion{1.05}
+\def\filedate{2006/11/04}
+\message{`pst-plot' v\fileversion, \filedate\space (tvz,dg,hv)}
+
+\edef\TheAtCode{\the\catcode`\@}
+\catcode`\@=11
+\pst@addfams{pst-grad}
+
+\pstheader{pst-grad.pro}
+
+\newrgbcolor{gradbegin}{0 .1 .95}
+\newrgbcolor{gradend}{0 1 1}
+\define@key[psset]{pst-grad}{gradbegin}{\pst@getcolor{#1}\psgradbegin}
+\define@key[psset]{pst-grad}{gradend}{\pst@getcolor{#1}\psgradend}
+\define@key[psset]{pst-grad}{gradlines}{%
+ \pst@getint{#1}\psgradlines
+ \ifnum\psgradlines<2
+ \@pstrickserr{gradlines must be at least 2}\@epha
+ \def\psgradlines{2 }%
+ \fi}
+\define@key[psset]{pst-grad}{gradmidpoint}{\pst@checknum{#1}\psgradmidpoint}
+\define@key[psset]{pst-grad}{gradangle}{\pst@getangle{#1}\psk@gradangle}
+\psset[pst-grad]{gradangle=0,gradlines=300,gradend=gradend,gradbegin=gradbegin,
+ gradmidpoint=0.9}
+
+% Denis Girou - April 1998 ------- patch 2 (hv)
+% To define the gradient as linear or as circle
+\define@boolkey[psset]{pst-grad}[Pst@]{GradientCircle}[true]{}
+% Position of the center of the gradient
+\define@key[psset]{pst-grad}{GradientPos}{\psset@@GradientPos#1}%
+ \def\psset@@GradientPos(#1){\edef\ps@GradientPos{#1}}
+% Scale factor
+\define@key[psset]{pst-grad}{GradientScale}{\def\ps@GradientScale{#1}}
+\psset[pst-grad]{GradientScale=1,GradientPos={(0,0)},GradientCircle=false}
+%
+\define@boolkey[psset]{pst-grad}[Pst@]{gradientHSB}[true]{}
+\psset[pst-grad]{gradientHSB=false}
+%
+\def\psfs@gradient{%
+ \ifPst@gradientHSB
+ \addto@pscode{%
+ gsave
+ gsave \pst@usecolor\psgradbegin currenthsbcolor grestore
+ gsave \pst@usecolor\psgradend currenthsbcolor grestore
+ \psgradlines
+ \psgradmidpoint
+ \psk@gradangle
+% hv 2004-05-05 begin fixed a spurious blank
+ tx@GradientDict begin GradientFillHSB end grestore%
+ }%
+% tx@GradientHSBDict begin GradientFillHSB end grestore}
+% hv 2004-05-05 end
+ \else%
+% hv 2004-06-25 begin fixed a spurious blank
+ \pst@getcoor{\ps@GradientPos}{\pst@tempa}% <- "%" hv 2004-06-23
+% hv end
+ \addto@pscode{%
+ gsave
+ \ifPst@GradientCircle true \else false \fi
+ \ps@GradientScale\space
+ \pst@tempa\space
+ gsave \pst@usecolor\psgradbegin currentrgbcolor grestore
+ gsave \pst@usecolor\psgradend currentrgbcolor grestore
+ \psgradlines
+ \psgradmidpoint
+ \psk@gradangle
+ tx@GradientDict begin GradientFill end grestore%
+ }%
+ \fi%
+}
+%
+\catcode`\@=\TheAtCode\relax
+%
+\endinput
+%%
+%% END pst-grad.tex