extend the Parx-GDI :: C lib with Parx-Pas :: FreePascal stubs & templates!
//As articled in depiction
-> https://twitter.com/Kenny_D_Lee/status/712258506620067842 ->https://www.facebook.com/1735214770048259/posts/1747501735486229/
procedure TestPattern(); stdcall;
var i,j: integer;
procedure SetPixTop(x,y: integer; colour: u32); stdcall;
begin
SetPix(ParxTopLeft,x,y,colour);
SetPix(ParxTopRight,x,y,colour);
end;
begin
//test pattern 1st pass
for i := 0 to 79 do
for j := 0 to 200 do
begin
SetPixTop(i,j,RED);
SetPixTop(i+80,j,CYAN);
SetPixTop(i+160,j,YELLOW);
SetPixTop(i+240,j,BLACK);
SetPixTop(i+320,j,BLUE);
end;
//test pattern 2nd pass
for i := 0 to 99 do
for j := 201 to 239 do
begin
SetPixTop(i,j,PINK);
SetPixTop(i+100,j,LIGHT_GREEN);
SetPixTop(i+200,j,WHITE);
SetPixTop(i+300,j,ORANGE);
end;
end;
Parx, The "non-amplified &or Pre-GPU" in Nintendo 3DS Graphics Device Interface
3d usable Canvas tenderer in C &or with pascal !
flying-dutchmen's witch & warlock, burning & pilgrimage hour on Radio-Freedom & the mutiny edition "devkitpro"
& special guests ctrulib-1.0.0 NinjaHax ( bare-metal / homebrew 3DS )