-- 2018/06/20
-- Recupero dei bordi di una superficie trimesh
-- Istruzioni :
-- 1) selezionare la superficie
-- 2) eseguire il componente.

-- Intestazioni
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)


-- Recupero primo oggetto selezionato (superficie da cui recuperare i contorni)
local nId1 = EgtGetFirstSelectedObj()
if not nId1 or EgtGetType( nId1) ~= GDB_TY.SRF_MESH then
   EgtOutText( 'Il primo oggetto selezionato non è una superficie')
   EgtPause( 1000)
   return
end

-- verifico ci sia un layer corrente in cui mettere le curve
local nDestId = EgtGetCurrLayer()
if not nDestId then
   EgtOutText( 'Non è definito il layer corrente dove mettere le curve')
   EgtPause( 1000)
   return
end

-- Recupero i contorni della superficie
local nCrvFstId = EgtExtractSurfTmLoops( nId1, nDestId)
if not nCrvFstId then
   EgtOutText( 'La superficie non ha bordi (è chiusa)')
   EgtPause( 1000)
   return
end

EgtDraw()