Kasi
2013-09-19 18:42:05
When Mx and My aren't equal FilterPointsPie skews the Pixels somewhat.
Examples; (Latest Simba / Smart 8.3 / Latest GLX + DLL)
Results this; (Notice Coords are 300, 300)
[ATTACH=CONFIG]22220[/ATTACH]
http://i.imgur.com/I5ajgqr.png
http://pastebin.com/2f3y91ur
But if Mx and My are different this is what it looks like;
[ATTACH=CONFIG]22221[/ATTACH]
http://i.imgur.com/kUXNGbC.png
http://pastebin.com/CWgUvHbB
Overlapping;
[ATTACH=CONFIG]22222[/ATTACH]
http://i.imgur.com/tBH4ZLO.png
http://pastebin.com/GaGfduiC
It seems as if the point of origin isnt changing. Or am i doing something wrong?
@masterBB;
procedure FilterPointsPie(var Points: TPointArray; const SD, ED, MinR, MaxR: Extended; Mx, My: Integer);
Examples; (Latest Simba / Smart 8.3 / Latest GLX + DLL)
program new;
{$DEFINE SMART}
{$include GLX/Setup.Simba}
var
S : TSmart;
St, En, I : Integer;
TPA : TPointArray;
begin
SetupGLX(S, 1350, 670);
GLXSetColourCapture(True);
glDebug(GL_MODE_NONE, 0, 0, 0, S.Width, S.Height);
Repeat
St := En := 0;
For I := 0 to 16 do
begin
St := En;
En := St + 20;
Wait(100);
TPAFromCircleWrap(300, 300, 200, TPA);
FillEllipse(TPA);
FilterPointsPie(TPA, En, St, 0, 200, 300, 300);
S.__Graphics.DrawTPA(TPA, Random(16777215), False);
end;
SetLength(TPA, 0);
Until(False);
end.
Results this; (Notice Coords are 300, 300)
[ATTACH=CONFIG]22220[/ATTACH]
http://i.imgur.com/I5ajgqr.png
http://pastebin.com/2f3y91ur
But if Mx and My are different this is what it looks like;
program new;
{$DEFINE SMART}
{$include GLX/Setup.Simba}
var
S : TSmart;
St, En, I : Integer;
TPA : TPointArray;
begin
SetupGLX(S, 1350, 670);
GLXSetColourCapture(True);
glDebug(GL_MODE_NONE, 0, 0, 0, S.Width, S.Height);
Repeat
St := En := 0;
For I := 0 to 16 do
begin
St := En;
En := St + 20;
Wait(100);
TPAFromCircleWrap(400, 300, 200, TPA);
FillEllipse(TPA);
FilterPointsPie(TPA, En, St, 0, 200, 400, 300);
S.__Graphics.DrawTPA(TPA, Random(16777215), False);
end;
SetLength(TPA, 0);
Until(False);
end.
Coords are 400, 300;[ATTACH=CONFIG]22221[/ATTACH]
http://i.imgur.com/kUXNGbC.png
http://pastebin.com/CWgUvHbB
Overlapping;
[ATTACH=CONFIG]22222[/ATTACH]
http://i.imgur.com/tBH4ZLO.png
http://pastebin.com/GaGfduiC
It seems as if the point of origin isnt changing. Or am i doing something wrong?
@masterBB;