Subversion Repositories Kolibri OS

{

if TGL_FEATURE_RENDER_BITS eq 24

	mov ecx,[p2]

	mov eax,[ecx+offs_zbup_r]

	mov [colorR],ah ;colorR=p2.r>>8

	mov eax,[ecx+offs_zbup_g]

	mov [colorG],ah ;colorG=p2.g>>8

	mov eax,[ecx+offs_zbup_b]

	mov [colorB],ah ;colorB=p2.b>>8

;else

;color=RGB_TO_PIXEL(p2.r,p2.g,p2.b)

end if

}

{

local .end_0

	mov eax,[z]

	shr eax,ZB_POINT_Z_FRAC_BITS

	cmp ax,word[esi+2*_a] ;if (zz >= pz[_a])

	jl .end_0

		;edi = pp

		mov word[esi+2*_a],ax ;пишем в буфер глубины новое значение

if TGL_FEATURE_RENDER_BITS eq 24

		mov al,[colorR]

		mov ah,[colorG]

		mov word[edi+3*_a],ax

		mov al,[colorB]

		mov byte[edi+3*_a +2],al

;else

;pp[_a]=color

end if

	.end_0:

	mov eax,[dzdx]

	add [z],eax

}

proc ZB_fillTriangleFlat, zb:dword, p0:dword, p1:dword, p2:dword

locals

if TGL_FEATURE_RENDER_BITS eq 24

	colorR db ?

	colorG db ?

	colorB db ? ;unsigned char

else

	color dd ? ;int

end if

include 'ztriangle.inc'

; Smooth filled triangle.

; The code below is very tricky :)

;

INTERP_RGB equ 1

{

}

{

local .end_0

	mov eax,[z]

	shr eax,ZB_POINT_Z_FRAC_BITS

	cmp ax,word[esi+2*_a] ;if (zz >= pz[_a])

	jl .end_0

		;edi = pp

		mov word[esi+2*_a],ax ;пишем в буфер глубины новое значение

if TGL_FEATURE_RENDER_BITS eq 24

		mov ebx,[or1]

		mov eax,[og1]

		mov al,bh

		mov word[edi+3*_a],ax

		mov eax,[ob1]

		mov byte[edi+3*_a +2],ah

end if

;if TGL_FEATURE_RENDER_BITS eq 32

;pp[_a] = RGB_TO_PIXEL(or1, og1, ob1)

;end if

	.end_0:

	mov eax,[dzdx]

	add [z],eax

	mov eax,[dgdx]

	add [og1],eax

	mov eax,[drdx]

	add [or1],eax

	mov eax,[dbdx]

	add [ob1],eax

}

proc ZB_fillTriangleSmooth, zb:dword, p0:dword, p1:dword, p2:dword

locals

include 'ztriangle.inc'

proc ZB_setTexture uses eax ebx, zb:dword, texture:dword

	mov eax,[zb]

	mov ebx,[texture]

	mov dword[eax+offs_zbuf_current_texture],ebx

	ret

endp

INTERP_ST equ 1

{

	mov eax,[zb]

	mov eax,[eax+offs_zbuf_current_texture]

	mov [texture],eax

}

{

local .end_0

local .in_mem

	mov eax,[z]

	shr eax,ZB_POINT_Z_FRAC_BITS

	cmp ax,word[esi+2*_a] ;if (zz >= pz[_a])

	jl .end_0

		;edi = pp

		mov word[esi+2*_a],ax ;пишем в буфер глубины новое значение

if TGL_FEATURE_RENDER_BITS eq 24

		mov ebx,[t]

		and ebx,0x3fc00000

		or ebx,[s]

		shr ebx,14

		cmp ebx,256*256-1 ;проверка на выход за пределы текстуры

		jl .in_mem ;координата 1.0,1.0 может выползать

			mov ebx,256*256-1 ;переход на последний пиксель текстуры

		.in_mem:

		imul ebx,3

		add ebx,[texture] ;ptr = texture + (((t & 0x3fc00000) | s) >> 14) * 3

		mov ax,word[ebx]

		mov word[edi+3*_a],ax ;pp[3 * _a]= ptr[0,1]

		mov al,byte[ebx+2]

		mov byte[edi+3*_a +2],al ;pp[3 * _a + 2]= ptr[2]

else

;pp[_a]=texture[((t & 0x3FC00000) | s) >> 14]

end if

	.end_0:

	mov eax,[dzdx]

	add [z],eax

	mov eax,[dsdx]

	add [s],eax

	mov eax,[dtdx]

	add [t],eax

}

