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