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;