Subversion Repositories Kolibri OS

Rev

Rev 5163 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5153 IgorA 1
 
2
proc glopClearColor uses ecx esi edi, context:dword, p:dword
3
	mov esi,[p]
4
	add esi,4
5
	mov edi,[context]
6
	add edi,GLContext.clear_color
6523 IgorA 7
	mov ecx,4
5153 IgorA 8
	rep movsd
9
	ret
5163 IgorA 10
endp
5153 IgorA 11
12
 
13
proc glopClearDepth uses eax ebx, context:dword, p:dword
14
	mov eax,[context]
15
	mov ebx,[p]
16
	mov ebx,[ebx+4] ;ebx = p[1]
17
	mov dword[eax+GLContext.clear_depth],ebx
6523 IgorA 18
	ret
5153 IgorA 19
endp
20
21
 
5159 IgorA 22
fl_65535 dd 65535.0
5163 IgorA 23
24
 
25
proc glopClear uses eax ebx, context:dword, p:dword
5159 IgorA 26
	mov eax,[context]
27
	fld dword[eax+GLContext.clear_color+8] ;context.clear_color.v[2]
6523 IgorA 28
	fmul dword[fl_65535]
5163 IgorA 29
	fistp dword[esp-4]
30
	fld dword[eax+GLContext.clear_color+4] ;context.clear_color.v[1]
6523 IgorA 31
	fmul dword[fl_65535]
5163 IgorA 32
	fistp dword[esp-8]
33
	fld dword[eax+GLContext.clear_color] ;context.clear_color.v[0]
6523 IgorA 34
	fmul dword[fl_65535]
5163 IgorA 35
	fistp dword[esp-12]
36
	sub esp,12
37
5153 IgorA 38
 
5159 IgorA 39
	mov ebx,[ebx+4] ;ebx = p[1]
40
	and ebx,GL_COLOR_BUFFER_BIT
41
	push ebx
42
	mov ebx,[p]
43
	mov ebx,[ebx+4] ;ebx = p[1]
44
	and ebx,GL_DEPTH_BUFFER_BIT
45
46
 
47
	stdcall ZB_clear,[eax+GLContext.zb],ebx,0 ;,...,r,g,b
6523 IgorA 48
	ret
5159 IgorA 49
endp
50