summaryrefslogtreecommitdiff
path: root/usergrps/uktug/baskervi/6_2/spqr/gradient.tex
diff options
context:
space:
mode:
Diffstat (limited to 'usergrps/uktug/baskervi/6_2/spqr/gradient.tex')
-rw-r--r--usergrps/uktug/baskervi/6_2/spqr/gradient.tex74
1 files changed, 74 insertions, 0 deletions
diff --git a/usergrps/uktug/baskervi/6_2/spqr/gradient.tex b/usergrps/uktug/baskervi/6_2/spqr/gradient.tex
new file mode 100644
index 0000000000..cbb4561be7
--- /dev/null
+++ b/usergrps/uktug/baskervi/6_2/spqr/gradient.tex
@@ -0,0 +1,74 @@
+%% BEGIN gradient.tex/gradient.sty
+%%
+%% Defines the gradient fillstyle for PSTricks.
+%%
+\def\fileversion{0.93a}
+\def\filedate{93/03/12}
+%%
+%% COPYRIGHT 1993, by Timothy Van Zandt, tvz@Princeton.EDU
+%% See pstricks.tex or pstricks.doc for copying restrictions.
+%%
+%% See the PSTricks User's Guide for description.
+%%
+%% This uses the header file gradient.ps.
+%%
+%% Based on some EPS files by leeweyr!bill@nuchat.sccsi.com (W. R. Lee).
+%
+% 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.
+
+\message{ v\fileversion, \filedate}
+
+\csname GradientLoaded\endcsname
+\let\GradientLoaded\endinput
+
+\ifx\PSTricksLoaded\endinput\else
+ \def\next{\input pstricks.tex }\expandafter\next
+\fi
+
+\pstheader{gradient.pro}
+
+\newrgbcolor{gradbegin}{0 .1 .95}
+\def\psset@gradbegin#1{\pst@getcolor{#1}\psgradbegin}
+\psset@gradbegin{gradbegin}
+
+\newrgbcolor{gradend}{0 1 1}
+\def\psset@gradend#1{\pst@getcolor{#1}\psgradend}
+\psset@gradend{gradend}
+
+\def\psset@gradlines#1{%
+ \pst@getint{#1}\psgradlines
+ \ifnum\psgradlines<2
+ \@pstrickserr{gradlines must be at least 2}\@epha
+ \def\psgradlines{2 }%
+ \fi}
+\psset@gradlines{300}
+
+\def\psset@gradmidpoint#1{\pst@checknum{#1}\psgradmidpoint}
+\psset@gradmidpoint{.9}
+
+\def\psset@gradangle#1{\pst@getangle{#1}\psk@gradangle}
+\psset@gradangle{0}
+
+\def\psfs@gradient{%
+ %\pst@fill{%
+\addto@pscode{gsave
+ gsave \pst@usecolor\psgradbegin currentrgbcolor grestore
+ gsave \pst@usecolor\psgradend currentrgbcolor grestore
+ \psgradlines
+ \psgradmidpoint
+ \psk@gradangle
+ tx@GradientDict begin GradientFill end grestore}}
+
+\endinput
+%% END gradient.tex