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'
Line 11... Line 11...
11
include '../opengl_const.inc'
11
include '../opengl_const.inc'
Line 12... Line 12...
12
 
12
 
13
@use_library
13
@use_library
14
 
14
 
15
align 4
-
 
16
start:
15
align 4
17
	load_library name_tgl, cur_dir_path, library_path, system_path, \
16
start:
Line 18... Line 17...
18
		err_message_found_lib, head_f_l, import_lib_tinygl, err_message_import, head_f_i
17
	load_library name_tgl, library_path, system_path, import_tinygl
Line 19... Line 18...
19
	cmp eax,SF_TERMINATE_PROCESS
18
	cmp eax,SF_TERMINATE_PROCESS
20
	jz button.exit
19
	jz button.exit
21
 
20
 
22
	mcall SF_SET_EVENTS_MASK,0x27
21
	mcall SF_SET_EVENTS_MASK,0x27
Line 23... Line 22...
23
 
22
 
Line 24... Line 23...
24
stdcall [kosglMakeCurrent], 10,10,300,225,ctx1
23
stdcall [kosglMakeCurrent], 10,10,300,225,ctx1
Line 168... Line 167...
168
angle_y dd 0.0
167
angle_y dd 0.0
169
delt_size dd 3.0
168
delt_size dd 3.0
Line 170... Line 169...
170
 
169
 
171
;--------------------------------------------------
170
;--------------------------------------------------
172
align 4
171
align 4
Line 173... Line 172...
173
import_lib_tinygl:
172
import_tinygl:
174
 
173
 
175
macro E_LIB n
174
macro E_LIB n
176
{
175
{
Line 185... Line 184...
185
include '../export.inc'
184
include '../export.inc'
Line 186... Line 185...
186
 
185
 
187
;--------------------------------------------------
186
;--------------------------------------------------
188
system_path db '/sys/lib/'
187
system_path db '/sys/lib/'
189
name_tgl db 'tinygl.obj',0
-
 
190
 
-
 
191
head_f_i:
-
 
192
head_f_l db '"System error',0
-
 
193
err_message_import db 'Error on load import library ',39,'tinygl.obj',39,'" -tE',0
-
 
194
err_message_found_lib db 'Sorry I cannot load library ',39,'tinygl.obj',39,'" -tE',0
188
name_tgl db 'tinygl.obj',0
Line 195... Line 189...
195
;--------------------------------------------------
189
;--------------------------------------------------
196
 
190
 
197
align 16
191
align 16
-
 
192
i_end:
198
i_end:
193
	ctx1 rb 28 ;sizeof.TinyGLContext = 28
199
ctx1 db 28 dup (0) ;TinyGLContext or KOSGLContext
194
cur_dir_path rb 4096
200
;sizeof.TinyGLContext = 28
195
library_path rb 4096
201
	rb 2048
-
 
202
stacktop:
-
 
203
cur_dir_path:
-
 
204
	rb 4096
-
 
205
library_path:
196
	rb 2048