.586

. MMX

. XMM

. MODEL FLAT, STDCALL

OPTION CASEMAP: none

INCLUDE \masm32\Include\windows. inc; Структуры, константы.

INCLUDE \masm32\Include\kernel32. inc; Системные функции приложения.

INCLUDE \masm32\Include\user32. inc; Интерфейс.

INCLUDE \masm32\Include\gdi32. inc; Графический вывод.

INCLUDE \masm32\include\winmm. inc; Функция timeGetTime

INCLUDELIB\masm32\Lib\kernel32. lib

INCLUDELIB\masm32\Lib\user32. lib

INCLUDELIB\masm32\Lib\gdi32. lib

INCLUDELIB \masm32\lib\winmm. lib

INCLUDE \masm32\Dxsdk90\Include\2005_jun\d3d9_all. inc

INCLUDELIB \masm32\Dxsdk90\Lib\2005_jun\d3d9. lib

INCLUDELIB \masm32\Dxsdk90\Lib\2005_jun\d3dx9. lib; Подключение D3DX функций (динамическая библиотека)

; ПРОТОТИПЫ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

Init_Direct3D PROTO; Текст этих функций можно найти ниже

Destroy_Direct3D PROTO

Release_Object PROTO: DWORD

Set_Render_Parameters PROTO

Init_Scene PROTO

Render_Scene PROTO

; ====================================================

; Основная часть

; ====================================================

. DATA;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

szClassName db "MyClass", 0

szAppName db "DX9_Ku"," ",169,"Nikita", 0

; WNDCLASSEX - -------------------------------------------

cbSize dd 12*4

style dd CS_HREDRAW+CS_VREDRAW+20h

lpfnWndProc dd OFFSET WndProc

cbClsExtra dd 0

cbWndExtra dd 0

hInstance dd 400000h

hIcon dd 0

hCursor dd 0

hbrBackground dd BLACK_PEN

lpszMenuName dd 0

lpszClassName dd OFFSET szClassName

hIconSm dd 0

; Сообщения об ошибках - ---------------------------------

szDirect3D9 db "Не удалось создать обьект Direct3D9",9,9,0

szD3DDevice9 db "Не удалось создать устройство Direct3D9",9,0

. DATA?;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

msg MSG <>

hwnd HWND?

clientwindow RECT <>

. CONST;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

WIN_X EQU 640; Размер окна по горизонтали

WIN_Y EQU 480; Размер окна по вертикали

. CODE;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

Start:

invoke GetModuleHandle, NULL

mov hInstance, eax

invoke LoadCursor, NULL, IDC_ARROW

mov hCursor, eax

invoke RegisterClassEx, ADDR cbSize

invoke GetSystemMetrics, SM_CXSCREEN

push eax

invoke GetSystemMetrics, SM_CYSCREEN

sub eax, WIN_Y

shr eax, 1

pop ebx

sub ebx, WIN_X

shr ebx, 1

invoke CreateWindowEx, NULL, ADDR szClassName, ADDR szAppName,\

WS_SYSMENU or WS_VISIBLE, \

ebx, eax, WIN_X, WIN_Y, NULL, NULL, hInstance, NULL

mov hwnd, eax

invoke GetClientRect, eax, ADDR clientwindow

invoke Init_Direct3D; Создаем устройство

msg_loop:

invoke PeekMessageA, ADDR msg, 0, 0, 0, PM_REMOVE;

test eax, eax;

jne message; Если у окна нет сообщений.

;

invoke Render_Scene;. то отрисовывается сцена

jmp msg_loop;

;

message:;

mov eax, DWORD PTR msg. message;

cmp eax, WM_QUIT;

je end_loop;

;

invoke TranslateMessage, ADDR msg;

invoke DispatchMessage, ADDR msg;

jmp msg_loop

end_loop:

mov eax, msg. wParam; Если цикл обработки сообщений прерван,

; то код выхода из программы передается в поле wParam

Exit:; сообщения MSG.

invoke ExitProcess, eax

ret

; =====================================================

WndProc proc hWnd: HWND, uMsg: UINT, wParam: WPARAM, lParam: LPARAM

; =====================================================

cmp uMsg, WM_CREATE; Это сообщение посылается окну, когда оно создается

je wmCreate

cmp uMsg, WM_DESTROY; Это сообщение посылается окну, когда оно должно быть уничтожено.

je wmDestroy

cmp uMsg, WM_KEYDOWN; Это сообщение посылается окну, когда нажали клавишу на клавиатуре.

je wmKeydown

invoke DefWindowProc, hWnd, uMsg, wParam, lParam; Если Мы НЕ ХОТИМ обрабатывать полученное сообщение, то

ret; нам надо вызвать DefWindowProc с параметрами, которые Мы получили.

; Эта функция API обрабатывает не интересующие Нас события.

wmDestroy:; - -----------------------------------------

invoke Destroy_Direct3D

invoke PostQuitMessage, NULL

xor eax,eax

ret

wmCreate:; - -----------------------------------------

xor eax, eax

ret

wmKeydown:; - -----------------------------------------

mov eax, wParam

cmp eax, VK_ESCAPE

jne noExit

invoke SendMessage, hwnd, WM_CLOSE, NULL, NULL

noExit:

xor eax, eax

ret

WndProc endp

; =====================================================

; Начинается работа с Direct3D

; =====================================================

Init_Direct3D proc; Создавать Direct3DDevice в сообщении WM_Create нельзя!

. DATA

; D3DPRESENT_PARAMETERS - -----------------------------------------

