* Bug 6973 fixed: missing stable demo figure
[scilab.git] / scilab / modules / graphics / demos / bar / bar.dem.sce
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) 2007-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
3 //
4 // This file is released under the 3-clause BSD license. See COPYING-BSD.
5
6 //===========================================================
7 // Demo of bar()
8 // Date : 6/12/2007
9 //===========================================================
10
11 function demo_bar()
12
13     my_handle             = scf(100001);
14     clf(my_handle,"reset");
15     demo_viewCode("bar.dem.sce");
16
17     // Parameters
18
19     x=[1 2 3 4 5 6 7 8 9 10 11 12];
20     y=[ 13702 16902 22765 ; ..
21     13758 19959 21321 ; ..
22     16944 23254 24971 ; ..
23     16324 18323 21325 ; ..
24     15399 19648 24176 ; ..
25     14988 17160 22978 ; ..
26     10275 10996 25754 ; ..
27     10195 14316 25128 ; ..
28     14899 18410 33430 ; ..
29     18884 23924 49388 ; ..
30     16919 21535 43048 ; ..
31     14759 19979 33706];
32
33     angle = 295;
34
35     BackgroundColorId = color(205,253,203);
36     year2005ColorId = color(238,222,12);
37     year2006ColorId = color(255,0,0);
38     year2007ColorId = color(64,155,59);
39
40     // Histogramm drawing
41
42     drawlater();
43     bar(x,y);
44     histo = gce();
45
46
47     // Adjustements
48     histogramme = gcf();
49     // histogramme.figure_size = [900,600];
50     histogramme.background = BackgroundColorId;
51
52     axes = gca();
53     axes.background = BackgroundColorId;
54     axes.x_ticks.labels = ["Jan";"Feb";"Mar";"Apr";"May";"Jun";"Jul";"Aug";"Sep";"Oct";"Nov";"Dec"];
55     axes.grid=[-1 0];
56
57     years = axes.children.children;
58     year2005 = years(3);
59     year2006 = years(2);
60     year2007 = years(1);
61
62     year2005.background = year2005ColorId;
63     year2006.background = year2006ColorId;
64     year2007.background = year2007ColorId;
65
66     year2005.bar_width = 0.25;
67     year2006.bar_width = 0.25;
68     year2007.bar_width = 0.25;
69
70     // Legend drawing
71
72     captions(histo.children($:-1:1), ["Year 2005";"Year 2006";"Year 2007"]);
73     legs = gce();
74     legs.legend_location = "in_upper_left";
75
76     drawnow();
77 endfunction
78
79
80 demo_bar();
81 clear demo_bar;