Sorry your browser is not supported!

Public Class GameCore
    Sub Main()

        'Setup Display, Camera 
        DarkGDK.Display.SetDisplayMode(1920, 1200, 32)
        DarkGDK.Display.SetWindowLayout(0, 0, 0)
        DarkGDK.Display.MaximizeWindow()
        DarkGDK.Core.SyncOn()
        DarkGDK.Core.SyncRate(0)
        DarkGDK.Camera.DefaultCamera.AutoCamOn()
        DarkGDK.Camera.DefaultCamera.BackdropOff()
        DarkGDK.Core.DrawToBack()
        DarkGDK.IO.File.SetCurrentDirectory("..\..\..\Media")
        'Build Cube
        Dim img As New DarkGDK.Basic2D.Image("TG.png")
        Dim tile As DarkGDK.Basic3D.Plane
        tile = New DarkGDK.Basic3D.Plane(10, 10, img)
        tile.Position(0, 0, 0)
        tile.ScaleTexture(10, 10)
        'Main Loop
        While DarkGDK.Engine.LoopGDK()
            DarkGDK.Core.ClearScreen()

            DarkGDK.Text.ShowText(0, 0, DarkGDK.Display.ScreenFPS())
            DarkGDK.Core.Sync()
        End While


    End Sub
End Class