diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/pgf/libraries/pgflibraryshadings.code.tex')
-rw-r--r-- | Master/texmf-dist/tex/generic/pgf/libraries/pgflibraryshadings.code.tex | 42 |
1 files changed, 21 insertions, 21 deletions
diff --git a/Master/texmf-dist/tex/generic/pgf/libraries/pgflibraryshadings.code.tex b/Master/texmf-dist/tex/generic/pgf/libraries/pgflibraryshadings.code.tex index 285f6d21772..22aa92ffb35 100644 --- a/Master/texmf-dist/tex/generic/pgf/libraries/pgflibraryshadings.code.tex +++ b/Master/texmf-dist/tex/generic/pgf/libraries/pgflibraryshadings.code.tex @@ -7,7 +7,7 @@ % % See the file doc/generic/pgf/licenses/LICENSE for more details. -\ProvidesFileRCS[v\pgfversion] $Header: /cvsroot/pgf/pgf/generic/pgf/libraries/pgflibraryshadings.code.tex,v 1.2 2008/10/29 23:06:34 tantau Exp $ +\ProvidesFileRCS{pgflibraryshadings.code.tex} % @@ -20,7 +20,7 @@ {} { % x y 2 copy % ... x y x y - 2 copy abs exch abs add 0.0001 ge + 2 copy abs exch abs add 0.0001 ge {atan 360.0 div} % ... x y heading; heading being in %the interval [0, 1.0] { pop } % silently deal with error: return @@ -58,7 +58,7 @@ 1 index mul % Q P i H' S V T 7 2 roll % V T Q P i H' S pop pop % V T Q P i - %%% + %%% % end of BLOCK B. The rest is just stack manipulation dup 0.5 le % TEST II [ i == 0 ] { % BLOCK C [ take stack to V T P ] @@ -92,7 +92,7 @@ ifelse % for III } ifelse % for II -} +}% \pgfdeclarefunctionalshading{color wheel black center} {\pgfpoint{-50bp}{-50bp}} @@ -100,7 +100,7 @@ {} { % x y 2 copy % ... x y x y - 2 copy abs exch abs add 0.0001 ge + 2 copy abs exch abs add 0.0001 ge {atan 360.0 div} % ... x y heading; heading being in %the interval [0, 1.0] { pop } % silently deal with error: return @@ -138,7 +138,7 @@ 1 index mul % Q P i H' S V T 7 2 roll % V T Q P i H' S pop pop % V T Q P i - %%% + %%% % end of BLOCK B. The rest is just stack manipulation dup 0.5 le % TEST II [ i == 0 ] { % BLOCK C [ take stack to V T P ] @@ -172,20 +172,20 @@ ifelse % for III } ifelse % for II -} +}% \pgfdeclarefunctionalshading{color wheel} {\pgfpoint{-50bp}{-50bp}} {\pgfpoint{50bp}{50bp}} {} { % x y - 2 copy abs exch abs add 0.0001 ge + 2 copy abs exch abs add 0.0001 ge {atan 360.0 div} % ... x y heading; heading being in %the interval [0, 1.0] { pop } % silently deal with error: return % arbitrary heading of zero for origin ifelse % because we will use it for 'Hue' - 1.0 1.0 % ... H S V + 1.0 1.0 % ... H S V % C version to use as model: % H' = H * 6 % i = floor(H') @@ -208,7 +208,7 @@ 1 index mul % Q P i H' S V T 7 2 roll % V T Q P i H' S pop pop % V T Q P i - %%% + %%% % end of BLOCK B. The rest is just stack manipulation dup 0.5 le % TEST II [ i == 0 ] { % BLOCK C [ take stack to V T P ] @@ -242,17 +242,17 @@ ifelse % for III } ifelse % for II -} +}% % % A bilinear interpolation. % -\colorlet{lower left}{white} -\colorlet{lower right}{white} -\colorlet{upper left}{white} -\colorlet{upper right}{white} +\colorlet{lower left}{white}% +\colorlet{lower right}{white}% +\colorlet{upper left}{white}% +\colorlet{upper right}{white}% \pgfdeclarefunctionalshading[lower left,lower right,upper left,upper right]{bilinear interpolation} {\pgfpointorigin} @@ -264,13 +264,13 @@ 25 sub 50 div exch 25 sub 50 div 2 copy % Calculate y/100 x/100. % 100 div exch 100 div 2 copy % Calculate y/100 x/100. neg 1 add exch neg 1 add % Calculate 1-y/100 1-x/100. - 3 1 roll 2 copy exch 5 2 roll 6 copy 6 copy % Set up stack. + 3 1 roll 2 copy exch 5 2 roll 6 copy 6 copy % Set up stack. \pgf@lib@shadings@llred mul exch \pgf@lib@shadings@lrred mul add mul % Process red component. 4 1 roll \pgf@lib@shadings@urred mul exch \pgf@lib@shadings@ulred mul add mul add 13 1 roll - \pgf@lib@shadings@llgreen mul exch \pgf@lib@shadings@lrgreen mul add mul % Process green component. + \pgf@lib@shadings@llgreen mul exch \pgf@lib@shadings@lrgreen mul add mul % Process green component. 4 1 roll \pgf@lib@shadings@urgreen mul exch \pgf@lib@shadings@ulgreen mul add mul add @@ -279,7 +279,7 @@ 4 1 roll \pgf@lib@shadings@urblue mul exch \pgf@lib@shadings@ulblue mul add mul add -} +}% % @@ -293,7 +293,7 @@ 12.5 div exch 12.5 div exch 1 index 1 index % Stack: c_r c_i z_r z_i - % Formula: z' = z^2 + c = (z_r + i z_i)^2 + c_r + i c_i + % Formula: z' = z^2 + c = (z_r + i z_i)^2 + c_r + i c_i % = (z_r^2 - z_i^2 + c_r) + i (2 z_r z_i + c_i) % % First iteration @@ -402,8 +402,8 @@ } { pop pop 1000.0 1000.0 } ifelse % Compute distance dup mul exch - dup mul + dup mul add sqrt dup 4 1 roll 2 gt { pop pop 2.0 exch div 1.0 exch sub dup dup} {pop pop 0.0 0.0 0.0} ifelse -} +}% |