BackBufferWidth dd 640; Ширина BackBuffer

BackBufferHeight dd 480; Высота BackBuffer

BackBufferFormat dd D3DFMT_X8R8G8B8; Формат используемой поверхности

BackBufferCount dd 3; число Back буферов.

MultiSampleType dd 0; уровни мультисэмплинга картинки. (обычно от 2-ух и выше)

MultiSampleQuality dd 0;

SwapEffect dd D3DSWAPEFFECT_FLIP; Эффект обмена поверхностей (BackBuffer)

hDeviceWindow dd 0; ID нашего окошка

Windowed dd 1; 0 - полноэкранный, 1 - в окошке

EnableAutoDepthStencil dd TRUE; 1 - Direct3D создает Z + Stencil буфер. Если 0 - ничего не будет создано

AutoDepthStencilFormat dd D3DFMT_D24S8; Формат используемой поверхности

Flags dd 1; 0 или D3DPRESENTFLAG_LOCKABLE_BACKBUFFER=1

FullScreen_RefreshRateInHz dd 0; Частота обновления экрана в Hz

FullScreen_PresentationInterval dd 1; Интервал показа на экране backbufferа.1 = Ждать обратного хода луча

. DATA?

pd3d dd?; или LPDIRECT3D9 (указатель на Direct3D9)

pd3dDevice dd?; или LPDIRECT3DDEVICE9 (указатель на Direct3DDevice)

. CODE

invoke Direct3DCreate9,D3D_SDK_VERSION

mov pd3d, eax

test eax, eax

jnz @F

push OFFSET szDirect3D9

jmp Error_Message

@@:

push clientwindow. right

pop BackBufferWidth

push clientwindow. bottom

pop BackBufferHeight

d3d9 CreateDevice, pd3d, D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, hwnd,\

D3DCREATE_SOFTWARE_VERTEXPROCESSING, \

ADDR BackBufferWidth, ADDR pd3dDevice

test eax, eax; Если возникла ошибка при создании устройства

jz @F

push OFFSET szD3DDevice9

jmp Error_Message

@@:

invoke Init_Scene

invoke Set_Render_Parameters

ret

Init_Direct3D endp

;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

Init_Scene proc

. DATA

EyeVector D3DVECTOR <-500.0f, 160.0f, 730.0f>; Координаты камеры в пространстве

LookAtVector D3DVECTOR <0.0f,230.0f, 0.0f>; Указывает куда смотрит камера

UpVector D3DVECTOR <0.0f, 1.0f, 0.0f>; Верх камеры. Обычно берется 0.0,1.0,0.0

PosLight D3DCOLORVALUE <-58335.0f,53913.0f,0.0f,0.0f >

FieldOfView dd 0.7853981635f

AspectRatio dd NULL; AspectRatio

NearViewPlanZ dd 50.0f; Передняя отсекающая плоскость

FarViewPlanZ dd 180000.0f; Задняя отсекающая плоскость

. DATA?

m_VS1 D3DXMATRIX <? >

WorldMatrix D3DMATRIX <? >; Мировая матрица

ViewMatrix D3DMATRIX <? >; Матрица вида

ProjectionMatrix D3DMATRIX <? >; Матрица проекции

BackBufferP LPDIRECT3DSURFACE9?

ZStenBackBufferP LPDIRECT3DSURFACE9?

DepthTargP LPDIRECT3DSURFACE9?

. CODE

fild BackBufferWidth; Вычисление Aspect (можно просто сразу поместить 1.33 (3) f)

fild BackBufferHeight

fdiv

fstp AspectRatio

invoke D3DXMatrixRotationY, ADDR WorldMatrix, NULL; World Matrix (мировая матрица)

invoke D3DXMatrixLookAtLH, ADDR ViewMatrix, ADDR EyeVector, \; View Matrix (матрица вида)

ADDR LookAtVector, ADDR UpVector

invoke D3DXMatrixPerspectiveFovLH, ADDR ProjectionMatrix, FieldOfView,\; Matrix Projection (матрица проекции)

AspectRatio, NearViewPlanZ, FarViewPlanZ

; ScreenSpace

. DATA

; Таргет размеры

SSP_XY_640_480 D3DCOLORVALUE <0.0015625f,0.002083f,0.0f,0.0f >; Константы

SSEyeV D3DVECTOR <0.0f, 0.0f, - 1.0f>; Координаты камеры в пространстве

SSLookAtV D3DVECTOR <0.0f,0.0f, 0.0f>; Указывает куда смотрит камера

SSUpV D3DVECTOR <0.0f, 1.0f, 0.0f>; Верх камеры. Обычно берется 0.0,1.0,0.0

SSFieldOfView dd 0.3926990817f; D3DX_PI4; 0.7853981635f

SSAspectRatio dd 1.0f; AspectRatio

SSNearViewPlanZ dd 0.0f; Передняя отсекающая плоскость

SSFarViewPlanZ dd 1.0f

. DATA?

SSViewMatrix D3DMATRIX <? >

SSProjectionMatrix D3DMATRIX <? >

SSViewProjection D3DMATRIX <? >

m_SS D3DMATRIX <? >

. CODE

invoke D3DXMatrixLookAtLH, ADDR SSViewMatrix, ADDR SSEyeV, \; View Matrix (матрица вида)

ADDR SSLookAtV, ADDR SSUpV

invoke D3DXMatrixPerspectiveFovLH, ADDR SSProjectionMatrix, SSFieldOfView,\; Matrix Projection (матрица проекции)

SSAspectRatio, SSNearViewPlanZ, SSFarViewPlanZ

