CMSCOPE changed

1 files changed, 81 insertions, 0 deletions

diff --git a/modules/graphics/demos/bar/bar.dem.sce b/modules/graphics/demos/bar/bar.dem.sce
new file mode 100755
index 000000000..7bb4dcfd8
--- /dev/null
+++ b/modules/graphics/demos/bar/bar.dem.sce
@@ -0,0 +1,81 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
+//
+// This file is released under the 3-clause BSD license. See COPYING-BSD.
+
+//===========================================================
+// Demo of bar()
+// Date : 6/12/2007
+//===========================================================
+
+function demo_bar()
+
+    my_handle             = scf(100001);
+    clf(my_handle,"reset");
+    demo_viewCode("bar.dem.sce");
+
+    // Parameters
+
+    x=[1 2 3 4 5 6 7 8 9 10 11 12];
+    y=[ 13702 16902 22765 ; ..
+    13758 19959 21321 ; ..
+    16944 23254 24971 ; ..
+    16324 18323 21325 ; ..
+    15399 19648 24176 ; ..
+    14988 17160 22978 ; ..
+    10275 10996 25754 ; ..
+    10195 14316 25128 ; ..
+    14899 18410 33430 ; ..
+    18884 23924 49388 ; ..
+    16919 21535 43048 ; ..
+    14759 19979 33706];
+
+    angle = 295;
+
+    BackgroundColorId = color(205,253,203);
+    year2005ColorId = color(238,222,12);
+    year2006ColorId = color(255,0,0);
+    year2007ColorId = color(64,155,59);
+
+    // Histogramm drawing
+
+    drawlater();
+    bar(x,y);
+    histo = gce();
+
+
+    // Adjustements
+    histogramme = gcf();
+    histogramme.figure_size = [900,600];
+    histogramme.background = BackgroundColorId;
+
+    axes = gca();
+    axes.background = BackgroundColorId;
+    axes.x_ticks.labels = ["Jan";"Feb";"Mar";"Apr";"May";"Jun";"Jul";"Aug";"Sep";"Oct";"Nov";"Dec"];
+    axes.grid=[-1 0];
+
+    years = axes.children.children;
+    year2005 = years(3);
+    year2006 = years(2);
+    year2007 = years(1);
+
+    year2005.background = year2005ColorId;
+    year2006.background = year2006ColorId;
+    year2007.background = year2007ColorId;
+
+    year2005.bar_width = 0.25;
+    year2006.bar_width = 0.25;
+    year2007.bar_width = 0.25;
+
+    // Legend drawing
+
+    captions(histo.children($:-1:1), ["Year 2005";"Year 2006";"Year 2007"]);
+    legs = gce();
+    legs.legend_location = "in_upper_left";
+
+    drawnow();
+endfunction
+
+
+demo_bar();
+clear demo_bar;