-- EgtLib.lua   libreria di base EgalTech per Lua 2022/04/12
-- 2019/12/04 EgtTestBreak interruzione se valore 1.
-- 2020/06/04 Aggiunta funzione EgtCurveIsACircle.
-- 2020/06/16 Aggiunta funzione EgtSurfTmGetFacetBBoxRef.
-- 2021/11/27 Aggiunta funzione EgtClamp.
-- 2022/04/12 Aggiunta funzione EgtGetValInNotes.

-- Tavola per definizione modulo (serve ma non usata)
local EgtBase = {}

EgtOutLog( 'EgtBase started', 1)

-- Funzioni del package matematico rese globali e con angoli in gradi
abs = math.abs
fmod = math.fmod
floor = math.floor
ceil = math.ceil
min = math.min
max = math.max
huge = math.huge
modf = math.modf
sqrt = math.sqrt
pow = function( x, y) return x ^ y end
exp = math.exp
log = math.log
log10 = function( x) return math.log( x, 10) end
ldexp = function( x, exp) return x * 2.0 ^ exp end
deg = math.deg
rad = math.rad
pi = math.pi
sin = function( x)  return math.sin( math.rad( x)) end
cos = function( x)  return math.cos( math.rad( x)) end
tan = function( x)  return math.tan( math.rad( x)) end
asin = function( x) return math.deg( math.asin( x)) end
acos = function( x) return math.deg( math.acos( x)) end
atan = function( y, x) return math.deg( math.atan( y, x)) end
atan2 = function( y, x) return math.deg( math.atan( y, x)) end
random = math.random
randomseed = math.randomseed
tointeger = math.tointeger

----------------------------------------------------------------------------
function EgtIf( bCond, Val1, Val2)
   if bCond then
      return Val1
   else
      return Val2
   end
end

----------------------------------------------------------------------------
function EgtClamp( Val, Min, Max)
   if Min > Max then
      Min, Max = Max, Min
   end
   if Val < Min then
      return Min
   elseif Val > Max then
      return Max
   else
      return Val
   end
end

----------------------------------------------------------------------------
-- Funzione per protezione variabili e funzioni globali
function EgtProtectGlobal()
   local newgt = {}
   setmetatable( newgt, {__index = _G,
                         __newindex = function( t, k, v)
                                         local k3 = string.sub( k, 1, 3)
                                         if k3 == 'Egt' or k3 == 'Emt' or
                                            k3 == 'GEO' or k3 == 'GDB' or k3 == 'SCE' or k3 == 'MCH' then
                                            error( "attempting to change global "..tostring( k)..' to '..tostring( v), 2)
                                         else
                                            rawset( t, k, v)
                                         end
                                      end
                        })
   return newgt
end

-- Funzione per lancio, se richiesta, predisposizione debug
function EgtEnableDebug( bOn)
   if not bOn then
      EgtOutLog( 'Release Mode', 1)
      return true
   elseif EgtIs64bit() then
     -- non funziona a 64 bit
      EgtOutLog( 'Skipped Debug Activation (64bit)')
      return false
   else
     -- carico il modulo opportuno
      EgtOutLog( 'Debug Mode (32bit)', 1)
      return require( 'mobdebug').start()
   end
end

-- Funzione per reset librerie
function EgtResetLibs()
   package.loaded.EgtTest = nil
   package.loaded.EgtBase = nil
   package.loaded.EgtConst = nil
   package.loaded.EgtVector3d = nil
   package.loaded.EgtPoint3d = nil
   package.loaded.EgtFrame3d = nil
   package.loaded.EgtBBox3d = nil
   package.loaded.EgtColor3d = nil
   package.loaded.Dimension = nil
   package.loaded.EgtLinearDimension = nil
   package.loaded.EmtGenerator = nil
end

