13. Direct3D per Rapid-Q

Introduzione passo-passo
• Lanciare Anim8or
• Cliccare su un poligono
   
• Per disegnare l'oggetto, cliccare e trtascinarlo nel riquadro principale 
  
• Assicuratevi di centrare l'oggetto (non è necessario, ma è preferibile). Per fare ciò, selezionate l'oggetto che volete centrare, e sciegliete dal menu: Edit|Locate|Center about origin
• Non esagerate con le dimensioni del poligono.
• Ora, per esportare il vostro oggetto selezionate dal menu: Object|Export Salvare come file .3DS.
• Supponiamo che abbiate chiamato il vostro file poly.3ds: dal prompt dei comandi digitate:

     CONV3DS -m poly.3ds

  Ho dato per assodato cha abbiate scaricato CONV3DS.EXE.
• Una volta convertito, dovreste avere un file poly.x, che può essere utilizzato nei programmi Rapid-Q!

' Mette semplicemente un'oggetto sulla scena

$TYPECHECK ON

CONST alClient = 5

'-- Tipi di luce
CONST D3DRMLIGHT_AMBIENT = 0
CONST D3DRMLIGHT_POINT = 1
CONST D3DRMLIGHT_SPOT = 2
CONST D3DRMLIGHT_DIRECTIONAL = 3
CONST D3DRMLIGHT_PARALLELPOINT = 4

DECLARE SUB DXInitialize(Sender AS QDXScreen)
DECLARE SUB DXTimerExpired

DIM DXTimer AS QDXTimer
    DXTimer.Enabled = 1
    DXTimer.Interval = 0
    DXTimer.Activeonly = 0
    DXTimer.OnTimer = DXTimerExpired

CREATE Form AS QForm
    Caption = 'Esempio Direct 3D'
    Center
    CREATE DXScreen AS QDXScreen
        Init(320,240)
        Align = alClient
        Use3D = 1
        UseHardware = 0     '' Questo è per schede video senza accelerazione 3D.                            '' 3D sarà emulato usando il software,
                            '' che è molto più lento.
        OnInitialize = DXInitialize
    END CREATE
    ShowModal
END CREATE


SUB DXInitialize(Sender AS QDXScreen)
   DIM Light AS QD3DLight
   DIM LightFrame AS QD3DFrame, MeshFrame AS QD3DFrame
   DIM MeshBuilder AS QD3DMeshBuilder

   DXScreen.CreateFrame(LightFrame)
   DXScreen.CreateFrame(MeshFrame)

   '-- Serve della luce, altrimenti l'oggetto non sarà visibile
   DXScreen.CreateLightRGB(D3DRMLIGHT_DIRECTIONAL, 0.9, 0.9, 0.9, Light)
   LightFrame.AddLight(Light)

   DXScreen.SetCameraPosition(-5, 10, 0)
   DXScreen.SetCameraOrientation(0.35, -0.65, 1.0, -0.15, 1.0, 0.5)

   MeshFrame.SetPosition(0, 0, 15)
   MeshFrame.SetOrientation(0, 0, 1, 0, 1, 0)
   MeshFrame.SetRotation(0, 0, 0, 0.05)     '-- Angolo di rotazione = 0.05

   DXScreen.CreateMeshBuilder(MeshBuilder)  '-- Crea l'oggetto

   MeshBuilder.Load('poly.x')               '-- Carica l'oggetto
   MeshFrame.AddVisual(MeshBuilder)         '-- Aggiungi l'oggetto alla cornice
END SUB

SUB DXTimerExpired
   DXScreen.ForceUpdate(0,0,50,50)   '-- Aggiorna il testo FPS
   DXScreen.Render
   DXScreen.TextOut(10,10,'FPS: '+STR$(DXTimer.FrameRate), &HFFFFFF, -1)
   DXScreen.Flip
END SUB

Se tutto è andato bene, dovreste ottenere un risultato simile a questo:



Se avete capito l'esempio, è abbastanza facile aggiungere oggetti, basta creare un altro MeshFrame e caricare un altro file oggetto. Provate finchè vi sembrerà soddisfacente.

