summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pstricks-add
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2010-02-11 23:46:22 +0000
committerKarl Berry <karl@freefriends.org>2010-02-11 23:46:22 +0000
commit06f7a405653fe4c505885607d76e5ad98a2b8da5 (patch)
tree8309065c9e891d6b8837cba66cf69d9e930c4e92 /Master/texmf-dist/dvips/pstricks-add
parent9115f9eea3dcb0f57b18a8d194014fd07c282943 (diff)
pstricks-add 0.14 (11feb10)
git-svn-id: svn://tug.org/texlive/trunk@16971 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips/pstricks-add')
-rw-r--r--Master/texmf-dist/dvips/pstricks-add/pstricks-add.pro49
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