Subversion Repositories Kolibri OS

Rev

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

Rev 5189 Rev 8062
Line 1... Line 1...
1 
use32
 1 
use32
2 
	org 0x0
 2 
	org 0
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
9 
 
 5 
 
10 
include '../../../../../../programs/proc32.inc'
 6 
include '../../../../../proc32.inc'
11 
include '../../../../../../programs/macros.inc'
 7 
include '../../../../../macros.inc'
- 
 
 8 
include '../../../../../KOSfuncs.inc'
12 
include '../../../../../../programs/develop/libraries/box_lib/load_lib.mac'
 9 
include '../../../../../develop/libraries/box_lib/load_lib.mac'
13 
include '../../../../../../programs/dll.inc'
 10 
include '../../../../../dll.inc'
14 
include '../opengl_const.inc'
 11 
include '../opengl_const.inc'
Line 15... Line 12...
15 
 
 12 
 
Line 16... Line 13...
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, \
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
Line 23... Line 20...
23 
	jz button.exit
 20 
	jz button.exit
24 
 
 21 
 
25 
	mcall 40,0x27
 22 
	mcall SF_SET_EVENTS_MASK,0x27
26 
 
 23 
 
Line 33... Line 30...
33 
 
 30 
 
34 
align 4
 31 
align 4
35 
red_win:
 32 
red_win:
Line 36... Line 33...
36 
	call draw_window
 33 
	call draw_window
37 
 
 34 
 
38 
align 4
 35 
align 16
39 
still:
 36 
still:
40 
	mcall 10
 37 
	mcall SF_CHECK_EVENT
41 
	cmp al,1
 38 
	cmp al,1
42 
	jz red_win
 39 
	jz red_win
43 
	cmp al,2
 40 
	cmp al,2
Line 47... Line 44...
47 
	jmp still
 44 
	jmp still
Line 48... Line 45...
48 
 
 45 
 
49 
align 4
 46 
align 4
50 
draw_window:
 47 
draw_window:
51 
	pushad
 48 
	pushad
Line 52... Line 49...
52 
	mcall 12,1
 49 
	mcall SF_REDRAW,SSF_BEGIN_DRAW
53 
 
 50 
 
54 
	mov edx,0x33ffffff ;0x73ffffff
 51 
	mov edx,0x33ffffff ;0x73ffffff
Line 55... Line 52...
55 
	mcall 0,(50 shl 16)+330,(30 shl 16)+275,,,caption
 52 
	mcall SF_CREATE_WINDOW,(50 shl 16)+330,(30 shl 16)+275,,,caption
56 
	stdcall [kosglSwapBuffers]
 53 
	call [kosglSwapBuffers]
57 
 
 54 
 
Line 58... Line 55...
58 
	mcall 12,2
 55 
	mcall SF_REDRAW,SSF_END_DRAW
59 
	popad
 56 
	popad
60 
	ret
 57 
	ret
Line 61... Line 58...
61 
 
 58 
 
62 
align 4
 59 
align 4
Line 63... Line 60...
63 
key:
 60 
key:
Line 72... Line 69...
72 
	jne @f
 69 
	jne @f
73 
		fld dword[angle_z]
 70 
		fld dword[angle_z]
74 
		fadd dword[delt_size]
 71 
		fadd dword[delt_size]
75 
		fstp dword[angle_z]
 72 
		fstp dword[angle_z]
76 
		call draw_3d
 73 
		call draw_3d
77 
		stdcall [kosglSwapBuffers]
 74 
		call [kosglSwapBuffers]
78 
	@@:
 75 
	@@:
79 
	cmp ah,179 ;Right
 76 
	cmp ah,179 ;Right
80 
	jne @f
 77 
	jne @f
81 
		fld dword[angle_z]
 78 
		fld dword[angle_z]
82 
		fsub dword[delt_size]
 79 
		fsub dword[delt_size]
83 
		fstp dword[angle_z]
 80 
		fstp dword[angle_z]
84 
		call draw_3d
 81 
		call draw_3d
85 
		stdcall [kosglSwapBuffers]
 82 
		call [kosglSwapBuffers]
86 
	@@:
 83 
	@@:
Line 87... Line 84...
87 
 
 84 
 
Line 88... Line 85...
88 
	jmp still
 85 
	jmp still
89 
 
 86 
 
90 
align 4
 87 
align 4
91 
button:
 88 
button:
92 
	mcall 17
 89 
	mcall SF_GET_BUTTON
93 
	cmp ah,1
 90 
	cmp ah,1
94 
	jne still
 91 
	jne still
Line 95... Line 92...
95 
.exit:
 92 
.exit:
96 
	mcall -1
 93 
	mcall SF_TERMINATE_PROCESS
97 
 
 - 
 
98 
 
 - 
 
99 
align 4
 - 
 
Line 100... Line 94...
100 
caption db 'Test tinygl library, [Esc] - exit, [<-] and [->] - rotate',0
 94 
 
101 
align 4
 95 
 
102 
ctx1 db 28 dup (0) ;TinyGLContext or KOSGLContext
 96 
align 4
Line 103... Line 97...
103 
;sizeof.TinyGLContext = 28
 97 
caption db 'Test tinygl library, [Esc] - exit, [<-] and [->] - rotate',0
104 
 
 98 
 
Line 105... Line 99...
105 
align 4
 99 
align 4
Line 106... Line 100...
106 
draw_3d:
 100 
draw_3d:
Line 157... Line 151...
157 
include '../export.inc'
 151 
include '../export.inc'
Line 158... Line 152...
158 
 
 152 
 
159 
;--------------------------------------------------
 153 
;--------------------------------------------------
160 
system_path db '/sys/lib/'
 154 
system_path db '/sys/lib/'
161 
name_tgl db 'tinygl.obj',0
 - 
 
- 
 
 155 
name_tgl db 'tinygl.obj',0
162 
err_message_found_lib db 'Sorry I cannot load library tinygl.obj',0
 156 
 
163 
head_f_i:
 157 
head_f_i:
164 
head_f_l db 'System error',0
 158 
head_f_l db '"System error',0
- 
 
 159 
err_message_import db 'Error on load import library ',39,'tinygl.obj',39,'" -tE',0
165 
err_message_import db 'Error on load import library tinygl.obj',0
 160 
err_message_found_lib db 'Sorry I cannot load library ',39,'tinygl.obj',39,'" -tE',0
Line -... Line 161...
- 
 
 161 
;--------------------------------------------------
166 
;--------------------------------------------------
 162 
 
- 
 
 163 
align 16
- 
 
 164 
i_end:
167 
 
 165 
ctx1 db 28 dup (0) ;TinyGLContext or KOSGLContext
168 
i_end:
 166 
;sizeof.TinyGLContext = 28
169 
	rb 1024
 167 
	rb 1024
170 
stacktop:
 168 
stacktop:
171 
cur_dir_path:
 169 
cur_dir_path: