summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pst-3dplot
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-01-25 00:36:22 +0000
committerKarl Berry <karl@freefriends.org>2008-01-25 00:36:22 +0000
commit084f1b4b577b51129c688cc6b3b87279a313a576 (patch)
tree861000ea7b56771df9c503030c5d1ba89856a3a5 /Master/texmf-dist/dvips/pst-3dplot
parent7ca4082666f4f857a378a5330e889aa36051e02b (diff)
pst-3dplot 1.79 (23jan08)
git-svn-id: svn://tug.org/texlive/trunk@6395 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips/pst-3dplot')
-rw-r--r--Master/texmf-dist/dvips/pst-3dplot/pst-3dplot.pro31
1 files changed, 30 insertions, 1 deletions
diff --git a/Master/texmf-dist/dvips/pst-3dplot/pst-3dplot.pro b/Master/texmf-dist/dvips/pst-3dplot/pst-3dplot.pro
index 251f0612ff5..6cd943f344c 100644
--- a/Master/texmf-dist/dvips/pst-3dplot/pst-3dplot.pro
+++ b/Master/texmf-dist/dvips/pst-3dplot/pst-3dplot.pro
@@ -1,3 +1,4 @@
+%% $Id: pst-3dplot.pro 9 2008-01-03 20:22:50Z herbert $
%%
%% This is file `pst-3dplot.pro',
%%
@@ -15,7 +16,7 @@
%% `pst-3dplot' is a PSTricks package to draw 3d curves and graphical objects
%%
%%
-%% version 0.25 / 2007-12-22 Herbert Voss <voss _at_ PSTricks.de>
+%% version 0.26 / 2008-01-03 Herbert Voss <voss _at_ PSTricks.de>
%% with contributions of Darrell Lamm <darrell.lamm _at_ gtri.gatech.edu<
%%
%
@@ -836,6 +837,34 @@ end } def
]
end } def
%
+
+% [x y z ... ] -> r
+% watch out for overflow
+
+/vector-length { 1 dict begin
+dup
+% find maximum entry
+/max 0 def
+{ % max
+ abs dup max gt {
+ % if abs gt max
+ /max exch def
+ } {
+ pop
+ } ifelse
+} forall
+
+max 0 ne {
+ 0 exch
+ { % 0 v[i]
+ max div dup mul add
+ } forall
+ sqrt
+ max mul
+} {
+ pop 0
+} ifelse
+end } def
%
end % tx@3DPlotDict