[RESOLVED] Rotate Matrix

[Andrew G]

Ok i don't know anything about DX8 and probably never will but for some reason i'm going ok (i've been learning from JR's Tutorial + another one i found on the net). I'm currently stuck rotating a simple 2D square. The problem seems to be in the way i initialise DX8 cause if i use code out of examples it works, but if i try and write the code it doesn't . I'm guessing its something very simple but i can't seem to figure it out.

Public Const COLOR_DEPTH_16_BIT As Long = D3DFMT_R5G6B5
Public Const COLOR_DEPTH_24_BIT As Long = D3DFMT_A8R8G8B8
Public Const COLOR_DEPTH_32_BIT As Long = D3DFMT_X8R8G8B8
 
Public DirectX8 As DirectX8 'The master DirectX object.
Public Direct3D As Direct3D8 'Controls all things 3D.
Public Direct3DX As D3DX8
Public Direct3D_Device As Direct3DDevice8 'Represents the hardware rendering.
 
Public Sub StartDirectX(MainForm As Form, ScreenWidth As Single, ScreenHeight As Single, ColourDepth As Single, FullScreen As Boolean)
On Error GoTo errmsg
 
    Dim Display_Mode As D3DDISPLAYMODE 'Display mode desciption.
    Dim Direct3D_Window As D3DPRESENT_PARAMETERS 'Backbuffer and viewport description.
    
    Set DirectX8 = New DirectX8 'Creates the DirectX object.
    Set Direct3D = DirectX8.Direct3DCreate() 'Creates the Direct3D object using the DirectX object.
       
    
    'Now that we are working with fullscreen mode, we must set up the
    'screen resolution to switch to, rather than use the default screen
    'resolution.
    Select Case ColourDepth
        Case 16
            Display_Mode.Format = COLOR_DEPTH_16_BIT
        Case 24
            Display_Mode.Format = COLOR_DEPTH_24_BIT
        Case 32
            Display_Mode.Format = COLOR_DEPTH_32_BIT
        Case Else
            MsgBox "Invalid Colour Depth. Using Defualt"
            Display_Mode.Format = COLOR_DEPTH_16_BIT
    End Select
    
        Display_Mode.Width = ScreenWidth
        Display_Mode.Height = ScreenHeight
        
        Direct3D_Window.BackBufferCount = 1 '1 backbuffer only
        Direct3D_Window.BackBufferFormat = Display_Mode.Format 'Sets the format that was retrieved into the backbuffer.
        Direct3D_Window.BackBufferWidth = Display_Mode.Width 'Match the backbuffer width with the display width
        Direct3D_Window.BackBufferHeight = Display_Mode.Height 'Match the backbuffer height with the display height
        Direct3D_Window.hDeviceWindow = MainForm.hWnd 'Use frmMain as the device window.
        Direct3D_Window.AutoDepthStencilFormat = D3DFMT_D16
        
    
    If FullScreen = True Then
        Direct3D_Window.Windowed = False 'The app will be in fullscreen mode.
    Else
    
        'Direct3D.GetAdapterDisplayMode D3DADAPTER_DEFAULT, Display_Mode 'Use the current display mode that you
                                                                        'are already on. Incase you are confused, I'm
                                                                        'talking about your current screen resolution. ;)
        
        Direct3D_Window.Windowed = True 'The app will be in windowed mode.
    
    End If
    
    Direct3D_Window.SwapEffect = D3DSWAPEFFECT_COPY_VSYNC 'Refresh when the monitor does.
      
    
    'Creates the rendering device with some useful info, along with the info
    'we've already setup for Direct3D_Window.
    Set Direct3D_Device = Direct3D.CreateDevice(D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, MainForm.hWnd, D3DCREATE_SOFTWARE_VERTEXPROCESSING, Direct3D_Window)
 
       
    Direct3D_Device.SetVertexShader FVF_TLVERTEX 'Set the type of vertex shading. (Required)
    
    'Direct3D_Device.SetRenderState D3DRS_SRCBLEND, D3DBLEND_SRCALPHA
    Direct3D_Device.SetRenderState D3DRS_DESTBLEND, D3DBLEND_INVSRCALPHA
    Direct3D_Device.SetRenderState D3DRS_ALPHABLENDENABLE, True
    
    Direct3D_Device.SetRenderState D3DRS_LIGHTING, 0   '//Disable lighting.
    Direct3D_Device.SetRenderState D3DRS_ZENABLE, 1
    Direct3D_Device.SetRenderState D3DRS_CULLMODE, D3DCULL_NONE
    
    
    Direct3D_Device.SetTextureStageState 0, D3DTSS_MINFILTER, D3DTEXF_POINT
    Direct3D_Device.SetTextureStageState 0, D3DTSS_MAGFILTER, D3DTEXF_POINT
    
    Running = True 'Initializations all set. It's now ok to activate the game loop.
    
    
    
