%ffp

ctl[0]: "Tile"


ForEveryTile:
{
int iAverage;

for (z=0; z<Z; z++)
for (i0=0; i0<ctl(0); i0++)
for (i1=0; i1<ctl(0); i1++)
{
	for (y=i0*Y/ctl(0); y<(i0+1)*Y/ctl(0); y++)
	for (x=i1*X/ctl(0); x<(i1+1)*X/ctl(0); x++)
		iAverage +=src(x,y,z);

	iAverage= iAverage/(X*Y/ctl(0)/ctl(0));
	pset(i1*X/ctl(0), i0*Y/ctl(0), z, iAverage);

	for (y=i0*Y/ctl(0); y<(i0+1)*Y/ctl(0); y++)
	for (x=i1*X/ctl(0); x<(i1+1)*X/ctl(0); x++)
		pset(x,y,z, pget(i1*X/ctl(0), i0*Y/ctl(0), z));

}


return true;
}
/*R,G,B:
src((x*ctl(0))%X, (y*ctl(0))%Y, z)