Subversion Repositories Kolibri OS

proc glopViewport uses eax ebx ecx edx, context:dword, p:dword

locals

	xsize dd ? ;int

	ysize dd ? ;int

	xmin dd ? ;int

	ymin dd ? ;int

	xsize_req dd ? ;int

	ysize_req dd ? ;int

endl

	mov edx,[context]

	mov ebx,[p]

	mov [xmin],ecx

	mov ecx,[ebx+8]

	mov [ymin],ecx

	mov ecx,[ebx+12]

	mov [xsize],ecx

	mov ecx,[ebx+16]

	mov [ysize],ecx

	jne @f

	mov ecx,[xmin]

	cmp dword[edx+offs_cont_viewport+offs_vpor_xmin],ecx

	jne @f

	mov ecx,[ymin]

	cmp dword[edx+offs_cont_viewport+offs_vpor_ymin],ecx

	jne @f

	mov ecx,[xsize]

	cmp dword[edx+offs_cont_viewport+offs_vpor_xsize],ecx

	jne @f

		jmp .end_f

	@@:

	add ecx,[xsize]

	mov [xsize_req],ecx ;xsize_req = xmin + xsize

	mov ecx,[ymin]

	add ecx,[ysize]

	mov [ysize_req],ecx ;ysize_req = ymin + ysize

	je @f

		mov eax,ebp

		sub eax,4

		push eax

		sub eax,4

		push eax

		stdcall dword[edx+offs_cont_gl_resize_viewport], edx ;gl_resize_viewport(context,&xsize_req,&ysize_req)

		cmp eax,0

		je @f

			stdcall dbg_print,f_vp,err_4

	@@:

	sub ecx,[xmin]

	mov [xsize],ecx

	mov ecx,[ysize_req]

	sub ecx,[ymin]

	mov [ysize],ecx

	cmp ecx,0

	jg @f

	cmp dword[xsize],0

	jg @f

		stdcall dbg_print,f_vp,err_5

	@@:

if DEBUG ;glopViewport

push edi

	mov ecx,80

	mov eax,[xmin]

	lea edi,[buf_param]

	stdcall convert_int_to_str,ecx

	stdcall str_n_cat,edi,txt_zp_sp,2

	stdcall str_len,edi

	add edi,eax

	sub ecx,eax

	stdcall convert_int_to_str,ecx

	stdcall str_n_cat,edi,txt_zp_sp,2

	stdcall str_len,edi

	add edi,eax

	sub ecx,eax

	stdcall convert_int_to_str,ecx

	stdcall str_n_cat,edi,txt_zp_sp,2

	stdcall str_len,edi

	add edi,eax

	sub ecx,eax

	stdcall convert_int_to_str,ecx

	stdcall dbg_print,f_vp,buf_param

pop edi

end if

	mov ecx,[xmin]

	mov dword[edx+offs_cont_viewport+offs_vpor_xmin],ecx

	mov ecx,[ymin]

	mov dword[edx+offs_cont_viewport+offs_vpor_ymin],ecx

	mov ecx,[xsize]

	mov dword[edx+offs_cont_viewport+offs_vpor_xsize],ecx

	mov ecx,[ysize]

	mov dword[edx+offs_cont_viewport+offs_vpor_ysize],ecx

	.end_f:

	ret

endp

