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 + +Private Function EgtGetObstacleTangent_32(ByRef vtTang As Vector3d) As Boolean +End Function + +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 + + +Private Function EgtGetMovingTangent_32(ByRef vtTang As Vector3d) As Boolean +End Function + +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 + 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