- modificata la funzione EgtSurfBezParamsFromPoint

Project/ProjectVM.vb

@@ -1465,13 +1465,14 @@ Public Class ProjectVM
       ElseIf EgtGetType(nId) = GDB_TY.SRF_BEZ Then
          ' Visualizzo il punto selezionato, la normale e le tangenti nelle direzioni dei parametri
          Analyze.CreateAnalyzeGroup()
-         Dim ptPar As Point3d
-         If Analyze.CreateSBzPointNormalAndTangents(nId, ptSel, ptPar) Then
-            Dim sOut As String = "U = " + ptPar.x.ToString("F3") +
-                                  "; V = " + ptPar.y.ToString("F3")
+         Dim dU As Double
+         Dim dV As Double
+         If Analyze.CreateSBzPointNormalAndTangents(nId, ptSel, dU, dV) Then
+            Dim sOut As String = "U = " + dU.ToString("F3") +
+                                  "; V = " + dV.ToString("F3")
             Map.refStatusBarVM.NotifyStatusOutput(sOut)
             If (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
-               Analyze.CreateSBzIsoParam(nId, ptPar)
+               Analyze.CreateSBzIsoParam(nId, dU, dV)
             End If
          End If
 

Utility/Analyze.vb

@@ -163,25 +163,25 @@ Module Analyze
       Return True
    End Function
 
-   Function CreateSBzPointNormalAndTangents( nId As Integer, ptBez As Point3d, ByRef ptPar As Point3d) As Boolean
+   Function CreateSBzPointNormalAndTangents( nId As Integer, ptBez As Point3d, ByRef dU As Double, ByRef dV As Double) As Boolean
       If m_AnaGrpId = GDB_ID.NULL Then Return False
       Dim bEnMod As Boolean = EgtGetEnableModified()
       EgtDisableModified()
 
-      Dim bOk As Boolean = EgtSurfBezParamsFromPoint( nId, ptBez, m_AnaGrpId, ptPar)
+      Dim bOk As Boolean = EgtSurfBezParamsFromPoint( nId, ptBez, m_AnaGrpId, dU, dV)
 
       If bEnMod Then EgtEnableModified()
       Return bOk
    End Function
 
-   Function CreateSBzIsoParam( nId As Integer, ByRef ptPar As Point3d) As Boolean
+   Function CreateSBzIsoParam( nId As Integer, ByRef dU As Double, ByRef dV As Double) As Boolean
       If m_AnaGrpId = GDB_ID.NULL Then Return False
       Dim bEnMod As Boolean = EgtGetEnableModified()
       EgtDisableModified()
-      Dim nIdCrv As Integer = EgtSurfBezierGetCurveU( nId, ptPar.y, m_AnaGrpId)
+      Dim nIdCrv As Integer = EgtSurfBezierGetCurveU( nId, dV, m_AnaGrpId)
       EgtSetColor( nIdCrv, New Color3d(128,128,255))
       Dim bOk As Boolean = nIdCrv <> GDB_ID.NULL
-      nIdCrv = EgtSurfBezierGetCurveV( nId, ptPar.x, m_AnaGrpId)
+      nIdCrv = EgtSurfBezierGetCurveV( nId, dU, m_AnaGrpId)
       bOk = bOk And nIdCrv <> GDB_ID.NULL
       EgtSetColor( nIdCrv, New Color3d(255,128,128))