invoke D3DXMatrixMultiply, ADDR m_SS, ADDR SSViewMatrix, ADDR SSProjectionMatrix

invoke D3DXMatrixTranspose, ADDR SSViewProjection, ADDR m_SS

; начальная загрузка

; Таргеты

d3dev9 GetRenderTarget, pd3dDevice, 0, addr BackBufferP

d3dev9 GetDepthStencilSurface,pd3dDevice,addr ZStenBackBufferP

d3dev9 CreateDepthStencilSurface,pd3dDevice, 1024,1024,AutoDepthStencilFormat,D3DMULTISAMPLE_NONE,0,TRUE,ADDR DepthTargP,0

. DATA?

CartoonRen dd?

CartoonRenP dd?

. CODE

d3dev9 CreateTexture, pd3dDevice,1024,1024,1,D3DUSAGE_RENDERTARGET, D3DFMT_A8R8G8B8,D3DPOOL_DEFAULT, addr CartoonRen,0

. DATA

CartoonRenEER db "Create error CartoonRen",0

. CODE

test eax, eax

jz @F

push OFFSET CartoonRenEER

jmp Error_Message

@@:

d3dtex9 GetSurfaceLevel, CartoonRen,0,addr CartoonRenP

. DATA

CartoonRenPEER db "Create error CartoonRenP",0

. CODE

test eax, eax

jz @F

push OFFSET CartoonRenPEER

jmp Error_Message

@@:

. DATA?

NormalRen dd?

NormalRenP dd?

. CODE

d3dev9 CreateTexture, pd3dDevice,1024,1024,1,D3DUSAGE_RENDERTARGET, D3DFMT_A8R8G8B8,D3DPOOL_DEFAULT, addr NormalRen,0

. DATA

NormalRenEER db "Create error NormalRen",0

. CODE

test eax, eax

jz @F

push OFFSET NormalRenEER

jmp Error_Message

@@:

d3dtex9 GetSurfaceLevel, NormalRen,0,addr NormalRenP

. DATA

NormalRenPEER db "Create error NormalRenP",0

. CODE

test eax, eax

jz @F

push OFFSET NormalRenPEER

jmp Error_Message

@@:

. DATA

tefect db "texture\tefect. bmp", 0

. DATA?

tefectP dd?

. CODE

invoke D3DXCreateTextureFromFileA, pd3dDevice, addr tefect, addr tefectP

. DATA

tefectEER db "Create error tefect",0

. CODE

test eax, eax

jz @F

push OFFSET tefectEER

jmp Error_Message

@@:

. DATA

Ekran db "model\Ekran. x", 0

. DATA?

EkranP dd?

. CODE

invoke D3DXLoadMeshFromXA, addr Ekran, D3DXMESH_MANAGED,pd3dDevice, 0, 0, NULL, 0,addr EkranP

. DATA

EkranEER db "Create error Ekran",0

. CODE

test eax, eax

jz @F

push OFFSET EkranEER

jmp Error_Message

@@:

. DATA?

EkranPT dd?

EkranPB dd?

EkranP_VB dd?

EkranP_IB dd?

EkranP_NV dd?

EkranP_NF dd?

. CODE

d3dxmesh GetFVF,EkranP

mov EkranPT,eax

d3dxmesh GetNumBytesPerVertex,EkranP

mov EkranPB,eax

d3dxmesh GetVertexBuffer,EkranP, addr EkranP_VB

d3dxmesh GetIndexBuffer,EkranP, addr EkranP_IB

d3dxmesh GetNumVertices,EkranP

mov EkranP_NV,eax

d3dxmesh GetNumFaces,EkranP

mov EkranP_NF,eax

. DATA

kamen db "model\kamen. x", 0

. DATA?

kamenP dd?

. CODE

invoke D3DXLoadMeshFromXA, addr kamen, D3DXMESH_MANAGED,pd3dDevice, 0, 0, NULL, 0,addr kamenP

. DATA

kamenEER db "Create error kamen",0

. CODE

test eax, eax

jz @F

push OFFSET kamenEER

jmp Error_Message

@@:

. DATA?

kamenPT dd?

kamenPB dd?

kamenP_VB dd?

kamenP_IB dd?

kamenP_NV dd?

kamenP_NF dd?

. CODE

d3dxmesh GetFVF,kamenP

mov kamenPT,eax

d3dxmesh GetNumBytesPerVertex,kamenP

mov kamenPB,eax

d3dxmesh GetVertexBuffer,kamenP, addr kamenP_VB

d3dxmesh GetIndexBuffer,kamenP, addr kamenP_IB

d3dxmesh GetNumVertices,kamenP

mov kamenP_NV,eax

d3dxmesh GetNumFaces,kamenP

mov kamenP_NF,eax

. DATA

nebo db "model\nebo. x", 0

. DATA?

neboP dd?

. CODE

invoke D3DXLoadMeshFromXA, addr nebo, D3DXMESH_MANAGED,pd3dDevice, 0, 0, NULL, 0,addr neboP

. DATA

neboEER db "Create error nebo",0

. CODE

test eax, eax

jz @F

push OFFSET neboEER

jmp Error_Message

@@:

. DATA?

neboPT dd?

neboPB dd?

neboP_VB dd?

neboP_IB dd?

neboP_NV dd?

neboP_NF dd?

. CODE

d3dxmesh GetFVF,neboP

mov neboPT,eax

d3dxmesh GetNumBytesPerVertex,neboP

mov neboPB,eax

d3dxmesh GetVertexBuffer,neboP, addr neboP_VB

