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 |