pstricks-add 2.86 (25jun07)

git-svn-id: svn://tug.org/texlive/trunk@4630 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 19 insertions, 2 deletions

diff --git a/Master/texmf-dist/dvips/pstricks-add/pstricks-add.pro b/Master/texmf-dist/dvips/pstricks-add/pstricks-add.pro
index 79541bfe970..fc4cc635271 100644
--- a/Master/texmf-dist/dvips/pstricks-add/pstricks-add.pro
+++ b/Master/texmf-dist/dvips/pstricks-add/pstricks-add.pro
@@ -1,13 +1,13 @@
 %!
 % PostScript prologue for pstricks-add.tex.
-% Version 0.10, 2006/10/15
+% Version 0.11, 2007/05/24
 % For distribution, see pstricks.tex.
 %
 %       HISTORY -> see file Changes
 %
 tx@Dict begin 	% make it global for TeX
 %% Pi and Euler are defined in pstricks.pro
-/psTan { dup cos abs 1.e-10 lt 
+/tan { dup cos abs 1.e-10 lt 
   { pop 1.e10 } 			% return 1.e10 as infinit
   { dup sin exch cos div } ifelse 	% default sin/cos
 } def
@@ -44,6 +44,15 @@ end
   mtrx
   setmatrix grestore} def
 %
+/RGBtoCMYK {    % on stack r g b
+  /Blue ED /Green ED /Red ED
+  1 Red sub     % Cyan
+  1 Green sub   % Magenta
+  1 Blue sub    % Yellow
+  0   		% Black  
+} def
+
+
 %% convertisseur longueur d'onde ->R,G,B       Manuel Luque
 %% lambda max=780 nanomčtres
 %% lambda min=380 nanomčtres
@@ -109,6 +118,14 @@ end
   calculateRGB
 } def %  now the colors are saved in Red Green Blue
 %
+/wavelengthToCMYK { % the wavelength in nm must be on top of the stack
+  cvi /lambda exch def % no floating point here
+  gsave
+  calculateRGB Red Green Blue RGBtoCMYK 
+  /Black ED /Yellow ED /Magenta ED /Cyan ED
+  grestore
+} def %  now the colors are saved in Cyan Magenta Yellow Black
+%
 /axfill {
     8 dict begin
     /xw exch def /nl exch def