From b7e8c8bdafbf4fffc8b896cdfe69cf92ea0ccfc1 Mon Sep 17 00:00:00 2001
From: DarioS <dario.sassi@egaltech.com>
Date: Tue, 25 Jul 2023 09:14:16 +0200
Subject: [PATCH] EgtUILib 2.5g1 : - aggiunto metodo ToString a Vector3d,
 Point3d, Frame3d e BBox3d.

---
 EgtInterface.vb            | 33 +++++++++++++++++++++++++++++++--
 EgtUILib.vbproj            |  4 +---
 My Project/AssemblyInfo.vb |  4 ++--
 3 files changed, 34 insertions(+), 7 deletions(-)

diff --git a/EgtInterface.vb b/EgtInterface.vb
index 16068b7..64101e3 100644
--- a/EgtInterface.vb
+++ b/EgtInterface.vb
@@ -1,7 +1,7 @@
 '----------------------------------------------------------------------------
-'  EgalTech 2014-2015
+'  EgalTech 2014-2023
 '----------------------------------------------------------------------------
-' File : EgtInterface.vb       Data : 30.06.15        Versione : 1.6f4
+' File : EgtInterface.vb       Data : 25.07.23        Versione : 2.5g1
 ' Contenuto : Modulo EgtInterface (interfaccia verso il motore EgalTech).
 '
 '
@@ -13,6 +13,7 @@
 
 Imports System.Runtime.InteropServices
 Imports System.Security
+Imports System.Globalization
 
 Public Module EgtInterface
 
@@ -217,6 +218,13 @@ Structure Vector3d
          Return Me
       End If
    End Function
+   ' Converte in stringa
+   Overrides Function ToString() As String
+      Dim sOut As String = x.ToString( "F6", CultureInfo.InvariantCulture) & "," &
+                           y.ToString( "F6", CultureInfo.InvariantCulture) & "," &
+                           z.ToString( "F6", CultureInfo.InvariantCulture)
+      return sOut
+   End Function
    ' vettore nullo
    Shared Function NULL() As Vector3d
       Return New Vector3d(0, 0, 0)
@@ -456,6 +464,13 @@ End Function
          Return Me
       End If
    End Function
+   ' Converte in stringa
+   Overrides Function ToString() As String
+      Dim sOut As String = x.ToString( "F3", CultureInfo.InvariantCulture) & "," &
+                           y.ToString( "F3", CultureInfo.InvariantCulture) & "," &
+                           z.ToString( "F3", CultureInfo.InvariantCulture)
+      return sOut
+   End Function
    ' Punto Origine
    Shared Function ORIG() As Point3d
       Return New Point3d(0, 0, 0)
@@ -679,6 +694,14 @@ Class Frame3d
          Return False
       End If
    End Function
+   ' Converte in stringa
+   Overrides Function ToString() As String
+      Dim sOut As String = PtOrig.ToString() & "," &
+                           VtDirX.ToString() & "," &
+                           VtDirY.ToString() & "," &
+                           VtDirZ.ToString()
+      return sOut
+   End Function
    ' Riferimento Globale o Identità
    Shared Function GLOB() As Frame3d
       Return New Frame3d
@@ -880,6 +903,12 @@ Class BBox3d
       If PtMax.y < b3Other.PtMin.y - EPS_SMALL Or PtMin.y > b3Other.PtMax.y + EPS_SMALL Then Return False
       Return True
    End Function
+   ' Converte in stringa
+   Overrides Function ToString() As String
+      Dim sOut As String = PtMin.ToString() & "," &
+                           PtMax.ToString()
+      return sOut
+   End Function
 End Class
 
 ' Verifica quasi uguaglianza di due bounding box
diff --git a/EgtUILib.vbproj b/EgtUILib.vbproj
index e724f0e..4a26289 100644
--- a/EgtUILib.vbproj
+++ b/EgtUILib.vbproj
@@ -285,9 +285,7 @@
     <Compile Include="Scene.Designer.vb">
       <DependentUpon>Scene.vb</DependentUpon>
     </Compile>
-    <Compile Include="Scene.vb">
-      <SubType>UserControl</SubType>
-    </Compile>
+    <Compile Include="Scene.vb" />
     <Compile Include="SelectMulti.Designer.vb">
       <DependentUpon>SelectMulti.vb</DependentUpon>
     </Compile>
diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb
index 482649d..274718b 100644
--- a/My Project/AssemblyInfo.vb	
+++ b/My Project/AssemblyInfo.vb	
@@ -35,5 +35,5 @@ Imports System.Runtime.InteropServices
 ' È possibile specificare tutti i valori oppure impostare valori predefiniti per i numeri relativi alla revisione e alla build 
 ' utilizzando l'asterisco (*) come descritto di seguito:
 
-<Assembly: AssemblyVersion("2.5.6.1")>
-<Assembly: AssemblyFileVersion("2.5.6.1")>
+<Assembly: AssemblyVersion("2.5.7.1")>
+<Assembly: AssemblyFileVersion("2.5.7.1")>