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
|
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2004-2006 - INRIA - Fabrice Leray
// 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 [PName] = getPlotPropertyName(PropertyName,current_figure,cur_draw_mode)
//conversion to lower format
err = execstr("str = convstr(PropertyName);", "errcatch", "m");
if err <> 0
warning(msprintf(gettext("%s: Wrong type for input argument #%d: String expected.\n"),"getPlotPropertyName",1));
ResetFigureDDM(current_figure, cur_draw_mode);
return;
end
Table = ["clipping" "color" "foreground" "linestyle" "linewidth" "thickness" "marker" ..
"markstyle" "markeredgecolor" "markforeground" "markerfacecolor" "markbackground" ..
"markersize" "marksize" "visible" "xdata" "ydata" "zdata"];
TableEQ = ["clipping" "foreground" "foreground" "linestyle" "thickness" "thickness" "markstyle"..
"markstyle" "markforeground" "markforeground" "markbackground" "markbackground" ..
"marksize" "marksize" "visible" "xdata" "ydata" "zdata"]; // equivalent Table
opt1=[];
k=find(part(Table,1:length(str))==str);
if (k == [])
warning(msprintf(gettext("%s: Wrong value for input argument #%d: A valid property name expected.\n"),"getPlotPropertyName",1));
PName=[];
ResetFigureDDM(current_figure, cur_draw_mode);
return;
elseif ( size(k,"*") > 1)
if or(find(k==7)) // case PropertyName == 'marker'
k=7; // set to PropertyName == 'marker' only
else
warning(msprintf(gettext("%s: Ambiguous line property.\n"),"getPlotPropertyName"));
PName=[];
ResetFigureDDM(current_figure, cur_draw_mode);
return;
end
end
opt = Table(k);
for i=1:length(str)
if part(opt,i) <> part(str,i)
break;
end
end
opt1 = [opt1 k];
str = part(str,i:length(str));
if (size(opt1,"*") > 1)
warning(msprintf(gettext("%s: Wrong size for input argument #%d: Only one property expected.\n"),"getPlotPropertyName",1));
ResetFigureDDM(current_figure, cur_draw_mode);
return;
end
PName = TableEQ(opt1);
endfunction
|
