//
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2007-2008 - INRIA
//
// This file is distributed under the same license as the Scilab package.
//

mode(-1);

my_handle             = scf(100001);
clf(my_handle,"reset");
demo_viewCode("basic_functions_6.dem.sce");

my_plot_desc          = "colored matrix";
my_handle.figure_name = my_plot_desc;

expr=[
"rect=[0,0,100,100];"
"plot2d(0,0,[0],''012'',''leg'',rect);"
"a=gca(); t=a.title;"
"t.text=""colored matrix""; t.font_size=3;"
"a.clip_state = ''clipgrf'';"
"x=[0 25 25  0 0]'';y=[0 0 25 25 0]'';d=25*[1 1 1 1 1]'';"
"xx=[];yy=[];i=0;"
"for k=1:4"
"  for l=1:4"
"    i=i+1;"
"    xx=[xx,(l-1)*d+x];yy=[yy,y+(k-1)*d];"
"  end"
"end"
"xfpolys(xx,yy,(1:16));a.clip_state = ''off'';"];

execstr(expr);