' Inserire motivi attorno ad oggetti 3D

$TYPECHECK ON

CONST alClient = 5

'-- Tipi di luce
CONST D3DRMLIGHT_AMBIENT = 0
CONST D3DRMLIGHT_POINT = 1
CONST D3DRMLIGHT_SPOT = 2
CONST D3DRMLIGHT_DIRECTIONAL = 3
CONST D3DRMLIGHT_PARALLELPOINT = 4

'-- Tipo di motivo
CONST D3DRMWRAP_FLAT = 0
CONST D3DRMWRAP_CYLINDER = 1
CONST D3DRMWRAP_SPHERE = 2
CONST D3DRMWRAP_CHROME = 3
CONST D3DRMWRAP_SHEET = 4
CONST D3DRMWRAP_BOX = 5

CONST WrapType = D3DRMWRAP_SPHERE     '-- Potete modificarlo

DECLARE SUB DXInitialize(Sender AS QDXScreen)
DECLARE SUB DXTimerExpired

DIM DXTimer AS QDXTimer
    DXTimer.Enabled = 1
    DXTimer.Interval = 0
    DXTimer.Activeonly = 0
    DXTimer.OnTimer = DXTimerExpired

CREATE Form AS QForm
    Caption = 'Direct 3D Example'
    Center
    CREATE DXScreen AS QDXScreen
        Init(320,240)
        Align = alClient
        Use3D = 1
        UseHardware = 0     '' Questo è per schede video senza accelerazione 3D.                            '' 3D sarà emulato usando il software,
                            '' che è molto più lento.
        OnInitialize = DXInitialize
    END CREATE
    ShowModal
END CREATE


SUB DXInitialize(Sender AS QDXScreen)
   DIM Light AS QD3DLight
   DIM LightFrame AS QD3DFrame, MeshFrame AS QD3DFrame
   DIM MeshBuilder AS QD3DMeshBuilder
   DIM Texture AS QD3DTexture
   DIM Wrap AS QD3DWrap
   DIM Mesh AS QD3DMesh


   DXScreen.CreateFrame(LightFrame)
   DXScreen.CreateFrame(MeshFrame)

   DXScreen.CreateLightRGB(D3DRMLIGHT_DIRECTIONAL, 0.9, 0.9, 0.9, Light)
   LightFrame.AddLight(Light)


   DXScreen.SetCameraPosition(-5, 10, 0)
   DXScreen.SetCameraOrientation(0.35, -0.65, 1.0, -0.15, 1.0, 0.5)

   MeshFrame.SetPosition(0, 0, 15)
   MeshFrame.SetOrientation(0, 0, 1, 0, 1, 0)
   MeshFrame.SetRotation(0, 0, 0, 0.05)       ' Angolo di rotazione = 0.05

   DXScreen.CreateMeshBuilder(MeshBuilder)

   MeshBuilder.Load('poly.x')            '-- Oggetto uovo

   MeshBuilder.LoadTexture('back.bmp')   '-- Nuove righe
   MeshBuilder.CreateMesh(Mesh)

   MeshFrame.AddVisual(Mesh)

   DXScreen.CreateWrap(WrapType, 0,0,0, 0,0,1, 0,1,0, 0,0, 1,1, Wrap)
   Wrap.Apply(Mesh)

END SUB

SUB DXTimerExpired
   DXScreen.ForceUpdate(0,0,50,50)
   DXScreen.Render
   DXScreen.TextOut(10,10,'FPS: '+STR$(DXTimer.FrameRate), &HFFFFFF, -1)
   DXScreen.Flip
END SUB

Ancora, se tutto ha funzionato dovreste ottenere un risultato come questo (ovviamente a seconda del file che avete utilizzato):

Come potete vedere, non è molto complicato. L'unico problema è che facendo questo perderete alcuni fotogrammi al secondo.

   DXScreen.ForceUpdate(0,0,50,50)
   DXScreen.Move(1)            '-- Aggiungete questa riga
   DXScreen.Render

   MeshFrame.SetRotation(0, 0, 0, 0.05)       ' Angolo di rotazione = 0.05