Subversion Repositories Kolibri OS

Rev

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

Rev 8069 Rev 8408
Line 4... Line 4...
4 
	dd 1,start,i_end,mem,stacktop,0,cur_dir_path
 4 
	dd 1,start,i_end,mem,stacktop,0,cur_dir_path
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 '../../../../../develop/libraries/box_lib/load_lib.mac'
 9 
include '../../../../../load_lib.mac'
10 
include '../../../../../dll.inc'
 10 
include '../../../../../dll.inc'
11 
include '../opengl_const.inc'
 11 
include '../opengl_const.inc'
Line 12... Line 12...
12 
include 'fps.inc'
 12 
include 'fps.inc'
Line 16... Line 16...
16 
macro matr_cell c_funct,c_param,funct,param, dia
 16 
macro matr_cell c_funct,c_param,funct,param, dia
17 
{
 17 
{
18 
	dia dword[esp-4*(c_param*(c_funct-funct)+(1+c_param-param))]
 18 
	dia dword[esp-4*(c_param*(c_funct-funct)+(1+c_param-param))]
19 
}
 19 
}
Line 20... Line -...
20 
 
 - 
 
21 
;Так как некоторые извращенческие функции OpenGL воспринимают только параметры
 20 
 
22 
;типа double (8 байт) то придется пихать их в стек макросом glpush
 21 
;Макрос для параметров типа double (8 байт)
23 
macro glpush GLDoubleVar {
 22 
macro glpush GLDoubleVar {
24 
	push dword[GLDoubleVar+4]
 23 
	push dword[GLDoubleVar+4]
25 
	push dword[GLDoubleVar]
 24 
	push dword[GLDoubleVar]
Line 26... Line 25...
26 
}
 25 
}
27 
 
 26 
 
28 
align 4
 27 
align 4
29 
start:
 - 
 
30 
	load_library name_tgl, cur_dir_path, library_path, system_path, \
 28 
start:
31 
		err_message_found_lib, head_f_l, import_lib_tinygl, err_message_import, head_f_i
 29 
	load_library name_tgl, library_path, system_path, import_tinygl
Line 32... Line 30...
32 
	cmp eax,SF_TERMINATE_PROCESS
 30 
	cmp eax,SF_TERMINATE_PROCESS
Line 901... Line 899...
901 
 
 899 
 
902 
 
 900 
 
903 
 
 901 
 
Line 904... Line 902...
904 
;--------------------------------------------------
 902 
;--------------------------------------------------
905 
align 4
 903 
align 4
906 
import_lib_tinygl:
 904 
import_tinygl:
907 
 
 905 
 
Line 918... Line 916...
918 
include '../export.inc'
 916 
include '../export.inc'
Line 919... Line 917...
919 
 
 917 
 
920 
;--------------------------------------------------
 918 
;--------------------------------------------------
921 
system_path db '/sys/lib/'
 919 
system_path db '/sys/lib/'
922 
name_tgl db 'tinygl.obj',0
 - 
 
923 
 
 - 
 
924 
head_f_i:
 - 
 
925 
head_f_l db '"System error',0
 - 
 
926 
err_message_import db 'Error on load import library ',39,'tinygl.obj',39,'" -tE',0
 - 
 
927 
err_message_found_lib db 'Sorry I cannot load library ',39,'tinygl.obj',39,'" -tE',0
 920 
name_tgl db 'tinygl.obj',0
Line 928... Line 921...
928 
;--------------------------------------------------
 921 
;--------------------------------------------------
929 
 
 922 
 
930 
align 16
 923 
align 16
931 
i_end:
 924 
i_end:
932 
ctx1 db 28 dup (0) ;TinyGLContext or KOSGLContext
 925 
ctx1 db 28 dup (0) ;TinyGLContext or KOSGLContext
- 
 
 926 
;sizeof.TinyGLContext = 28
- 
 
 927 
procinfo process_information
933 
;sizeof.TinyGLContext = 28
 928 
cur_dir_path rb 4096
934 
procinfo process_information
929 
library_path rb 4096
935 
	rb 4096
 - 
 
936 
stacktop:
 - 
 
937 
cur_dir_path:
 - 
 
938 
	rb 4096
 - 
 
939 
library_path:
 930 
	rb 4096