Subversion Repositories Kolibri OS

Rev

Rev 8408 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8408 Rev 8442
Line 141... Line 141...
141 
	stdcall gl_add_op,eax
 141 
	stdcall gl_add_op,eax
142 
	pop eax
 142 
	pop eax
143 
	ret 16 ;=sizeof(dd)*4
 143 
	ret 16 ;=sizeof(dd)*4
Line 144... Line 144...
144 
 
 144 
 
- 
 
 145 
align 4
- 
 
 146 
proc glNormal3d, x:qword, y:qword, z:qword
- 
 
 147 
	add esp,-12
- 
 
 148 
	fld qword[z]
- 
 
 149 
	fstp dword[esp+8]
- 
 
 150 
	fld qword[y]
- 
 
 151 
	fstp dword[esp+4]
- 
 
 152 
	fld qword[x]
- 
 
 153 
	fstp dword[esp]
- 
 
 154 
	call glNormal3f
- 
 
 155 
	ret
- 
 
 156 
endp
- 
 
 157 
 
145 
align 4
 158 
align 4
146 
proc glNormal3fv uses eax, v:dword
 159 
proc glNormal3fv uses eax, v:dword
147 
	mov eax,[v]
 160 
	mov eax,[v]
148 
	stdcall glNormal3f,[eax],[eax+4],[eax+8]
 161 
	stdcall glNormal3f,[eax],[eax+4],[eax+8]
149 
	ret
 162 
	ret
Line -... Line 163...
- 
 
 163 
endp
- 
 
 164 
 
- 
 
 165 
align 4
- 
 
 166 
proc glNormal3dv uses eax, v:dword
- 
 
 167 
	mov eax,[v]
- 
 
 168 
	add esp,-12
- 
 
 169 
	fld qword[eax+16]
- 
 
 170 
	fstp dword[esp+8]
- 
 
 171 
	fld qword[eax+8]
- 
 
 172 
	fstp dword[esp+4]
- 
 
 173 
	fld qword[eax]
- 
 
 174 
	fstp dword[esp]
- 
 
 175 
	call glNormal3f
- 
 
 176 
	ret
150 
endp
 177 
endp
Line 151... Line 178...
151 
 
 178 
 
152 
; glColor
 179 
; glColor
153 
 
 180 
 
Line 178... Line 205...
178 
	stdcall gl_add_op,eax
 205 
	stdcall gl_add_op,eax
179 
	ret
 206 
	ret
180 
endp
 207 
endp
Line 181... Line 208...
181 
 
 208 
 
- 
 
 209 
align 4
- 
 
 210 
proc glColor4d, r:qword, g:qword, b:qword, a:qword
- 
 
 211 
	add esp,-16
- 
 
 212 
	fld qword[a]
- 
 
 213 
	fstp dword[esp+12]
- 
 
 214 
	fld qword[b]
- 
 
 215 
	fstp dword[esp+8]
- 
 
 216 
	fld qword[g]
- 
 
 217 
	fstp dword[esp+4]
- 
 
 218 
	fld qword[r]
- 
 
 219 
	fstp dword[esp]
- 
 
 220 
	call glColor4f
- 
 
 221 
	ret
- 
 
 222 
endp
- 
 
 223 
 
182 
align 4
 224 
align 4
183 
proc glColor4fv uses eax ebx, v:dword
 225 
proc glColor4fv uses eax ebx, v:dword
184 
	mov eax,[v]
 226 
	mov eax,[v]
185 
	stdcall glColor4f,[eax],[eax+4],[eax+8],[eax+12],1.0
 227 
	stdcall glColor4f,[eax],[eax+4],[eax+8],[eax+12],1.0
186 
	ret
 228 
	ret
Line 191... Line 233...
191 
	stdcall glColor4f,[r],[g],[b],1.0
 233 
	stdcall glColor4f,[r],[g],[b],1.0
192 
	ret
 234 
	ret
193 
endp
 235 
endp
Line 194... Line 236...
194 
 
 236 
 
- 
 
 237 
