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 ) -- View this message in context: http://free-pascal-lazarus.989080.n3.nabble.com/Three-DS-Parx-GDI-it-s-big-enuff-for-a-shoebox-fits-more-in-cupboard-tp4047731p4047761.html Sent from the Free Pascal - Lazarus mailing list archive at Nabble.com. -- _______________________________________________ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus