Simba/Units/MMLAddon/LPInc/Wrappers/dtm.inc

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;