Uses ..., MtxVecTee; var Mtx, ReducedMtx: TMtx; begin CreateIt(Mtx,ReducedMtx); try Mtx.Size(1000,1000,false); Mtx.RandGauss; // we're interested in averages, not pattern Mtx.PixelDownSample(ReducedMtx,200,pdsAverage); DrawIt(ReducedMtx); finally FreeIt(Mtx,ReducedMtx); end; end;