align 4
- 
 
 238 
proc glColor3d, r:qword, g:qword, b:qword
- 
 
 239 
	push 1.0
- 
 
 240 
	add esp,-12
- 
 
 241 
	fld qword[b]
- 
 
 242 
	fstp dword[esp+8]
- 
 
 243 
	fld qword[g]
- 
 
 244 
	fstp dword[esp+4]
- 
 
 245 
	fld qword[r]
- 
 
 246 
	fstp dword[esp]
- 
 
 247 
	call glColor4f
- 
 
 248 
	ret
- 
 
 249 
endp
- 
 
 250 
 
195 
align 4
 251 
align 4
196 
proc glColor3fv uses eax, v:dword
 252 
proc glColor3fv uses eax, v:dword
197 
	mov eax,[v]
 253 
	mov eax,[v]
198 
	stdcall glColor4f,[eax],[eax+4],[eax+8],1.0
 254 
	stdcall glColor4f,[eax],[eax+4],[eax+8],1.0
199 
	ret
 255 
	ret
Line 200... Line 256...
200 
endp
 256 
endp
- 
 
 257 
 
- 
 
 258 
align 4
- 
 
 259 
proc glColor3dv uses eax, v:dword
- 
 
 260 
	mov eax,[v]
- 
 
 261 
	push 1.0
- 
 
 262 
	add esp,-12
- 
 
 263 
	fld qword[eax+16]
- 
 
 264 
	fstp dword[esp+8]
- 
 
 265 
	fld qword[eax+8]
- 
 
 266 
	fstp dword[esp+4]
- 
 
 267 
	fld qword[eax]
- 
 
 268 
	fstp dword[esp]
- 
 
 269 
	call glColor4f
- 
 
 270 
	ret
- 
 
 271 
endp
201 
 
 272 
 
Line 202... Line 273...
202 
align 4
 273 
align 4
203 
fl_255 dd 255.0
 274 
fl_255 dd 255.0
204 
 
 275 
 
Line 228... Line 299...
228 
	sub esp,12
 299 
	sub esp,12
229 
	call glColor4f
 300 
	call glColor4f
230 
	ret
 301 
	ret
231 
endp
 302 
endp
Line -... Line 303...
- 
 
 303 
 
- 
 
 304 
align 4
- 
 
 305 
proc glColor4dv uses eax, v:dword
- 
 
 306 
	mov eax,[v]
- 
 
 307 
	add esp,-16
- 
 
 308 
	fld qword[eax+24]
- 
 
 309 
	fstp dword[esp+12]
- 
 
 310 
	fld qword[eax+16]
- 
 
 311 
	fstp dword[esp+8]
- 
 
 312 
	fld qword[eax+8]
- 
 
 313 
	fstp dword[esp+4]
- 
 
 314 
	fld qword[eax]
- 
 
 315 
	fstp dword[esp]
- 
 
 316 
	call glColor4f
- 
 
 317 
	ret
- 
 
 318 
endp
232 
 
 319 
 
Line 233... Line 320...
233 
; TexCoord
 320 
; TexCoord
234 
 
 321 
 
235 
align 4
 322 
align 4
Line 241... Line 328...
241 
	stdcall gl_add_op,eax
 328 
	stdcall gl_add_op,eax
242 
	pop eax
 329 
	pop eax
243 
	ret 20 ;=sizeof(dd)*5
 330 
	ret 20 ;=sizeof(dd)*5
Line 244... Line 331...
244 
 
 331 
 
- 
 
 332 
align 4
- 
 
 333 
proc glTexCoord4d, s:qword, t:qword, r:qword, q:qword
- 
 
 334 
	add esp,-16
- 
 
 335 
	fld qword[q]
- 
 
 336 
	fstp dword[esp+12]
- 
 
 337 
	fld qword[r]
- 
 
 338 
	fstp dword[esp+8]
- 
 
 339 
	fld qword[t]
- 
 
 340 
	fstp dword[esp+4]
- 
 
 341 
	fld qword[s]
- 
 
 342 
	fstp dword[esp]
