From ae103a814a3e5bbb12873b8c5efbadbc01595fdb Mon Sep 17 00:00:00 2001
From: SaraP <sara.perdoncin@egalware.com>
Date: Tue, 10 May 2022 15:02:01 +0200
Subject: [PATCH] 3dPrinting : - in RunSlicing aggiunto disegno dello start
 point.

---
 LuaLibs/RunSlicing.lua | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/LuaLibs/RunSlicing.lua b/LuaLibs/RunSlicing.lua
index c39d4eb..8c942d4 100644
--- a/LuaLibs/RunSlicing.lua
+++ b/LuaLibs/RunSlicing.lua
@@ -151,6 +151,15 @@ function RunSlicing.Exec()
    local sMachIni = EgtGetCurrMachineDir() .. '\\' .. EgtGetCurrMachineName() .. '.ini'
    local HMax = tonumber( EgtGetStringFromIni( '3dPrinting', 'HMax', 500, sMachIni))
 
+   -- disegno lo start point
+   local nPntId = EgtGetFirstNameInGroup( nPartId, KEY_START_POINT)
+   if nPntId then EgtErase( nPntId) end
+   local nParamsGrp = EgtGetFirstNameInGroup( GDB_ID.ROOT, PARAMS_GRP)
+   local pt = EgtGetInfo( nParamsGrp, KEY_START_POINT, 'p') 
+   nPntId = EgtPoint( nPartId, pt, GDB_RT.GLOB)
+   EgtSetColor( nPntId, EgtStdColor("RED"))
+   EgtSetName( nPntId, KEY_START_POINT)
+   
    -- Calcolo delle fette
    CSLICES.Exec( nPartId, nStmId, HMax)
    EgtDraw()