summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2007-07-16 16:52:35 +0000
committerKarl Berry <karl@freefriends.org>2007-07-16 16:52:35 +0000
commitd4c718b1f4d552c20d219b36b287015714be74b1 (patch)
tree13c83d4526144a9421124239228db617322998fd /Master/texmf-dist/dvips
parent8704eddd45c69d9cca614273c6e2d6829ef3f669 (diff)
pstricks-add 2.86 (25jun07)
git-svn-id: svn://tug.org/texlive/trunk@4630 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips')
-rw-r--r--Master/texmf-dist/dvips/pstricks-add/pstricks-add.pro21
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