type TMoveRecord = class(TObject)
Procedure Assign(aMove:TMoveRecord); |
Function CorrectX(IsectHeight:Double):Double; |
Function CorrectY(IsectHeight:Double):Double; |
Function ToString(IsectHeight:Double):String; |
Procedure Assign(aMove:TMoveRecord); |
.. to assign datas
Function CorrectX(IsectHeight:Double):Double; |
X Coord. height corrected position (intersection with the given height).
Function CorrectY(IsectHeight:Double):Double; |
X Coord. height corrected position (intersection with the given height).
Function ToString(IsectHeight:Double):String; |
create a string from the datas for debugging
None.