SASGIS

  TGeoPoint = packed record

    X, Y: Double;

    case Integer of

      0: (E: UInt64);

      1: (Z, M: Cardinal);

  end;

  TDoublePointsMeta = record

    Elevation: array of Double;

    TimeStamp: array of TDateTime;

  end;

  PDoublePointsMeta = ^TDoublePointsMeta;

  IDoublePoints = interface

    function GetCount: Integer;

    property Count: Integer read GetCount;



    function GetPoints: PDoublePointArray;

    property Points: PDoublePointArray read GetPoints;



    function GetMeta: PDoublePointsMeta;

    property Meta: PDoublePointsMeta read GetMeta; // can be nil

  end;

  TArrayOfDouble = array [0..0] of Double;

  PArrayOfDouble = ^TArrayOfDouble;



  TArrayOfDateTime = array [0..0] of TDateTime;

  PArrayOfDateTime = ^TArrayOfDateTime;



  TDoublePointsMeta = packed record

    Elevation: PArrayOfDouble;

    TimeStamp: PArrayOfDateTime;

  end;

  PDoublePointsMeta = ^TDoublePointsMeta;