1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
## Copyright (C) 2004 Shai Ayal
##
## 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 Foundation; either version 2, or (at your option)
## any later version.
##
## OctPlot 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 OctPlot; see the file COPYING. If not, write to the Free
## Software Foundation, 59 Temple Place - Suite 330, Boston, MA
## 02111-1307, USA.
## -*- texinfo -*-
## @deftypefn {Function File} @var{ax} = axis (@var{args})
## This function controls the current axis
## combinations of arguments are possible. The simplest form is
##
## @example
## @var{ax} = axis ();
## @end example
##
## @noindent
## returns the current axis limits in @var{ax}.
## @var{ax} = [xmin,xmax,ymin,ymax]
##
## @example
## axis ([xmin,xmax,ymin,ymax]);
## @end example
##
## @noindent
## sets the axis limits
##
## @itemize @bullet
## @item
## If a vector is given, it is taken to be [xmin,xmax,ymin,ymax] and the
## axis limits are set accordingly
##
## @item
## If the first argument is "auto" then the axis scaling is set to auto
##
## @item
## if the first argument is "equal" the axis are set to the correct
## aspect ratio
##
## @item
## if the first argument is "on" or "off" than the visibility of the axes
## bars, ticks & labels is set accordingly
##
## @end itemize
## axis returns the axis limits
## @end deftypefn
## @seealso{set,get,plot}
## Author: shaia
function _ax = axis (varargin)
_gca=gca();
ax=zeros(1,4);
ax(1:2)=get(_gca,"xlim");
ax(3:4)=get(_gca,"ylim");
for ii=1:length(varargin)
__axis_helper__(_gca,ax,varargin{ii});
endfor
ax=zeros(1,4);
ax(1:2)=get(_gca,"xlim");
ax(3:4)=get(_gca,"ylim");
endfunction
function __axis_helper__(_gca,ax,arg)
if (isstr(arg))
sa = arg;
if (strcmp(sa,"auto"))
set(_gca,"xlimmode","auto","ylimmode","auto");
elseif( strcmp(sa,"off"))
set(_gca,"visible","off");
elseif( strcmp(sa,"on"))
set(_gca,"visible","on");
elseif( strcmp(sa,"equal") )
fpos = get(gcf(),"position");
pos = get(_gca,"position");
fact = abs(pos(4)/pos(3)*(ax(1)-ax(2))/(ax(3)-ax(4)))*fpos(4)/fpos(3);
if(fact<1)
pos(1) += (1-fact)*pos(3)/2;
pos(3) *= fact;
elseif(fact>1)
pos(2) += (1-1/fact)*pos(4)/2;
pos(4) *= 1/fact;
endif
set(_gca,"position",pos);
else
warning("unknown input argument -- are you using gnuplot axis commands?");
endif
else
_lims = arg(:);
if (length(_lims)>=2)
set(_gca,"xlim",_lims(1:2),"xlimmode","manual");
if(length(_lims)>=4)
set(_gca,"ylim",_lims(3:4),"ylimmode","manual");
endif
else
error("unknown argument");
endif
endif
endfunction
|
