[Octaviz-cvsupdate] octaviz/Scripts vtk_axis.m,1.4,1.5

[Jonathan S. <jjs...@us...>]

Update of /cvsroot/octaviz/octaviz/Scripts
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27235

Modified Files:
	vtk_axis.m 
Log Message:
working on axis functionality

Index: vtk_axis.m
===================================================================
RCS file: /cvsroot/octaviz/octaviz/Scripts/vtk_axis.m,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- vtk_axis.m	23 Apr 2005 23:31:20 -0000	1.4
+++ vtk_axis.m	26 Apr 2005 05:07:20 -0000	1.5
@@ -35,10 +35,19 @@
       elseif ( strcmp(arg, "off") )
 	f.axes_on = 0;
       elseif ( strcmp(arg, "equal") || strcmp(arg, "normal") ) ## defaults in vtk
+	## (working with just one Prop for now)
 	f.renderer.GetProps.GetLastProp.SetScale(1,1,1)
 	f.axes.UseRangesOff
       elseif ( strcmp(arg, "square") )
-	disp("square option not implemented yet")
+	vtk_axis("equal")    # get to a known scale
+	dlims = f.outline.GetBounds;
+	span = [dlims(2)-dlims(1);dlims(4)-dlims(3);dlims(6)-dlims(5)];
+	## set axis limits to data values (not visible scaled values)
+	f.axes.UseRangesOn
+	f.axes.SetRanges(dlims)
+	## scale the plot so that it is square
+	## (working with just one Prop for now)
+	f.renderer.GetProps.GetLastProp.SetScale(1/span(1),1/span(2),1/span(3))
       endif
     else
       disp("manual setting of axis bounds not implemented yet")
@@ -55,4 +64,4 @@
 ##f.axes.SetRanges(xl,xh,yl,yh,zl,zh)
 
 ## to set arbitrary scaling????
-##f.renderer.GetProps.GetLastProp.SetScale(xscale,yscale,zscale)
\ No newline at end of file
+##f.renderer.GetProps.GetLastProp.SetScale(xscale,yscale,zscale)