Subversion Repositories Kolibri OS

Rev

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

Rev 5171 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 
 
Line 25... Line 22...
25 
	mcall 40,0x27
 22 
	mcall SF_SET_EVENTS_MASK,0x27
Line 61... Line 58...
61 
 
 58 
 
62 
align 4
 59 
align 4
63 
red_win:
 60 
red_win:
Line 64... Line 61...
64 
	call draw_window
 61 
	call draw_window
65 
 
 62 
 
66 
align 4
 63 
align 16
67 
still:
 64 
still:
68 
	mcall 10
 65 
	mcall SF_CHECK_EVENT
69 
	cmp al,1
 66 
	cmp al,1
70 
	jz red_win
 67 
	jz red_win
71 
	cmp al,2
 68 
	cmp al,2
Line 75... Line 72...
75 
	jmp still
 72 
	jmp still
Line 76... Line 73...
76 
 
 73 
 
77 
align 4
 74 
align 4
78 
draw_window:
 75 
draw_window:
79 
	pushad
 76 
	pushad
Line 80... Line 77...
80 
	mcall 12,1
 77 
	mcall SF_REDRAW,SSF_BEGIN_DRAW
81 
 
 78 
 
82 
	mov edx,0x33ffffff ;0x73ffffff
 79 
	mov edx,0x33ffffff ;0x73ffffff
Line 83... Line 80...
83 
	mcall 0,(50 shl 16)+330,(30 shl 16)+275,,,caption
 80 
	mcall SF_CREATE_WINDOW,(50 shl 16)+330,(30 shl 16)+275,,,caption
84 
	stdcall [kosglSwapBuffers]
 81 
	call [kosglSwapBuffers]
85 
 
 82 
 
Line 86... Line 83...
86 
	mcall 12,2
 83 
	mcall SF_REDRAW,SSF_END_DRAW
87 
	popad
 84 
	popad
88 
	ret
 85 
	ret
Line 89... Line 86...
89 
 
 86 
 
90 
align 4
 87 
align 4
Line 91... Line 88...
91 
key:
 88 
key:
Line 100... Line 97...
100 
	jne @f
 97 
	jne @f
101 
		fld dword[angle_z]
 98 
		fld dword[angle_z]
102 
		fadd dword[delt_size]
 99 
		fadd dword[delt_size]
103 
		fstp dword[angle_z]
 100 
		fstp dword[angle_z]
104 
		call draw_3d
 101 
		call draw_3d
105 
		stdcall [kosglSwapBuffers]
 102 
		call [kosglSwapBuffers]
106 
	@@:
 103 
	@@:
107 
	cmp ah,179 ;Right
 104 
	cmp ah,179 ;Right
108 
	jne @f
 105 
	jne @f
109 
		fld dword[angle_z]
 106 
		fld dword[angle_z]
110 
		fsub dword[delt_size]
 107 
		fsub dword[delt_size]
111 
		fstp dword[angle_z]
 108 
		fstp dword[angle_z]
112 
		call draw_3d
 109 
		call draw_3d
113 
		stdcall [kosglSwapBuffers]
 110 
		call [kosglSwapBuffers]
114 
	@@:
 111 
	@@:
Line 115... Line 112...
115 
 
 112 
 
Line 116... Line 113...
116 
	jmp still
 113 
	jmp still
117 
 
 114 
 
118 
align 4
 115 
align 4
119 
button:
 116 
button:
120 
	mcall 17
 117 
	mcall SF_GET_BUTTON
121 
	cmp ah,1
 118 
	cmp ah,1
122 
	jne still
 119 
	jne still
Line 123... Line 120...
123 
.exit:
 120 
.exit:
124 
	mcall -1
 121 
	mcall SF_TERMINATE_PROCESS
125 
 
 - 
 
126 
 
 - 
 
127 
align 4
 - 
 
Line 128... Line 122...
128 
caption db 'Test tinygl library, [Esc] - exit, [<-] and [->] - rotate',0
 122 
 
129 
align 4
 123 
 
130 
ctx1 db 28 dup (0) ;TinyGLContext or KOSGLContext
 124 
align 4
Line 131... Line 125...
131 
;sizeof.TinyGLContext = 28
 125 
caption db 'Test tinygl library, [Esc] - exit, [<-] and [->] - rotate',0
132 
 
 126 
 
133 
align 4
 127 
align 4
Line 134... Line 128...
134 
draw_3d:
 128 
draw_3d:
Line 165... Line 159...
165 
include '../export.inc'
 159 
include '../export.inc'
Line 166... Line 160...
166 
 
 160 
 
167 
;--------------------------------------------------
 161 
;--------------------------------------------------
168 
system_path db '/sys/lib/'
 162 
system_path db '/sys/lib/'
169 
name_tgl db 'tinygl.obj',0
 - 
 
- 
 
 163 
name_tgl db 'tinygl.obj',0
170 
err_message_found_lib db 'Sorry I cannot load library tinygl.obj',0
 164 
 
171 
head_f_i:
 165 
head_f_i:
172 
head_f_l db 'System error',0
 166 
head_f_l db '"System error',0
- 
 
 167 
err_message_import db 'Error on load import library ',39,'tinygl.obj',39,'" -tE',0
173 
err_message_import db 'Error on load import library tinygl.obj',0
 168 
err_message_found_lib db 'Sorry I cannot load library ',39,'tinygl.obj',39,'" -tE',0
Line -... Line 169...
- 
 
 169 
;--------------------------------------------------
174 
;--------------------------------------------------
 170 
 
- 
 
 171 
align 16
- 
 
 172 
i_end:
175 
 
 173 
ctx1 db 28 dup (0) ;TinyGLContext or KOSGLContext
176 
i_end:
 174 
;sizeof.TinyGLContext = 28
177 
	rb 1024
 175 
	rb 1024
178 
stacktop:
 176 
stacktop:
179 
cur_dir_path:
 177 
cur_dir_path: