Sorry your browser is not supported!

This is another milestone for LightEngine as now it has complete XML documentation and the first version of a .CHM documentation. This initial documentation is based on DGDK.NET documentation with the needed adapted things, like parametes, returns, etc.

There are two important things that were "exterminated" with this release:
    1 - There's no more UINT/LONG colors, every single color is now based on the .NET convention: System.Drawing.Color. This makes it easier to work with other .NET dlls and classes. Two functions were added for Color conversion on the LightBasic2D class, GetNetCompliantColor and GetDGDKCompliatColor that do the color conversion from .NET Color to DGDK numbers, so if you're converting an existing application from DBPro or DGDK(C++), you can easily convert a "0x00339428" color value to a .NET compliant one.
    2 - I have removed every single Exist method that took a Light[Class] as a parameter. You can always check if a object exist by passing is ID as the parameter: myObject.Id, so all these methods were ambiguous.

There were some functions that had to be removed because of lack of documentation. They were not present on DBPro and I had nowhere to check what if does. If anybody finds one that was not included in LightEngine, please, PM me with the function and explain me exactly what it does. For a complete list of changed things, check the Classes changes/additions section.

Error	1	'Hide' is not a member of 'LightOrb.LightEngine.Basic3D.LightObject'.	

Error	2	'Show' is not a member of 'LightOrb.LightEngine.Basic3D.LightObject'.	

Error	3	'Hide' is not a member of 'LightOrb.LightEngine.Basic3D.LightBox'.	

Error	4	'SetPosition' is not a member of 'LightOrb.LightEngine.Basic2D.LightSprite'.	

Error	7	'Update' is not a member of 'LightOrb.LightEngine.World.LightTerrain'.	

Error	8	'Hide' is not a member of 'LightOrb.LightEngine.Basic3D.LightPlane'.	

Error	9	'Show' is not a member of 'LightOrb.LightEngine.Basic3D.LightPlane'.	

Imports CDarkGDK
Imports LightOrb.LightEngine
Imports LightOrb.LightEngine.Basic3D

Module modMain

    Sub Main()

        CDarkGDK.InitDarkGDK(sKEY)
        SetupGUI()

        '//le cube
        Dim oCube As New LightCube(2.0F)
        oCube.Position(0.0F, 0.0F, 0.0F)

        While oDBP.LoopGDK
            oCube.Rotate(oCube.AngleX, oCube.AngleY + 0.5F, oCube.AngleZ)
            oDBCore.Sync()
        End While

    End Sub

    Private Sub SetupGUI()
        oDBDisplay.SetWindowTitle("DGDK.NET Light Engine Test")
        oDBDisplay.SetDisplayMode(1024, 768, 32)
        oDBDisplay.SetWindowPosition(250, 128)
        oDBCamera.AutoCamOff()
        oDBCore.SyncOn()
        oDBCamera.BackdropOn()
        oDBCamera.ColorBackdrop(oDB2D.RGBC(0, 0, 0))

        oDBCamera.PositionCamera(0.0F, 5.0F, -10.0F)
        oDBCamera.PointCamera(0.0F, 0.0F, 0.0F)
    End Sub

End Module