'    '//configure the world matrices
'
'    '//1. The World Matrix
'    D3DXMatrixIdentity matWorld
'    Direct3D_Device.SetTransform D3DTS_WORLD, matWorld 'commit this matrix to the device
'
'    '//2. The View Matrix
'    D3DXMatrixLookAtLH matView, MakeVector(0, 5, 2), MakeVector(0, 0, 0), MakeVector(0, 1, 0)
'    Direct3D_Device.SetTransform D3DTS_VIEW, matView
'
'    '//3. The projection Matrix
'    D3DXMatrixPerspectiveFovLH matProj, pi / 3, 1, 0.1, 75
'    Direct3D_Device.SetTransform D3DTS_PROJECTION, matProj
    
    
    
    MainForm.GameLoop
    
Exit Sub
errmsg:
MsgBox "Error number " & Err.Number & vbNewLine & Err.Description
Running = False
CloseDirectX
End Sub

and to start DX i use

StartDirectX Me, 1024, 768, 16, True

to rotate i use

D3DXMatrixIdentity matWorld
    
    D3DXMatrixIdentity matTemp
    D3DXMatrixRotationX matTemp, Angle * RAD
    D3DXMatrixMultiply matWorld, matWorld, matTemp
    
    D3DXMatrixIdentity matTemp
    D3DXMatrixRotationY matTemp, Angle * RAD
    D3DXMatrixMultiply matWorld, matWorld, matTemp
    
    D3DXMatrixIdentity matTemp
    D3DXMatrixRotationZ matTemp, Angle * RAD
    D3DXMatrixMultiply matWorld, matWorld, matTemp
    
    Angle = Angle + 1
    
    Direct3D_Device.SetTransform D3DTS_WORLD, matWorld

Thanks

[Jacob Roman]

Those rotation functions only work with 3D vertices. They will not affect 2D vertices at all, which is why it must be done manually.

[Andrew G]

But it works perfectly if i use a different way to initialise DX8.
If i use this then i'm able to rotate the square, i just don't know what i'm missing

(from a tutorial on the web)

Public Function Initialise() As Boolean
On Error GoTo ErrHandler:
 
 
 
Dim DispMode As D3DDISPLAYMODE '//Describes our Display Mode
Dim Direct3D_Window As D3DPRESENT_PARAMETERS 'Backbuffer and viewport description.
 
Set DirectX8 = New DirectX8  '//Create our Master Object
Set Direct3D = DirectX8.Direct3DCreate() '//Let our Master Object create the Direct3D Interface
 
'##################
'##  FULLSCREEN MODE ##
'#################
 
 
DispMode.Format = D3DFMT_R5G6B5
Debug.Print "CHECKDISP(1024,768,16) = ", DispMode.Format, D3DFMT_UNKNOWN
If DispMode.Format > D3DFMT_UNKNOWN Then
    '640x480x32 is supported
    Debug.Print "USING 1024x480x32 Display Mode"
    DispMode.Width = 1024: DispMode.Height = 768
End If
 
Direct3D_Window.BackBufferCount = 1
Direct3D_Window.BackBufferFormat = DispMode.Format
Direct3D_Window.BackBufferWidth = DispMode.Width
Direct3D_Window.BackBufferHeight = DispMode.Height
Direct3D_Window.hDeviceWindow = frmmain.hWnd
Direct3D_Window.AutoDepthStencilFormat = D3DFMT_D16
'Direct3D_Window.EnableAutoDepthStencil = 1
Direct3D_Window.SwapEffect = D3DSWAPEFFECT_COPY_VSYNC
 
 
'//This line creates a device that uses a hardware device if possible; software vertex processing and uses the form as it's target
'//See the lesson text for more information on this line...
Set Direct3D_Device = Direct3D.CreateDevice(D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, _
                                                    frmmain.hWnd, _
                                                    D3DCREATE_SOFTWARE_VERTEXPROCESSING, _
                                                        Direct3D_Window)
                                                        
'//Configure the rendering device
Direct3D_Device.SetVertexShader FVF_LVERTEX '//Tell it what type of vertex we are using
Direct3D_Device.SetRenderState D3DRS_LIGHTING, 0  '//Disable lighting.
Direct3D_Device.SetRenderState D3DRS_ZENABLE, 1
Direct3D_Device.SetRenderState D3DRS_CULLMODE, D3DCULL_NONE
 
 
'InitialiseGeometry '//Setup the vertices
 
Initialise = True '//We succeeded
Exit Function
 
ErrHandler:
Debug.Print "Error Number Returned: " & Err.Number, Err.Description
Initialise = False

[Jacob Roman]

Which line of code from that will allow you to rotate the square using the built in functions? Might as well play around with commenting/uncommenting some lines out.

[Andrew G]

Don't worry i fixed the problem. Cause i'm blind i missed something. Instead of

Direct3D_Device.SetVertexShader FVF_LVERTEX

I should have used

Direct3D_Device.SetVertexShader FVF_VERTEX

Thanks anyway for the help.