diff --git a/Profiles/WinLib/WinCalculate.lua b/Profiles/WinLib/WinCalculate.lua
index a9d7acd..fd4bfe9 100644
--- a/Profiles/WinLib/WinCalculate.lua
+++ b/Profiles/WinLib/WinCalculate.lua
@@ -588,6 +588,23 @@ local function CalculateOutlineFromAreaOutline( nAreaId)
       -- accorcio gli offset
       TrimAndOrientOrderedCurveLayer( nOutlineLayerId)
    end
+   -- disegno area di selezione per programma
+   local nSelectionLayerId = EgtGroup( nAreaId)
+   EgtSetName( nSelectionLayerId, WIN_SELECTION)
+   EgtSetStatus( nSelectionLayerId, GDB_ST.OFF)
+   local OutlineList = {}
+   local nOutlineLayerId = EgtGetFirstNameInGroup( nAreaId, WIN_OUTLINE)
+   local nOutlineId = EgtGetFirstInGroup(nOutlineLayerId)
+   while nOutlineId do
+      table.insert( OutlineList, nOutlineId)
+      nOutlineId = EgtGetNext(nOutlineId)
+   end 
+   local nCompoId = EgtCurveCompo( nSelectionLayerId, OutlineList, false)
+   local nSelectionArea = EgtSurfFlatRegion( nSelectionLayerId, nCompoId)
+   EgtSetColor( nSelectionArea, 'YELLOW')
+   EgtSetAlpha( nSelectionArea, 10)
+   EgtMove( nSelectionArea, 10 * Z_AX())
+   EgtErase( nCompoId)
 end
 
 
@@ -605,23 +622,6 @@ local function CalcFillGeo( nPartId, nOutlineLayerId)
       EgtCopy( nOutlineId, nGeoLayerId)
       nOutlineId = EgtGetNext( nOutlineId)
    end
-   -- disegno area di selezione per programma
-   local nAreaId = EgtGetParent( nOutlineLayerId)
-   local nSelectionLayerId = EgtGroup( nAreaId)
-   EgtSetName( nSelectionLayerId, WIN_SELECTION)
-   EgtSetStatus( nSelectionLayerId, GDB_ST.OFF)
-   local OutlineList = {}
-   local nOutlineId = EgtGetFirstInGroup(nOutlineLayerId)
-   while nOutlineId do
-      table.insert( OutlineList, nOutlineId)
-      nOutlineId = EgtGetNext(nOutlineId)
-   end 
-   local nCompoId = EgtCurveCompo( nSelectionLayerId, OutlineList, false)
-   local nSelectionArea = EgtSurfFlatRegion( nSelectionLayerId, nCompoId)
-   EgtSetColor( nSelectionArea, 'YELLOW')
-   EgtSetAlpha( nSelectionArea, 10)
-   EgtMove( nSelectionArea, 10 * Z_AX())
-   EgtErase( nCompoId)
    -- recupero e salvo spessore vetro
    local nProfileLayerId = EgtGetFirstNameInGroup( GDB_ID.ROOT, WIN_PROFILE)
    local nSashProfileId = EgtGetFirstNameInGroup( nProfileLayerId, WIN_SASH)