1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-12-04 14:42:23 -05:00
Simba/Units/MMLAddon/LPInc/Wrappers/dtm.inc

80 lines
3.5 KiB
PHP
Raw Normal View History

2011-08-03 14:29:48 -04:00
procedure Lape_FindDTM(const Params: PParamArray; const Result: Pointer);
begin
PBoolean(Result)^ := ps_FindDTM(PInteger(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^, PInteger(Params^[2])^, PInteger(Params^[3])^, PInteger(Params^[4])^, PInteger(Params^[5])^);
end;
procedure Lape_FindDTMs(const Params: PParamArray; const Result: Pointer);
begin
PBoolean(Result)^ := ps_FindDTMs(PInteger(Params^[0])^, PPointArray(Params^[1])^, PInteger(Params^[2])^, PInteger(Params^[3])^, PInteger(Params^[4])^, PInteger(Params^[5])^);
end;
procedure Lape_FindDTMRotatedAlternating(const Params: PParamArray; const Result: Pointer);
begin
PBoolean(Result)^ := ps_FindDTMRotatedAlternating(PInteger(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^, PInteger(Params^[2])^, PInteger(Params^[3])^, PInteger(Params^[4])^, PInteger(Params^[5])^, PExtended(Params^[3])^, PExtended(Params^[4])^, PExtended(Params^[5])^, PExtended(Params^[4])^);
end;
procedure Lape_FindDTMRotatedSE(const Params: PParamArray; const Result: Pointer);
begin
PBoolean(Result)^ := ps_FindDTMRotatedSE(PInteger(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^, PInteger(Params^[2])^, PInteger(Params^[3])^, PInteger(Params^[4])^, PInteger(Params^[5])^, PExtended(Params^[3])^, PExtended(Params^[4])^, PExtended(Params^[5])^, PExtended(Params^[4])^);
end;
procedure Lape_FindDTMsRotatedAlternating(const Params: PParamArray; const Result: Pointer);
begin
PBoolean(Result)^ := ps_FindDTMsRotatedAlternating(PInteger(Params^[0])^, PPointArray(Params^[1])^, PInteger(Params^[2])^, PInteger(Params^[3])^, PInteger(Params^[4])^, PInteger(Params^[5])^, PExtended(Params^[3])^, PExtended(Params^[4])^, PExtended(Params^[5])^, P2DExtendedArray(Params^[4])^);
end;
procedure Lape_FindDTMsRotatedSE(const Params: PParamArray; const Result: Pointer);
begin
PBoolean(Result)^ := ps_FindDTMsRotatedSE(PInteger(Params^[0])^, PPointArray(Params^[1])^, PInteger(Params^[2])^, PInteger(Params^[3])^, PInteger(Params^[4])^, PInteger(Params^[5])^, PExtended(Params^[3])^, PExtended(Params^[4])^, PExtended(Params^[5])^, P2DExtendedArray(Params^[4])^);
end;
procedure Lape_SetDTMName(const Params: PParamArray);
begin
ps_SetDTMName(Pinteger(Params^[0])^, Pstring(Params^[1])^);
end;
procedure Lape_DTMFromString(const Params: PParamArray; const Result: Pointer);
begin
PInteger(Result)^ := ps_DTMFromString(PString(Params^[0])^);
end;
procedure Lape_FreeDTM(const Params: PParamArray);
begin
ps_FreeDTM(PInteger(Params^[0])^);
end;
procedure Lape_GetDTM(const Params: PParamArray; const Result: Pointer);
begin
PMDTM(Result)^ := ps_GetDTM(PInteger(Params^[0])^);
end;
procedure Lape_AddTSDTM(const Params: PParamArray; const Result: Pointer);
begin
PInteger(Result)^ := ps_AddTSDTM(PSDTM(Params^[0])^);
end;
procedure Lape_AddDTM(const Params: PParamArray; const Result: Pointer);
begin
PInteger(Result)^ := ps_AddDTM(PMDTM(Params^[0])^);
end;
procedure Lape_PrintDTM(const Params: PParamArray);
begin
ps_PrintDTM(PMDTM(Params^[0])^);
end;
procedure Lape_MDTMToSDTM(const Params: PParamArray; const Result: Pointer);
begin
PSDTM(Result)^ := ps_MDTMToSDTM(PMDTM(Params^[0])^);
end;
procedure Lape_SDTMToMDTM(const Params: PParamArray; const Result: Pointer);
begin
PMDTM(Result)^ := ps_SDTMToMDTM(PSDTM(Params^[0])^);
end;
procedure Lape_CreateDTMPoint(const Params: PParamArray; const Result: Pointer);
begin
PMDTMPoint(Result)^ := ps_CreateDTMPoint(Pinteger(Params^[0])^, Pinteger(Params^[1])^, Pinteger(Params^[2])^, Pinteger(Params^[3])^, Pinteger(Params^[4])^, Pboolean(Params^[1])^);
end;