diff options
Diffstat (limited to 'Master/texmf-dist/dvips')
-rw-r--r-- | Master/texmf-dist/dvips/pstricks-add/pstricks-add.pro | 21 |
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 |