mirror of
https://github.com/moparisthebest/Simba
synced 2024-12-04 14:42:23 -05:00
80 lines
3.5 KiB
PHP
80 lines
3.5 KiB
PHP
|
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;
|