3ds/000755 000000 000000 00000000000 13143071347 011530 5ustar00rootroot000000 000000 3ds/parx/parx_inf.inc000644 000000 000000 00000006716 13143230405 015005 0ustar00rootroot000000 000000 //copyrights 2016 kenneth dwayne Lee Type { u8 = cuint8; pu8 = ^u8; u16 = cuint16; pu16 = ^u16; u32 = cuint32; pu32 = ^u32; u64 = cuint64; pu64 = ^u64;c s8 = cint8; s16 = cint16; s32 = cint32; ps32 = ^s32; s64 = cint64; ps64 = ^s64; bool= boolean; } imagebuff = record width : u16; height : u16; data : Pu8; depth : u8; used : bool; end; rect = record top,left,bottom,right : u16; end; Prect =^rect; RamType = (generic := 0,linear := 1,vram := 2); const RED = $FFFF0000; GREEN = $FF00FF00; BLUE = $FF0000FF; CYAN = $FF00FFFF; PINK = $FFFF00FF; YELLOW = $FFFFFF00; BLACK = $FF000000; WHITE = $FFFFFFFF; ORANGE = $FFFF9900; LIGHT_GREEN = $FF00CC00; PURPLE = $FF660033; var transparent : u32;cvar;public; ParxBot : Pu8;cvar;public; ParxLeft : Pu8;cvar;public; ParxRight : Pu8;cvar;public; // --> ParxGDI.h procedure SetPixEx(screen:Pu8; bpp:u16; h,x,y:integer; colour:u32);cdecl;external; procedure SetPix(screen:Pu8; x,y: integer; colour: u32);cdecl; function GetPixEx(screen:Pu8; bpp:u16; h,x,y:integer):u32;cdecl;external; function GetPix(screen:Pu8; x,y : integer):u32 ;cdecl; procedure ClrParx(screen:Pu8; colour:u32);cdecl;external; procedure SetRecEx(screen:Pu8; Top,Left,Height,Width: integer; Region:Pu8; CleanUp:bool; RamLocal:RamType);cdecl;external; procedure SetRecRe(screen:Pu8; Top,Left,Height,Width: integer; Region:Pu8);cdecl; function GetRecEx(screen:Pu8; Top,Left,Height,Width: integer; bpp:u16; RamLocal:RamType):Pu8;cdecl;external; function GetRecRe(screen:Pu8; Top,Left,Height,Width: integer):Pu8; cdecl; // --> Parx_Font.h function CanvasChar(screen:Pu8; c:char; x,y:integer; colour:u32):cint;cdecl;external; function CanvasString(screen:Pu8; _string:pchar; x,y:integer; colour:u32):cint;cdecl;external; // --> Parx_Shapes.h procedure line(screen:Pu8; x0,y0,x1,y1:integer; colour:u32);cdecl;external; procedure box(screen:Pu8; x,y,w,h: integer; colour:u32);cdecl;external; procedure poly(screen:Pu8; argv:pcint; argc:cint; colour:u32);cdecl;external; procedure CircleFill(screen:Pu8; xCen,yCen,radius:integer; colour:u32);cdecl;external; procedure Ellipse(screen: Pu8; xctr,yctr,majaxis,minaxis,rotnrad: integer; colour: u32);cdecl;external; procedure Circle(screen: Pu8; cx,cy,radius: integer; colour:u32);cdecl; procedure lineSample(screen:Pu8; x0,y0,x1,y1:integer;buffer:Pu8);cdecl;external; procedure EllipseSample(screen: Pu8; xctr,yctr,majaxis,minaxis,rotnrad, DisplayAxis: integer; buffer: Pu8);cdecl;external; // --> Parx_Fill.h procedure GradientFillRect(prc:Prect; radius:cint; mode:cint; s_col:u32; e_col:u32; screen:Pu8);cdecl;external; procedure FillRoundRect(prc:Prect; radius:cint; b_col:u32; f_col:u32; screen:Pu8);cdecl;external; procedure RoundRectShadow(prc:Prect; radius:cint; col:u32; length:cint; screen:Pu8);cdecl;external; procedure FillRect(prc:Prect; col:u32; screen:Pu8);cdecl;external; procedure FloodFill(x0:cint; y0:cint; fillColor:u32; interiorColor:u32; screen:Pu8);cdecl;external; // ... procedure ClrAll(colour: u32); stdcall; procedure InitBufSingle(colour: u32); stdcall; procedure InitBufDub(colour: u32); stdcall; //kdl Parx3DS.pas000644 000000 000000 00000001523 13143063556 012774 0ustar00rootroot000000 000000 // // Copyright (c) 2017 Kenny D. Lee // all rights reserved on // // 2DS & 3DS BootStrap & ... any & all portions of "Pascal" // WE Both YOU & I are intent on profit with & from any $ale$ &or in "Nintendo 2DS & 3DS" development usage of the "Pascal" computer language! unit Parx3DS; {$mode objfpc}{$H+} interface uses ctypes; {$linklib libctru} {$linklib libm} {$linklib libParx} //-Fl/opt/radiofreedom/libctru/lib //-Fu/opt/radiofreedom/libctru/pascal //-Fi/opt/radiofreedom/libctru/pascal/3ds {$define 3dsintf} {$i 3dstypes.inc} {$i services/gfx.inc} {$i services/apt.inc} {$i services/gsp.inc} {$i services/fs.inc} {$i services/hid.inc} {$undef 3dsintf} {$i "parx/parx_inf.inc"} implementation {$i "parx/parx.inc"} {$define 3dsimpl} {$i services/fs.inc} {$i services/gsp.inc} {$i 3dstypes.inc} {$undef 3dsimpl} end. //kdl 3ds/parx/parx.inc000644 000000 000000 00000003650 13143233623 014150 0ustar00rootroot000000 000000 //copyrights 2016 kenneth dwayne lee procedure SetPix(screen: Pu8; x,y: integer; colour : u32);cdecl; begin SetPixEx(screen,3,240,x,y,colour); end; function GetPix(screen: Pu8; x,y: integer): u32;cdecl; begin result:=GetPixEx(screen,3,240,x,y); end; procedure SetRecRe(screen: Pu8; Top,Left,Height,Width: integer; Region: Pu8);cdecl; begin SetRecEx(screen,Top,Left,Height,Width,Region,true,linear); end; function GetRecRe(screen: Pu8; Top,Left,Height,Width: integer) : Pu8;cdecl; begin GetRecRe:=GetRecEx(screen,Top,Left,Height,Width,3,linear); end; procedure Circle(screen: Pu8; cx,cy,radius: integer; colour:u32);cdecl; begin Ellipse(screen, cx, cy, radius, radius, 0, colour); end; procedure ClrAll(colour: u32); stdcall; begin ClrParx(ParxLeft, colour); ClrParx(ParxRight, colour); ClrParx(ParxBot, colour); end; procedure InitBufSingle(colour: u32); stdcall; begin gfxSetDoubleBuffering(GFX_TOP,false); gfxSetDoubleBuffering(GFX_BOTTOM,false); ParxLeft := gfxGetFramebuffer(GFX_TOP, GFX_LEFT, nil, nil); ParxRight := gfxGetFramebuffer(GFX_TOP, GFX_RIGHT, nil, nil); ParxBot := gfxGetFramebuffer(GFX_BOTTOM, GFX_LEFT, nil, nil); ClrAll(colour);// ClrAll(BLACK); end; procedure BufDubSub(colour: u32; index: u8); stdcall; begin gfxTopLeftFramebuffers[index] := gfxGetFramebuffer(GFX_TOP, GFX_LEFT, nil, nil); ClrParx(gfxTopLeftFramebuffers[index], colour); gfxTopRightFramebuffers[index] := gfxGetFramebuffer(GFX_TOP, GFX_RIGHT, nil, nil); ClrParx(gfxTopRightFramebuffers[index], colour); gfxBottomFramebuffers[index] := gfxGetFramebuffer(GFX_BOTTOM, GFX_LEFT, nil, nil); ClrParx(gfxBottomFramebuffers[index], colour); end; procedure InitBufDub(colour: u32); stdcall; begin // gfxSetDoubleBuffering(GFX_TOP,true); // gfxSetDoubleBuffering(GFX_BOTTOM,true); BufDubSub(colour,0); BufDubSub(colour,1); end; //kdl 3ds/parx/000755 000000 000000 00000000000 13143020403 012465 5ustar00rootroot000000 000000