d3dxmesh GetIndexBuffer,neboP, addr neboP_IB

d3dxmesh GetNumVertices,neboP

mov neboP_NV,eax

d3dxmesh GetNumFaces,neboP

mov neboP_NF,eax

. DATA

palmi db "model\palmi. x", 0

. DATA?

palmiP dd?

. CODE

invoke D3DXLoadMeshFromXA, addr palmi, D3DXMESH_MANAGED,pd3dDevice, 0, 0, NULL, 0,addr palmiP

. DATA

palmiEER db "Create error palmi",0

. CODE

test eax, eax

jz @F

push OFFSET palmiEER

jmp Error_Message

@@:

. DATA?

palmiPT dd?

palmiPB dd?

palmiP_VB dd?

palmiP_IB dd?

palmiP_NV dd?

palmiP_NF dd?

. CODE

d3dxmesh GetFVF,palmiP

mov palmiPT,eax

d3dxmesh GetNumBytesPerVertex,palmiP

mov palmiPB,eax

d3dxmesh GetVertexBuffer,palmiP, addr palmiP_VB

d3dxmesh GetIndexBuffer,palmiP, addr palmiP_IB

d3dxmesh GetNumVertices,palmiP

mov palmiP_NV,eax

d3dxmesh GetNumFaces,palmiP

mov palmiP_NF,eax

. DATA

woda db "model\woda. x", 0

. DATA?

wodaP dd?

. CODE

invoke D3DXLoadMeshFromXA, addr woda, D3DXMESH_MANAGED,pd3dDevice, 0, 0, NULL, 0,addr wodaP

. DATA

wodaEER db "Create error woda",0

. CODE

test eax, eax

jz @F

push OFFSET wodaEER

jmp Error_Message

@@:

. DATA?

wodaPT dd?

wodaPB dd?

wodaP_VB dd?

wodaP_IB dd?

wodaP_NV dd?

wodaP_NF dd?

. CODE

d3dxmesh GetFVF,wodaP

mov wodaPT,eax

d3dxmesh GetNumBytesPerVertex,wodaP

mov wodaPB,eax

d3dxmesh GetVertexBuffer,wodaP, addr wodaP_VB

d3dxmesh GetIndexBuffer,wodaP, addr wodaP_IB

d3dxmesh GetNumVertices,wodaP

mov wodaP_NV,eax

d3dxmesh GetNumFaces,wodaP

mov wodaP_NF,eax

. DATA

zemla db "model\zemla. x", 0

. DATA?

zemlaP dd?

. CODE

invoke D3DXLoadMeshFromXA, addr zemla, D3DXMESH_MANAGED,pd3dDevice, 0, 0, NULL, 0,addr zemlaP

. DATA

zemlaEER db "Create error zemla",0

. CODE

test eax, eax

jz @F

push OFFSET zemlaEER

jmp Error_Message

@@:

. DATA?

zemlaPT dd?

zemlaPB dd?

zemlaP_VB dd?

zemlaP_IB dd?

zemlaP_NV dd?

zemlaP_NF dd?

. CODE

d3dxmesh GetFVF,zemlaP

mov zemlaPT,eax

d3dxmesh GetNumBytesPerVertex,zemlaP

mov zemlaPB,eax

d3dxmesh GetVertexBuffer,zemlaP, addr zemlaP_VB

d3dxmesh GetIndexBuffer,zemlaP, addr zemlaP_IB

d3dxmesh GetNumVertices,zemlaP

mov zemlaP_NV,eax

d3dxmesh GetNumFaces,zemlaP

mov zemlaP_NF,eax

. DATA

f_vsEkran db "shaders\vsEkran. inc", 0

. DATA?

a_vsEkran LPD3DXBUFFER?

b_vsEkran dd?

c_vsEkran LPDIRECT3DVERTEXSHADER9?

. CODE

invoke D3DXAssembleShaderFromFileA, addr f_vsEkran, 0, 0, D3DXSHADER_DEBUG, addr a_vsEkran,0

. DATA

Z_vsEkranEER db "Create error Z_vsEkran",0

. CODE

test eax, eax

jz @F

push OFFSET Z_vsEkranEER

jmp Error_Message

@@:

d3dxbuf GetBufferPointer,a_vsEkran

mov b_vsEkran,eax

d3dev9 CreateVertexShader, pd3dDevice,b_vsEkran,addr c_vsEkran

. DATA

C_vsEkranEER db "Create error C_vsEkran",0

. CODE

test eax, eax

jz @F

push OFFSET C_vsEkranEER

jmp Error_Message

@@:

. DATA

f_vsKamen db "shaders\vsKamen. inc", 0

. DATA?

a_vsKamen LPD3DXBUFFER?

b_vsKamen dd?

c_vsKamen LPDIRECT3DVERTEXSHADER9?

. CODE

invoke D3DXAssembleShaderFromFileA, addr f_vsKamen, 0, 0, D3DXSHADER_DEBUG, addr a_vsKamen,0

. DATA

Z_vsKamenEER db "Create error Z_vsKamen",0

. CODE

test eax, eax

jz @F

push OFFSET Z_vsKamenEER

jmp Error_Message

@@:

d3dxbuf GetBufferPointer,a_vsKamen

mov b_vsKamen,eax

d3dev9 CreateVertexShader, pd3dDevice,b_vsKamen,addr c_vsKamen

. DATA

C_vsKamenEER db "Create error C_vsKamen",0

. CODE

test eax, eax

jz @F

push OFFSET C_vsKamenEER

