more work on gtk & code cleanup
This commit is contained in:
@@ -118,12 +118,12 @@ Namespace Aspose3DModule
|
||||
'Create Vertices
|
||||
For Each vert As Vector4 In curMesh.ControlPoints
|
||||
'Create new Vertex
|
||||
Dim newVert As New Vertex
|
||||
|
||||
'Set Vertex Data
|
||||
newVert.X = vert.x
|
||||
newVert.Y = vert.y
|
||||
newVert.Z = vert.z
|
||||
Dim newVert As New Vertex With {
|
||||
.X = vert.x,
|
||||
.Y = vert.y,
|
||||
.Z = vert.z
|
||||
}
|
||||
|
||||
'Add new Vertex
|
||||
newMesh.Vertices.Add(newVert)
|
||||
@@ -134,12 +134,12 @@ Namespace Aspose3DModule
|
||||
If veNormals IsNot Nothing Then
|
||||
For Each n As Vector4 In veNormals.Data
|
||||
'Create new Normal
|
||||
Dim newNormal As New Normal
|
||||
|
||||
'Set Normal Data
|
||||
newNormal.X = n.x
|
||||
newNormal.Y = n.y
|
||||
newNormal.Z = n.z
|
||||
Dim newNormal As New Normal With {
|
||||
.X = n.x,
|
||||
.Y = n.y,
|
||||
.Z = n.z
|
||||
}
|
||||
|
||||
'Add new Normal
|
||||
newMesh.Normals.Add(newNormal)
|
||||
@@ -151,11 +151,11 @@ Namespace Aspose3DModule
|
||||
If veUVs IsNot Nothing Then
|
||||
For Each uv As Vector4 In veUVs.Data
|
||||
'Create new UV
|
||||
Dim newUV As New UV
|
||||
|
||||
'Set UV Data
|
||||
newUV.U = uv.x
|
||||
newUV.V = uv.y
|
||||
Dim newUV As New UV With {
|
||||
.U = uv.x,
|
||||
.V = uv.y
|
||||
}
|
||||
|
||||
'Add new UV
|
||||
newMesh.UVs.Add(newUV)
|
||||
@@ -167,13 +167,13 @@ Namespace Aspose3DModule
|
||||
If veVertexColor IsNot Nothing Then
|
||||
For Each n As Vector4 In veVertexColor.Data
|
||||
'Create new Normal
|
||||
Dim newVC As New VertexColor
|
||||
|
||||
'Set Normal Data
|
||||
newVC.R = n.x
|
||||
newVC.G = n.y
|
||||
newVC.B = n.z
|
||||
newVC.A = n.w
|
||||
Dim newVC As New VertexColor With {
|
||||
.R = n.x,
|
||||
.G = n.y,
|
||||
.B = n.z,
|
||||
.A = n.w
|
||||
}
|
||||
|
||||
'Add new Normal
|
||||
newMesh.VertexColors.Add(newVC)
|
||||
@@ -203,10 +203,10 @@ Namespace Aspose3DModule
|
||||
|
||||
For Each index As Integer In poly
|
||||
'Create new Point
|
||||
Dim p As New Point
|
||||
|
||||
'Set Vertex
|
||||
p.Vertex = newMesh.Vertices(index)
|
||||
Dim p As New Point With {
|
||||
.Vertex = newMesh.Vertices(index)
|
||||
}
|
||||
|
||||
'Set Normal
|
||||
If veNormals IsNot Nothing Then
|
||||
|
||||
Reference in New Issue
Block a user