Sorry your browser is not supported!

make object triangle 1, 0, 0, 0, 0, 0, 0, 0, 0, 0
lock vertexdata for limb 1, 0
set vertexdata position 0, 0, 5, 0
set vertexdata position 1, -4, -4, 0
set vertexdata position 2, 4, -4, 0
unlock vertexdata

Dim tri As New Triangle(0, 0, 0, 0, 0, 0, 0, 0, 0)
Dim mesh As New Mesh(tri)

DarkGDK.Basic3D.VertexData.LockForMesh(mesh)
DarkGDK.Basic3D.VertexData.SetPosition(0, 0, 5, 0)
DarkGDK.Basic3D.VertexData.SetPosition(1, -4, -4, 0)
DarkGDK.Basic3D.VertexData.SetPosition(2, 4, -4, 0)
DarkGDK.Basic3D.VertexData.Unlock()

public class GridSquare
    {
        Triangle triangle1;
        Triangle triangle2;
        Vector3 Corner1Pos = new Vector3();
        Vector3 Corner2Pos = new Vector3();
        Vector3 Corner3Pos = new Vector3();
        Vector3 Corner4Pos = new Vector3();
        public GridSquare(Vector3 c1, Vector3 c2, Vector3 c3, Vector3 c4)
        {
            triangle1 = new Triangle(c1.X, c1.Y, c1.Z, c2.X, c2.Y, c2.Z, c3.X, c3.Y, c3.Z, Color.White);
            triangle2 = new Triangle(c2.X, c2.Y, c2.Z, c3.X, c3.Y, c3.Z, c4.X, c4.Y, c4.Z, Color.White);
            Corner1Pos = c1;
            Corner2Pos = c2;
            Corner3Pos = c3;
            Corner4Pos = c4;
        }
        public Vector3 CornerPosition1
        {
            get { return Corner1Pos; }
            set { Corner1Pos = value; Reset(); }
        }
        public Vector3 CornerPosition2
        {
            get { return Corner2Pos; }
            set { Corner2Pos = value; Reset(); }
        }
        public Vector3 CornerPosition3
        {
            get { return Corner3Pos; }
            set { Corner3Pos = value; Reset(); }
        }
        public Vector3 CornerPosition4
        {
            get { return Corner4Pos; }
            set { Corner4Pos = value; Reset(); }
        }
        private void Reset()
        {
            triangle1 = new Triangle(Corner1Pos.X, Corner1Pos.Y, Corner1Pos.Z, Corner2Pos.X, Corner2Pos.Y, Corner2Pos.Z, Corner3Pos.X, Corner3Pos.Y, Corner3Pos.Z, Color.White);
            triangle2 = new Triangle(Corner2Pos.X, Corner2Pos.Y, Corner2Pos.Z, Corner3Pos.X, Corner3Pos.Y, Corner3Pos.Z, Corner4Pos.X, Corner4Pos.Y, Corner4Pos.Z, Color.White);
        }
    }

public class CustomTerrain
    {
        GridSquare[,] Squares;
        public CustomTerrain(Int32 NumSquaresX, Int32 NumSquaresZ, Int32 SquareLength)
        {
            Squares = new GridSquare[NumSquaresX, NumSquaresZ];
            for (Int32 x = 0; x < NumSquaresX; x++)
            {
                for (Int32 z = 0; z < NumSquaresZ; z++)
                {
                    Vector3 Position1 = new Vector3();
                    Position1.Set(x * SquareLength, 0, z * SquareLength);
                    Vector3 Position2 = new Vector3();
                    Position2.Set((x + 1) * SquareLength, 0, z * SquareLength);
                    Vector3 Position3 = new Vector3();
                    Position3.Set(x * SquareLength, 0, (z + 1) * SquareLength);
                    Vector3 Position4 = new Vector3();
                    Position4.Set((x + 1) * SquareLength, 0, (z + 1) * SquareLength);
                    Squares[x, z] = new GridSquare(Position1, Position2, Position3, Position4);
                }
            }
        }
        public void Plus()
        {
            Vector3 x = new Vector3();
            x.Set(Squares[1, 1].CornerPosition4.X, Squares[1, 1].CornerPosition4.Y + 0.1F, Squares[1, 1].CornerPosition4.Z);
            Squares[1, 1].CornerPosition4 = x;
        }
        public void Minus()
        {
            Vector3 x = new Vector3();
            x.Set(Squares[1, 0].CornerPosition2.X, Squares[1, 0].CornerPosition2.Y + 0.1F, Squares[1, 0].CornerPosition2.Z);
            Squares[1, 0].CornerPosition2 = x;
        }
    }