jmp Error_Message

@@:

. DATA

f_vsNebo db "shaders\vsNebo. inc", 0

. DATA?

a_vsNebo LPD3DXBUFFER?

b_vsNebo dd?

c_vsNebo LPDIRECT3DVERTEXSHADER9?

. CODE

invoke D3DXAssembleShaderFromFileA, addr f_vsNebo, 0, 0, D3DXSHADER_DEBUG, addr a_vsNebo,0

. DATA

Z_vsNeboEER db "Create error Z_vsNebo",0

. CODE

test eax, eax

jz @F

push OFFSET Z_vsNeboEER

jmp Error_Message

@@:

d3dxbuf GetBufferPointer,a_vsNebo

mov b_vsNebo,eax

d3dev9 CreateVertexShader, pd3dDevice,b_vsNebo,addr c_vsNebo

. DATA

C_vsNeboEER db "Create error C_vsNebo",0

. CODE

test eax, eax

jz @F

push OFFSET C_vsNeboEER

jmp Error_Message

@@:

. DATA

f_vsSun db "shaders\vsSun. inc", 0

. DATA?

a_vsSun LPD3DXBUFFER?

b_vsSun dd?

c_vsSun LPDIRECT3DVERTEXSHADER9?

. CODE

invoke D3DXAssembleShaderFromFileA, addr f_vsSun, 0, 0, D3DXSHADER_DEBUG, addr a_vsSun,0

. DATA

Z_vsSunEER db "Create error Z_vsSun",0

. CODE

test eax, eax

jz @F

push OFFSET Z_vsSunEER

jmp Error_Message

@@:

d3dxbuf GetBufferPointer,a_vsSun

mov b_vsSun,eax

d3dev9 CreateVertexShader, pd3dDevice,b_vsSun,addr c_vsSun

. DATA

C_vsSunEER db "Create error C_vsSun",0

. CODE

test eax, eax

jz @F

push OFFSET C_vsSunEER

jmp Error_Message

@@:

. DATA

f_vsWater db "shaders\vsWater. inc", 0

. DATA?

a_vsWater LPD3DXBUFFER?

b_vsWater dd?

c_vsWater LPDIRECT3DVERTEXSHADER9?

. CODE

invoke D3DXAssembleShaderFromFileA, addr f_vsWater, 0, 0, D3DXSHADER_DEBUG, addr a_vsWater,0

. DATA

Z_vsWaterEER db "Create error Z_vsWater",0

. CODE

test eax, eax

jz @F

push OFFSET Z_vsWaterEER

jmp Error_Message

@@:

d3dxbuf GetBufferPointer,a_vsWater

mov b_vsWater,eax

d3dev9 CreateVertexShader, pd3dDevice,b_vsWater,addr c_vsWater

. DATA

C_vsWaterEER db "Create error C_vsWater",0

. CODE

test eax, eax

jz @F

push OFFSET C_vsWaterEER

jmp Error_Message

@@:

. DATA

f_vsZemla db "shaders\vsZemla. inc", 0

. DATA?

a_vsZemla LPD3DXBUFFER?

b_vsZemla dd?

c_vsZemla LPDIRECT3DVERTEXSHADER9?

. CODE

invoke D3DXAssembleShaderFromFileA, addr f_vsZemla, 0, 0, D3DXSHADER_DEBUG, addr a_vsZemla,0

. DATA

Z_vsZemlaEER db "Create error Z_vsZemla",0

. CODE

test eax, eax

jz @F

push OFFSET Z_vsZemlaEER

jmp Error_Message

@@:

d3dxbuf GetBufferPointer,a_vsZemla

mov b_vsZemla,eax

d3dev9 CreateVertexShader, pd3dDevice,b_vsZemla,addr c_vsZemla

. DATA

C_vsZemlaEER db "Create error C_vsZemla",0

. CODE

test eax, eax

jz @F

push OFFSET C_vsZemlaEER

jmp Error_Message

@@:

. DATA

f_psEkran db "shaders\psEkran. inc", 0

. DATA?

a_psEkran LPD3DXBUFFER?

b_psEkran dd?

c_psEkran LPDIRECT3DVERTEXSHADER9?

. CODE

invoke D3DXAssembleShaderFromFileA, addr f_psEkran, 0, 0, D3DXSHADER_DEBUG, addr a_psEkran,0

. DATA

Z_psEkranEER db "Create error Z_psEkran",0

. CODE

test eax, eax

jz @F

push OFFSET Z_psEkranEER

jmp Error_Message

@@:

d3dxbuf GetBufferPointer,a_psEkran

mov b_psEkran,eax

d3dev9 CreatePixelShader, pd3dDevice,b_psEkran,addr c_psEkran

. DATA

C_psEkranEER db "Create error C_psEkran",0

. CODE

test eax, eax

jz @F

push OFFSET C_psEkranEER

jmp Error_Message

@@:

. DATA

f_psKamen db "shaders\psKamen. inc", 0

. DATA?

a_psKamen LPD3DXBUFFER?

b_psKamen dd?

c_psKamen LPDIRECT3DVERTEXSHADER9?

. CODE

invoke D3DXAssembleShaderFromFileA, addr f_psKamen, 0, 0, D3DXSHADER_DEBUG, addr a_psKamen,0

. DATA

Z_psKamenEER db "Create error Z_psKamen",0

. CODE

test eax, eax

jz @F

push OFFSET Z_psKamenEER

jmp Error_Message

@@:

d3dxbuf GetBufferPointer,a_psKamen

mov b_psKamen,eax

