-- 2019/09/23  09:30:00
-- Creazione di fresa cilindrica

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

require("EgtDimension")

-- Dati utensile : dichiarazione e valori standard
local TOOL = {}
TOOL.TOOLHOLDER = ''
TOOL.LEN = 80
TOOL.DIAM = 20
TOOL.MAXMAT = 40
TOOL.ERR = 0
_G.TOOL = TOOL

-- Creazione utensile cilindrico
function CreateTool()

   TOOL.ERR = 999

   -- Parametri utensile
   local nType = TOOL.TYPE
   local sFilePath = TOOL.TOOLHOLDER
   local dMillHeight = TOOL.LEN
   local dMillDiameter = TOOL.DIAM
   local dCutterHeight = TOOL.MAXMAT

   -- progetto vuoto
   EgtNewFile()  

   local dToolHolderHeight = 0
   local dStemDiam = 40

   -- Se richiesto inserisco porta utensile
   if sFilePath and sFilePath ~= "" then
      -- eseguo inserimento
      if not EgtInsertFile(sFilePath) then
        TOOL.ERR = 1
        return
      end
      -- recupero altezza portautensile e diametro gambo
      local P = EgtGetFirstInGroup( GDB_ID.ROOT)
      dToolHolderHeight = tonumber( EgtGetInfo( P, "H") or '0')
      dStemDiam = tonumber( EgtGetInfo( P, "D_STEM") or '40')
   -- Altrimenti creo pezzo e layer opportuni
   else
      -- Creo pezzo e layer
      local P = EgtGroup(GDB_ID.ROOT)
      local L = EgtGroup(P)
      -- altezza portautensile rimane nulla
   end

   -- Controllo lunghezza utensile
   if dMillHeight - dToolHolderHeight - dCutterHeight < 0 then
     TOOL.ERR = 12
     return
   end

   -- Calcolo dimensione quote
   local dMaxLinDim 
   if dMillHeight > dMillDiameter then
     dMaxLinDim = dMillHeight
   else 
     dMaxLinDim = dMillDiameter
   end
   local dLenghtArrow = 0.05 * dMaxLinDim 
   local dDistQuote = 20
   local dTextSize = 15
   local dTextDist = 5

   -- Layer
   local Part = EgtGetFirstGroupInGroup(GDB_ID.ROOT)
   local MillLayer = (EgtGetFirstInGroup(Part))
   EgtSetName(MillLayer,'SOLID')
   local QuoteLayer = EgtGroup(Part)
   EgtSetName(QuoteLayer,'AUX')
   EgtSetColor(QuoteLayer,BLACK())
   if EgtGetBackground then
      local colTop, colBot = EgtGetBackground()
      if colTop and colBot then
         local nInt = colTop:getRed() + colTop:getGreen() + colTop:getBlue() + colBot:getRed() + colBot:getGreen() + colBot:getBlue()
         if nInt < 769 then
            EgtSetColor( QuoteLayer, WHITE())
         end
      end
   end

  -- Disegno utensile
  local dTopDiam = min( dStemDiam, dMillDiameter)
  local ptP1 = Point3d( dTopDiam/2, - dToolHolderHeight, 0)
  local ptP2 = Point3d( dMillDiameter/2, -(dMillHeight - dCutterHeight), 0)
  
  if dMillHeight - dToolHolderHeight - dCutterHeight > 0.1 then
    
    local NoCutterLine = EgtLine(MillLayer, ptP1, ptP2, GDB_RT.GRID)
    
    local NoCutterHeight = dMillHeight - dToolHolderHeight - dCutterHeight
       
    local NoCutterSurf = EgtSurfTmByRevolve(MillLayer, NoCutterLine, Point3d(0,0,0), Vector3d(0,-1,0), false, 0.05, GDB_RT.GRID)
    EgtSetColor(NoCutterSurf, LGRAY())
    EgtErase(NoCutterLine)
  else
     ptP2 = Point3d( ptP1)
  end
  
  local ptP3 = Point3d(dMillDiameter/2, -dMillHeight, 0)
  local CutterLine = EgtLine(MillLayer, ptP2, ptP3, GDB_RT.GRID)

  local sLenTxt = EgtNumToString(EgtToUiUnits(dMillHeight),3)
  CreateLinearDimensionOnY(QuoteLayer, Point3d(0,0,0), ptP3, sLenTxt, dTextSize, 2.5 * dDistQuote, dLenghtArrow, dTextDist, true, 'LEN', GDB_RT.GRID)  

  local ptP2M = Point3d( ptP2)
  ptP2M:mirror(ORIG(),X_AX())
  local ptP3M = Point3d( ptP3)
  ptP3M:mirror(ORIG(),X_AX())
  local sMaxMatTxt = EgtNumToString(EgtToUiUnits(dCutterHeight),3)
  CreateLinearDimensionOnY(QuoteLayer, ptP2M, ptP3M, sMaxMatTxt, dTextSize, dDistQuote, dLenghtArrow, dTextDist, false, 'MAXMAT', GDB_RT.GRID)

  local ptP4 = Point3d(0, -dMillHeight, 0)
  local TipLine = EgtLine(MillLayer, ptP3, ptP4, GDB_RT.GRID)
  
  local ptP5 = Point3d(-dMillDiameter/2,-dMillHeight, 0)
 
  local sDiamTxt = EgtNumToString(EgtToUiUnits(dMillDiameter),3)
  CreateLinearDimensionOnX(QuoteLayer, ptP3, ptP5, sDiamTxt, dTextSize, dDistQuote, dLenghtArrow, dTextDist, false, 'DIAM', GDB_RT.GRID)
 
  CutterLine = EgtCurveCompo(MillLayer,{CutterLine, TipLine})
  
  local CutterSurf = EgtSurfTmByRevolve(MillLayer, CutterLine, Point3d(0,0,0), Vector3d(0,-1,0), false, 0.05, GDB_RT.GRID)
  
  EgtSetColor(CutterSurf,ORANGE())
  
  EgtErase(CutterLine)
  
  TOOL.ERR = 0
end
_G.CreateTool = CreateTool