Stilllegung des Forums
Das Forum wurde am 05.06.2023 nach über 20 Jahren stillgelegt (weitere Informationen und ein kleiner Rückblick).
Registrierungen, Anmeldungen und Postings sind nicht mehr möglich. Öffentliche Inhalte sind weiterhin zugänglich.
Das Team von spieleprogrammierer.de bedankt sich bei der Community für die vielen schönen Jahre.
Wenn du eine deutschsprachige Spieleentwickler-Community suchst, schau doch mal im Discord und auf ZFX vorbei!
Werbeanzeige
Quellcode |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 |
// Vertexformat type TVertex = record vPosition:TVector3; dwColor:TD3DColor; end; {...} procedure TForm1.FormCreate(Sender: TObject); begin TA3DS.GetInstance().Init(true, self); // Vertizes anlegen m_aVertex[0].vPosition:=TVector3.Create(0.0, 1.0, 0.5); m_aVertex[1].vPosition:=TVector3.Create(1.0, -1.0, 0.5); m_aVertex[2].vPosition:=TVector3.Create(-1.0, -1.0, 0.5); m_aVertex[0].dwColor:=D3DCOLOR_ARGB(255, 255, 0, 0); m_aVertex[1].dwColor:=D3DCOLOR_ARGB(255, 0, 255, 0); m_aVertex[2].dwColor:=D3DCOLOR_ARGB(255, 0, 0, 255); Render(0); TA3DS.GetInstance().Exit(); end; {...} procedure TForm1.Render(rTime:Real); var rAspect:Real; mProjection, mRotation, mTranslation, mWorld:TMatrix; pTempD3DDev:IDirect3DDevice9; begin // Zeiger auf Direct3D-Gerät pTempD3DDev:=TDirect3D9.GetInstance().Direct3DDevice9; if pTempD3DDev=nil then g_pLogfile.Error('pTempD3DDEV = nil!'); if failed(pTempD3DDev.Clear(0, nil, D3DCLEAR_TARGET or D3DCLEAR_ZBUFFER, D3DCOLOR_XRGB(0, 0, 63), 1.0, 0)) then g_pLogfile.Error('Clear() Failed'); pTempD3DDev.BeginScene(); pTempD3DDev.SetFVF(D3DFVF_XYZ or D3DFVF_DIFFUSE); pTempD3DDev.SetRenderState(D3DRS_LIGHTING, Integer(FALSE)); pTempD3DDev.SetRenderState(D3DRS_CULLMODE, D3DCULL_NONE); pTempD3DDev.SetRenderState(D3DRS_DITHERENABLE, Integer(TRUE)); pTempD3DDev.DrawPrimitiveUP(D3DPT_TRIANGLELIST, 1, m_aVertex, sizeof(TVertex)); pTempD3DDev.EndScene(); pTempD3DDev.Present(nil, 0, 0, 0); end; |
Treue Seele
Treue Seele
Quellcode |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
// Bildseitenverhältnisse rAspect:=g_pDirect3DConfig.m_pVideoMode.Width/g_pDirect3DConfig.m_pVideoMode.Height; // Projektionsmatrix erstellen und setzen mProjection:=IMath.GetInstance().ProjectionMatrix(IMath.GetInstance().DegToRad(90.0), rAspect, 0.1, 100.0); if Failed(pTempD3DDev.SetTransform(D3DTS_PROJECTION, mProjection.toD3DMATRIX)) then g_pLogfile.Error('SetTransform'); // Rotations-und Translationsmatrix mRotation:=IMath.GetInstance().YRotationMatrix(IMath.GetInstance().DegToRad(10.0)); mTranslation:=IMath.GetInstance().TranslationMatrix(TVector3.Create(0.0, 0.0, 2.0)); mWorld:=IMath.GetInstance().MulMatrix(mRotation, mTranslation); if Failed(pTempD3DDev.SetTransform(D3DTS_WORLD, mWorld.toD3DMATRIX)) then g_pLogfile.Error('World'); |
Treue Seele
Quellcode |
|
1 |
mView:=IMath.GetInstance().LookAtLH(TVector3.Create(0.0, 0.0, 15.0), TVector3.Create(0.0, 0.0, 0.0), TVector3.Create(0.0, 1.0, 0.0)); |
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »LInsoDeTeh« (12.11.2012, 16:57)
Treue Seele
Quellcode |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 |
procedure TForm1.Render(rTime:Real); var rAspect:Real; mProjection, mRotation, mTranslation, mWorld, mCamera:TMatrix; pTempD3DDev:IDirect3DDevice9; begin // Zeiger auf Direct3D-Gerät pTempD3DDev:=TDirect3D9.GetInstance().Direct3DDevice9; if pTempD3DDev=nil then g_pLogfile.Error('pTempD3DDEV = nil!'); // Bildseitenverhältnisse rAspect:=g_pDirect3DConfig.m_pVideoMode.Width/g_pDirect3DConfig.m_pVideoMode.Height; // Projektionsmatrix erstellen und setzen mProjection:=IMath.GetInstance().ProjectionMatrix(IMath.GetInstance().DegToRad(90.0), rAspect, 0.1, 100.0); if Failed(pTempD3DDev.SetTransform(D3DTS_PROJECTION, mProjection.toD3DMATRIX)) then g_pLogfile.Error('SetTransform'); // Rotations-und Translationsmatrix mRotation:=IMath.GetInstance().YRotationMatrix(IMath.GetInstance().DegToRad(10.0)); mTranslation:=IMath.GetInstance().TranslationMatrix(TVector3.Create(0.0, 0.0, 2.0)); mWorld:=IMath.GetInstance().MulMatrix(mRotation, mTranslation); if Failed(pTempD3DDev.SetTransform(D3DTS_WORLD, mWorld.toD3DMATRIX)) then g_pLogfile.Error('World'); // Kameramatrix mCamera:=IMath.GetInstance().CameraMatrix(TVector3.Create(0.0, 0.0, 15.0), TVector3.Create(0.0, 0.0, 0.0), TVector3.Create(0.0, 1.0, 0.0)); pTempD3DDev.SetTransform(D3DTS_VIEW, mCamera.toD3DMATRIX); if failed(pTempD3DDev.Clear(0, nil, D3DCLEAR_TARGET or D3DCLEAR_ZBUFFER, D3DCOLOR_XRGB(0, 0, 63), 1.0, 0)) then g_pLogfile.Error('Clear() Failed'); if Failed(pTempD3DDev.BeginScene()) then g_pLogfile.Error('BeginScene'); if Failed(pTempD3DDev.SetFVF(D3DFVF_XYZ or D3DFVF_DIFFUSE)) then g_pLogfile.Error('SetFVF'); pTempD3DDev.SetRenderState(D3DRS_LIGHTING, Integer(FALSE)); pTempD3DDev.SetRenderState(D3DRS_CULLMODE, D3DCULL_NONE); pTempD3DDev.SetRenderState(D3DRS_DITHERENABLE, Integer(TRUE)); if Failed(pTempD3DDev.DrawPrimitiveUP(D3DPT_TRIANGLELIST, 1, m_aVertex, sizeof(TVector3)+sizeof(TD3DColor))) then g_pLogfile.Error('DrawPrimitiveUP'); if Failed(pTempD3DDev.EndScene()) then g_pLogfile.Error('EndScene'); if Failed(pTempD3DDev.Present(nil, 0, 0, 0)) then g_pLogfile.Error('Present') else g_pLogfile.Warning('RENDERED'); end; |
Werbeanzeige