d3dev9 CreatePixelShader, pd3dDevice,b_psKamen,addr c_psKamen

. DATA

C_psKamenEER db "Create error C_psKamen",0

. CODE

test eax, eax

jz @F

push OFFSET C_psKamenEER

jmp Error_Message

@@:

. DATA

f_psNebo db "shaders\psNebo. inc", 0

. DATA?

a_psNebo LPD3DXBUFFER?

b_psNebo dd?

c_psNebo LPDIRECT3DVERTEXSHADER9?

. CODE

invoke D3DXAssembleShaderFromFileA, addr f_psNebo, 0, 0, D3DXSHADER_DEBUG, addr a_psNebo,0

. DATA

Z_psNeboEER db "Create error Z_psNebo",0

. CODE

test eax, eax

jz @F

push OFFSET Z_psNeboEER

jmp Error_Message

@@:

d3dxbuf GetBufferPointer,a_psNebo

mov b_psNebo,eax

d3dev9 CreatePixelShader, pd3dDevice,b_psNebo,addr c_psNebo

. DATA

C_psNeboEER db "Create error C_psNebo",0

. CODE

test eax, eax

jz @F

push OFFSET C_psNeboEER

jmp Error_Message

@@:

. DATA

f_psPalma db "shaders\psPalma. inc", 0

. DATA?

a_psPalma LPD3DXBUFFER?

b_psPalma dd?

c_psPalma LPDIRECT3DVERTEXSHADER9?

. CODE

invoke D3DXAssembleShaderFromFileA, addr f_psPalma, 0, 0, D3DXSHADER_DEBUG, addr a_psPalma,0

. DATA

Z_psPalmaEER db "Create error Z_psPalma",0

. CODE

test eax, eax

jz @F

push OFFSET Z_psPalmaEER

jmp Error_Message

@@:

d3dxbuf GetBufferPointer,a_psPalma

mov b_psPalma,eax

d3dev9 CreatePixelShader, pd3dDevice,b_psPalma,addr c_psPalma

. DATA

C_psPalmaEER db "Create error C_psPalma",0

. CODE

test eax, eax

jz @F

push OFFSET C_psPalmaEER

jmp Error_Message

@@:

. DATA

f_psSun db "shaders\psSun. inc", 0

. DATA?

a_psSun LPD3DXBUFFER?

b_psSun dd?

c_psSun LPDIRECT3DVERTEXSHADER9?

. CODE

invoke D3DXAssembleShaderFromFileA, addr f_psSun, 0, 0, D3DXSHADER_DEBUG, addr a_psSun,0

. DATA

Z_psSunEER db "Create error Z_psSun",0

. CODE

test eax, eax

jz @F

push OFFSET Z_psSunEER

jmp Error_Message

@@:

d3dxbuf GetBufferPointer,a_psSun

mov b_psSun,eax

d3dev9 CreatePixelShader, pd3dDevice,b_psSun,addr c_psSun

. DATA

C_psSunEER db "Create error C_psSun",0

. CODE

test eax, eax

jz @F

push OFFSET C_psSunEER

jmp Error_Message

@@:

. DATA

f_psWater db "shaders\psWater. inc", 0

. DATA?

a_psWater LPD3DXBUFFER?

b_psWater dd?

c_psWater LPDIRECT3DVERTEXSHADER9?

. CODE

invoke D3DXAssembleShaderFromFileA, addr f_psWater, 0, 0, D3DXSHADER_DEBUG, addr a_psWater,0

. DATA

Z_psWaterEER db "Create error Z_psWater",0

. CODE

test eax, eax

jz @F

push OFFSET Z_psWaterEER

jmp Error_Message

@@:

d3dxbuf GetBufferPointer,a_psWater

mov b_psWater,eax

d3dev9 CreatePixelShader, pd3dDevice,b_psWater,addr c_psWater

. DATA

C_psWaterEER db "Create error C_psWater",0

. CODE

test eax, eax

jz @F

push OFFSET C_psWaterEER

jmp Error_Message

@@:

. DATA

f_psZemla db "shaders\psZemla. inc", 0

. DATA?

a_psZemla LPD3DXBUFFER?

b_psZemla dd?

c_psZemla LPDIRECT3DVERTEXSHADER9?

. CODE

invoke D3DXAssembleShaderFromFileA, addr f_psZemla, 0, 0, D3DXSHADER_DEBUG, addr a_psZemla,0

. DATA

Z_psZemlaEER db "Create error Z_psZemla",0

. CODE

test eax, eax

jz @F

push OFFSET Z_psZemlaEER

jmp Error_Message

@@:

d3dxbuf GetBufferPointer,a_psZemla

mov b_psZemla,eax

d3dev9 CreatePixelShader, pd3dDevice,b_psZemla,addr c_psZemla

. DATA

C_psZemlaEER db "Create error C_psZemla",0

. CODE

test eax, eax

jz @F

push OFFSET C_psZemlaEER

jmp Error_Message

@@:

ret

Init_Scene endp

;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

Set_Render_Parameters proc

d3dev9 SetRenderState, pd3dDevice, D3DRS_CULLMODE, D3DCULL_NONE

d3dev9 SetRenderState, pd3dDevice, D3DRS_ZENABLE,D3DZB_TRUE

d3dev9 SetSamplerState, pd3dDevice, 0, D3DSAMP_MIPFILTER,D3DTEXF_ANISOTROPIC

d3dev9 SetSamplerState, pd3dDevice, 0, D3DSAMP_MAGFILTER, 0