''' <summary>
''' Gets keystates from Windows API
''' Nothing to do with DGDK
''' </summary>
Public Class DarkKeys
    Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Integer) As Short

    ''' <summary>                                   
    ''' This is just a copy of System.Windows.Forms.Keys (So System.Windows.Forms need not be referenced)
    ''' </summary>                                  
    Public Enum Keys
        A = 65
        Add = 107
        Alt = 262144
        Apps = 93
        Attn = 246
        B = 66
        Back = 8
        BrowserBack = 166
        BrowserFavorites = 171
        BrowserForward = 167
        BrowserHome = 172
        BrowserRefresh = 168
        BrowserSearch = 170
        BrowserStop = 169
        C = 67
        Cancel = 3
        Capital = 20
        CapsLock = 20
        Clear = 12
        Control = 131072
        ControlKey = 17
        Crsel = 247
        D = 68
        D0 = 48
        D1 = 49
        D2 = 50
        D3 = 51
        D4 = 52
        D5 = 53
        D6 = 54
        D7 = 55
        D8 = 56
        D9 = 57
        [Decimal] = 110
        Delete = 46
        Divide = 111
        Down = 40
        E = 69
        [End] = 35
        Enter = 13
        EraseEof = 249
        Escape = 27
        Execute = 43
        Exsel = 248
        F = 70
        F1 = 112
        F10 = 121
        F11 = 122
        F12 = 123
        F13 = 124
        F14 = 125
        F15 = 126
        F16 = 127
        F17 = 128
        F18 = 129
        F19 = 130
        F2 = 113
        F20 = 131
        F21 = 132
        F22 = 133
        F23 = 134
        F24 = 135
        F3 = 114
        F4 = 115
        F5 = 116
        F6 = 117
        F7 = 118
        F8 = 119
        F9 = 120
        FinalMode = 24
        G = 71
        H = 72
        HanguelMode = 21
        HangulMode = 21
        HanjaMode = 25
        Help = 47
        Home = 36
        I = 73
        IMEAccept = 30
        IMEAceept = 30
        IMEConvert = 28
        IMEModeChange = 31
        IMENonconvert = 29
        Insert = 45
        J = 74
        JunjaMode = 23
        K = 75
        KanaMode = 21
        KanjiMode = 25
        KeyCode = 65535
        L = 76
        LaunchApplication1 = 182
        LaunchApplication2 = 183
        LaunchMail = 180
        LButton = 1
        LControlKey = 162
        Left = 37
        LineFeed = 10
        LMenu = 164
        LShiftKey = 160
        LWin = 91
        M = 77
        MButton = 4
        MediaNextTrack = 176
        MediaPlayPause = 179
        MediaPreviousTrack = 177
        MediaStop = 178
        Menu = 18
        Modifiers = -65536
        Multiply = 106
        N = 78
        [Next] = 34
        NoName = 252
        None = 0
        NumLock = 144
        NumPad0 = 96
        NumPad1 = 97
        NumPad2 = 98
        NumPad3 = 99
        NumPad4 = 100
        NumPad5 = 101
        NumPad6 = 102
        NumPad7 = 103
        NumPad8 = 104
        NumPad9 = 105
        O = 79
        Oem1 = 186
        Oem102 = 226
        Oem2 = 191
        Oem3 = 192
        Oem4 = 219
        Oem5 = 220
        Oem6 = 221
        Oem7 = 222
        Oem8 = 223
        OemBackslash = 226
        OemClear = 254
        OemCloseBrackets = 221
        Oemcomma = 188
        OemMinus = 189
        OemOpenBrackets = 219
        OemPeriod = 190
        OemPipe = 220
        Oemplus = 187
        OemQuestion = 191
        OemQuotes = 222
        OemSemicolon = 186
        Oemtilde = 192
        P = 80
        Pa1 = 253
        Packet = 231
        PageDown = 34
        PageUp = 33
        Pause = 19
        Play = 250
        Print = 42
        PrintScreen = 44
        Prior = 33
        ProcessKey = 229
        Q = 81
        R = 82
        RButton = 2
        RControlKey = 163
        [Return] = 13
        Right = 39
        RMenu = 165
        RShiftKey = 161
        RWin = 92
        S = 83
        Scroll = 145
        [Select] = 41
        SelectMedia = 181
        Separator = 108
        Shift = 65536
        ShiftKey = 16
        Sleep = 95
        Snapshot = 44
        Space = 32
        Subtract = 109
        T = 84
        Tab = 9
        U = 85
        Up = 38
        V = 86
        VolumeDown = 174
        VolumeMute = 173
        VolumeUp = 175
        W = 87
        X = 88
        XButton1 = 5
        XButton2 = 6
        Y = 89
        Z = 90
        Zoom = 251
    End Enum

    ''' <summary>     
    ''' Key held down 
    ''' </summary>    
    Public Shared State(255) As Boolean

    ''' <summary>        
    ''' Key just pressed 
    ''' </summary>       
    Public Shared Press(255) As Boolean

    ''' <summary>          
    ''' Updates key states 
    ''' </summary>         
    Public Shared Sub Update()
        Dim V As Boolean
        For N As Integer = 0 To 255
            V = GetAsyncKeyState(N) <> 0
            If V AndAlso V <> State(N) Then
                Press(N) = True
            ElseIf Press(N) Then
                Press(N) = False
            End If
            State(N) = V
        Next
    End Sub

    ''' <summary>                                        
    ''' Waits for a new key press and updates key states 
    ''' </summary>                                       
    Public Shared Sub WaitAndUpdate()
        Dim CanExit As Boolean = False
        Do
            Dim V As Boolean
            For N As Integer = 0 To 255
                V = GetAsyncKeyState(N) <> 0
                If V AndAlso V <> State(N) Then
                    Press(N) = True
                    CanExit = True
                ElseIf Press(N) Then
                    Press(N) = False
                End If
                State(N) = V
            Next
            System.Threading.Thread.Sleep(1)
        Loop Until CanExit
    End Sub

    ''' <summary>                                                                   
    ''' Returns if key K is pressed                                                 
    ''' This is independent of Check/Press and does not require Update to be called 
    ''' </summary>                                                                  
    Public Shared Function Check(ByVal K As Keys) As Boolean
        Return GetAsyncKeyState(K) <> 0
    End Function

    ''' <summary>                            
    ''' Returns true if any key in L is down 
    ''' </summary>                           
    Public Shared Function StateOf(ByVal L As List(Of Keys)) As Boolean
        For Each K As Keys In L
            If State(K) Then
                Return True
            End If
        Next
        Return False
    End Function

    ''' <summary>                                          
    ''' Returns true if any key in L has just beep pressed 
    ''' </summary>                                         
    Public Shared Function PressOf(ByVal L As List(Of Keys)) As Boolean
        For Each K As Keys In L
            If Press(K) Then
                Return True
            End If
        Next
        Return False
    End Function

    ''' <summary>                           
    ''' Returns a description of a key list 
    ''' </summary>                          
    Public Shared Function KeyListToString(ByVal L As List(Of Keys)) As String
        Dim R As String = ""
        For Each K As Keys In L
            If R.Length = 0 Then
                R = K.ToString
            Else
                R += ", " + K.ToString
            End If
        Next
        Return R
    End Function

    ''' <summary>                                        
    ''' Returns a description of the first key in a list 
    ''' </summary>                                       
    Public Shared Function KeyToString(ByVal L As List(Of Keys)) As String
        If L.Count = 0 Then
            Return "(No key assigned)"
        Else
            Return L(0).ToString
        End If
    End Function

    ''' <summary>                      
    ''' Returns a description of a key 
    ''' </summary>                     
    Public Shared Function KeyToString(ByVal K As Keys) As String
        Return K.ToString
    End Function
End Class