# HG changeset patch
# User jwe
# Date 776395093 0
# Node ID 8e42786004d6b6af571edcfd32a8217930467c50
# Parent  81b973e373f9777900b5fd9aa76def323100e11a
[project @ 1994-08-09 01:18:13 by jwe]
Initial revision

diff --git a/scripts/plot/axis.m b/scripts/plot/axis.m
new file mode 100644
--- /dev/null
+++ b/scripts/plot/axis.m
@@ -0,0 +1,58 @@
+# Copyright (C) 1993, 1994 John W. Eaton
+# 
+# This file is part of Octave.
+# 
+# Octave 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 Foundation; either version 2, or (at your option) any
+# later version.
+# 
+# Octave is distributed in the hope that it will be useful, but WITHOUT
+# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+# FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+# for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with Octave; see the file COPYING.  If not, write to the Free
+# Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+
+function axis (ax)
+
+# usage: axis ([xmin, xmax])
+#        axis ([xmin, xmax, ymin, ymax])
+#        axis ([xmin, xmax, ymin, ymax, zmin, zmax])
+#
+# Sets the axis limits.
+#
+# If your plot is already drawn, then you need to REPLOT before 
+# the new axis limits will take effect.
+
+  if (nargin != 1)
+    error ("usage: axis ([xmin, xmax, ymin, ymax, zmin, zmax])");
+  endif
+
+  if (is_vector (ax))
+
+    len = length (ax);
+
+    if (len != 2 && len != 4 && len != 6)
+      error ("axis: expecting vector with 2, 4, or 6 elements");
+    endif
+
+    if (len > 1)
+      eval (sprintf ("set xrange [%d:%d];", ax (1), ax (2)));
+    endif
+
+    if (len > 3)
+      eval (sprintf ("set yrange [%d:%d];", ax (3), ax (4)));
+    endif
+
+    if (len > 5)
+      eval (sprintf ("set zrange [%d:%d];", ax (5), ax (6)));
+    endif
+
+  else
+    error ("axis: expecting vector with 2, 4, or 6 elements");
+  endif
+
+endfunction