Public Class CustomTerrain
    Dim Squares(20, 20) As GridSquare
    Sub New()
        For x = 0 To 19
            For z = 0 To 19
                Dim Position1 As New Math.Vector3
                Position1.Set(x * 10, 20, z * 10)

                Dim Position2 As New Math.Vector3
                Position1.Set((x + 1) * 10, 20, z * 10)

                Dim Position3 As New Math.Vector3
                Position1.Set(x * 10, 20, (z + 1) * 10)

                Dim Position4 As New Math.Vector3
                Position1.Set((x + 1) * 10, 20, (z + 1) * 10)

                Squares(x, z) = New GridSquare(Position1, Position2, Position3, Position4)
            Next
        Next
    End Sub
End Class

Public Class GridSquare
    Dim triangle1 As DarkGDK.Basic3D.Triangle
    Dim triangle2 As DarkGDK.Basic3D.Triangle

    Dim Corner1Pos As New DarkGDK.Math.Vector3
    Dim Corner2Pos As New DarkGDK.Math.Vector3
    Dim Corner3Pos As New DarkGDK.Math.Vector3
    Dim Corner4Pos As New DarkGDK.Math.Vector3

    Sub New(ByVal c1 As DarkGDK.Math.Vector3, ByVal c2 As DarkGDK.Math.Vector3, ByVal c3 As DarkGDK.Math.Vector3, ByVal c4 As DarkGDK.Math.Vector3)
        triangle1 = New DarkGDK.Basic3D.Triangle(c1.X, c1.Y, c1.Z, c2.X, c2.Y, c2.Z, c3.X, c3.Y, c3.Z, Color.White)
        triangle2 = New DarkGDK.Basic3D.Triangle(c2.X, c2.Y, c2.Z, c3.X, c3.Y, c3.Z, c4.X, c4.Y, c4.Z, Color.White)
        Corner1Pos = c1
        Corner2Pos = c2
        Corner3Pos = c3
        Corner4Pos = c4
    End Sub

    Public Property CornerPosition1() As DarkGDK.Math.Vector3
        Get
            Return Corner1Pos
        End Get
        Set(ByVal value As DarkGDK.Math.Vector3)
            Corner1Pos = value
            Reset()
        End Set
    End Property

    Public Property CornerPosition2() As DarkGDK.Math.Vector3
        Get
            Return Corner2Pos
        End Get
        Set(ByVal value As DarkGDK.Math.Vector3)
            Corner2Pos = value
            Reset()
        End Set
    End Property

    Public Property CornerPosition3() As DarkGDK.Math.Vector3
        Get
            Return Corner3Pos
        End Get
        Set(ByVal value As DarkGDK.Math.Vector3)
            Corner3Pos = value
            Reset()
        End Set
    End Property

    Public Property CornerPosition4() As DarkGDK.Math.Vector3
        Get
            Return Corner4Pos
        End Get
        Set(ByVal value As DarkGDK.Math.Vector3)
            Corner4Pos = value
            Reset()
        End Set
    End Property

    Private Sub Reset()
        triangle1 = New DarkGDK.Basic3D.Triangle(Corner1Pos.X, Corner1Pos.Y, Corner1Pos.Z, Corner2Pos.X, Corner2Pos.Y, Corner2Pos.Z, Corner3Pos.X, Corner3Pos.Y, Corner3Pos.Z, Color.White)
        triangle2 = New DarkGDK.Basic3D.Triangle(Corner2Pos.X, Corner2Pos.Y, Corner2Pos.Z, Corner3Pos.X, Corner3Pos.Y, Corner3Pos.Z, Corner4Pos.X, Corner4Pos.Y, Corner4Pos.Z, Color.White)
    End Sub
End Class

public CustomTerrain(Int32 TilesX, Int32 TilesZ, Int32 TileWidth, Int32 OctreeCullTileWidth);