----------------------------------------------------------------------------
-- Funzione per OutLog di tutte le variabili globali
function EgtOutLogAllGlobVars()
   local a = {}
   for k,v in pairs( _G) do
      a[#a+1] = k .. " => ".. tostring( v)
   end
   table.sort( a)
   EgtOutLog( 'Global Variables (#' .. #a .. ') :')
   for _,v in ipairs( a) do
      EgtOutLog( v)
   end
end

----------------------------------------------------------------------------
-- Funzione per avere direttorio del file che lancia la funzione
function EgtGetSourceDir( nUp)
   local nSou = 2
   if nUp then nSou = nSou + nUp end
   local info = debug.getinfo( nSou, 'S')
   local dir = info.source:match("^@?(.-)([^\\/]-%.?([^%.\\/]*))$")
   return dir
end

----------------------------------------------------------------------------
-- Funzione per avere direttorio e file che lancia la funzione
function EgtGetSourcePath( nUp)
   local nSou = 2
   if nUp then nSou = nSou + nUp end
   local info = debug.getinfo( nSou, 'S')
   local dir = string.gsub( info.source, '@', '')
   return dir
end

-- Funzione per accodare path di ricerca librerie lua
function EgtAddToPackagePath( path)
   if not package.path:find( path, 1, true)  then
      if package.path:sub( -1) == ';' then
         package.path = package.path .. path .. ';'
      else   
         package.path = package.path .. ';' .. path .. ';'
      end
   end
end

-- Funzione per rimuovere direttori macchine da path di ricerca librerie lua
function EgtRemoveBaseMachineDirFromPackagePath()
   local vLibDir = EgtSplitString( _G.package.path, ';')
   if not vLibDir or #vLibDir == 0 then return end
   local sBaseMachDir = EgtSplitPath( EgtGetCurrMachineDir() or '')
   if not sBaseMachDir or #sBaseMachDir == 0 then return end
   package.path = ''
   for i = 1, #vLibDir do
      if #vLibDir[i] > 0 and not vLibDir[i]:find( sBaseMachDir, 1, true) then
         package.path = package.path .. vLibDir[i] .. ';'
      end
   end
end

-- Funzione per dividere Path in Direttorio, NomeFile e Estensione
function EgtSplitPath( sPath)
   local sDir, sFile = string.match(sPath, "(.-)([^\\/]*)$")
   local sName, sExt
   if sFile and string.find(sFile,'%.') then
      sName, sExt = string.match(sFile,'(.*)([%.].-)$')
   else
      sName = sFile
      sExt = ''
   end
   return sDir, sName, sExt
end

-- Funzione per cambiare estensione di una Path
function EgtChangePathExtension( sPath, sExt)
   local sFileDir, sFileName, sFileExt = EgtSplitPath( sPath)
   if string.sub( sExt, 1, 1) == '.' then
      return sFileDir .. sFileName .. sExt
   else
      return sFileDir .. sFileName .. '.' .. sExt
   end
end

----------------------------------------------------------------------------
-- Funzioni di trim di stringhe di caratteri
function EgtTrimRight( sStr)
   if not sStr then return nil end
   return sStr:match( "(.-)%s*$")
end
function EgtTrimLeft( sStr)
   if not sStr then return nil end
   return sStr:match( "^%s*(.*)")
end
function EgtTrim( sStr)
   if not sStr then return nil end
   return sStr:match( "^%s*(.-)%s*$")
end

----------------------------------------------------------------------------
-- Funzione per aggiungere/togliere coppie chiave/valore da una stringa di note
function EgtAdjustNotes( sNotes, sKey, Val)
   local sNewNotes = ''
   local vItem = EgtSplitString( sNotes, ';') or {}
   for i = 1, #vItem do
      local sItem = EgtTrim( vItem[i])
      if sItem and #sItem > 0 and not sItem:find( sKey, 1, true) then
         sNewNotes = sNewNotes .. sItem .. ';'
      end
   end
   if Val and Val ~= '' then
      sNewNotes = sNewNotes .. EgtSetVal( sKey, Val)
   end
   return sNewNotes
end

----------------------------------------------------------------------------
-- Funzione per recuperare un valore data la chiave da una stringa di note
function EgtGetValInNotes( sNotes, sKey, sType)
   local vItem = EgtSplitString( sNotes, ';') or {}
   for i = 1, #vItem do
      local sItem = EgtTrim( vItem[i])
      if sItem and #sItem > 0 and sItem:find( sKey..'=', 1, true) then
         return EgtGetVal( sItem, sKey, sType) 
      end
   end
   return nil
end

----------------------------------------------------------------------------
-- Funzione per creare tabella da primo indice per numero indici consecutivi
function EgtTableFill( nStart, nCount)
   if not nStart or nCount <= 0 then return nil end
   local T = {}
   for i = 0,nCount-1 do
      table.insert( T, nStart+i)
   end
   return T
end

-- Funzione per aggiungere a tabella da primo indice per numero indici consecutivi
function EgtTableAdd( T, nStart, nCount)
   if not nStart or nCount <= 0 then return T end
   for i = 0,nCount-1 do
      table.insert( T, nStart+i)
   end
   return T
end

-- Funzione per unire due tabelle
function EgtJoinTables( Ta, Tb)
   for k, v in ipairs( Tb) do
      table.insert( Ta, v)
   end
   return Ta
end


----------------------------------------------------------------------------
-- Funzione per aggiornare interfaccia e consentire interruzione esecuzione
function EgtTestBreak( nProc, nPause)
   local nRet = EgtProcessEvents( nProc, nPause)
   if nRet == 1 then
      error( "User aborted", 2)
   end
end

----------------------------------------------------------------------------
-- Richiamo librerie componenti
require( 'EgtConst')
require( 'EgtVector3d')
require( 'EgtPoint3d')
require( 'EgtFrame3d')
require( 'EgtBBox3d')
require( 'EgtColor3d')


-- Ridefinizione funzioni per ritornare Vector3d
local o_EgtGetGridVersZ = EgtGetGridVersZ
EgtGetGridVersZ = function(...)
   local vtV = o_EgtGetGridVersZ(...)
   if vtV then return Vector3d( vtV) end
end
local o_EgtSV = EgtSV
EgtSV = function(...)
   local vtV = o_EgtSV(...)
   if vtV then return Vector3d( vtV) end
end
local o_EgtEV = EgtEV
EgtEV = function(...)
   local vtV = o_EgtEV(...)
   if vtV then return Vector3d( vtV) end
end
local o_EgtMV = EgtMV
EgtMV = function(...)
   local vtV = o_EgtMV(...)
   if vtV then return Vector3d( vtV) end
end
local o_EgtUV = EgtUV
EgtUV = function(...)
   local vtV = o_EgtUV(...)
   if vtV then return Vector3d( vtV) end
end
local o_EgtET = EgtET
EgtET = function(...)
   local vtV = o_EgtET(...)
   if vtV then return Vector3d( vtV) end
end
local o_EgtCurveExtrusion = EgtCurveExtrusion
EgtCurveExtrusion = function(...)
   local vtV = o_EgtCurveExtrusion(...)
   if vtV then return Vector3d( vtV) end
end
local o_EgtArcNormVersor = EgtArcNormVersor
EgtArcNormVersor = function(...)
   local vtV = o_EgtArcNormVersor(...)
   if vtV then return Vector3d( vtV) end
end
local o_EgtSurfFrNormVersor = EgtSurfFrNormVersor
EgtSurfFrNormVersor = function(...)
   local vtV = o_EgtSurfFrNormVersor(...)
   if vtV then return Vector3d( vtV) end
end
local o_EgtSurfTmFacetNormVersor = EgtSurfTmFacetNormVersor
EgtSurfTmFacetNormVersor = function(...)
   local vtV = o_EgtSurfTmFacetNormVersor(...)
   if vtV then return Vector3d( vtV) end
end
local o_EgtTextNormVersor = EgtTextNormVersor
EgtTextNormVersor = function(...)
   local vtV = o_EgtTextNormVersor(...)
   if vtV then return Vector3d( vtV) end
end
local o_EgtGetCalcToolDirFromAngles = EgtGetCalcToolDirFromAngles
EgtGetCalcToolDirFromAngles = function(...)
   local vtV = o_EgtGetCalcToolDirFromAngles(...)
   if vtV then return Vector3d( vtV) end
end
local o_EgtGetCalcAuxDirFromAngles = EgtGetCalcAuxDirFromAngles
EgtGetCalcAuxDirFromAngles = function(...)
   local vtV = o_EgtGetCalcAuxDirFromAngles(...)
   if vtV then return Vector3d( vtV) end
end

-- Ridefinizione funzioni per ritornare Vector3d e altri parametri
local o_EgtCurveIsFlat = EgtCurveIsFlat
EgtCurveIsFlat = function(...)
   local bFlat, vtN, dDist = o_EgtCurveIsFlat(...)
   if vtN then return bFlat, Vector3d( vtN), dDist end
end
local o_EgtCurveArea = EgtCurveArea
EgtCurveArea = function(...)
   local vtN, dDist, dArea = o_EgtCurveArea(...)
   if vtN then return Vector3d( vtN), dDist, dArea end
end

-- Ridefinizione funzioni per ritornare Point3d
local o_EgtSP = EgtSP
EgtSP = function(...)
   local ptP = o_EgtSP(...)
   if ptP then return Point3d( ptP) end
end
local o_EgtEP = EgtEP
EgtEP = function(...)
   local ptP = o_EgtEP(...)
   if ptP then return Point3d( ptP) end
end
local o_EgtMP = EgtMP
EgtMP = function(...)
   local ptP = o_EgtMP(...)
   if ptP then return Point3d( ptP) end
end
local o_EgtCP = EgtCP
EgtCP = function(...)
   local ptP = o_EgtCP(...)
   if ptP then return Point3d( ptP) end
end
local o_EgtGP = EgtGP
EgtGP = function(...)
   local ptP = o_EgtGP(...)
   if ptP then return Point3d( ptP) end
end
local o_EgtUP = EgtUP
EgtUP = function(...)
   local ptP = o_EgtUP(...)
   if ptP then return Point3d( ptP) end
end
local o_EgtNP = EgtNP
EgtNP = function(...)
   local ptP = o_EgtNP(...)
   if ptP then return Point3d( ptP) end
end
local o_EgtIP = EgtIP
EgtIP = function(...)
   local ptP = o_EgtIP(...)
   if ptP then return Point3d( ptP) end
end
local o_EgtCurveCompoCenter = EgtCurveCompoCenter
EgtCurveCompoCenter = function(...)
   local ptP = o_EgtCurveCompoCenter(...)
   if ptP then return Point3d( ptP) end
end
local o_EgtGetTableRef = EgtGetTableRef
EgtGetTableRef = function(...)
   local ptP = o_EgtGetTableRef(...)
   if ptP then return Point3d( ptP) end
end
local o_EgtGetCalcTipFromPositions = EgtGetCalcTipFromPositions
EgtGetCalcTipFromPositions = function(...)
   local ptP = o_EgtGetCalcTipFromPositions(...)
   if ptP then return Point3d( ptP) end
end
local o_EgtGetRawPartCenter = EgtGetRawPartCenter
EgtGetRawPartCenter = function(...)
   local ptP = o_EgtGetRawPartCenter(...)
   if ptP then return Point3d( ptP) end
end
local o_EgtGetMachiningStartPoint = EgtGetMachiningStartPoint
EgtGetMachiningStartPoint = function(...)
   local ptP = o_EgtGetMachiningStartPoint(...)
   if ptP then return Point3d( ptP) end
end
local o_EgtGetMachiningEndPoint = EgtGetMachiningEndPoint
EgtGetMachiningEndPoint = function(...)
   local ptP = o_EgtGetMachiningEndPoint(...)
   if ptP then return Point3d( ptP) end
end

-- Ridefinizione funzioni per ritornare Point3d e altri parametri
local o_EgtSurfTmFacetsContact = EgtSurfTmFacetsContact
EgtSurfTmFacetsContact = function(...)
   local bAdj, ptP1, ptP2, dAng = o_EgtSurfTmFacetsContact(...)
   if bAdj and ptP1 and ptP2 and dAng then
      return bAdj, Point3d( ptP1), Point3d( ptP2), dAng
   else
      return bAdj
   end   
end
local o_EgtSurfTmFacetOppositeSide = EgtSurfTmFacetOppositeSide
EgtSurfTmFacetOppositeSide = function(...)
   local ptP1, ptPm, ptP2, vtV1, vtV2, dL, dW = o_EgtSurfTmFacetOppositeSide(...)
   if ptP1 and ptPm and ptP2 and vtV1 and vtV2 then
      return Point3d( ptP1), Point3d( ptPm), Point3d( ptP2), Vector3d( vtV1), Vector3d( vtV2), dL, dW
   end   
end
local o_EgtPointCurveDist = EgtPointCurveDist
EgtPointCurveDist = function(...)
   local dDist, ptNear, dU = o_EgtPointCurveDist(...)
   if dDist then return dDist, Point3d( ptNear), dU end
end
local o_EgtGetLastSelInfo = EgtGetLastSelInfo
EgtGetLastSelInfo = function(...)
   local nId, nSub, ptSel = o_EgtGetLastSelInfo(...)
   if nId then return nId, nSub, Point3d( ptSel) end
end
local o_EgtGetPrevSelInfo = EgtGetPrevSelInfo
EgtGetPrevSelInfo = function(...)
   local nId, nSub, ptSel = o_EgtGetPrevSelInfo(...)
   if nId then return nId, nSub, Point3d( ptSel) end
end
local o_EgtSurfBezierGetPoint = EgtSurfBezierGetPoint
EgtSurfBezierGetPoint = function(...)
   local ptP = o_EgtSurfBezierGetPoint(...)
   if ptP then
      return Point3d( ptP)
   end
end
local o_EgtSurfBezierGetPointD1 = EgtSurfBezierGetPointD1
EgtSurfBezierGetPointD1 = function(...)
   local ptP, vtDerU, vtDerV = o_EgtSurfBezierGetPointD1(...)
   if ptP and vtDerU and vtDerV then
      return Point3d( ptP), Vector3d( vtDerU), Vector3d( vtDerV)
   end
end
local o_EgtSurfBezierGetPointNrmD1 = EgtSurfBezierGetPointNrmD1
EgtSurfBezierGetPointNrmD1 = function(...)
   local ptP, vtN, vtDerU, vtDerV = o_EgtSurfBezierGetPointNrmD1(...)
   if ptP and vtDerU and vtDerV then
      return Point3d( ptP), Vector3d( vtN), Vector3d( vtDerU), Vector3d( vtDerV)
   end
end

-- Ridefinizione funzioni per ritornare Point3d e Vector3d
local o_EgtSurfTmFacetNearestEndPoint = EgtSurfTmFacetNearestEndPoint
EgtSurfTmFacetNearestEndPoint = function(...)
   local ptP, vtN = o_EgtSurfTmFacetNearestEndPoint(...)
   if ptP and vtN then return Point3d( ptP), Vector3d( vtN) end
end
local o_EgtSurfTmFacetNearestMidPoint = EgtSurfTmFacetNearestMidPoint
EgtSurfTmFacetNearestMidPoint = function(...)
   local ptP, vtN = o_EgtSurfTmFacetNearestMidPoint(...)
   if ptP and vtN then return Point3d( ptP), Vector3d( vtN) end
end
local o_EgtSurfTmFacetCenter = EgtSurfTmFacetCenter
EgtSurfTmFacetCenter = function(...)
   local ptP, vtN = o_EgtSurfTmFacetCenter(...)
   if ptP and vtN then return Point3d( ptP), Vector3d( vtN) end
end
local o_EgtCurveIsACircle = EgtCurveIsACircle
EgtCurveIsACircle = function(...)
   local bCirc, ptC, vtN, dRad, bCCW = o_EgtCurveIsACircle(...)
   if bCirc then return bCirc, Point3d( ptC), Vector3d( vtN), dRad, bCCW end
end

-- Ridefinizione funzioni per ritornare Frame3d
local o_EgtGetGridFrame = EgtGetGridFrame
EgtGetGridFrame = function()
   local frRef = o_EgtGetGridFrame()
   if frRef then return Frame3d( frRef) end
end
local o_EgtGetGlobFrame = EgtGetGlobFrame
EgtGetGlobFrame = function(...)
   local frRef = o_EgtGetGlobFrame(...)
   if frRef then return Frame3d( frRef) end
end
local o_EgtGetGroupGlobFrame = EgtGetGroupGlobFrame
EgtGetGroupGlobFrame = function(...)
   local frRef = o_EgtGetGroupGlobFrame(...)
   if frRef then return Frame3d( frRef) end
end
local o_EgtFR = EgtFR
EgtFR = function(...)
  local frRef = o_EgtFR(...)
  if frRef then return Frame3d( frRef) end
end
local o_EgtGetTextureFrame = EgtGetTextureFrame
EgtGetTextureFrame = function(...)
   local frRef = o_EgtGetTextureFrame(...)
   if frRef then return Frame3d( frRef) end
end

-- Ridefinizione funzioni per ritornare Frame3d e altri parametri
local o_EgtCurveMinAreaRectangleXY = EgtCurveMinAreaRectangleXY
EgtCurveMinAreaRectangleXY = function(...)
   local frRect, dDimX, dDimY = o_EgtCurveMinAreaRectangleXY(...)
   if frRect then return Frame3d( frRect), dDimX, dDimY end
end
local o_EgtSurfTmFacetMinAreaRectangle = EgtSurfTmFacetMinAreaRectangle
EgtSurfTmFacetMinAreaRectangle = function(...)
   local frRect, dDimX, dDimY = o_EgtSurfTmFacetMinAreaRectangle(...)
   if frRect then return Frame3d( frRect), dDimX, dDimY end
end

-- Ridefinizione funzioni per ritornare BBox3d
local o_EgtGetBBox = EgtGetBBox
EgtGetBBox = function(...)
   local b3Box = o_EgtGetBBox(...)
   if b3Box then return BBox3d( b3Box) end
end
local o_EgtGetBBoxGlob = EgtGetBBoxGlob
EgtGetBBoxGlob = function(...)
   local b3Box = o_EgtGetBBoxGlob(...)
   if b3Box then return BBox3d( b3Box) end
end
local o_EgtGetBBoxRef = EgtGetBBoxRef
EgtGetBBoxRef = function(...)
   local b3Box = o_EgtGetBBoxRef(...)
   if b3Box then return BBox3d( b3Box) end
end
local o_EgtGetTableArea = EgtGetTableArea
EgtGetTableArea = function(...)
   local b3Box = o_EgtGetTableArea(...)
   if b3Box then return BBox3d( b3Box) end
end
local o_EgtGetRawPartBBox = EgtGetRawPartBBox
EgtGetRawPartBBox = function(...)
   local b3Box = o_EgtGetRawPartBBox(...)
   if b3Box then return BBox3d( b3Box) end
end
local o_EgtSurfTmGetFacetBBox = EgtSurfTmGetFacetBBox
EgtSurfTmGetFacetBBox = function(...)
   local b3Box = o_EgtSurfTmGetFacetBBox(...)
   if b3Box then return BBox3d( b3Box) end
end
local o_EgtSurfTmGetFacetBBoxGlob = EgtSurfTmGetFacetBBoxGlob
EgtSurfTmGetFacetBBoxGlob = function(...)
   local b3Box = o_EgtSurfTmGetFacetBBoxGlob(...)
   if b3Box then return BBox3d( b3Box) end
end
local o_EgtSurfTmGetFacetBBoxRef = EgtSurfTmGetFacetBBoxRef
EgtSurfTmGetFacetBBoxRef = function(...)
   local b3Box = o_EgtSurfTmGetFacetBBoxRef(...)
   if b3Box then return BBox3d( b3Box) end
end
local o_EgtVolZmapGetPartBBox = EgtVolZmapGetPartBBox
EgtVolZmapGetPartBBox = function(...)
   local b3Box = o_EgtVolZmapGetPartBBox(...)
   if b3Box then return BBox3d( b3Box) end
end
local o_EgtVolZmapGetPartBBoxGlob = EgtVolZmapGetPartBBoxGlob
EgtVolZmapGetPartBBoxGlob = function(...)
   local b3Box = o_EgtVolZmapGetPartBBoxGlob(...)
   if b3Box then return BBox3d( b3Box) end
end

-- Ridefinizione funzioni per ritornare Color3d
local o_EgtStdColor = EgtStdColor
EgtStdColor = function(...)
   local c3Col = o_EgtStdColor(...)
   if c3Col then return Color3d( c3Col) end
end
local o_EgtGetColor = EgtGetColor
EgtGetColor = function(...)
   local c3Col = o_EgtGetColor(...)
   if c3Col then return Color3d( c3Col) end
end
local o_EgtGetCalcColor = EgtGetCalcColor
EgtGetCalcColor = function(...)
   local c3Col = o_EgtGetCalcColor(...)
   if c3Col then return Color3d( c3Col) end
end
local o_EgtGetBackground = EgtGetBackground
EgtGetBackground = function(...)
   local c3Top, c3Bot = o_EgtGetBackground(...)
   if c3Top and c3Bot then return Color3d( c3Top), Color3d( c3Bot) end
end

-- Ridefinizione funzioni per tornare diversi tipi di oggetti
local o_EgtGetInfo = EgtGetInfo
EgtGetInfo = function( Id, Key, sType)
   local Val = o_EgtGetInfo( Id, Key, sType)
   if sType == 'v' or sType == 'V' then
      if Val then return Vector3d( Val) end
   elseif sType == 'p' or sType == 'P' then
      if Val then return Point3d( Val) end
   elseif sType == 'x' or sType == 'X' then
      if Val then return BBox3d( Val) end
   elseif sType == 'f' or sType == 'F' then
      if Val then return Frame3d( Val) end
   else
      return Val
   end
end


return EgtBase