f513b38e99bdeb4cb310190f260160717d0db68f
[scilab.git] / 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;