;CATMULL_SHIFT equ 8 ;TEXTURE_SIZE EQU (TEX_X * TEX_Y)-1 ;ROUND equ 8 ;Ext = NON ;MMX = 1 ;NON = 0 ;------- Big thanks to Majuma (www.majuma.xt.pl) for absolutely great--- ;------- DOS 13h mode demos -------------------------------------------- ;------- Procedure draws bump triangle with texture, I use ------------- ;--------Catmull Z-buffer algorithm- (Z coordinate interpolation)------- ;--------I calc texture pixel by this way: col1*col2/256 --------------- bump_tex_triangle_z: ;------------------in - eax - x1 shl 16 + y1 ----------- ;---------------------- ebx - x2 shl 16 + y2 ----------- ;---------------------- ecx - x3 shl 16 + y3 ----------- ;---------------------- edx - pointer to bump map------- ;---------------------- esi - pointer to env map-------- ;---------------------- edi - pointer to screen buffer-- ;---------------------- stack : bump coordinates-------- ;---------------------- environment coordinates- ;---------------------- Z position coordinates-- ;---------------------- pointer to Z buffer----- ;---------------------- pointer to texture------ ;---------------------- texture coordinates----- ;-- Z-buffer - filled with coordinates as dword -------- ;-- (Z coor. as word) shl CATMULL_SHIFT ---------------- .t_y1 equ ebp+4 ; procedure don't save registers !!! .t_x1 equ ebp+6 ; each coordinate as word .e_y1 equ ebp+8 ; texture coords .e_x1 equ ebp+10 .b_y1 equ ebp+12 .b_x1 equ ebp+14 .t_y2 equ ebp+16 .t_x2 equ ebp+18 ; b - bump map coords .e_y2 equ ebp+20 ; texture coords .e_x2 equ ebp+22 .b_y2 equ ebp+24 .b_x2 equ ebp+26 .t_y3 equ ebp+28 ; e - env map coords .t_x3 equ ebp+30 .e_y3 equ ebp+32 ; texture coords .e_x3 equ ebp+34 .b_y3 equ ebp+36 .b_x3 equ ebp+38 .z1 equ word[ebp+40] .z2 equ word[ebp+42] .z3 equ word[ebp+44] .z_buff equ dword[ebp+46] ; pointer to Z-buffer .tex_ptr equ dword[ebp+50] ; ptr to texture .t_bmap equ dword[ebp-4] ; pointer to bump map .t_emap equ dword[ebp-8] ; pointer to env map .x1 equ word[ebp-10] .y1 equ word[ebp-12] .x2 equ word[ebp-14] .y2 equ word[ebp-16] .x3 equ word[ebp-18] .y3 equ word[ebp-20] .dx12 equ dword[ebp-24] .dz12 equ [ebp-28] .dbx12 equ dword[ebp-32] .dby12 equ [ebp-36] .dex12 equ dword[ebp-40] .dey12 equ [ebp-44] .dtx12 equ dword[ebp-48] .dty12 equ [ebp-52] .dx13 equ dword[ebp-52-4*1] .dz13 equ [ebp-52-4*2] .dbx13 equ dword[ebp-52-4*3] .dby13 equ [ebp-52-4*4] .dex13 equ dword[ebp-52-4*5] .dey13 equ [ebp-52-4*6] .dtx13 equ dword[ebp-52-4*7] .dty13 equ [ebp-52-4*8] .dx23 equ dword[ebp-(52+4*9)] .dz23 equ [ebp-(52+4*10)] .dbx23 equ dword[ebp-(52+4*11)] .dby23 equ [ebp-(52+4*12)] .dex23 equ dword[ebp-(52+4*13)] .dey23 equ [ebp-(52+4*14)] .dtx23 equ dword[ebp-(52+4*15)] .dty23 equ [ebp-(52+4*16)] .cx1 equ dword[ebp-(52+4*17)] ; current variables .cz1 equ [ebp-(52+4*18)] .cbx1 equ dword[ebp-(52+4*19)] .cby1 equ [ebp-(52+4*20)] .cex1 equ dword[ebp-(52+4*21)] .cey1 equ [ebp-(52+4*22)] .ctx1 equ dword[ebp-(52+4*23)] .cty1 equ [ebp-(52+4*24)] .cx2 equ dword[ebp-(52+4*25)] .cz2 equ [ebp-(52+4*26)] .cbx2 equ dword[ebp-(52+4*27)] .cby2 equ [ebp-(52+4*28)] .cex2 equ dword[ebp-(52+4*29)] .cey2 equ [ebp-(52+4*30)] .ctx2 equ dword[ebp-(52+4*31)] .cty2 equ [ebp-(52+4*32)] if Ext >+ MMX emms end if cld mov ebp,esp push edx ; store bump map push esi ; store e. map ; sub esp,120 .sort3: ; sort triangle coordinates... cmp ax,bx jle .sort1 xchg eax,ebx if Ext >= MMX movq mm0,[.t_y1] movq mm1,[.t_y2] movq [.t_y1],mm1 movq [.t_y2],mm0 end if mov edx,dword[.b_y1] xchg edx,dword[.b_y2] mov dword[.b_y1],edx if Ext = NON mov edx,dword[.e_y1] xchg edx,dword[.e_y2] mov dword[.e_y1],edx mov edx,dword[.t_y1] xchg edx,dword[.t_y2] mov dword[.t_y1],edx end if mov dx,.z1 xchg dx,.z2 mov .z1,dx .sort1: cmp bx,cx jle .sort2 xchg ebx,ecx if Ext >= MMX movq mm0,[.t_y3] movq mm1,[.t_y2] movq [.t_y3],mm1 movq [.t_y2],mm0 end if mov edx,dword[.b_y2] xchg edx,dword[.b_y3] mov dword[.b_y2],edx if Ext = NON mov edx,dword[.e_y2] xchg edx,dword[.e_y3] mov dword[.e_y2],edx mov edx,dword[.t_y2] xchg edx,dword[.t_y3] mov dword[.t_y2],edx end if mov dx,.z2 xchg dx,.z3 mov .z2,dx jmp .sort3 .sort2: push eax ; store triangle coords in variables push ebx push ecx mov edx,80008000h ; eax,ebx,ecx are ANDd together into edx which means that and edx,ebx ; if *all* of them are negative a sign flag is raised and edx,ecx and edx,eax test edx,80008000h ; Check both X&Y at once jne .loop23_done ; mov edx,eax ; eax,ebx,ecx are ORd together into edx which means that ; or edx,ebx ; if any *one* of them is negative a sign flag is raised ; or edx,ecx ; test edx,80000000h ; Check only X ; jne .loop23_done ; cmp .x1,SIZE_X ; { ; jg .loop23_done ; cmp .x2,SIZE_X ; This can be optimized with effort ; jg .loop23_done ; cmp .x3,SIZE_X ; jg .loop23_done ; { mov bx,.y2 ; calc delta 12 sub bx,.y1 jnz .bt_dx12_make mov ecx,8 xor edx,edx @@: push edx loop @b jmp .bt_dx12_done .bt_dx12_make: movsx ebx,bx if Ext >= SSE2 mov eax,1 shl 15 cdq idiv ebx mov ebx,eax mov ax,.x2 sub ax,.x1 cwde imul ebx sar eax,15 - ROUND push eax mov ax,.z2 sub ax,.z1 cwde imul ebx sar eax,15 - ROUND push eax sub esp,4*6 movd xmm0,ebx pshuflw xmm0,xmm0,0 movlhps xmm0,xmm0 movdqu xmm1,[.t_y1] movdqu xmm2,[.t_y2] psubw xmm2,xmm1 movdqa xmm3,xmm2 pmullw xmm2,xmm0 pmulhw xmm3,xmm0 movhlps xmm4,xmm2 movhlps xmm5,xmm3 punpcklwd xmm2,xmm3 punpcklwd xmm4,xmm5 psrad xmm2,15 - ROUND psrad xmm4,15 - ROUND movdqu .dty12,xmm2 movq .dby12,xmm4 else mov ax,.x2 sub ax,.x1 cwde shl eax,ROUND cdq idiv ebx ; mov .dx12,eax push eax mov ax,.z2 sub ax,.z1 cwde shl eax,CATMULL_SHIFT cdq idiv ebx push eax mov ax,word[.b_x2] sub ax,word[.b_x1] cwde shl eax,ROUND cdq idiv ebx ; mov .dbx12,eax push eax mov ax,word[.b_y2] sub ax,word[.b_y1] cwde shl eax,ROUND cdq idiv ebx ; mov .dby12,eax push eax mov ax,word[.e_x2] sub ax,word[.e_x1] cwde shl eax,ROUND cdq idiv ebx ; mov .dex12,eax push eax mov ax,word[.e_y2] sub ax,word[.e_y1] cwde shl eax,ROUND cdq idiv ebx ; mov .dey12,eax push eax mov ax,word[.t_x2] sub ax,word[.t_x1] cwde shl eax,ROUND cdq idiv ebx ; mov .dtx12,eax push eax mov ax,word[.t_y2] sub ax,word[.t_y1] cwde shl eax,ROUND cdq idiv ebx ; mov .dty12,eax push eax end if .bt_dx12_done: mov bx,.y3 ; calc delta13 sub bx,.y1 jnz .bt_dx13_make mov ecx,8 xor edx,edx @@: push edx ;dword 0 loop @b jmp .bt_dx13_done .bt_dx13_make: movsx ebx,bx if Ext >= SSE2 mov eax,1 shl 15 cdq idiv ebx mov ebx,eax mov ax,.x3 sub ax,.x1 cwde imul ebx sar eax,15 - ROUND push eax ; mov .dx12,eax mov ax,.z3 sub ax,.z1 cwde imul ebx sar eax,15 - ROUND push eax sub esp,4*6 movd xmm0,ebx pshuflw xmm0,xmm0,0 movlhps xmm0,xmm0 movdqu xmm1,[.t_y1] movdqu xmm2,[.t_y3] psubw xmm2,xmm1 movdqa xmm3,xmm2 pmullw xmm2,xmm0 pmulhw xmm3,xmm0 movhlps xmm4,xmm2 movhlps xmm5,xmm3 punpcklwd xmm2,xmm3 punpcklwd xmm4,xmm5 psrad xmm2,15 - ROUND psrad xmm4,15 - ROUND movdqu .dty13,xmm2 movq .dby13,xmm4 else mov ax,.x3 sub ax,.x1 cwde shl eax,ROUND cdq idiv ebx ; mov .dx13,eax push eax mov ax,.z3 sub ax,.z1 cwde shl eax,CATMULL_SHIFT cdq idiv ebx ; mov .dz13,eax push eax mov ax,word[.b_x3] sub ax,word[.b_x1] cwde shl eax,ROUND cdq idiv ebx ; mov .dbx13,eax push eax mov ax,word[.b_y3] sub ax,word[.b_y1] cwde shl eax,ROUND cdq idiv ebx ; mov .dby13,eax push eax mov ax,word[.e_x3] sub ax,word[.e_x1] cwde shl eax,ROUND cdq idiv ebx ; mov .dex13,eax push eax mov ax,word[.e_y3] sub ax,word[.e_y1] cwde shl eax,ROUND cdq idiv ebx ; mov .dey13,eax push eax mov ax,word[.t_x3] sub ax,word[.t_x1] cwde shl eax,ROUND cdq idiv ebx ; mov .dtx13,eax push eax mov ax,word[.t_y3] sub ax,word[.t_y1] cwde shl eax,ROUND cdq idiv ebx ; mov .dty13,eax push eax end if .bt_dx13_done: mov bx,.y3 ; calc delta23 sub bx,.y2 jnz .bt_dx23_make mov ecx,8 xor edx,edx @@: push edx ;dword 0 loop @b jmp .bt_dx23_done .bt_dx23_make: movsx ebx,bx if Ext >= SSE2 mov eax,1 shl 15 cdq idiv ebx ; push eax mov ebx,eax mov ax,.x3 sub ax,.x2 cwde imul ebx sar eax,15 - ROUND push eax ; mov .dx12,eax mov ax,.z3 sub ax,.z2 cwde imul ebx sar eax,15 - ROUND push eax sub esp,4*6 movd xmm0,ebx pshuflw xmm0,xmm0,0 movlhps xmm0,xmm0 movdqu xmm1,[.t_y2] movdqu xmm2,[.t_y3] psubw xmm2,xmm1 movdqa xmm3,xmm2 pmullw xmm2,xmm0 pmulhw xmm3,xmm0 movhlps xmm4,xmm2 movhlps xmm5,xmm3 punpcklwd xmm2,xmm3 punpcklwd xmm4,xmm5 psrad xmm2,15 - ROUND psrad xmm4,15 - ROUND movdqu .dty23,xmm2 movq .dby23,xmm4 else mov ax,.x3 sub ax,.x2 cwde shl eax,ROUND cdq idiv ebx ; mov .dx23,eax push eax mov ax,.z3 sub ax,.z2 cwde shl eax,CATMULL_SHIFT cdq idiv ebx ; mov .dz23,eax push eax mov ax,word[.b_x3] sub ax,word[.b_x2] cwde shl eax,ROUND cdq idiv ebx ; mov .dbx23,eax push eax mov ax,word[.b_y3] sub ax,word[.b_y2] cwde shl eax,ROUND cdq idiv ebx ; mov .dby23,eax push eax mov ax,word[.e_x3] sub ax,word[.e_x2] cwde shl eax,ROUND cdq idiv ebx ; mov .dex23,eax push eax mov ax,word[.e_y3] sub ax,word[.e_y2] cwde shl eax,ROUND cdq idiv ebx ; mov .dey23,eax push eax mov ax,word[.t_x3] sub ax,word[.t_x2] cwde shl eax,ROUND cdq idiv ebx ; mov .dtx23,eax push eax mov ax,word[.t_y3] sub ax,word[.t_y2] cwde shl eax,ROUND cdq idiv ebx ; mov .dty23,eax push eax end if .bt_dx23_done: sub esp,64 movsx eax,.x1 shl eax,ROUND mov .cx1,eax mov .cx2,eax ; push eax ; push eax movsx ebx,word[.b_x1] shl ebx,ROUND mov .cbx1,ebx mov .cbx2,ebx ; push ebx ; push ebx movsx ecx,word[.b_y1] shl ecx,ROUND mov .cby1,ecx mov .cby2,ecx ; push ecx ; push ecx movsx edx,word[.e_x1] shl edx,ROUND mov .cex1,edx mov .cex2,edx ; push edx ; push edx movsx eax,word[.e_y1] shl eax,ROUND mov .cey1,eax mov .cey2,eax ; push eax ; push eax movsx ebx,.z1 shl ebx,CATMULL_SHIFT mov .cz1,ebx mov .cz2,ebx ; push ebx ; push ebx ; sub esp,16 movsx ecx,word[.t_x1] shl ecx,ROUND mov .ctx1,ecx mov .ctx2,ecx ;push ecx ;push ecx movsx edx,word[.t_y1] shl edx,ROUND mov .cty1,edx mov .cty2,edx ; push edx ; push edx if 0 ;Ext >= SSE2 movups xmm0,.cby1 movups xmm1,.cty1 movups xmm2,.cby2 movups xmm3,.cty2 movups xmm4,.dby13 movups xmm5,.dty13 movups xmm6,.dby12 movups xmm7,.dty12 ; .scby1 equ [edi] ; .scty1 equ [edi+16] ; .scby2 equ [edi+32] ; .scty2 equ [edi+48] ; .sdby13 equ [edi+64] ; .sdty13 equ [edi+80] ; .sdby12 equ [edi+96] ; .sdty12 equ [edi+128] ; push edi mov edi,sse_repository movaps .scby1,xmm0 movaps .scty1,xmm1 movaps .scby2,xmm2 movaps .scty2,xmm3 movaps .sdby13,xmm4 movaps .sdty13,xmm5 movaps .sdby12,xmm6 movaps .sdty12,xmm7 pop edi end if movsx ecx,.y1 cmp cx,.y2 jge .loop12_done .loop12: call .call_line if Ext >= SSE2 movups xmm0,.cby1 movups xmm1,.cty1 movups xmm2,.cby2 movups xmm3,.cty2 movups xmm4,.dby13 movups xmm5,.dty13 movups xmm6,.dby12 movups xmm7,.dty12 paddd xmm0,xmm4 paddd xmm1,xmm5 paddd xmm2,xmm6 paddd xmm3,xmm7 movups .cby1,xmm0 movups .cty1,xmm1 movups .cby2,xmm2 movups .cty2,xmm3 end if if (Ext = MMX) movq mm0,.cby2 movq mm1,.cby1 movq mm2,.cey2 movq mm3,.cey1 movq mm4,.cty1 movq mm5,.cty2 movq mm6,.cz1 movq mm7,.cz2 paddd mm0,.dby12 paddd mm1,.dby13 paddd mm2,.dey12 paddd mm3,.dey13 paddd mm4,.dty13 paddd mm5,.dty12 paddd mm6,.dz13 paddd mm7,.dz12 movq .cby2,mm0 movq .cby1,mm1 movq .cey1,mm3 movq .cey2,mm2 movq .cty1,mm4 movq .cty2,mm5 movq .cz1,mm6 movq .cz2,mm7 end if if Ext = NON mov edx,.dbx13 add .cbx1,edx mov eax,.dbx12 add .cbx2,eax mov ebx,.dby13 add .cby1,ebx mov edx,.dby12 add .cby2,edx mov eax,.dex13 add .cex1,eax mov ebx,.dex12 add .cex2,ebx mov edx,.dey13 add .cey1,edx mov eax,.dey12 add .cey2,eax mov eax,.dtx13 add .ctx1,eax mov ebx,.dtx12 add .ctx2,ebx mov edx,.dty13 add .cty1,edx mov eax,.dty12 add .cty2,eax mov eax,.dx13 add .cx1,eax mov ebx,.dx12 add .cx2,ebx mov ebx,.dz13 add .cz1,ebx mov edx,.dz12 add .cz2,edx end if inc ecx cmp cx,.y2 jl .loop12 .loop12_done: movsx ecx,.y2 cmp cx,.y3 jge .loop23_done movsx eax,.z2 shl eax,CATMULL_SHIFT mov .cz2,eax movsx ebx,.x2 shl ebx,ROUND mov .cx2,ebx movzx edx,word[.b_x2] shl edx,ROUND mov .cbx2,edx movzx eax,word[.b_y2] shl eax,ROUND mov .cby2,eax movzx ebx,word[.e_x2] shl ebx,ROUND mov .cex2,ebx movzx edx,word[.e_y2] shl edx,ROUND mov .cey2,edx movzx eax,word[.t_x2] shl eax,ROUND mov .ctx2,eax movzx ebx,word[.t_y2] shl ebx,ROUND mov .cty2,ebx .loop23: call .call_line if Ext >= SSE2 ; fxrstor [sse_repository] movups xmm0,.cby1 movups xmm1,.cty1 movups xmm2,.cby2 movups xmm3,.cty2 movups xmm4,.dby13 movups xmm5,.dty13 movups xmm6,.dby23 movups xmm7,.dty23 paddd xmm0,xmm4 paddd xmm1,xmm5 paddd xmm2,xmm6 paddd xmm3,xmm7 ; push edi ; mov edi,sse_repository ; paddd xmm0,.sdby13 ; paddd xmm1,.sdty13 ; paddd xmm2,.sdby12 ; paddd xmm3,.sdty12 ; pop edi movups .cby1,xmm0 movups .cty1,xmm1 movups .cby2,xmm2 movups .cty2,xmm3 end if if (Ext = MMX) movq mm0,.cby2 movq mm1,.cby1 movq mm2,.cey2 movq mm3,.cey1 movq mm4,.cty1 movq mm5,.cty2 movq mm6,.cz1 movq mm7,.cz2 paddd mm0,.dby23 paddd mm1,.dby13 paddd mm2,.dey23 paddd mm3,.dey13 paddd mm4,.dty13 paddd mm5,.dty23 paddd mm6,.dz13 paddd mm7,.dz23 movq .cby2,mm0 movq .cby1,mm1 movq .cey2,mm2 movq .cey1,mm3 movq .cty1,mm4 movq .cty2,mm5 movq .cz1,mm6 movq .cz2,mm7 end if If Ext = NON mov edx,.dbx13 add .cbx1,edx mov eax,.dbx23 add .cbx2,eax mov ebx,.dby13 add .cby1,ebx mov edx,.dby23 add .cby2,edx mov eax,.dex13 add .cex1,eax mov ebx,.dex23 add .cex2,ebx mov edx,.dey13 add .cey1,edx mov eax,.dey23 add .cey2,eax mov eax,.dx13 add .cx1,eax mov ebx,.dx23 add .cx2,ebx mov ebx,.dz13 add .cz1,ebx mov edx,.dz23 add .cz2,edx mov eax,.dtx13 add .ctx1,eax mov ebx,.dtx23 add .ctx2,ebx mov edx,.dty13 add .cty1,edx mov eax,.dty23 add .cty2,eax end if inc ecx cmp cx,.y3 jl .loop23 .loop23_done: mov esp,ebp ret 50 .call_line: pushad push dword .cty1 push .ctx1 push dword .cz1 push dword .cty2 push .ctx2 push dword .cz2 push dword .cey2 push .cex2 push dword .cby2 push .cbx2 push dword .cey1 push .cex1 push dword .cby1 push .cbx1 push .tex_ptr push .z_buff push .t_emap push .t_bmap push ecx mov eax,.cx1 sar eax,ROUND mov ebx,.cx2 sar ebx,ROUND call bump_tex_line_z popad ret bump_tex_line_z: ;--------------in: eax - x1 ;-------------- ebx - x2 ;-------------- edi - pointer to screen buffer ;stack - another parameters : .y equ dword [ebp+4] .bmap equ dword [ebp+8] ; bump map pointer .emap equ dword [ebp+12] ; env map pointer .z_buff equ dword [ebp+16] ; z buffer .tex_map equ dword [ebp+20] ; texture pointer .bx1 equ [ebp+24] ; --- .by1 equ [ebp+28] ; | .ex1 equ [ebp+32] ; | .ey1 equ [ebp+36] ; | .bx2 equ [ebp+40] ; | .by2 equ [ebp+44] ; |> b. map and e. map coords .ex2 equ [ebp+48] ; |> shifted shl ROUND .ey2 equ [ebp+52] ; --- .z2 equ [ebp+56] .tx2 equ [ebp+60] .ty2 equ [ebp+64] .z1 equ [ebp+68] .tx1 equ [ebp+72] .ty1 equ [ebp+76] .x1 equ [ebp-4] .x2 equ [ebp-8] .dbx equ [ebp-12] .dby equ [ebp-16] .dex equ [ebp-20] .dey equ [ebp-24] .dz equ [ebp-28] .dtx equ [ebp-32] .dty equ [ebp-36] .cbx equ [ebp-40] .cby equ [ebp-44] .cex equ [ebp-48] .cey equ [ebp-52] .cz equ [ebp-56] .czbuff equ [ebp-60] .ctx equ [ebp-64] .cty equ [ebp-68] .c_scr equ [ebp-72] .temp1 equ ebp-80 .temp2 equ ebp-88 .temp3 equ ebp-76 .temp4 equ ebp-84 .temp5 equ ebp-92 mov ebp,esp mov ecx,.y or ecx,ecx jl .bl_end movzx edx,word[size_y_var] cmp ecx,edx ;SIZE_Y jge .bl_end cmp eax,ebx jl .bl_ok je .bl_end if Ext=NON mov edx,.bx1 xchg edx,.bx2 mov .bx1,edx mov edx,.by1 xchg edx,.by2 mov .by1,edx mov edx,.ex1 xchg edx,.ex2 mov .ex1,edx mov edx,.ey1 xchg edx,.ey2 mov .ey1,edx mov edx,.tx1 xchg edx,.tx2 mov .tx1,edx mov edx,.ty1 xchg edx,.ty2 mov .ty1,edx end if if Ext = MMX movq mm0,.bx1 movq mm1,.bx2 movq mm2,.ex1 movq mm3,.ex2 movq mm4,.tx1 movq mm5,.tx2 movq .bx2,mm0 movq .bx1,mm1 movq .ex1,mm3 movq .ex2,mm2 movq .tx1,mm5 movq .tx2,mm4 end if if Ext>=SSE movups xmm0,.bx1 movups xmm1,.bx2 movups .bx1,xmm1 movups .bx2,xmm0 movq mm0,.tx1 movq mm1,.tx2 movq .tx1,mm1 movq .tx2,mm0 end if xchg eax,ebx mov edx,.z1 xchg edx,.z2 mov .z1,edx .bl_ok: push eax push ebx ;store x1, x2 movzx ebx,word[size_x_var] ; mov eax,.x1 cmp dword .x1,ebx ;dword .x1,SIZE_X jge .bl_end cmp dword .x2,0 jle .bl_end mov ebx,.x2 sub ebx,.x1 mov eax,1 shl 15 cdq idiv ebx mov ebx,eax mov eax,.bx2 sub eax,.bx1 sar eax,ROUND imul ebx sar eax,15 - ROUND push eax mov eax,.by2 sub eax,.by1 sar eax,ROUND imul ebx sar eax,15 - ROUND push eax mov eax,.ex2 sub eax,.ex1 sar eax,ROUND imul ebx sar eax,15 - ROUND push eax mov eax,.ey2 sub eax,.ey1 sar eax,ROUND imul ebx sar eax,15 - ROUND push eax mov eax,.z2 sub eax,.z1 sar eax,ROUND imul ebx sar eax,15 - ROUND push eax mov eax,.tx2 sub eax,.tx1 sar eax,ROUND imul ebx sar eax,15 - ROUND push eax mov eax,.ty2 sub eax,.ty1 sar eax,ROUND imul ebx sar eax,15 - ROUND push eax cmp dword .x1,0 ; set correctly begin variable jge @f ; CLIPPING ON FUNCTION ; cutting triangle exceedes screen mov ebx,.x1 neg ebx ;if Ext >= SSE ; cvtsi2ss xmm0,ebx ; shufps xmm0,xmm0,0 ; movups xmm1,.dey ; mulps xmm1,xmm0 ; shufps xmm1,xmm1,00011011b ; movups xmm2,.bx1 ; addps xmm2,xmm1 ; movups .bx1,xmm2 mov eax,.dz imul ebx ; eax = .dz * abs(.x1) add .z1,eax mov dword .x1,0 mov eax,.dbx imul ebx add .bx1,eax mov eax,.dby imul ebx add .by1,eax mov eax,.dex imul ebx add .ex1,eax mov eax,.dey imul ebx add .ey1,eax mov eax,.dtx imul ebx add .tx1,eax mov eax,.dty imul ebx add .ty1,eax @@: ; mov ebx,.x2 movzx eax,word[size_x_var] ; cmp dword .x2,SIZE_X cmp dword .x2,eax ; eax,ebx jl @f mov dword .x2,eax ;SIZE_X @@: movzx eax,word[size_x_var] ;SIZE_X ;calc memory begin in buffers mul .y add eax,.x1 lea esi,[4*eax] add esi,.z_buff ; z-buffer filled with dd variables lea eax,[eax*3] add edi,eax mov ecx,.x2 sub ecx,.x1 ; init current variables push dword .bx1 ; current b, e and t shifted shl ROUND .cbx push dword .by1 ; .cby push dword .ex1 ; .cex push dword .ey1 ; .cey push dword .z1 ; current z shl CATMULL_SHIFT ; .cz push esi ; .czbuff push dword .tx1 ; .ctx push dword .ty1 ; .cty push edi ; .c_scr if Ext = SSE2 mov eax,TEXTURE_SIZE movd xmm1,eax shufps xmm1,xmm1,0 push dword TEX_X push dword -TEX_X push dword 1 push dword -1 movups xmm2,[esp] movd xmm3,.bmap shufps xmm3,xmm3,0 end if if Ext>=MMX movq mm7,.cty movq mm6,.cby movq mm5,.cey ; movq mm4,.dtyq ; movq mm3,.dbyq end if .draw: ; if TEX = SHIFTING ;bump drawing only in shifting mode mov esi,.czbuff ; .czbuff current address in buffer mov ebx,.cz ; .cz - cur z position cmp ebx,dword[esi] jge .skip if Ext=NON mov eax,.cby shr eax,ROUND mov esi,.cbx shr esi,ROUND else movq mm1,mm6 psrld mm1,ROUND movd eax,mm1 psrlq mm1,32 movd esi,mm1 end if shl eax,TEX_SHIFT add esi,eax ;- ; esi - current bump map index if Ext = SSE2 movd xmm0,esi shufps xmm0,xmm0,0 paddd xmm0,xmm2 pand xmm0,xmm1 paddd xmm0,xmm3 movd ebx,xmm0 movzx eax,byte[ebx] ; ; shufps xmm0,xmm0,11100001b psrldq xmm0,4 movd ebx,xmm0 movzx ebx,byte[ebx] sub eax,ebx ; ; shufps xmm0,xmm0,11111110b psrldq xmm0,4 movd ebx,xmm0 movzx edx, byte [ebx] ; ; shufps xmm0,xmm0,11111111b psrldq xmm0,4 movd ebx,xmm0 movzx ebx, byte [ebx] sub edx,ebx ; else ; mov ebx,esi ; dec ebx lea ebx,[esi-1] and ebx,TEXTURE_SIZE add ebx,.bmap movzx eax,byte [ebx] ; mov ebx,esi ; inc ebx lea ebx,[esi+1] and ebx,TEXTURE_SIZE add ebx,.bmap movzx ebx,byte [ebx] sub eax,ebx ; mov ebx,esi ; sub ebx,TEX_X lea ebx,[esi-TEX_X] and ebx,TEXTURE_SIZE add ebx,.bmap movzx edx,byte [ebx] ; mov ebx,esi ; add ebx,TEX_X lea ebx,[esi+TEX_X] and ebx,TEXTURE_SIZE add ebx,.bmap movzx ebx,byte [ebx] sub edx,ebx end if ; eax - horizontal sub modificated x coord ; edx - vertical sub modificated y coord if Ext=NON mov ebx,.cex ;.cex - current env map X shr ebx,ROUND add eax,ebx mov ebx,.cey ;.cey - current env map y shr ebx,ROUND add edx,ebx else movq mm1,mm5 ; mm5 - copy of cur env coords psrld mm1,ROUND movd ebx,mm1 psrlq mm1,32 add eax,ebx movd ebx,mm1 add edx,ebx ; movq qword[.temp1],mm3 ; add eax,dword [.temp1] ; add edx,dword [.temp1+4] end if or eax,eax jl .black cmp eax,TEX_X jg .black or edx,edx jl .black cmp edx,TEX_Y jg .black shl edx,TEX_SHIFT ; zaburzenie w emapie = zaburzenie w teksturze add edx,eax ; proponuje nie stawiac czarnego pixela tylko lea esi,[edx*3] ; niezaburzony. add esi,.emap ; lodsd if Ext=NON mov edx,.cty shr edx,ROUND ; sar mov edi,.ctx shr edi,ROUND ; sar else movq mm1,mm7 psrld mm1,ROUND movd edx,mm1 psrlq mm1,32 movd edi,mm1 end if shl edx,TEX_SHIFT add edi,edx and edi,TEXTURE_SIZE lea esi,[edi*3] add esi,.tex_map if Ext=NON mov edx,eax lodsd push ax mul dl mov dl,ah pop ax shr ax,8 mul dh mov al,dl mov edi,.c_scr stosw shr edx,16 shr eax,16 mul dl shr ax,8 stosb else movd mm0,eax pxor mm1,mm1 punpcklbw mm0,mm1 movd mm2,[esi] punpcklbw mm2,mm1 pmullw mm0,mm2 psrlw mm0,8 packuswb mm0,mm1 mov edi,.c_scr movd [edi],mm0 end if jmp .actual_zbuff ; actualize z buffer @@: .black: xor eax,eax mov edi,.c_scr stosd .actual_zbuff: mov eax,.cz mov edi,.czbuff stosd .skip: add dword .czbuff,4 add dword .c_scr,3 if Ext=NON mov eax,.dbx add .cbx,eax mov ebx,.dby add .cby,ebx mov edx,.dex add .cex,edx mov eax,.dey add .cey,eax mov ebx,.dtx add .ctx,ebx mov edx,.dty add .cty,edx else paddd mm7,.dty paddd mm6,.dby paddd mm5,.dey end if mov eax,.dz add .cz,eax dec ecx jnz .draw .bl_end: mov esp,ebp ret 76 ;Ext = MMX ; else ; movq mm5, qword[.temp1] ;- ; paddd mm5, qword[.temp5] ; .temp5 == low dword = TEX_X, high dword = -TEX_X ; pand mm5, qword[.temp3] ; .temp3 == low = high dword = TEX_SIZE ; paddd mm5, qword[.temp4] ; .temp4 == low = high dword = offset .bmap ; movd ebx,mm5 ; psrlq mm5,32 ; end if