- 
 
 343 
	call glTexCoord4f
- 
 
 344 
	ret
- 
 
 345 
endp
- 
 
 346 
 
- 
 
 347 
align 4
- 
 
 348 
proc glTexCoord1f, s:dword
- 
 
 349 
	stdcall glTexCoord4f,[s],0.0,0.0,1.0
- 
 
 350 
	ret
- 
 
 351 
endp
- 
 
 352 
 
- 
 
 353 
align 4
- 
 
 354 
proc glTexCoord1d, s:qword
- 
 
 355 
	push 1.0
- 
 
 356 
	push 0.0
- 
 
 357 
	push 0.0
- 
 
 358 
	add esp,-4
- 
 
 359 
	fld qword[s]
- 
 
 360 
	fstp dword[esp]
- 
 
 361 
	call glTexCoord4f
- 
 
 362 
	ret
- 
 
 363 
endp
- 
 
 364 
 
- 
 
 365 
align 4
- 
 
 366 
proc glTexCoord1fv uses eax, v:dword
- 
 
 367 
	mov eax,[v]
- 
 
 368 
	stdcall glTexCoord4f,[eax],0.0,0.0,1.0
- 
 
 369 
	ret
- 
 
 370 
endp
- 
 
 371 
 
- 
 
 372 
align 4
- 
 
 373 
proc glTexCoord1dv uses eax, v:dword
- 
 
 374 
	mov eax,[v]
- 
 
 375 
	push 1.0
- 
 
 376 
	push 0.0
- 
 
 377 
	push 0.0
- 
 
 378 
	add esp,-4
- 
 
 379 
	fld qword[eax]
- 
 
 380 
	fstp dword[esp]
- 
 
 381 
	call glTexCoord4f
- 
 
 382 
	ret
- 
 
 383 
endp
- 
 
 384 
 
245 
align 4
 385 
align 4
246 
proc glTexCoord2f, s:dword, t:dword
 386 
proc glTexCoord2f, s:dword, t:dword
247 
	stdcall glTexCoord4f,[s],[t],0.0,1.0
 387 
	stdcall glTexCoord4f,[s],[t],0.0,1.0
248 
	ret
 388 
	ret
Line 249... Line 389...
249 
endp
 389 
endp
- 
 
 390 
 
- 
 
 391 
align 4
- 
 
 392 
proc glTexCoord2d, s:qword, t:qword
- 
 
 393 
	push 1.0
- 
 
 394 
	push 0.0
- 
 
 395 
	add esp,-8
- 
 
 396 
	fld qword[t]
- 
 
 397 
	fstp dword[esp+4]
- 
 
 398 
	fld qword[s]
- 
 
 399 
	fstp dword[esp]
- 
 
 400 
	call glTexCoord4f
- 
 
 401 
	ret
- 
 
 402 
endp
250 
 
 403 
 
251 
align 4
 404 
align 4
252 
proc glTexCoord2fv uses eax, v:dword
 405 
proc glTexCoord2fv uses eax, v:dword
253 
	mov eax,[v]
 406 
	mov eax,[v]
254 
	stdcall glTexCoord4f,[eax],[eax+4],0.0,1.0
 407 
	stdcall glTexCoord4f,[eax],[eax+4],0.0,1.0
Line 255... Line 408...
255 
	ret
 408 
	ret
- 
 
 409 
endp
- 
 
 410 
 
- 
 
 411 
align 4
- 
 
 412 
proc glTexCoord2dv uses eax, v:dword
- 
 
 413 
	mov eax,[v]
- 
 
 414 
	push 1.0
- 
 
 415 
	push 0.0
- 
 
 416 
	add esp,-8
- 
 
 417 
	fld qword[eax+8]
- 
 
 418 
	fstp dword[esp+4]
- 
 
 419 
	fld qword[eax]
- 
 
 420 
	fstp dword[esp]
- 
 
 421 
	call glTexCoord4f
- 
 
 422 
	ret
- 
 
 423 
endp
- 
 
 424 
 
- 
 
 425 
