Smooth Filter

switch(phase){
  case 0: //setup
    InitGraph();
    rows=31;cols=47;
    ScaleWindow(0, 0,cols+1, rows+1);
    Colour(Black);
    BoxFill(0,0,cols+1,rows+1);
	
	
function showpic2() {         //and copy to pic1
 for(var i = 0;i<=cols;i++){
   for(var j = 0;j<=rows;j++) {
      m=5*pic2[i][j]
      ColourRGB(m,m,m);
      BoxFill(i, j, 1.1, 1.1);
      Colour(Red);
      pic1[i][j]=pic2[i][j];
   }
 }
}

pic1=new Array(cols);pic2=new Array(cols);
    for(var i = 0;i<=cols;i++){
       pic1[i]=new Array(rows);pic2[i]=new Array(rows);
    }

//Set up picture with a ragged diamond
    //Colour(Dull);
    m=(rows+cols)/2;
    for (i = 0;i<= cols;i++){ 
       for (j = 0; j<=rows;j++) {
          k = m - Math.abs(i - cols/2) - Math.abs(j - rows/2);
          pic2 [i][j] = k+12. * Math.random();
       }
    }

showpic2();
	phase=1;
	n=0;
    break;

case 1: //smooth	
    smooth();
    showpic2();  //and copy to pic1
    n++
    break;
}

if(n<3){ // not all done
  setTimeout('eval(document.panels.prog.value);',1000);
}