From ef0d6b38e563e90e7d4f649b83c8b3ecbada40f0 Mon Sep 17 00:00:00 2001
From: Dario Sassi <dario.s@egaltech.com>
Date: Mon, 11 Jan 2016 14:37:22 +0000
Subject: [PATCH] TestEIn 1.6l7 : - aggiornamenti per nesting.

---
 EgtInterface.vb | 28 ++++++++++++++++++++++++++++
 GenInterface.vb |  2 +-
 2 files changed, 29 insertions(+), 1 deletion(-)

diff --git a/EgtInterface.vb b/EgtInterface.vb
index f2ea8c9..a117378 100644
--- a/EgtInterface.vb
+++ b/EgtInterface.vb
@@ -5209,6 +5209,34 @@ Public Function EgtMoveSelectedPartCluster(ByVal bReducedCut As Boolean, ByRef v
    End If
 End Function
 
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetObstacleTangent")>
+Private Function EgtGetObstacleTangent_32(ByRef vtTang As Vector3d) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetObstacleTangent")>
+Private Function EgtGetObstacleTangent_64(ByRef vtTang As Vector3d) As Boolean
+End Function
+Public Function EgtGetObstacleTangent(ByRef vtTang As Vector3d) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtGetObstacleTangent_32(vtTang)
+   Else
+      Return EgtGetObstacleTangent_64(vtTang)
+   End If
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetMovingTangent")>
+Private Function EgtGetMovingTangent_32(ByRef vtTang As Vector3d) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetMovingTangent")>
+Private Function EgtGetMovingTangent_64(ByRef vtTang As Vector3d) As Boolean
+End Function
+Public Function EgtGetMovingTangent(ByRef vtTang As Vector3d) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtGetMovingTangent_32(vtTang)
+   Else
+      Return EgtGetMovingTangent_64(vtTang)
+   End If
+End Function
+
 <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtRotatePartCluster")>
 Private Function EgtRotatePartCluster_32(ByVal vId As Integer(), ByVal nCount As Integer,
                                          ByVal bReducedCut As Boolean, ByRef ptCen As Point3d, ByRef dRotAngDeg As Double,
diff --git a/GenInterface.vb b/GenInterface.vb
index 0953098..aef11f3 100644
--- a/GenInterface.vb
+++ b/GenInterface.vb
@@ -1,6 +1,6 @@
 Imports System.Runtime.InteropServices
 Imports System.Text
-Imports EgtUILib.EgtInterface
+Imports TestEIn.EgtInterface
 
 Public Module GenInterface