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             t = i / n;
  38             cdiff = diff0 * (1 - t) + diff1 * t;
  39             cspec = spec0 * (1 - t) + spec1 * t;
  40             l.ambient_color = 0.2 * cdiff;
  41             l.diffuse_color = 0.8 * cdiff;
  42             l.specular_color = cspec;
  43             sleep(3);
  44         end
  45         diff0 = diff1;
  46         spec0 = spec1;
  47         diff1 = rand(1, 3);
  48         spec1 = rand(1, 3);
  49     end
  50     // DEMO END
  51
  52 endfunction
  53
  54
  55 demo_color_light();
  56 clear demo_color_light;