Mercurial > forge
changeset 10031:d8f37360dfdb octave-forge
Allow negative sz, meaning absolute sz, rather than relative to length
author | etienne |
---|---|
date | Sun, 15 Apr 2012 00:57:51 +0000 |
parents | 591ead50c1da |
children | db1e91ab8b82 |
files | main/vrml/inst/vrml_arrow.m |
diffstat | 1 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/main/vrml/inst/vrml_arrow.m Sat Apr 14 16:05:41 2012 +0000 +++ b/main/vrml/inst/vrml_arrow.m Sun Apr 15 00:57:51 2012 +0000 @@ -1,4 +1,4 @@ -## Copyright (C) 2002 Etienne Grossmann <etienne@isr.ist.utl.pt> +## 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);