From 855d9544f018fbf96b72cf91c13ed734fca7f128 Mon Sep 17 00:00:00 2001
From: Dario Sassi <dario.s@egaltech.com>
Date: Mon, 28 Sep 2015 16:22:18 +0000
Subject: [PATCH] TestEIn : - aggiornamento per interfaccia textures.

---
 EgtInterface.vb | 36 +++++++++++++++++++++++++++++++++++-
 1 file changed, 35 insertions(+), 1 deletion(-)

diff --git a/EgtInterface.vb b/EgtInterface.vb
index 11bfd02..b81f660 100644
--- a/EgtInterface.vb
+++ b/EgtInterface.vb
@@ -1983,7 +1983,6 @@ Public Function EgtCreateBiArc(ByVal nParentId As Integer, ByRef PtStart As Poin
    End If
 End Function
 
-
 <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtCreateCurveFillet")>
 Private Function EgtCreateCurveFillet_32(ByVal nParentId As Integer, ByVal nCrv1 As Integer, ByRef PtNear1 As Point3d,
                                          ByVal nCrv2 As Integer, ByRef PtNear2 As Point3d,
@@ -2146,6 +2145,24 @@ Public Function EgtCreateSurfFlatRegion(ByVal nParentId As Integer, ByVal nCrvId
    End If
 End Function
 
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtCreateSurfTmBBox")>
+Private Function EgtCreateSurfTmBBox_32(ByVal nParentId As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d,
+                                        Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtCreateSurfTmBBox")>
+Private Function EgtCreateSurfTmBBox_64(ByVal nParentId As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d,
+                                        Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer
+End Function
+Public Function EgtCreateSurfTmBBox(ByVal nParentId As Integer, ByRef ptMin As Point3d, ByRef ptMax As Point3d,
+                                    Optional ByVal nRefType As GDB_RT = GDB_RT.LOC) As Integer
+   If IntPtr.Size = 4 Then
+      Return EgtCreateSurfTmBBox_32(nParentId, ptMin, ptMax, nRefType)
+   Else
+      Return EgtCreateSurfTmBBox_64(nParentId, ptMin, ptMax, nRefType)
+   End If
+End Function
+
+
 <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtCreateSurfTmByFlatContour")>
 Private Function EgtCreateSurfTmByFlatContour_32(ByVal nParentId As Integer, ByVal nCrvId As Integer, ByVal dLinTol As Double) As Integer
 End Function
@@ -5795,6 +5812,23 @@ Public Function EgtUnProjectPoint(ByVal Curr As Point, ByRef ptP As Point3d) As
    End If
 End Function
 
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtLoadTexture")>
+Private Function EgtLoadTexture_32(ByVal sName As String, ByVal sFile As String,
+                                   ByVal dDimX As Double, ByVal dDimY As Double, ByVal bRepeat As Boolean) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtLoadTexture")>
+Private Function EgtLoadTexture_64(ByVal sName As String, ByVal sFile As String,
+                                   ByVal dDimX As Double, ByVal dDimY As Double, ByVal bRepeat As Boolean) As Boolean
+End Function
+Public Function EgtLoadTexture(ByVal sName As String, ByVal sFile As String,
+                               ByVal dDimX As Double, ByVal dDimY As Double, ByVal bRepeat As Boolean) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtLoadTexture_32(sName, sFile, dDimX, dDimY, bRepeat)
+   Else
+      Return EgtLoadTexture_64(sName, sFile, dDimX, dDimY, bRepeat)
+   End If
+End Function
+
 
 '---------- Geo Base -----------------------------------------------------------
 <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtVectorNormalize")>