Valithor
2013-01-10 23:58:26
I don't think I've seen another thread on this, but it appears that AveragePixelShift isn't working for me. The function simply won't read any movement (or shifts in pixels). My Simba and SRL should be to date.
Here's the code I've been using.
My first thought was that the PBox was off because that bit of code was written by Flight (in his Tutorial) before EoC. So, I updated the box to:
The function still doesn't read any change in pixels even if you rotate the camera.
Any Thoughts?
Here's the code I've been using.
program PrintMyPixels;
{$DEFINE SMART}
{$i SRL/srl.simba}
Procedure DebugShiftCount;
var
PBox: TBox;
begin
PBox := IntToBox(245, 130, 285, 195);
Writeln(IntToStr(AveragePixelShift(PBox, 250, 500)));
end;
begin
setupSRL;
Repeat
DebugShiftCount;
Until(False);
end.My first thought was that the PBox was off because that bit of code was written by Flight (in his Tutorial) before EoC. So, I updated the box to:
PBox := IntToBox(230, 190, 275, 265);The function still doesn't read any change in pixels even if you rotate the camera.
Any Thoughts?