d3dev9 SetSamplerState, pd3dDevice, 0, D3DSAMP_MINFILTER, 0

d3dev9 SetSamplerState, pd3dDevice, 1, D3DSAMP_MIPFILTER,D3DTEXF_ANISOTROPIC

d3dev9 SetSamplerState, pd3dDevice, 1, D3DSAMP_MAGFILTER, D3DTEXF_ANISOTROPIC

d3dev9 SetSamplerState, pd3dDevice, 1, D3DSAMP_MINFILTER, D3DTEXF_ANISOTROPIC

ret

Set_Render_Parameters endp

;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

Render_Scene proc

. DATA

Zvalue dd 1.0f; Значение для очистки Z буфера

Clearcolor dd 0; Цвет для очистки BackBuffer'а

. DATA?

. CODE

d3dev9 TestCooperativeLevel, pd3dDevice; Проверка кооперации

cmp eax, D3DERR_DEVICELOST; Если устройство потеряно то выход

jne noreset;

invoke Destroy_Direct3D

jmp Exit;

noreset:;

cmp eax, D3DERR_DEVICENOTRESET; Если устройство не потеряно и не сброшено то сбрасываем

jne noreset2;

d3dev9 Reset, pd3dDevice, ADDR BackBufferWidth;

invoke Set_Render_Parameters

noreset2:

d3dev9 BeginScene, pd3dDevice

; подготовка данных

d3dev9 SetRenderTarget,pd3dDevice,0,CartoonRenP; установка рендер таргетов

d3dev9 SetRenderTarget,pd3dDevice,1,NormalRenP

d3dev9 SetDepthStencilSurface,pd3dDevice,DepthTargP

d3dev9 Clear, pd3dDevice, 0, NULL, D3DCLEAR_TARGET or D3DCLEAR_ZBUFFER,Clearcolor, Zvalue, 0; Очистка BackBuffer'а и Z-буфера

invoke D3DXMatrixMultiply, ADDR m_VS1, ADDR WorldMatrix, ADDR ViewMatrix

invoke D3DXMatrixMultiply, ADDR m_VS1, ADDR m_VS1, ADDR ProjectionMatrix

invoke D3DXMatrixTranspose, ADDR m_VS1, ADDR m_VS1

d3dev9 SetTexture, pd3dDevice, 0, tefectP

; Отрисовка земли

d3dev9 SetVertexShader,pd3dDevice,c_vsZemla

d3dev9 SetPixelShader,pd3dDevice,c_psZemla

d3dev9 SetVertexShaderConstantF,pd3dDevice,0, addr m_VS1, 4; c0

d3dev9 SetVertexShaderConstantF,pd3dDevice,4, addr PosLight, 1; c4

d3dev9 SetFVF, pd3dDevice, zemlaPT

d3dev9 SetStreamSource, pd3dDevice, 0, zemlaP_VB, 0, zemlaPB

d3dev9 SetIndices, pd3dDevice, zemlaP_IB

d3dev9 DrawIndexedPrimitive, pd3dDevice, D3DPT_TRIANGLELIST,0,0,zemlaP_NV,0,zemlaP_NF

; Отрисовка солнца

d3dev9 SetVertexShader,pd3dDevice,c_vsSun

d3dev9 SetPixelShader,pd3dDevice,c_psSun

d3dev9 SetFVF, pd3dDevice, neboPT

d3dev9 SetStreamSource, pd3dDevice, 0, neboP_VB, 0, neboPB

d3dev9 SetIndices, pd3dDevice, neboP_IB

d3dev9 DrawIndexedPrimitive, pd3dDevice, D3DPT_TRIANGLELIST,0,0,neboP_NV,0,neboP_NF

; Отрисовка камня

d3dev9 SetVertexShader,pd3dDevice,c_vsKamen

d3dev9 SetPixelShader,pd3dDevice,c_psKamen

d3dev9 SetFVF, pd3dDevice, kamenPT

d3dev9 SetStreamSource, pd3dDevice, 0, kamenP_VB, 0, kamenPB

d3dev9 SetIndices, pd3dDevice, kamenP_IB

d3dev9 DrawIndexedPrimitive, pd3dDevice, D3DPT_TRIANGLELIST,0,0,kamenP_NV,0,kamenP_NF

; Отрисовка пальм

d3dev9 SetPixelShader,pd3dDevice,c_psPalma

d3dev9 SetFVF, pd3dDevice, palmiPT

d3dev9 SetStreamSource, pd3dDevice, 0, palmiP_VB, 0, palmiPB

d3dev9 SetIndices, pd3dDevice, palmiP_IB

d3dev9 DrawIndexedPrimitive, pd3dDevice, D3DPT_TRIANGLELIST,0,0,palmiP_NV,0,palmiP_NF

; Отрисовка неба

d3dev9 SetRenderTarget,pd3dDevice,1,0

d3dev9 SetVertexShader,pd3dDevice,c_vsNebo

d3dev9 SetPixelShader,pd3dDevice,c_psNebo

d3dev9 SetFVF, pd3dDevice, neboPT

d3dev9 SetStreamSource, pd3dDevice, 0, neboP_VB, 0, neboPB

d3dev9 SetIndices, pd3dDevice, neboP_IB

d3dev9 DrawIndexedPrimitive, pd3dDevice, D3DPT_TRIANGLELIST,0,0,neboP_NV,0,neboP_NF

; Отрисовка воды

d3dev9 SetRenderTarget,pd3dDevice,1,NormalRenP

d3dev9 SetVertexShader,pd3dDevice,c_vsWater