proc ZB_fillTriangleMapping, zb:dword, p0:dword, p1:dword, p2:dword

locals

	texture dd ? ;PIXEL*

include 'ztriangle.inc'

; Texture mapping with perspective correction.

; We use the gradient method to make less divisions.

; TODO: pipeline the division

;

if 1

INTERP_STZ equ 1

{

	mov eax,[zb]

	mov eax,[eax+offs_zbuf_current_texture]

	mov [texture],eax

	mov dword[esp-4],NB_INTERP

	fild dword[esp-4]

	fild dword[dzdx]

	fst dword[fdzdx] ;fdzdx = (float)dzdx

	fmul st0,st1

	fstp dword[fndzdx] ;fndzdx = NB_INTERP * fdzdx

	fld dword[fdzdx]

	fmul st0,st1

	fstp dword[ndszdx] ;ndszdx = NB_INTERP * dszdx

	fmul dword[dtzdx]

	fstp dword[ndtzdx] ;ndtzdx = NB_INTERP * dtzdx

}

{

local .end_0

local .in_mem

	mov eax,[z]

	shr eax,ZB_POINT_Z_FRAC_BITS

	cmp ax,word[esi+2*_a] ;if (zz >= pz[_a])

	jl .end_0

		;edi = pp

		mov word[esi+2*_a],ax ;пишем в буфер глубины новое значение

if TGL_FEATURE_RENDER_BITS eq 24

		mov ebx,[t]

		and ebx,0x3fc00000

		mov eax,[s]

		and eax,0x003fc000

		or ebx,eax

		shr ebx,14

if 1

; не знаю нужна ли сдесь эта проверка

; функция ZB_fillTriangleMapping без нее не работает

; на всякий случай делаю и тут такое же

		cmp ebx,256*256-1 ;проверка на выход за пределы текстуры

		jl .in_mem ;координата 1.0,1.0 может выползать

			mov ebx,256*256-1 ;переход на последний пиксель текстуры

		.in_mem:

end if

		imul ebx,3

		add ebx,[texture] ;ptr = texture + (((t & 0x3fc00000) | (s & 0x003FC000)) >> 14) * 3

		mov ax,word[ebx]

		mov word[edi+3*_a],ax ;pp[3 * _a]= ptr[0,1]

		mov al,byte[ebx+2]

		mov byte[edi+3*_a +2],al ;pp[3 * _a + 2]= ptr[2]

else

;       pp[_a]=*(PIXEL *)((char *)texture+

;           (((t & 0x3FC00000) | (s & 0x003FC000)) >> (17 - PSZSH)));

end if

	.end_0:

	mov eax,[dzdx]

	add [z],eax

	mov eax,[dsdx]

	add [s],eax

	mov eax,[dtdx]

	add [t],eax

}

