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
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
|
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2002-2004 - INRIA - Vincent COUVERT
//
// This file must be used under the terms of the CeCILL.
// This source file is licensed as described in the file COPYING, which
// you should have received as part of this distribution. The terms
// are also available at
// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
function varargout=mtlb_axis(varargin)
// Emulation function for Matlab axis()
varargout(1)=list()
listvar=varargin
if size(listvar)==0
a=gca();
set(gca(),"axes_visible","on")
varargout(1)=matrix(a.data_bounds,1,-1);
return
elseif type(listvar(1))<>9 then
a=gca();
rhs=lstsize(listvar)
else
a=listvar(1)
listvar(1)=null()
rhs=lstsize(listvar)
listvar=listvar
end
if rhs>0 then
for krhs=1:rhs
if type(listvar(krhs))==1 then
if size(listvar(krhs),1)>1 & size(listvar(krhs),2)>1 then
error(msprintf(gettext("%s: Wrong size for ''%s'': Vector expected.\n"),"mtlb_axis","data_bounds"));
end
listvar(krhs) = matrix(listvar(krhs),1,-1);
// axis([xmin xmax ymin ymax zmin zmax])
if size(listvar(krhs),2)==4 then
set(gca(),"data_bounds",matrix(listvar(krhs),2,-1))
set(gca(),"view","2d")
set(gca(),"axes_visible","on")
elseif size(listvar(krhs),2)==6
set(gca(),"data_bounds",matrix(listvar(krhs),2,-1))
set(gca(),"view","3d")
set(gca(),"axes_visible","on")
// axis([xmin xmax ymin ymax zmin zmax cmin cmax])
elseif size(listvar(krhs),2)==8 then
error(msprintf(gettext("%s: This feature has not been implemented: %s.\n"),"mtlb_axis", "data_bounds=[xmin xmax ymin ymax zmin zmax cmin cmax]"));
// Unknown column number for listvar(krhs)
else
error(msprintf(gettext("%s: Wrong value for affectation to ''%s''.\n"),"mtlb_axis", "data_bounds"));
end
elseif type(listvar(krhs))==10 then
// axis auto
if listvar(krhs)=="auto" then
a.auto_scale="on"
// axis manual
elseif listvar(krhs)=="manual" then
a.auto_scale="off"
// axis tight
elseif listvar(krhs)=="tight" then
a.tight_limits="on"
// axis fill
elseif listvar(krhs)=="fill" then
error(msprintf(gettext("%s: This feature has not been implemented: %s.\n"),"mtlb_axis", "axis fill"));
// axis ij
elseif listvar(krhs)=="ij" then
a.rotation_angles=[180 270]
// axis xy
elseif listvar(krhs)=="xy" then
a.rotation_angles=[0 270]
// axis equal
elseif listvar(krhs)=="equal" then
a.isoview="on"
// axis image
elseif listvar(krhs)=="image" then
error(msprintf(gettext("%s: This feature has not been implemented: %s.\n"),"mtlb_axis","axis image"));
// axis square
elseif listvar(krhs)=="square" then
if a.view=="2d" then
warning(msprintf(gettext("%s: ''%s'' only used in 3d mode."),"mtlb_axis","cube_scaling"));
end
a.cube_scaling="on"
// axis vis3d
elseif listvar(krhs)=="vis3d" then
a.view="3d"
// axis normal
elseif listvar(krhs)=="normal" then
error(msprintf(gettext("%s: This feature has not been implemented: %s.\n"),"mtlb_axis","axis normal"));
// axis on
elseif listvar(krhs)=="on" then
a.axes_visible="on"
// axis off
elseif listvar(krhs)=="off" then
a.axes_visible="off"
// [mode,visibility,direction] = axis('state')
elseif listvar(krhs)=="state" then
if a.auto_scale=="on" then
varargout(1)="auto"
else
varargout(1)="manual"
end
varargout(2)=a.axes_visible
if a.rotation_angles==[0 180] then
varargout(3)="xy"
else
varargout(3)="ij"
end
// Unknown character string
else
error(msprintf(gettext("%s: This feature has not been implemented: %s.\n"),"mtlb_axis","axis "+listvar(krhs)));
end
// axis(axes_handles,...)
elseif type(listvar(krhs))==9 then
// krhs must be one
for khandle=1:lstsize(listvar(krhs))
arglist=list()
for kvararg=1:lstsize(listvar)-1
arglist($+1)=listvar(kvararg+1)
end
arglist($+1)=listvar(krhs)(khandle)
mtlb_axis(arglist)
end
// Wrong type for listvar(krhs)
else
error(msprintf(gettext("%s: This feature has not been implemented: Argument of type %d.\n"),"mtlb_axis",type(listvar(krhs))));
end
varargout(1)=matrix(a.data_bounds,1,-1);
end
// v = axis
else
varargout(1)=matrix(a.data_bounds,1,-1);
end
endfunction
|
