[Octave-cvsupdate] SF.net SVN: octave:[10217] trunk/octave-forge/main/vrml/inst/vrml_arrow.m

[<et...@us...>]

Revision: 10217
          http://octave.svn.sourceforge.net/octave/?rev=10217&view=rev
Author:   etienne
Date:     2012-04-15 00:57:51 +0000 (Sun, 15 Apr 2012)
Log Message:
-----------
Allow negative sz, meaning absolute sz, rather than relative to length

Modified Paths:
--------------
    trunk/octave-forge/main/vrml/inst/vrml_arrow.m

Modified: trunk/octave-forge/main/vrml/inst/vrml_arrow.m
===================================================================
--- trunk/octave-forge/main/vrml/inst/vrml_arrow.m	2012-04-14 16:05:41 UTC (rev 10216)
+++ trunk/octave-forge/main/vrml/inst/vrml_arrow.m	2012-04-15 00:57:51 UTC (rev 10217)
@@ -1,4 +1,4 @@
-## Copyright (C) 2002 Etienne Grossmann <et...@is...>
+## Copyright (C) 2002-2012 Etienne Grossmann.  All rights reserved.
 ##
 ## This program is free software; you can redistribute it and/or modify it under
 ## the terms of the GNU General Public License as published by the Free Software
@@ -58,7 +58,14 @@
   ## keyboard
 end
 if any (tmp = isnan(sz)), sz(find (tmp)) = s0(find (tmp)) ; end
-sz .*= [1, sz([1 1 1])]; 
+## Was: sz .*= [1, sz([1 1 1])]; 
+for i = 2:4
+  if sz(i) >= 0
+	sz(i) *= sz(1);
+  else
+	sz(i) = -sz(i);
+  endif
+endfor
 
 				# Do material nodes
 smat1 = vrml_material (col(:,1), emit);

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.