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
|
// =============================================================================
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2008 - INRIA - Jean-Baptiste SILVY <jean-baptiste.silvy@inria.fr>
//
// This file is distributed under the same license as the Scilab package.
// =============================================================================
// <-- TEST WITH GRAPHIC -->
// test is_handle_valid function
// check that current objects are valid
test = is_handle_valid([gcf(), gca(), gce()]);
if (test <> [%t, %t, %t]) then bugmes();quit;end;
// create 11 polylines
plot([0:10; 0:10; 0:10], [0:10; 0:0.5:5; 0:2:20]);
// check polylines validity
axes = gca();
polylines = axes.children(1).children
polylines =
11 by 1 matrix of handles:
==========================
Polyline
Polyline
Polyline
Polyline
Polyline
Polyline
Polyline
Polyline
Polyline
Polyline
Polyline
test = is_handle_valid(polylines);
if (test <> [%t; %t; %t; %t; %t; %t; %t; %t; %t; %t; %t]) then bugmes();quit;end
// delete some polylines
delete(polylines(3:7));
// print validity
test = is_handle_valid(polylines)
test =
T
T
F
F
F
F
F
T
T
T
T
if (test <> [%t; %t; %f; %f; %f; %f; %f; %t; %t; %t; %t]) then bugmes();quit;end
|
