equal
deleted
inserted
replaced
204 g:= 0; |
204 g:= 0; |
205 b:= 0; |
205 b:= 0; |
206 for i0:= 0 to k-1 do |
206 for i0:= 0 to k-1 do |
207 for j0:= 0 to k-1 do |
207 for j0:= 0 to k-1 do |
208 begin |
208 begin |
209 r+= img[4*(width*(i*k+i0) + j*k+j0)+0]; |
209 inc(r, img[4*(width*(i*k+i0) + j*k+j0)+0]); |
210 g+= img[4*(width*(i*k+i0) + j*k+j0)+1]; |
210 inc(g, img[4*(width*(i*k+i0) + j*k+j0)+1]); |
211 b+= img[4*(width*(i*k+i0) + j*k+j0)+2]; |
211 inc(b, img[4*(width*(i*k+i0) + j*k+j0)+2]); |
212 end; |
212 end; |
213 img[4*(w*i + j)+0]:= r div (k*k); |
213 img[4*(w*i + j)+0]:= r div (k*k); |
214 img[4*(w*i + j)+1]:= g div (k*k); |
214 img[4*(w*i + j)+1]:= g div (k*k); |
215 img[4*(w*i + j)+2]:= b div (k*k); |
215 img[4*(w*i + j)+2]:= b div (k*k); |
216 img[4*(w*i + j)+3]:= 255; |
216 img[4*(w*i + j)+3]:= 255; |