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
|
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) INRIA
// 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-en.txt
function clf(varargin)
nbArg = size(varargin);
if nbArg==0 then
h=get('current_figure')
job='clear'
elseif nbArg==1 then
if type(varargin(1))==1 then // win num given
num=varargin(1)
h=[];for k=1:size(num,'*'),h=[h;get_figure_handle(num(k))];end
job='clear'
elseif type(varargin(1))==9 then // handle given
h=varargin(1);job='clear'
elseif typeof(varargin(1))=='pltlibH' then // plotlib handle given
h=varargin(1).handle;job='clear'
elseif type(varargin(1))==10 then // job given
h=get('current_figure')
job=varargin(1)
end
elseif nbArg==2 then
if type(varargin(1))==1 then // win num given
num=varargin(1)
h=[];for k=1:size(num,'*'),h=[h;get_figure_handle(num(k))];end
elseif type(varargin(1))==9 then // handle given
h=varargin(1);
end
job=varargin(2);
else
error(msprintf(gettext("%s: Wrong number of input argument(s): %d to %d expected."), "clf", 0, 2));
end
if and(job<>['clear','reset']) then
error(msprintf(gettext("%s: Wrong value for input argument #%d: ''clear'' or ''reset'' expected."), "clf", nbArg));
end
nbHandles = size(h,'*');
// check that all the handles are figures
for k=1:nbHandles
curFig = h(k);
if curFig.type <> 'Figure' then
error(msprintf(gettext("%s: Wrong type for input argument #%d: A vector of ''Figure'' handle expected."), "clf", 1));
end
end
// delete childrens
for k=1:nbHandles
curFig = h(k)
// drawlater
immediateMode = curFig.immediate_drawing;
curFig.immediate_drawing = 'off';
delete(curFig.children);
// drawnow
curFig.immediate_drawing = immediateMode;
end
// reset figures to default values if needed
if (job == 'reset') then
defaultFig = gdf();
for k = 1: nbHandles
curFig = h(k);
// drawlater
immediateMode = curFig.immediate_drawing;
curFig.immediate_drawing = 'off';
// properties to set
defaultProps=['figure_position',
'axes_size',
'auto_resize',
'viewport',
'figure_name',
'color_map',
'info_message',
'pixmap',
'pixel_drawing_mode',
'immediate_drawing',
'background',
'visible',
'rotation_style',
'event_handler',
'event_handler_enable',
'user_data',
'tag'];
for i = 1:size(defaultProps,'*')
defaultValue = get(defaultFig, defaultProps(i));
if (defaultProps(i) <> "figure_position" | defaultValue <> [-1,-1]) then
// don't reset figure pos is defaultValue is [-1,-1]
set(curFig, defaultProps(i), defaultValue);
end
end
// drawnow
curFig.immediate_drawing = immediateMode;
end
end
endfunction
|
