[fpc-pascal] Implementing AggPas with PtcGraph
james at productionautomation.net
Thu Jun 22 18:47:40 CEST 2017
I squeezed a little more out of putimage by doing as little math as possible with a couple of variables to store j*ptcwidth and i+j*ptcwidth I got my 1000x test loop down to 1.013 seconds. Here is what it looks like at the moment, any ideas on how to optimize it further?
i, j, y1, x1, deltaX, deltaX1, deltaY: smallint;
JxW, I_JxW: Longword;
for j:=Y to Y1 do
for i:=X to X1 do
pixels[I_JxW] := pixels[I_JxW] xor pt(bitmap)[k];
-------------- next part --------------
An HTML attachment was scrubbed...
More information about the fpc-pascal