align 4
- 
 
 426 
proc glTexCoord3f, s:dword, t:dword, r:dword
- 
 
 427 
	stdcall glTexCoord4f,[s],[t],[r],1.0
- 
 
 428 
	ret
- 
 
 429 
endp
- 
 
 430 
 
- 
 
 431 
align 4
- 
 
 432 
proc glTexCoord3d, s:qword, t:qword, r:qword
- 
 
 433 
	push 1.0
- 
 
 434 
	add esp,-12
- 
 
 435 
	fld qword[r]
- 
 
 436 
	fstp dword[esp+8]
- 
 
 437 
	fld qword[t]
- 
 
 438 
	fstp dword[esp+4]
- 
 
 439 
	fld qword[s]
- 
 
 440 
	fstp dword[esp]
- 
 
 441 
	call glTexCoord4f
- 
 
 442 
	ret
- 
 
 443 
endp
- 
 
 444 
 
- 
 
 445 
align 4
- 
 
 446 
proc glTexCoord3fv uses eax, v:dword
- 
 
 447 
	mov eax,[v]
- 
 
 448 
	stdcall glTexCoord4f,[eax],[eax+4],[eax+8],1.0
- 
 
 449 
	ret
- 
 
 450 
endp
- 
 
 451 
 
- 
 
 452 
align 4
- 
 
 453 
proc glTexCoord3dv uses eax, v:dword
- 
 
 454 
	mov eax,[v]
- 
 
 455 
	push 1.0
- 
 
 456 
	add esp,-12
- 
 
 457 
	fld qword[eax+16]
- 
 
 458 
	fstp dword[esp+8]
- 
 
 459 
	fld qword[eax+8]
- 
 
 460 
	fstp dword[esp+4]
- 
 
 461 
	fld qword[eax]
- 
 
 462 
	fstp dword[esp]
- 
 
 463 
	call glTexCoord4f
- 
 
 464 
	ret
- 
 
 465 
endp
- 
 
 466 
 
- 
 
 467 
align 4
- 
 
 468 
proc glTexCoord4fv uses eax, v:dword
- 
 
 469 
	mov eax,[v]
- 
 
 470 
	stdcall glTexCoord4f,[eax],[eax+4],[eax+8],[eax+12]
- 
 
 471 
	ret
- 
 
 472 
endp
- 
 
 473 
 
- 
 
 474 
align 4
- 
 
 475 
proc glTexCoord4dv uses eax, v:dword
- 
 
 476 
	mov eax,[v]
- 
 
 477 
	add esp,-16
- 
 
 478 
	fld qword[eax+24]
- 
 
 479 
	fstp dword[esp+12]
- 
 
 480 
	fld qword[eax+16]
- 
 
 481 
	fstp dword[esp+8]
- 
 
 482 
	fld qword[eax+8]
- 
 
 483 
	fstp dword[esp+4]
- 
 
 484 
	fld qword[eax]
- 
 
 485 
	fstp dword[esp]
- 
 
 486 
	call glTexCoord4f
- 
 
 487 
	ret
256 
endp
 488 
endp
257 
 
 489 
 
258 
align 4
 490 
align 4
259 
glEdgeFlag: ;flag
 491 
glEdgeFlag: ;flag
260 
	push dword[esp] ;копируем адрес возврата
 492 
	push dword[esp] ;копируем адрес возврата
Line 881... Line 1113...
881 
 
 1113 
 
Line 882... Line 1114...
882 
; Non standard functions
 1114 
; Non standard functions
883 
 
 1115 
 
884 
align 4
 1116 
align 4
885 
proc glDebug uses eax, mode:dword
 1117 
proc glDebug uses eax, mode:dword
886 
	stdcall gl_get_context ;после вызова функции в eax указатель на GLContext
 1118 
	call gl_get_context ;после вызова функции в eax указатель на GLContext
887 
	push dword[mode]
 1119 
	push dword[mode]
888 
	pop dword[eax+GLContext.print_flag]
 1120 
	pop dword[eax+GLContext.print_flag]