Subversion Repositories Kolibri OS

Rev

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

Rev 8174 Rev 8408
Line 5... Line 5...
5 
 
 5 
 
6 
include '../../../../../proc32.inc'
 6 
include '../../../../../proc32.inc'
7 
include '../../../../../macros.inc'
 7 
include '../../../../../macros.inc'
8 
include '../../../../../KOSfuncs.inc'
 8 
include '../../../../../KOSfuncs.inc'
- 
 
 9 
include '../../../../../load_img.inc'
9 
include '../../../../../load_img.inc'
 10 
include '../../../../../load_lib.mac'
10 
include '../opengl_const.inc'
 11 
include '../opengl_const.inc'
11 
include '../zbuffer.inc'
 12 
include '../zbuffer.inc'
Line 12... Line 13...
12 
include '../../../../../develop/info3ds/info_fun_float.inc'
 13 
include '../../../../../develop/info3ds/info_fun_float.inc'
Line 13... Line 14...
13 
 
 14 
 
14 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
 15 
@use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
15 
 
 16 
 
16 
;Макрос для параметров типа double (8 байт)
 17 
;Макрос для параметров типа double (8 байт)
17 
macro glpush GLDoubleVar {
 18 
macro glpush GLDoubleVar {
Line 18... Line -...
18 
	push dword[GLDoubleVar+4]
 - 
 
19 
	push dword[GLDoubleVar]
 - 
 
20 
}
 19 
	push dword[GLDoubleVar+4]
Line 21... Line 20...
21 
 
 20 
	push dword[GLDoubleVar]
22 
align 4
 21 
}
23 
image_data_toolbar dd 0
 22 
 
Line 405... Line 404...
405 
white_light dd 0.8, 0.8, 0.8, 1.0 ; Цвет и интенсивность освещения, генерируемого источником
 404 
white_light dd 0.8, 0.8, 0.8, 1.0 ; Цвет и интенсивность освещения, генерируемого источником
406 
lmodel_ambient dd 0.2, 0.2, 0.2, 1.0 ; Параметры фонового освещения
 405 
lmodel_ambient dd 0.2, 0.2, 0.2, 1.0 ; Параметры фонового освещения
Line 407... Line 406...
407 
 
 406 
 
408 
;--------------------------------------------------
 407 
;--------------------------------------------------
409 
align 4
 408 
align 4
Line 410... Line 409...
410 
import_lib_tinygl:
 409 
import_tinygl:
411 
 
 410 
 
412 
macro E_LIB n
 411 
macro E_LIB n
413 
{
 412 
{
Line 529... Line 528...
529 
lib_name_0 db 'tinygl.obj',0
 528 
lib_name_0 db 'tinygl.obj',0
530 
system_dir_1 db '/sys/lib/'
 529 
system_dir_1 db '/sys/lib/'
531 
lib_name_1 db 'buf2d.obj',0
 530 
lib_name_1 db 'buf2d.obj',0
532 
system_dir_2 db '/sys/lib/'
 531 
system_dir_2 db '/sys/lib/'
533 
lib_name_2 db 'libimg.obj',0
 532 
lib_name_2 db 'libimg.obj',0
534 
err_msg_found_lib_0 db 'Sorry I cannot load library ',39,'tinygl.obj',39,'" -tE',0
 - 
 
535 
err_msg_found_lib_1 db 'Sorry I cannot load library ',39,'buf2d.obj',39,'" -tE',0
 - 
 
536 
err_msg_found_lib_2 db 'Sorry I cannot load library ',39,'libimg.obj',39,'" -tE',0
 - 
 
537 
head_f_i:
 - 
 
538 
head_f_l db '"System error',0
 - 
 
539 
err_msg_import_0 db 'Error on load import library ',39,'tinygl.obj',39,'" -tE',0
 - 
 
540 
err_msg_import_1 db 'Error on load import library ',39,'buf2d.obj',39,'" -tE',0
 - 
 
541 
err_msg_import_2 db 'Error on load import library ',39,'libimg.obj',39,'" -tE',0
 - 
 
542 
;--------------------------------------------------
 533 
;--------------------------------------------------
Line 543... Line 534...
543 
 
 534 
 
544 
txt_scale:
 535 
txt_scale:
545 
db 'Scale: '
 536 
db 'Scale: '
Line 574... Line 565...
574 
.w: dd 0
 565 
.w: dd 0
575 
.h: dd 0,0,24 ;+16 color,bit in pixel
 566 
.h: dd 0,0,24 ;+16 color,bit in pixel
Line 576... Line 567...
576 
 
 567 
 
577 
align 4
 568 
align 4
578 
l_libs_start:
 569 
l_libs_start:
579 
	lib_0 l_libs lib_name_0, cur_dir_path, file_name,  system_dir_0,\
 - 
 
580 
		err_msg_found_lib_0, head_f_l, import_lib_tinygl,err_msg_import_0,head_f_i
 570 
	lib_0 l_libs lib_name_0, file_name, system_dir_0, import_tinygl
581 
	lib_1 l_libs lib_name_1, cur_dir_path, file_name,  system_dir_1,\
 - 
 
582 
		err_msg_found_lib_1, head_f_l, import_buf2d,  err_msg_import_1,head_f_i
 571 
	lib_1 l_libs lib_name_1, file_name, system_dir_1, import_buf2d
583 
	lib_2 l_libs lib_name_2, cur_dir_path, file_name, system_dir_2,\
 - 
 
584 
		err_msg_found_lib_2, head_f_l, import_libimg, err_msg_import_2, head_f_i
 572 
	lib_2 l_libs lib_name_2, file_name, system_dir_2, import_libimg
Line 585... Line 573...
585 
l_libs_end:
 573 
l_libs_end:
586 
 
 574 
 
587 
align 4
 575 
align 4
- 
 
 576 
i_end:
588 
i_end:
 577 
	ctx1 rb 28 ;sizeof.TinyGLContext = 28
589 
	ctx1 rb 28 ;sizeof.TinyGLContext = 28
 578 
	image_data_toolbar dd 0
590 
	dr_figure dd 0
 579 
	dr_figure dd 0
591 
	qObj dd 0
 580 
	qObj dd 0
592 
	TexObj dd 0 ;массив указателей на текстуры (в данном случае 1 шт.)
 581 
	TexObj dd 0 ;массив указателей на текстуры (в данном случае 1 шт.)
593 
	texture dd 0 ;указатель на память с текстурой
 582 
	texture dd 0 ;указатель на память с текстурой
594 
	text_w dd 0
 583 
	text_w dd 0
595 
	text_h dd 0
 584 
	text_h dd 0
596 
	run_file_70 FileInfoBlock
 585 
	run_file_70 FileInfoBlock
597 
	sc system_colors
 - 
 
598 
align 16
 - 
 
599 
	rb 4096
 586 
	sc system_colors
600 
stacktop:
 587 
align 16
- 
 
 588 
	cur_dir_path rb 4096
- 
 
 589 
	file_name rb 4096
601 
	cur_dir_path rb 4096
 590 
	rb 4096