PureBasic Forums - English

Code: Select all

; ------------------------------------------------------------------------------------------------------
; Tutorial 2 - Rendering Vertices
; ------------------------------------------------------------------------------------------------------

; Constants
#D3DFMT_UNKNOWN = 0
#D3DSWAPEFFECT_DISCARD = 1
#D3DDEVTYPE_HAL = 1
#D3DADAPTER_DEFAULT = 0
#D3DCREATE_SOFTWARE_VERTEXPROCESSING = 32
#D3D_SDK_VERSION = 31
#D3DCLEAR_TARGET = 1
#D3DPOOL_DEFAULT = 0
#D3DFVF_XYZRHW = 4
#D3DFVF_DIFFUSE = 64
#D3DPT_TRIANGLELIST = 4
#FW_BOLD = 700
#DEFAULT_CHARSET = 1
#OUT_DEFAULT_PRECIS = 0
#DEFAULT_QUALITY = 0
#DEFAULT_PITCH = 0
#FF_DONTCARE = 0

#D3DFVF_CUSTOMVERTEX = #D3DFVF_XYZRHW | #D3DFVF_DIFFUSE

; Structures
Structure D3DPRESENT_PARAMETERS
   BackBufferWidth.l
   BackBufferHeight.l
   BackBufferFormat.l
   BackBufferCount.l
   MultiSampleType.l
   MultiSampleQuality.l
   SwapEffect.l
   hDeviceWindow.l
   Windowed.l
   EnableAutoDepthStencil.l
   AutoDepthStencilFormat.l
   flags.l
   FullScreen_RefreshRateInHz.l
   PresentationInterval.l
EndStructure

Structure CUSTOMVERTEX
   X.f
   Y.f
   Z.f
   RHW.f     ; The transformed position for the vertex.
   Color.l   ; The vertex color.
EndStructure

; Macros
Macro D3DCOLOR_ARGB(A,R,G,B)
   (A & $FF) << 24 | (R & $FF) << 16 | (G & $FF) << 8 | (B & $FF)
EndMacro

Macro D3DCOLOR_XRGB(R,G,B)
   D3DCOLOR_ARGB($FF,R,G,B)
EndMacro

Declare Render(void)
Declare Cleanup()
Declare InitDX9(hwnd)
Declare SetVertex(Index,X,Y,Z,RHW,Color)
; Direct3D Interfaces
Global g_pD3D.IDirect3D9
Global g_pd3dDevice.IDirect3DDevice9

Global g_ID3DXFont.ID3DXFont




Global g_pVB.IDirect3DVertexBuffer9
Global d3dpp.D3DPRESENT_PARAMETERS
;app vars
Global WID, hWnd, *pVertices, Event ,VertextBufferSize
Global Dim vertices.CUSTOMVERTEX(2)

Procedure SetVertex(Index,X,Y,Z,RHW,Color)
  vertices(Index)\X = X
  vertices(Index)\Y = Y
  vertices(Index)\Z = Z
  vertices(Index)\RHW = RHW
  vertices(Index)\Color = Color
EndProcedure

Procedure InitDX9(hwnd)

  OpenLibrary(0,"D3D9.dll")
  OpenLibrary(1, "d3dx9.dll")

  g_pD3D = CallFunction(0,"Direct3DCreate9",#D3D_SDK_VERSION)
 

d3dpp\Windowed = #True
d3dpp\SwapEffect = #D3DSWAPEFFECT_DISCARD
d3dpp\BackBufferFormat = #D3DFMT_UNKNOWN

g_pD3D\CreateDevice(#D3DADAPTER_DEFAULT,#D3DDEVTYPE_HAL,hwnd,#D3DCREATE_SOFTWARE_VERTEXPROCESSING,d3dpp,@g_pd3dDevice)

ProcedureReturn g_pD3D

EndProcedure



Procedure Render(void)
   rcte.RECT
  rcte\left = 0
  rcte\right = 100
  rcte\top = 0
  rcte\bottom = 100
  
   *Color = D3DCOLOR_ARGB(255, 0, 0, 255)
  While 1
   
  g_pd3dDevice\Clear(0,0,#D3DCLEAR_TARGET,D3DCOLOR_XRGB(0,0,255),1.0,0)
  g_pd3dDevice\BeginScene()
  g_pd3dDevice\SetStreamSource(0,g_pVB,0,SizeOf(CUSTOMVERTEX))
  g_pd3dDevice\SetFVF(#D3DFVF_CUSTOMVERTEX)
  g_pd3dDevice\DrawPrimitive(#D3DPT_TRIANGLELIST,0,1)
  

  Debug g_ID3DXFont\DrawTextA(#Null, "Demo", -1, @rcte, #DT_CENTER, *Color)
  

  g_pd3dDevice\EndScene()   
  g_pd3dDevice\Present(0,0,0,0)
 
  Delay(20)
 
  Wend

EndProcedure

Procedure Cleanup()
  If g_pd3dDevice
    g_pd3dDevice\Release()
    g_pD3D\Release()
    g_pVB\Release()
  EndIf
EndProcedure


If OpenWindow(0,0,0,300,300,"Direct3D Tutorial 02: Rendering Vertices",#WS_OVERLAPPEDWINDOW | 1)
  hwnd = WindowID(0)
  If initDX9(hwnd)
   
   
    SetVertex(0,150.0, 50.0,0.5,1.0,$FFFF0000)
    SetVertex(1,250.0,250.0,0.5,1.0,$FF00FF00)
    SetVertex(2, 50.0,250.0,0.5,1.0,$FF00FFFF)
    VertextBufferSize = 3 * SizeOf(CUSTOMVERTEX)
   
    g_pd3dDevice\CreateVertexBuffer(VertextBufferSize,0,#D3DFVF_CUSTOMVERTEX,#D3DPOOL_DEFAULT,@g_pVB,0)
    g_pVB\Lock(0,VertextBufferSize,@*pVertices,0)
    CopyMemory(vertices(),*pVertices,VertextBufferSize)
    g_pVB\Unlock()
    
    m_font.l = 0
    Debug CallFunction(1, "D3DXCreateFontA", g_pd3dDevice, 7, 0, 0, 0, #False, #ANSI_CHARSET, #OUT_DEFAULT_PRECIS, #DEFAULT_QUALITY, #FF_MODERN, @"Courier New", @g_ID3DXFont)
    


    CreateThread(@render(),0)
       
    Repeat
     
    Event = WaitWindowEvent()
         
     
    Until Event = #PB_Event_CloseWindow
       
    Cleanup()

  Else
     MessageRequester("DX9","failed To create surface")
  EndIf

EndIf