Subversion Repositories Kolibri OS

Rev

Rev 5381 | Rev 8408 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5381 Rev 6287
Line 1... Line 1...
1 
use32
 1 
use32
2 
	org 0x0
 2 
	org 0x0
3 
	db 'MENUET01'
 3 
	db 'MENUET01'
4 
	dd 0x1
 - 
 
5 
	dd start
 - 
 
6 
	dd i_end
 - 
 
7 
	dd mem,stacktop
 - 
 
8 
	dd 0,cur_dir_path
 4 
	dd 1,start,i_end,mem,stacktop,0,cur_dir_path
Line 9... Line 5...
9 
 
 5 
 
10 
include '../../../../../proc32.inc'
 6 
include '../../../../../proc32.inc'
- 
 
 7 
include '../../../../../macros.inc'
11 
include '../../../../../macros.inc'
 8 
include '../../../../../KOSfuncs.inc'
12 
include '../../../../../develop/libraries/box_lib/load_lib.mac'
 9 
include '../../../../../develop/libraries/box_lib/load_lib.mac'
13 
include '../../../../../dll.inc'
 10 
include '../../../../../dll.inc'
Line 14... Line 11...
14 
include '../opengl_const.inc'
 11 
include '../opengl_const.inc'
Line 15... Line 12...
15 
 
 12 
 
16 
@use_library
 13 
@use_library
17 
 
 14 
 
18 
align 4
 15 
align 4
19 
start:
 16 
start:
20 
	load_library name_tgl, cur_dir_path, library_path, system_path, \
 17 
	load_library name_tgl, cur_dir_path, library_path, system_path, \
Line 21... Line 18...
21 
		err_message_found_lib, head_f_l, import_lib_tinygl, err_message_import, head_f_i
 18 
		err_message_found_lib, head_f_l, import_lib_tinygl, err_message_import, head_f_i
Line 22... Line 19...
22 
	cmp eax,-1
 19 
	cmp eax,SF_TERMINATE_PROCESS
23 
	jz button.exit
 20 
	jz button.exit
24 
 
 21 
 
25 
	mcall 40,0x27
 22 
	mcall SF_SET_EVENTS_MASK,0x27
Line 49... Line 46...
49 
red_win:
 46 
red_win:
50 
	call draw_window
 47 
	call draw_window
Line 51... Line 48...
51 
 
 48 
 
52 
align 4
 49 
align 4
53 
still:
 50 
still:
54 
	mcall 10
 51 
	mcall SF_WAIT_EVENT
55 
	cmp al,1
 52 
	cmp al,1
56 
	jz red_win
 53 
	jz red_win
57 
	cmp al,2
 54 
	cmp al,2
58 
	jz key
 55 
	jz key
Line 61... Line 58...
61 
	jmp still
 58 
	jmp still
Line 62... Line 59...
62 
 
 59 
 
63 
align 4
 60 
align 4
64 
draw_window:
 61 
draw_window:
65 
	pushad
 62 
	pushad
Line 66... Line 63...
66 
	mcall 12,1
 63 
	mcall SF_REDRAW,SSF_BEGIN_DRAW
67 
 
 64 
 
68 
	mov edx,0x33ffffff
 65 
	mov edx,0x33ffffff
Line 69... Line 66...
69 
	mcall 0,(50 shl 16)+430,(30 shl 16)+400,,,caption
 66 
	mcall SF_CREATE_WINDOW,(50 shl 16)+430,(30 shl 16)+400,,,caption
70 
	stdcall [kosglSwapBuffers]
 67 
	stdcall [kosglSwapBuffers]
71 
 
 68 
 
Line 72... Line 69...
72 
	mcall 12,2
 69 
	mcall SF_REDRAW,SSF_END_DRAW
73 
	popad
 70 
	popad
74 
	ret
 71 
	ret
Line 75... Line 72...
75 
 
 72 
 
76 
align 4
 73 
align 4
Line 77... Line 74...
77 
key:
 74 
key:
Line 131... Line 128...
131 
 
 128 
 
Line 132... Line 129...
132 
	jmp still
 129 
	jmp still
133 
 
 130 
 
134 
align 4
 131 
align 4
135 
button:
 132 
button:
136 
	mcall 17
 133 
	mcall SF_GET_BUTTON
137 
	cmp ah,1
 134 
	cmp ah,1
138 
	jne still
 135 
	jne still
Line 139... Line 136...
139 
.exit:
 136 
.exit:
140 
	mcall -1
 137 
	mcall SF_TERMINATE_PROCESS
141 
 
 138 
 
Line 177... Line 174...
177 
angle_x dd 0.0
 174 
angle_x dd 0.0
178 
delt_size dd 3.0
 175 
delt_size dd 3.0
Line 179... Line 176...
179 
 
 176 
 
180 
align 4
 177 
align 4
181 
house_3ds: ;внедряем файл внутрь программы (в идеальном случае должен открыватся через окно диалога, но для облегчения примера вшит внутрь)
 178 
house_3ds: ;внедряем файл внутрь программы (в идеальном случае должен открыватся через окно диалога, но для облегчения примера вшит внутрь)
182 
file '../../../../../demos/3DS/3ds_objects/house.3ds'
 179 
file '../../../../../demos/3DS/3ds_objects/House.3ds'
183 
align 4
 180 
align 4
Line 184... Line 181...
184 
Indices rb 0x1a6*6 ;0x1a6 - число граней, на каждую грань по 3 точки, индекс точки 2 байта
 181 
Indices rb 0x1a6*6 ;0x1a6 - число граней, на каждую грань по 3 точки, индекс точки 2 байта
185 
 
 182 
 
Line 200... Line 197...
200 
include '../export.inc'
 197 
include '../export.inc'
Line 201... Line 198...
201 
 
 198 
 
202 
;--------------------------------------------------
 199 
;--------------------------------------------------
203 
system_path db '/sys/lib/'
 200 
system_path db '/sys/lib/'
204 
name_tgl db 'tinygl.obj',0
 201 
name_tgl db 'tinygl.obj',0
205 
err_message_found_lib db 'Sorry I cannot load library tinygl.obj',0
 202 
err_message_found_lib db 'Sorry I cannot load library ',39,'tinygl.obj',39,0
206 
head_f_i:
 203 
head_f_i:
207 
head_f_l db 'System error',0
 204 
head_f_l db 'System error',0
208 
err_message_import db 'Error on load import library tinygl.obj',0
 205 
err_message_import db 'Error on load import library ',39,'tinygl.obj',39,0
Line 209... Line 206...
209 
;--------------------------------------------------
 206 
;--------------------------------------------------
210 
 
 207 
 
211 
i_end:
 208 
i_end: