mirror of
https://github.com/moparisthebest/Simba
synced 2024-12-04 14:42:23 -05:00
7f00bb6805
commit7426db160fAuthor: Merlijn Wajer <merlijn@wizzup.org> Date: Fri Aug 5 11:40:27 2011 +0200 Lape: Update HEAD. commit6fa1740ea7Author: Niels <niels.a.d@gmail.com> Date: Thu Aug 4 23:07:35 2011 +0200 Simba compiles again now. commit27b1c42b6aAuthor: Niels <niels.a.d@gmail.com> Date: Thu Aug 4 00:31:28 2011 +0200 Little bugfix in lape wrapper generator + new wrappers. commitf46f841658Author: Niels <niels.a.d@gmail.com> Date: Thu Aug 4 00:00:54 2011 +0200 Commented functions that cannot be imported yet for lape. commitb7aa543b6bAuthor: Niels <niels.a.d@gmail.com> Date: Wed Aug 3 23:54:54 2011 +0200 New lape wrappers. commitecfc435fabAuthor: Niels <niels.a.d@gmail.com> Date: Wed Aug 3 23:49:54 2011 +0200 Fixed a bug in lape wrapper generation. commit2d9d65000bAuthor: Merlijn Wajer <merlijn@wizzup.org> Date: Wed Aug 3 21:52:01 2011 +0200 Lape: Most types added. Interpreter starts. Lacks a few methods, but most tests just work. :-) commitbf0f806ecfAuthor: Niels <niels.a.d@gmail.com> Date: Wed Aug 3 21:06:56 2011 +0200 Added debug message for when initializing the interpreter fails. commita143016bebAuthor: Merlijn Wajer <merlijn@wizzup.org> Date: Wed Aug 3 20:30:11 2011 +0200 Lape-wrappers: Fix by nielsie95. commit9deb9a1b67Author: Merlijn Wajer <merlijn@wizzup.org> Date: Wed Aug 3 20:29:48 2011 +0200 Lape: Add wrappers. commit510674570bAuthor: Merlijn Wajer <merlijn@wizzup.org> Date: Wed Aug 3 20:12:26 2011 +0200 Lape: Update HEAD. commit8260840b89Author: Merlijn Wajer <merlijn@wizzup.org> Date: Wed Aug 3 14:34:48 2011 +0200 Lape: Update HEAD. commit64bf115d30Merge:0701e91aaafd6bAuthor: Merlijn Wajer <merlijn@wizzup.org> Date: Mon Aug 1 19:26:15 2011 +0200 Merge branch 'master' into lape-integration commit0701e911d1Merge:26693f7a20a31aAuthor: Merlijn Wajer <merlijn@wizzup.org> Date: Sun Jul 31 18:11:58 2011 +0200 Merge branch 'master' into lape-integration commit26693f7d4dMerge:e124ae3da0de6eAuthor: Merlijn Wajer <merlijn@wizzup.org> Date: Sat Jul 30 00:16:12 2011 +0200 Merge branch 'master' into lape-integration commite124ae396aMerge:4c6f304c1051efAuthor: Merlijn Wajer <merlijn@wizzup.org> Date: Thu Jul 28 20:53:01 2011 +0200 Merge branch 'lape-integration' of github.com:MerlijnWajer/Simba into lape-integration commit4c6f30462cAuthor: Merlijn Wajer <merlijn@wizzup.org> Date: Thu Jul 28 20:52:13 2011 +0200 Lape: Update head. commit2d8fdc4d7aAuthor: Merlijn Wajer <merlijn@wizzup.org> Date: Thu Jul 28 20:08:01 2011 +0200 Lape: Add Wrappers project. commite4f8e06f1cMerge:7228a881fd51ffAuthor: Merlijn Wajer <merlijn@wizzup.org> Date: Thu Jul 28 20:03:39 2011 +0200 Merge branch 'master' into lape-integration Conflicts: Projects/Simba/Simba.inc commitc1051efbebMerge:7228a88b83a277Author: Merlijn Wajer <merlijn@wizzup.org> Date: Sat Jul 23 13:41:15 2011 -0700 Merge pull request #30 from Dgby714/lape-integration TLPThread Update commit7228a888c4Merge:ad2e3cae63dcbcAuthor: Merlijn Wajer <merlijn@wizzup.org> Date: Sat Jul 23 21:54:58 2011 +0200 Merge branch 'master' into lape-integration Conflicts: Projects/Simba/Simba.inc Projects/Simba/simbaunit.pas Units/lape commitb83a277502Author: John P (Dgby714) <Dgby714@gmail.com> Date: Thu Jul 7 12:22:51 2011 -0400 TLPThread Update - Init Result to False in OnHandleDirective. - Override lape _writeln, Now adds to Debug memo. commitad2e3ca3c3Merge:1a22452c79eadfAuthor: Merlijn Wajer <merlijn@wizzup.org> Date: Sat Jun 25 15:50:58 2011 -0700 Merge pull request #25 from Dgby714/la-pe Lape commit1a224529f3Merge:5dc761189f1a9bAuthor: Merlijn Wajer <merlijn@wizzup.org> Date: Sun Jun 26 00:49:03 2011 +0200 Merge branch 'master' into lape-integration commitc79eadf1efAuthor: John P (Dgby714) <Dgby714@gmail.com> Date: Sat Jun 25 18:43:17 2011 -0400 TLPThread update, Uncommented Lape Defines commit4d15ee07d5Merge:89f1a9b5dc7611Author: John P (Dgby714) <Dgby714@gmail.com> Date: Sat Jun 25 17:23:24 2011 -0400 Merge branch 'lape-integration' of git://github.com/MerlijnWajer/Simba into la-pe commit5dc7611dbaAuthor: John P (Dgby714) <Dgby714@gmail.com> Date: Sat Jun 25 07:35:20 2011 -0400 TLPThread update, Lape settings, Add Lape unit to OtherUnitFiles commite5812a8000Author: John P (Dgby714) <Dgby714@gmail.com> Date: Thu Jun 16 21:26:03 2011 -0400 Lape Integration, TLPThread work commitecab4d5801Author: Merlijn Wajer <merlijn@wizzup.org> Date: Sat Jun 25 17:45:24 2011 +0200 Lape: Add lape submodule.
260 lines
10 KiB
PHP
260 lines
10 KiB
PHP
procedure Lape_CreateBitmapString(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pstring(Result)^ := ps_CreateBitmapString(Pinteger(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_GetMufasaBitmap(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PMufasaBitmap(Result)^ := ps_GetMufasaBitmap(Pinteger(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_CreateBitmap(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pinteger(Result)^ := ps_CreateBitmap(Pinteger(Params^[0])^, Pinteger(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_FreeBitmap(const Params: PParamArray);
|
|
begin
|
|
ps_FreeBitmap(Pinteger(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_SaveBitmap(const Params: PParamArray);
|
|
begin
|
|
ps_SaveBitmap(Pinteger(Params^[0])^, Pstring(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_BitmapFromString(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pinteger(Result)^ := ps_BitmapFromString(Pinteger(Params^[0])^, Pinteger(Params^[1])^, Pstring(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_LoadBitmap(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pinteger(Result)^ := ps_LoadBitmap(PString(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_SetBitmapSize(const Params: PParamArray);
|
|
begin
|
|
ps_SetBitmapSize(Pinteger(Params^[0])^, Pinteger(Params^[1])^, Pinteger(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_StretchBitmapResize(const Params: PParamArray);
|
|
begin
|
|
ps_StretchBitmapResize(Pinteger(Params^[0])^, Pinteger(Params^[1])^, Pinteger(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_GetBitmapSize(const Params: PParamArray);
|
|
begin
|
|
ps_GetBitmapSize(Pinteger(Params^[0])^, Pinteger(Params^[1])^, Pinteger(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_SetBitmapName(const Params: PParamArray);
|
|
begin
|
|
ps_SetBitmapName(Pinteger(Params^[0])^, Pstring(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_CreateMirroredBitmap(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pinteger(Result)^ := ps_CreateMirroredBitmap(Pinteger(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_CreateMirroredBitmapEx(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pinteger(Result)^ := ps_CreateMirroredBitmapEx(Pinteger(Params^[0])^, PBmpMirrorStyle(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_FastGetPixel(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PLongWord(Result)^ := ps_FastGetPixel(Pinteger(Params^[0])^, Pinteger(Params^[1])^, Pinteger(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_FastGetPixels(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PIntegerArray(Result)^ := ps_FastGetPixels(Pinteger(Params^[0])^, PPointArray(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_GetBitmapAreaColors(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
P2DIntArray(Result)^ := ps_GetBitmapAreaColors(PInteger(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^, PInteger(Params^[3])^, PInteger(Params^[4])^);
|
|
end;
|
|
|
|
procedure Lape_FastSetPixel(const Params: PParamArray);
|
|
begin
|
|
ps_FastSetPixel(Pinteger(Params^[0])^, Pinteger(Params^[1])^, Pinteger(Params^[2])^, PColor(Params^[3])^);
|
|
end;
|
|
|
|
procedure Lape_FastSetPixels(const Params: PParamArray);
|
|
begin
|
|
ps_FastSetPixels(Pinteger(Params^[0])^, PPointArray(Params^[1])^, PIntegerArray(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_DrawTPABitmap(const Params: PParamArray);
|
|
begin
|
|
ps_DrawTPABitmap(Pinteger(Params^[0])^, PPointArray(Params^[1])^, Pinteger(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_DrawATPABitmap(const Params: PParamArray);
|
|
begin
|
|
ps_DrawATPABitmap(Pinteger(Params^[0])^, P2DPointArray(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_DrawATPABitmapEx(const Params: PParamArray);
|
|
begin
|
|
ps_DrawATPABitmapEx(Pinteger(Params^[0])^, P2DPointArray(Params^[1])^, PIntegerArray(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_FastDrawClear(const Params: PParamArray);
|
|
begin
|
|
ps_FastDrawClear(Pinteger(Params^[0])^, PColor(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_DrawBitmap(const Params: PParamArray);
|
|
begin
|
|
ps_DrawBitmap(PInteger(Params^[0])^, PCanvas(Params^[1])^, PInteger(Params^[2])^, PInteger(Params^[3])^);
|
|
end;
|
|
|
|
procedure Lape_FastDrawTransparent(const Params: PParamArray);
|
|
begin
|
|
ps_FastDrawTransparent(PInteger(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^, PInteger(Params^[3])^);
|
|
end;
|
|
|
|
procedure Lape_SetTransparentColor(const Params: PParamArray);
|
|
begin
|
|
ps_SetTransparentColor(Pinteger(Params^[0])^, PColor(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_GetTransparentColor(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PColor(Result)^ := ps_GetTransparentColor(Pinteger(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_FastReplaceColor(const Params: PParamArray);
|
|
begin
|
|
ps_FastReplaceColor(PInteger(Params^[0])^, PColor(Params^[1])^, PColor(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_CopyClientToBitmap(const Params: PParamArray);
|
|
begin
|
|
ps_CopyClientToBitmap(PInteger(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^, PInteger(Params^[3])^, PInteger(Params^[4])^);
|
|
end;
|
|
|
|
procedure Lape_BitmapFromClient(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PInteger(Result)^ := ps_BitmapFromClient(PInteger(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^, PInteger(Params^[3])^);
|
|
end;
|
|
|
|
procedure Lape_FindBitmap(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PBoolean(Result)^ := ps_FindBitmap(Pinteger(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_FindBitmapIn(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PBoolean(Result)^ := ps_FindBitmapIn(Pinteger(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^, PInteger(Params^[3])^, PInteger(Params^[4])^, PInteger(Params^[5])^, PInteger(Params^[6])^);
|
|
end;
|
|
|
|
procedure Lape_FindBitmapToleranceIn(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PBoolean(Result)^ := ps_FindBitmapToleranceIn(Pinteger(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^, PInteger(Params^[3])^, PInteger(Params^[4])^, PInteger(Params^[5])^, PInteger(Params^[6])^, PInteger(Params^[7])^);
|
|
end;
|
|
|
|
procedure Lape_FindBitmapSpiral(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PBoolean(Result)^ := ps_FindBitmapSpiral(PInteger(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^, PInteger(Params^[3])^, PInteger(Params^[4])^, PInteger(Params^[5])^, PInteger(Params^[6])^);
|
|
end;
|
|
|
|
procedure Lape_FindBitmapsSpiralTolerance(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PBoolean(Result)^ := ps_FindBitmapsSpiralTolerance(Pinteger(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^, PPointArray(Params^[3])^, PInteger(Params^[4])^, PInteger(Params^[5])^, PInteger(Params^[6])^, PInteger(Params^[7])^, PInteger(Params^[8])^);
|
|
end;
|
|
|
|
procedure Lape_FindBitmapSpiralTolerance(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PBoolean(Result)^ := ps_FindBitmapSpiralTolerance(Pinteger(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^, Pinteger(Params^[3])^, Pinteger(Params^[4])^, Pinteger(Params^[5])^, Pinteger(Params^[6])^, Pinteger(Params^[7])^);
|
|
end;
|
|
|
|
procedure Lape_RotateBitmap(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PInteger(Result)^ := ps_RotateBitmap(PInteger(Params^[0])^, PExtended(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_Desaturate(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pinteger(Result)^ := ps_Desaturate(Pinteger(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_InvertBitmap(const Params: PParamArray);
|
|
begin
|
|
ps_InvertBitmap(Pinteger(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_CopyBitmap(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pinteger(Result)^ := ps_CopyBitmap(Pinteger(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_GreyScaleBitmap(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pinteger(Result)^ := ps_GreyScaleBitmap(Pinteger(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_BrightnessBitmap(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pinteger(Result)^ := ps_BrightnessBitmap(Pinteger(Params^[0])^, Pinteger(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_ContrastBitmap(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pinteger(Result)^ := ps_ContrastBitmap(Pinteger(Params^[0])^, Pextended(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_PosterizeBitmap(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pinteger(Result)^ := ps_PosterizeBitmap(Pinteger(Params^[0])^, Pinteger(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_CreateMaskFromBitmap(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PMask(Result)^ := ps_CreateMaskFromBitmap(Pinteger(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_FindMaskTolerance(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PBoolean(Result)^ := ps_FindMaskTolerance(PMask(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^, PInteger(Params^[3])^, PInteger(Params^[4])^, PInteger(Params^[5])^, PInteger(Params^[6])^, PInteger(Params^[7])^, PInteger(Params^[8])^);
|
|
end;
|
|
|
|
procedure Lape_FindBitmapMaskTolerance(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PBoolean(Result)^ := ps_FindBitmapMaskTolerance(PInteger(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^, PInteger(Params^[3])^, PInteger(Params^[4])^, PInteger(Params^[5])^, PInteger(Params^[6])^, PInteger(Params^[7])^, PInteger(Params^[8])^);
|
|
end;
|
|
|
|
procedure Lape_FindDeformedBitmapToleranceIn(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PBoolean(Result)^ := ps_FindDeformedBitmapToleranceIn(Pinteger(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^, PInteger(Params^[3])^, PInteger(Params^[4])^, PInteger(Params^[5])^, PInteger(Params^[6])^, PInteger(Params^[7])^, PInteger(Params^[8])^, PBoolean(Params^[9])^, PExtended(Params^[10])^);
|
|
end;
|
|
|
|
procedure Lape_RectangleBitmap(const Params: PParamArray);
|
|
begin
|
|
ps_RectangleBitmap(Pinteger(Params^[0])^, PBox(Params^[1])^, PColor(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_FloodFillBitmap(const Params: PParamArray);
|
|
begin
|
|
ps_FloodFillBitmap(Pinteger(Params^[0])^, PPoint(Params^[1])^, PColor(Params^[2])^, PColor(Params^[3])^);
|
|
end;
|
|
|
|
procedure Lape_ConvoluteBitmap(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pinteger(Result)^ := ps_ConvoluteBitmap(Pinteger(Params^[0])^, P2DExtendedArray(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_CalculatePixelShift(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pinteger(Result)^ := ps_CalculatePixelShift(PInteger(Params^[0])^, PInteger(Params^[1])^, PBox(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_CalculatePixelTolerance(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pextended(Result)^ := ps_CalculatePixelTolerance(PInteger(Params^[0])^, PInteger(Params^[1])^, PBox(Params^[2])^, Pinteger(Params^[3])^);
|
|
end;
|