//Pascal &or the FreePascal use of nintendo 2ds, 3ds regime
//
// Copyright (c) 2013, 2015, 2017 Kenneth Dwayne Lee Bsc.
// all rights reserved.
//

  type
   Pcfloat= ^cfloat;

    qtmHeadtrackingInfoCoord = record
        x : cfloat;
        y : cfloat;
      end;
    PqtmHeadtrackingInfoCoord  = ^qtmHeadtrackingInfoCoord;

    qtmHeadtrackingInfo = record
        flags : array[0..4] of u8;
        padding : array[0..2] of u8;
        floatdata_x08 : cfloat;
        coords0 : array[0..3] of qtmHeadtrackingInfoCoord;
        unk_x2c : array[0..4] of u32;
      end;
    PqtmHeadtrackingInfo  = ^qtmHeadtrackingInfo;

  function qtmInit:s32;cdecl;external;
  procedure qtmExit;cdecl;external;
  function qtmCheckInitialized:bool;cdecl;external;
  function qtmGetHeadtrackingInfo(val:u64; htInfo:PqtmHeadtrackingInfo):s32;cdecl;external;

  {val is normally 0. }
  function qtmCheckHeadFullyDetected(info:PqtmHeadtrackingInfo):bool;cdecl;external;
  function qtmConvertCoordToScreen(coord:PqtmHeadtrackingInfoCoord; screen_width: Pcfloat; screen_height: Pcfloat; x:Pu32; y:Pu32):s32;cdecl;external;

  {screen_* can be NULL to use the default values for the top-screen. }