{

if TGL_FEATURE_RENDER_BITS eq 24

	mov eax,[x2]

	sar eax,16

	mov edi,[x1]

	sub eax,edi

	mov [n],eax ;n = (x2 >> 16) - x1

	fld1

	fild dword[z1]

	fst dword[f_z] ;fz = (float)z1

	fdivp

	fstp dword[zinv] ;zinv = 1.0 / fz

	imul edi,PSZB

	add edi,[pp1] ;pp = (pp1 + x1 * PSZB)

	mov esi,[x1]

	shl esi,1

	add esi,[pz1] ;pz = pz1 + x1

	mov eax,[z1]

	mov [z],eax ;z = z1

	mov eax,[sz1]

	mov [s_z],eax ;sz = sz1

	mov eax,[tz1]

	mov [t_z],eax ;tz = tz1

align 4

	.cycle_2: ;while (n>=(NB_INTERP-1))

	cmp dword[n],NB_INTERP-1

	jl .cycle_2_end

		fld dword[zinv]

		fld st0

		fmul dword[s_z] ;ss = (sz * zinv)

		fist dword[s] ;s = (int) ss

		fmul dword[fdzdx]

		fchs

		fadd dword[dszdx]

		fmul dword[zinv]

		fistp dword[dsdx] ;dsdx = (int)( (dszdx - ss*fdzdx)*zinv )

		fmul dword[t_z] ;tt = (tz * zinv)

		fist dword[t] ;t = (int) tt

		fmul dword[fdzdx]

		fchs

		fadd dword[dtzdx]

		fmul dword[zinv]

		fistp dword[dtdx] ;dtdx = (int)( (dtzdx - tt*fdzdx)*zinv )

		fld1

		fld dword[f_z]

		fadd dword[fndzdx]

		fst dword[f_z] ;fz += fndzdx

		fdivp

		fstp dword[zinv] ;zinv = 1.0 / fz

		PUT_PIXEL 0

		PUT_PIXEL 1

		PUT_PIXEL 2

		PUT_PIXEL 3

		PUT_PIXEL 4

		PUT_PIXEL 5

		PUT_PIXEL 6

		PUT_PIXEL 7

		add esi,2*NB_INTERP ;pz += NB_INTERP

		add edi,NB_INTERP*PSZB ;pp += NB_INTERP * PSZB

		sub dword[n],NB_INTERP ;n -= NB_INTERP

		fld dword[ndszdx]

		fadd dword[s_z]

		fstp dword[s_z] ;sz += ndszdx

		fld dword[ndtzdx]

		fadd dword[t_z]

		fstp dword[t_z] ;tz += ndtzdx

		jmp .cycle_2

align 4

	.cycle_2_end:

	fld dword[zinv]

	fld st0

	fmul dword[s_z] ;ss = (sz * zinv)

	fist dword[s] ;s = (int) ss

	fmul dword[fdzdx]

	fchs

	fadd dword[dszdx]

	fmul dword[zinv]

	fistp dword[dsdx] ;dsdx = (int)( (dszdx - ss*fdzdx)*zinv )

	fmul dword[t_z] ;tt = (tz * zinv)

	fist dword[t] ;t = (int) tt

	fmul dword[fdzdx]

	fchs

	fadd dword[dtzdx]

	fmul dword[zinv]

	fistp dword[dtdx] ;dtdx = (int)( (dtzdx - tt*fdzdx)*zinv )

align 4

	.cycle_3: ;while (n>=0)

	cmp dword[n],0

	jl .cycle_3_end

		PUT_PIXEL 0

		add esi,2 ;pz += 1

		add edi,PSZB ;pp += PSZB

		dec dword[n]

		jmp .cycle_3

align 4

	.cycle_3_end:

end if

}

proc ZB_fillTriangleMappingPerspective, zb:dword, p0:dword, p1:dword, p2:dword

locals

	texture dd ? ;PIXEL *

	fdzdx dd ? ;float

	fndzdx dd ? ;float

	ndszdx dd ? ;float

	ndtzdx dd ? ;float

	zinv dd ? ;float

	f_z dd ? ;float - переменная отвечающая за геометрию текстуры

include 'ztriangle.inc'

; bits)

INTERP_STZ equ 1

{

	mov eax,[zb]

	mov eax,[eax+offs_zbuf_current_texture]

	mov [texture],eax

}

{

local .end_0

	mov eax,[z]

	shr eax,ZB_POINT_Z_FRAC_BITS

	cmp ax,word[esi+2*_a] ;if (zz >= pz[_a])

	jl .end_0

		;edi = pp

		mov word[esi+2*_a],ax ;пишем в буфер глубины новое значение

		fild dword[z]

		fld dword[s_z]

		fdiv st0,st1

		fistp dword[esp-4] ;s = (int) (s_z / (float) z)

		fld dword[t_z]

		fdiv st0,st1

		fistp dword[esp-8] ;t = (int) (t_z / (float) z)

		mov eax,dword[esp-8]

		and eax,0x3FC00000

		or eax,dword[esp-4]

		shr eax,12 ;14

		add eax,[texture]

		mov eax,[eax]

		stosd ;pp[_a] = texture[((t & 0x3FC00000) | s) >> 14]

		sub edi,4

	.end_0:

	mov eax,[dzdx]

	add [z],eax

	fld dword[dszdx]

	fadd dword[s_z]

	fstp dword[s_z]

	fld dword,[dtzdx]

	fadd dword[t_z]

	fstp dword[t_z]

}

proc ZB_fillTriangleMappingPerspective, zb:dword, p0:dword, p1:dword, p2:dword

locals

	texture dd ? ;PIXEL*

include 'ztriangle.inc'