scilab/modules/graphics/demos/lighting/color_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_color_light()
   8
   9     my_handle             = scf(100001);
  10     clf(my_handle,"reset");
  11     demo_viewCode("color_light.dem.sce");
  12
  13     // DEMO START
  14
  15     my_plot_desc          = "Color light";
  16     my_handle.figure_name = my_plot_desc;
  17
  18     plot3d;l=light();s=gce();
  19
  20     s.use_color_material = "off";
  21     s.color_flag = 0;
  22     s.thickness = 0;
  23     s.hiddencolor = -1;
  24     s.ambient_color = [1 1 1];
  25     s.diffuse_color = [1 1 1];
  26     s.specular_color = [1 1 1];
  27
  28     diff0 = rand(1, 3);
  29     diff1 = rand(1, 3);
  30     spec0 = rand(1, 3);
  31     spec1 = rand(1, 3);
  32
  33     num = 10;
  34     for j=1: num
  35         n = 700;
  36         for i=1:n
  37             if ~is_handle_valid(l) then
  38                 break
  39             end
  40             t = i / n;
  41             cdiff = diff0 * (1 - t) + diff1 * t;
  42             cspec = spec0 * (1 - t) + spec1 * t;
  43             l.ambient_color = 0.2 * cdiff;
  44             l.diffuse_color = 0.8 * cdiff;
  45             l.specular_color = cspec;
  46             sleep(3);
  47         end
  48         if ~is_handle_valid(l) then
  49             break
  50         end
  51         diff0 = diff1;
  52         spec0 = spec1;
  53         diff1 = rand(1, 3);
  54         spec1 = rand(1, 3);
  55     end
  56     // DEMO END
  57
  58 endfunction
  59
  60
  61 demo_color_light();
  62 clear demo_color_light;