hedgewars/uMisc.pas
changeset 7365 26df99967963
parent 7306 3cff5c769509
child 7804 9122461ae32b
equal deleted inserted replaced
7363:09af8bc9181f 7365:26df99967963
   211                         b+= img[4*(width*(i*k+i0) + j*k+j0)+2];
   211                         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]:= 0;
   216                 img[4*(w*i + j)+3]:= 255;
   217             end;
   217             end;
   218     end;
   218     end;
   219 end;
   219 end;
   220 {$ENDIF}
   220 {$ENDIF}
   221 
   221