2561fb4028d95b0c33b1c493bb0de16acddae040
[scilab.git] / scilab / modules / graphics / demos / basic_functions / basic_functions_7.dem.sce
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) 2007-2008 - INRIA
3 // Copyright (C) 2010 - DIGITEO - Allan CORNET
4 //
5 // This file is released under the 3-clause BSD license. See COPYING-BSD.
6
7
8 function demo_basic_function7()
9
10     mode(-1);
11
12     my_handle             = scf(100001);
13     clf(my_handle,"reset");
14     demo_viewCode("basic_functions_7.dem.sce");
15
16     my_plot_desc          = "colored histogram";
17     my_handle.figure_name = my_plot_desc;
18
19     expr=[
20     "plot2d(0,0,[0],''012'',''leg'',[0,0,30,20]);"
21     "a=gca(); t=a.title;"
22     "t.text=""colored histogram""; t.font_size=3;"
23     "a.clip_state = ''clipgrf'';"
24     "x=[1 3 3 1 1]'';"
25     "y=[0 0 1 1 0]'';"
26     "d=4*[1 1 1 1 1]'';"
27     "xx=[x,x+d,x+2*d,x+3*d,x+4*d,x+5*d];"
28     "yy=[y,5*y,2*y,10*y,8*y,6*y];"
29     "xfpolys(xx,yy,2*[1 2 3 4 5 6]);a.clip_state = ''off'';"];
30
31     execstr(expr);
32
33 endfunction
34
35 demo_basic_function7();
36 clear demo_basic_function7;