moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-12-11 18:12:20 -05:00
Code Issues Releases Wiki Activity
simba-next
Simba/Units/MMLAddon/LPInc/Wrappers/colour.inc

105 lines
5.2 KiB
PHP
Raw Permalink Normal View History

Squashed commit of the following: commit 7426db160fa410a90510309563a80779ca65d793 Author: Merlijn Wajer <merlijn@wizzup.org> Date: Fri Aug 5 11:40:27 2011 +0200 Lape: Update HEAD. commit 6fa1740ea74f3777acd112370f232496898e533d Author: Niels <niels.a.d@gmail.com> Date: Thu Aug 4 23:07:35 2011 +0200 Simba compiles again now. commit 27b1c42b6a0dd09c4ee89822b631f94a92b265e5 Author: Niels <niels.a.d@gmail.com> Date: Thu Aug 4 00:31:28 2011 +0200 Little bugfix in lape wrapper generator + new wrappers. commit f46f841658bf81abb0c3101c0a4074d5c55873bd Author: Niels <niels.a.d@gmail.com> Date: Thu Aug 4 00:00:54 2011 +0200 Commented functions that cannot be imported yet for lape. commit b7aa543b6b477ea7befe6b4690e24a2d1b5bb1ab Author: Niels <niels.a.d@gmail.com> Date: Wed Aug 3 23:54:54 2011 +0200 New lape wrappers. commit ecfc435fab34f9c12ef2459141120ac7122ddfd2 Author: Niels <niels.a.d@gmail.com> Date: Wed Aug 3 23:49:54 2011 +0200 Fixed a bug in lape wrapper generation. commit 2d9d65000b78c6e77da5ee30cce33c9b7f8ed487 Author: 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. :-) commit bf0f806ecfe0abec8d43103dc87c366ca54c96c0 Author: Niels <niels.a.d@gmail.com> Date: Wed Aug 3 21:06:56 2011 +0200 Added debug message for when initializing the interpreter fails. commit a143016beb8ec9b0c92ad697ab4575cf6b23bbba Author: Merlijn Wajer <merlijn@wizzup.org> Date: Wed Aug 3 20:30:11 2011 +0200 Lape-wrappers: Fix by nielsie95. commit 9deb9a1b67d97215d22bbe132d625ea7e9faa363 Author: Merlijn Wajer <merlijn@wizzup.org> Date: Wed Aug 3 20:29:48 2011 +0200 Lape: Add wrappers. commit 510674570b4ee997b134ccef84e0bd353e389f8b Author: Merlijn Wajer <merlijn@wizzup.org> Date: Wed Aug 3 20:12:26 2011 +0200 Lape: Update HEAD. commit 8260840b896b5db6fb07efdeb41b032cc7efeea7 Author: Merlijn Wajer <merlijn@wizzup.org> Date: Wed Aug 3 14:34:48 2011 +0200 Lape: Update HEAD. commit 64bf115d3050c05efd758ce66c27f683b67faa2f Merge: 0701e91 aaafd6b Author: Merlijn Wajer <merlijn@wizzup.org> Date: Mon Aug 1 19:26:15 2011 +0200 Merge branch 'master' into lape-integration commit 0701e911d122819cd2e88e87eb2fc0890aac4ef0 Merge: 26693f7 a20a31a Author: Merlijn Wajer <merlijn@wizzup.org> Date: Sun Jul 31 18:11:58 2011 +0200 Merge branch 'master' into lape-integration commit 26693f7d4d2165585a40563a22ad94707463705c Merge: e124ae3 da0de6e Author: Merlijn Wajer <merlijn@wizzup.org> Date: Sat Jul 30 00:16:12 2011 +0200 Merge branch 'master' into lape-integration commit e124ae396a3069b577e0a4cd47dc5b793ee323cf Merge: 4c6f304 c1051ef Author: 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 commit 4c6f30462cc987ece159e9a4e1acdaf822da2670 Author: Merlijn Wajer <merlijn@wizzup.org> Date: Thu Jul 28 20:52:13 2011 +0200 Lape: Update head. commit 2d8fdc4d7afa5a6c91d069316f7779a5baac71a3 Author: Merlijn Wajer <merlijn@wizzup.org> Date: Thu Jul 28 20:08:01 2011 +0200 Lape: Add Wrappers project. commit e4f8e06f1c870cc42055c0517cf684c36195625f Merge: 7228a88 1fd51ff Author: 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 commit c1051efbeba009e6ad233b63d6f120fda2abc306 Merge: 7228a88 b83a277 Author: Merlijn Wajer <merlijn@wizzup.org> Date: Sat Jul 23 13:41:15 2011 -0700 Merge pull request #30 from Dgby714/lape-integration TLPThread Update commit 7228a888c4f38e2a851e6fc940e662af18f66541 Merge: ad2e3ca e63dcbc Author: 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 commit b83a27750258298454bbe99097cab47cddd4d6f2 Author: 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. commit ad2e3ca3c34f11c7645d67f49d8dbfd388771d07 Merge: 1a22452 c79eadf Author: Merlijn Wajer <merlijn@wizzup.org> Date: Sat Jun 25 15:50:58 2011 -0700 Merge pull request #25 from Dgby714/la-pe Lape commit 1a224529f3b76c9dc6cdb98a57c3b50f769cf8c7 Merge: 5dc7611 89f1a9b Author: Merlijn Wajer <merlijn@wizzup.org> Date: Sun Jun 26 00:49:03 2011 +0200 Merge branch 'master' into lape-integration commit c79eadf1efffd590801e9513fdb55ea3f6a39102 Author: John P (Dgby714) <Dgby714@gmail.com> Date: Sat Jun 25 18:43:17 2011 -0400 TLPThread update, Uncommented Lape Defines commit 4d15ee07d5d25998f747723cc723dda3bd565029 Merge: 89f1a9b 5dc7611 Author: 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 commit 5dc7611dba70cfd9f0ad069daabe2f595ff4dc9d Author: John P (Dgby714) <Dgby714@gmail.com> Date: Sat Jun 25 07:35:20 2011 -0400 TLPThread update, Lape settings, Add Lape unit to OtherUnitFiles commit e5812a80005d876ad94fff0f033f939491128c74 Author: John P (Dgby714) <Dgby714@gmail.com> Date: Thu Jun 16 21:26:03 2011 -0400 Lape Integration, TLPThread work commit ecab4d58010318df635982fa1bc22a73d83f70d8 Author: Merlijn Wajer <merlijn@wizzup.org> Date: Sat Jun 25 17:45:24 2011 +0200 Lape: Add lape submodule.
2011-08-05 07:04:52 -04:00
procedure Lape_GetColor(const Params: PParamArray; const Result: Pointer);
begin
PColor(Result)^ := ps_GetColor(Pinteger(Params^[0])^, Pinteger(Params^[1])^);
end;
procedure Lape_GetColorsWrap(const Params: PParamArray);
begin
ps_GetColorsWrap(PPointArray(Params^[0])^, PIntegerArray(Params^[1])^);
end;
procedure Lape_GetColors(const Params: PParamArray; const Result: Pointer);
begin
PIntegerArray(Result)^ := ps_GetColors(PPointArray(Params^[0])^);
end;
procedure Lape_findcolor(const Params: PParamArray; const Result: Pointer);
begin
Pboolean(Result)^ := ps_findcolor(Pinteger(Params^[0])^, Pinteger(Params^[1])^, Pinteger(Params^[2])^, Pinteger(Params^[3])^, Pinteger(Params^[4])^, Pinteger(Params^[5])^, Pinteger(Params^[6])^);
end;
procedure Lape_findcolortoleranceOptimised(const Params: PParamArray; const Result: Pointer);
begin
Pboolean(Result)^ := ps_findcolortoleranceOptimised(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_findcolortolerance(const Params: PParamArray; const Result: Pointer);
begin
Pboolean(Result)^ := ps_findcolortolerance(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_FindColors(const Params: PParamArray; const Result: Pointer);
begin
PBoolean(Result)^ := ps_FindColors(PPointArray(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^, PInteger(Params^[3])^, PInteger(Params^[4])^, PInteger(Params^[5])^);
end;
procedure Lape_SetColorToleranceSpeed(const Params: PParamArray);
begin
ps_SetColorToleranceSpeed(PInteger(Params^[0])^);
end;
procedure Lape_GetToleranceSpeed(const Params: PParamArray; const Result: Pointer);
begin
PInteger(Result)^ := ps_GetToleranceSpeed();
end;
procedure Lape_SetToleranceSpeed2Modifiers(const Params: PParamArray);
begin
ps_SetToleranceSpeed2Modifiers(PExtended(Params^[0])^, PExtended(Params^[1])^);
end;
procedure Lape_GetToleranceSpeed2Modifiers(const Params: PParamArray);
begin
ps_GetToleranceSpeed2Modifiers(PExtended(Params^[0])^, PExtended(Params^[1])^);
end;
procedure Lape_SimilarColors(const Params: PParamArray; const Result: Pointer);
begin
Pboolean(Result)^ := ps_SimilarColors(Pinteger(Params^[0])^, Pinteger(Params^[1])^, Pinteger(Params^[2])^);
end;
procedure Lape_CountColor(const Params: PParamArray; const Result: Pointer);
begin
PInteger(Result)^ := ps_CountColor(PInteger(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^, PInteger(Params^[3])^, PInteger(Params^[4])^);
end;
procedure Lape_CountColorTolerance(const Params: PParamArray; const Result: Pointer);
begin
PInteger(Result)^ := ps_CountColorTolerance(PInteger(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^, PInteger(Params^[3])^, PInteger(Params^[4])^, PInteger(Params^[5])^);
end;
procedure Lape_FindColorsToleranceOptimised(const Params: PParamArray; const Result: Pointer);
begin
PBoolean(Result)^ := ps_FindColorsToleranceOptimised(PPointArray(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^, PInteger(Params^[3])^, PInteger(Params^[4])^, PInteger(Params^[5])^, PInteger(Params^[6])^);
end;
procedure Lape_FindColorsTolerance(const Params: PParamArray; const Result: Pointer);
begin
PBoolean(Result)^ := ps_FindColorsTolerance(PPointArray(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^, PInteger(Params^[3])^, PInteger(Params^[4])^, PInteger(Params^[5])^, PInteger(Params^[6])^);
end;
procedure Lape_FindColorSpiral(const Params: PParamArray; const Result: Pointer);
begin
PBoolean(Result)^ := ps_FindColorSpiral(PInteger(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^, PInteger(Params^[3])^, PInteger(Params^[4])^, PInteger(Params^[5])^, PInteger(Params^[6])^);
end;
procedure Lape_FindColorSpiralTolerance(const Params: PParamArray; const Result: Pointer);
begin
PBoolean(Result)^ := ps_FindColorSpiralTolerance(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_FindColorsSpiralTolerance(const Params: PParamArray; const Result: Pointer);
begin
Pboolean(Result)^ := ps_FindColorsSpiralTolerance(PInteger(Params^[0])^, PInteger(Params^[1])^, PPointArray(Params^[2])^, PInteger(Params^[3])^, PInteger(Params^[4])^, PInteger(Params^[5])^, PInteger(Params^[6])^, PInteger(Params^[7])^, PInteger(Params^[8])^);
end;
procedure Lape_FindColoredArea(const Params: PParamArray; const Result: Pointer);
begin
PBoolean(Result)^ := ps_FindColoredArea(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_FindColoredAreaTolerance(const Params: PParamArray; const Result: Pointer);
begin
PBoolean(Result)^ := ps_FindColoredAreaTolerance(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;
Reference in New Issue Copy Permalink