d3dev9 SetPixelShader,pd3dDevice,c_psWater

d3dev9 SetFVF, pd3dDevice, wodaPT

d3dev9 SetStreamSource, pd3dDevice, 0, wodaP_VB, 0, wodaPB

d3dev9 SetIndices, pd3dDevice, wodaP_IB

d3dev9 DrawIndexedPrimitive, pd3dDevice, D3DPT_TRIANGLELIST,0,0,wodaP_NV,0,wodaP_NF

; смешивание

d3dev9 SetRenderTarget,pd3dDevice,0, BackBufferP

d3dev9 SetRenderTarget,pd3dDevice,1, 0

d3dev9 SetDepthStencilSurface,pd3dDevice,ZStenBackBufferP

d3dev9 Clear, pd3dDevice, 0, NULL, D3DCLEAR_TARGET or D3DCLEAR_ZBUFFER,Clearcolor, Zvalue, 0; Очистка BackBuffer'а и Z-буфера

d3dev9 SetVertexShader,pd3dDevice,c_vsEkran

d3dev9 SetPixelShader,pd3dDevice,c_psEkran

d3dev9 SetTexture, pd3dDevice, 0, CartoonRen

d3dev9 SetTexture, pd3dDevice, 1, NormalRen

d3dev9 SetVertexShaderConstantF,pd3dDevice,3, addr SSViewProjection,4

d3dev9 SetVertexShaderConstantF,pd3dDevice,7, addr SSP_XY_640_480,1

d3dev9 SetFVF, pd3dDevice, EkranPT

d3dev9 SetStreamSource, pd3dDevice, 0, EkranP_VB, 0, EkranPB

d3dev9 SetIndices, pd3dDevice, EkranP_IB

d3dev9 DrawIndexedPrimitive, pd3dDevice, D3DPT_TRIANGLELIST,0,0,EkranP_NV,0,EkranP_NF

d3dev9 EndScene, pd3dDevice

; Анимируем сцену

. DATA

RotZ dd 0.0f

Prib dd 0.002f

LightRot dd 0

LightPrib dd 0.01

kMoveLight dd 100000.0f

. CODE

fld RotZ

fadd Prib

fstp RotZ

fld LightRot

fadd LightPrib

fstp LightRot

fld LightRot

fsin

fmul kMoveLight

fstp PosLight. r

fld LightRot

fcos

fmul kMoveLight

fstp PosLight. g

invoke D3DXMatrixRotationY, ADDR WorldMatrix, RotZ

d3dev9 Present, pd3dDevice, NULL, NULL, NULL, NULL; Вывод BackBuffer'а на экран

ret

Render_Scene endp

;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

Release_Object proc pointer: DWORD

mov eax, pointer

test eax, eax

jz @F

d3dev9 Release, eax

@@:

ret

Release_Object endp

;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

Destroy_Direct3D proc; освобождение всех созданных объектов

; Шейдеры

invoke Release_Object, a_psZemla

invoke Release_Object, c_psZemla

invoke Release_Object, a_psWater

invoke Release_Object, c_psWater

invoke Release_Object, a_psSun

invoke Release_Object, c_psSun

invoke Release_Object, a_psPalma

invoke Release_Object, c_psPalma

invoke Release_Object, a_psNebo

invoke Release_Object, c_psNebo

invoke Release_Object, a_psKamen

invoke Release_Object, c_psKamen

invoke Release_Object, a_psEkran

invoke Release_Object, c_psEkran

invoke Release_Object, a_vsZemla

invoke Release_Object, c_vsZemla

invoke Release_Object, a_vsWater

invoke Release_Object, c_vsWater

invoke Release_Object, a_vsSun

invoke Release_Object, c_vsSun

invoke Release_Object, a_vsNebo

invoke Release_Object, c_vsNebo

invoke Release_Object, a_vsKamen

invoke Release_Object, c_vsKamen

invoke Release_Object, a_vsEkran

invoke Release_Object, c_vsEkran

; Модели

invoke Release_Object,zemlaP_IB

invoke Release_Object, zemlaP_VB

invoke Release_Object, zemlaP

invoke Release_Object, wodaP_IB

invoke Release_Object, wodaP_VB

invoke Release_Object, wodaP

invoke Release_Object, palmiP_IB

invoke Release_Object, palmiP_VB

invoke Release_Object, palmiP

invoke Release_Object, neboP_IB

invoke Release_Object, neboP_VB

invoke Release_Object, neboP

invoke Release_Object, kamenP_IB

invoke Release_Object, kamenP_VB

invoke Release_Object, kamenP

invoke Release_Object, EkranP_IB

invoke Release_Object, EkranP_VB

invoke Release_Object, EkranP

; текстуры

invoke Release_Object, tefectP

; Таргеты

invoke Release_Object, NormalRenP

invoke Release_Object, CartoonRenP

invoke Release_Object, DepthTargP

invoke Release_Object, ZStenBackBufferP

invoke Release_Object,BackBufferP

mov eax,pd3dDevice

test eax, eax

jz @F

d3dev9 Release, eax

@@:; Освобождение Direct3DDevice

mov eax,pd3d

test eax, eax

jz @F

d3dev9 Release, eax

@@:; Освобождение Direct3D9

ret

Destroy_Direct3D endp

;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

Error_Message:; Вывод сообщения об ошибке и завершение работы приложения

mov eax, DWORD PTR [esp]

invoke MessageBox, hwnd, eax, ADDR szAppName, MB_ICONERROR

pop eax

invoke Destroy_Direct3D

jmp Exit

;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

end Start