* Bug 15881 fixed: Demos stems bars histograms gathered
[scilab.git] / scilab / modules / graphics / demos / hist_bar_stem / bars_custom.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_custom_bars()
9
10     mode(-1);
11
12     my_handle             = scf(100001);
13     clf(my_handle,"reset");
14     demo_viewCode("bars_custom.dem.sce");
15
16     my_plot_desc          = "Custom bars";
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=""Custom bars""; 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_custom_bars();
36 clear demo_custom_bars;