proc glopEnableDisable uses eax ebx ecx, context:dword, p:dword

	mov eax,[context]

	mov ebx,[p]

	mov ecx,[ebx+8]

	mov ebx,[ebx+4]

	jne @f

		mov [eax+offs_cont_cull_face_enabled],ecx

		jmp .end_f

	@@:

	cmp ebx,GL_LIGHTING

	jne @f

		mov [eax+offs_cont_lighting_enabled],ecx

		jmp .end_f

	@@:

	cmp ebx,GL_COLOR_MATERIAL

	jne @f

		mov [eax+offs_cont_color_material_enabled],ecx

		jmp .end_f

	@@:

	cmp ebx,GL_TEXTURE_2D

	jne @f

		mov [eax+offs_cont_texture_2d_enabled],ecx

		jmp .end_f

	@@:

	cmp ebx,GL_NORMALIZE

	jne @f

		mov [eax+offs_cont_normalize_enabled],ecx

		jmp .end_f

	@@:

	cmp ebx,GL_DEPTH_TEST

	jne @f

		mov [eax+offs_cont_depth_test],ecx

		jmp .end_f

	@@:

	cmp ebx,GL_POLYGON_OFFSET_FILL

	jne .polygon_offset_fill

		cmp ecx,0

		je @f

			or dword[eax+offs_cont_offset_states],TGL_OFFSET_FILL

			jmp .end_f

		@@:

			and dword[eax+offs_cont_offset_states],not TGL_OFFSET_FILL

		jmp .end_f

	.polygon_offset_fill:

	cmp ebx,GL_POLYGON_OFFSET_POINT

	jne .polygon_offset_point

		cmp ecx,0

		je @f

			or dword[eax+offs_cont_offset_states],TGL_OFFSET_POINT

			jmp .end_f

		@@:

			and dword[eax+offs_cont_offset_states],not TGL_OFFSET_POINT

		jmp .end_f

	.polygon_offset_point:

	cmp ebx,GL_POLYGON_OFFSET_LINE

	jne .polygon_offset_line

		cmp ecx,0

		je @f

			or dword[eax+offs_cont_offset_states],TGL_OFFSET_LINE

			jmp .end_f

		@@:

			and dword[eax+offs_cont_offset_states],not TGL_OFFSET_LINE

		jmp .end_f

	.polygon_offset_line: ;default:

		cmp ebx,GL_LIGHT0

		jl .els_0

		cmp ebx,GL_LIGHT0+MAX_LIGHTS

		jge .els_0 ;if (GL_LIGHT0 <= ebx < GL_LIGHT0+MAX_LIGHTS)

			stdcall gl_enable_disable_light, eax,ebx-GL_LIGHT0,ecx

			jmp .end_f

		.els_0:

;//fprintf(stderr,"glEnableDisable: 0x%X not supported.\n",code);

	.end_f:

	ret

endp

proc glopShadeModel uses eax ebx, context:dword,p:dword

	mov eax,[context]

	mov ebx,[p]

	mov ebx,[ebx+4]

	mov [eax+offs_cont_current_shade_model],ebx

	ret

endp

proc glopCullFace uses eax ebx, context:dword,p:dword

	mov eax,[context]

	mov ebx,[p]

	mov ebx,[ebx+4]

	mov [eax+offs_cont_current_cull_face],ebx

	ret

endp

proc glopFrontFace uses eax ebx, context:dword,p:dword

	mov eax,[context]

	mov ebx,[p]

	mov ebx,[ebx+4]

	mov [eax+offs_cont_current_front_face],ebx

	ret

endp

proc glopPolygonMode uses eax ebx, context:dword,p:dword

	mov eax,[context]

	mov ebx,[p]

	jne @f

		mov ebx,[ebx+8]

		mov [eax+offs_cont_polygon_mode_back],ebx

		jmp .end_f

	@@:

	cmp dword[ebx+4],GL_FRONT

	jne @f

		mov ebx,[ebx+8]

		mov [eax+offs_cont_polygon_mode_front],ebx

		jmp .end_f

	@@:

	cmp dword[ebx+4],GL_FRONT_AND_BACK

	jne @f

		mov ebx,[ebx+8]

		mov [eax+offs_cont_polygon_mode_front],ebx

		mov [eax+offs_cont_polygon_mode_back],ebx

		jmp .end_f

	@@:

;    assert(0);

	.end_f:

	ret

endp

proc glopHint, context:dword,p:dword

if 0

;  int target=p[1].i;

;  int mode=p[2].i;

end if

	ret

endp

proc glopPolygonOffset uses eax ebx ecx, context:dword,p:dword

	mov eax,[context]

	mov ebx,[p]

	mov ecx,[ebx+4]

	mov [eax+offs_cont_offset_factor],ecx

	mov ecx,[ebx+8]

	mov [eax+offs_cont_offset_units],ecx

	ret

endp