Avoid handle no more valid if closing demo before end.
[scilab.git] / scilab / modules / graphics / demos / lighting / rot_light.dem.sce
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) 2013 - Pedro SOUZA
3 //
4 // This file is released under the 3-clause BSD license. See COPYING-BSD.
5
6
7 function demo_rot_light()
8
9     my_handle = scf(100001);
10     clf(my_handle,"reset");
11     demo_viewCode("rot_light.dem.sce");
12
13     // DEMO START
14     my_plot_desc          = "Rotating light";
15     my_handle.figure_name = my_plot_desc;
16
17     plot3d;
18     l=light();
19     s=gce();
20
21     for i=0:2000
22         sleep(5);
23         x = 2*cos(i*%pi/180);
24         y = 2*sin(i*%pi/180);
25         z = 2;
26         if is_handle_valid(l) then
27             l.position = [x y z];
28         else
29             break
30         end
31     end
32     // DEMO END
33 endfunction
34
35
36 demo_rot_light();
37 clear demo_rot_light;
38