pstricks-add 0.14 (11feb10)

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

1 files changed, 9 insertions, 40 deletions

diff --git a/Master/texmf-dist/dvips/pstricks-add/pstricks-add.pro b/Master/texmf-dist/dvips/pstricks-add/pstricks-add.pro
index 10e4745ac26..25eb33517a9 100644
--- a/Master/texmf-dist/dvips/pstricks-add/pstricks-add.pro
+++ b/Master/texmf-dist/dvips/pstricks-add/pstricks-add.pro
@@ -1,14 +1,10 @@
-%% $Id: pstricks-add.pro 122 2009-08-13 07:21:10Z herbert $
+%% $Id: pstricks-add.pro 247 2010-01-04 22:45:42Z herbert $
 % PostScript prologue for pstricks-add.tex.
-% Version 0.22, 2009/03/17 
-% For distribution, see pstricks.tex.
-%
-%       HISTORY -> see file Changes
-%
+% Version 0.23, 2009/12/17 
 %
 /tx@addDict 410 dict def tx@addDict begin
 %%
-123 srand 			   	% set random generator
+realtime srand % set random generator
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 /GTriangle {
@@ -139,6 +135,12 @@
   calculateRGB
 } def %  now the colors are saved in Red Green Blue
 %
+/wavelengthToGRAY { % the wavelength in nm must be on top of the stack
+  cvi /lambda exch def % no floating point here
+  calculateRGB
+  Red Green Blue RGBtoGRAY
+} def %  now the gray color is on the stack
+%
 /wavelengthToCMYK { % the wavelength in nm must be on top of the stack
   cvi /lambda exch def % no floating point here
   gsave
@@ -167,39 +169,6 @@
     end
 } bind def
 %
-%%%%% ### bubblesort ###
-%% syntax : array bubblesort --> array2 trie par ordre croissant
-%% code de Bill Casselman
-%% http://www.math.ubc.ca/people/faculty/cass/graphics/text/www/
-/bubblesort {
-4 dict begin
-   /a exch def
-   /n a length 1 sub def
-   n 0 gt {
-      % at this point only the n+1 items in the bottom of a remain to
-      % the sorted largest item in that blocks is to be moved up into
-      % position n
-      n {
-         0 1 n 1 sub {
-            /i exch def
-            a i get a i 1 add get gt {
-               % if a[i] > a[i+1] swap a[i] and a[i+1]
-               a i 1 add
-               a i get
-               a i a i 1 add get
-               % set new a[i] = old a[i+1]
-               put
-               % set new a[i+1] = old a[i]
-               put
-            } if
-         } for
-         /n n 1 sub def
-      } repeat
-   } if
-   a
-end
-} def
-%
 %/amplHand {.8} def 
 %/dtHand 2 def
 /varHand { rand sin amplHand mul add } def