Colored histogram

plot2d(0,0,[0],'012','leg',[0,0,30,20]);
xclip('clipgrf');
x=[1 3 3 1 1]';
y=[0 0 1 1 0]';
d=4*[1 1 1 1 1]';
xx=[x,x+d,x+2*d,x+3*d,x+4*d,x+5*d];
yy=[y,5*y,2*y,10*y,8*y,6*y];
xfpolys(xx,yy,2*[1 2 3 4 5 6]);xclip();