Subversion Repositories Kolibri OS

Rev

Rev 6145 | Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
6143 IgorA 1 
use32
2 
	org 0x0
3 
	db 'MENUET01'
4 
	dd 1,start,i_end
5 
	dd mem,stacktop
6 
	dd 0,cur_dir_path
7 
 
8 
include '../../../../../proc32.inc'
9 
include '../../../../../macros.inc'
10 
include '../../../../../KOSfuncs.inc'
11 
include '../../../../../develop/libraries/box_lib/load_lib.mac'
12 
include '../../../../../dll.inc'
13 
include '../opengl_const.inc'
14 
include '../../../../../develop/info3ds/info_fun_float.inc'
15 
 
16 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
17 
 
18 
struct FileInfoBlock
19 
	Function dd ?
20 
	Position dd ?
21 
	Flags	 dd ?
22 
	Count	 dd ?
23 
	Buffer	 dd ?
24 
		db ?
25 
	FileName dd ?
26 
ends
27 
 
28 
image_data dd 0 ;указатель на временную память, нужен для преобразования изображения
29 
image_data_toolbar dd 0
30 
IMAGE_FILE1_SIZE equ 128*144*3+54 ;размер файла с изображением
31 
IMAGE_TOOLBAR_ICON_SIZE equ 21*21*3
32 
IMAGE_TOOLBAR_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*3+54
33 
 
34 
macro load_image_file path,buf,size { ;макрос для загрузки изображений
35 
	;path - может быть переменной или строковым параметром
36 
	if path eqtype '' ;проверяем задан ли строкой параметр path
37 
		jmp @f
38 
			local .path_str
39 
			.path_str db path ;формируем локальную переменную
40 
			db 0
41 
		@@:
42 
		;32 - стандартный адрес по которому должен быть буфер с системным путем
43 
		copy_path .path_str,[32],file_name,0
44 
	else
45 
		copy_path path,[32],file_name,0 ;формируем полный путь к файлу изображения, подразумеваем что он в одной папке с программой
46 
	end if
47 
	stdcall mem.Alloc, dword size ;выделяем память для изображения
48 
	mov [buf],eax
49 
	mov [run_file_70.Function], SSF_READ_FILE
50 
	mov [run_file_70.Position], 0
51 
	mov [run_file_70.Flags], 0
52 
	mov [run_file_70.Count], dword size
53 
	mov [run_file_70.Buffer], eax
54 
	mov byte[run_file_70+20], 0
55 
	mov [run_file_70.FileName], file_name
56 
	mcall SF_FILE,run_file_70 ;загружаем файл изображения
57 
	cmp ebx,0xffffffff
58 
	je @f
59 
		;определяем вид изображения и переводим его во временный буфер image_data
60 
		stdcall dword[img_decode], dword[buf],ebx,0
61 
		mov dword[image_data],eax
62 
		;преобразуем изображение к формату rgb
63 
		stdcall dword[img_to_rgb2], dword[image_data],dword[buf]
64 
		;удаляем временный буфер image_data
65 
		stdcall dword[img_destroy], dword[image_data]
66 
	@@:
67 
}
68 
 
69 
offs_zbuf_pbuf equ 24 ;const. from 'zbuffer.inc'
70 
 
71 
align 4
72 
start:
73 
load_libraries l_libs_start,l_libs_end
74 
	;проверка на сколько удачно загузились библиотеки
75 
	mov	ebp,lib_0
76 
	.test_lib_open:
77 
	cmp	dword [ebp+ll_struc_size-4],0
78 
	jz	@f
79 
		mcall SF_TERMINATE_PROCESS
80 
	@@:
81 
	add ebp,ll_struc_size
82 
	cmp ebp,l_libs_end
83 
	jl .test_lib_open
84 
 
85 
	mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.sys_colors_new
86 
	mcall SF_SET_EVENTS_MASK,0x27
87 
 
88 
	stdcall [kosglMakeCurrent], 5,30,[buf_ogl.w],[buf_ogl.h],ctx1
89 
	stdcall [glEnable], GL_DEPTH_TEST
90 
	stdcall [glEnable], GL_NORMALIZE ;делам нормали одинаковой величины во избежание артефактов
91 
	stdcall [gluNewQuadric]
92 
	mov [qObj],eax
93 
	stdcall [gluQuadricTexture], eax,GL_TRUE
94 
 
95 
	stdcall [glClearColor], 0.0,0.0,0.0,0.0
96 
	stdcall [glShadeModel], GL_SMOOTH
97 
 
98 
	mov eax,dword[ctx1] ;eax -> TinyGLContext.GLContext
99 
	mov eax,[eax] ;eax -> ZBuffer
100 
	mov eax,[eax+offs_zbuf_pbuf] ;eax -> ZBuffer.pbuf
101 
	mov dword[buf_ogl],eax
102 
 
103 
	load_image_file 'font8x9.bmp', image_data_toolbar,IMAGE_FILE1_SIZE
104 
	stdcall [buf2d_create_f_img], buf_1,[image_data_toolbar] ;создаем буфер
105 
	stdcall mem.Free,[image_data_toolbar] ;освобождаем память
106 
	stdcall [buf2d_conv_24_to_8], buf_1,1 ;делаем буфер прозрачности 8 бит
107 
	stdcall [buf2d_convert_text_matrix], buf_1
108 
 
109 
	load_image_file 'toolb_1.png', image_data_toolbar,IMAGE_TOOLBAR_SIZE
110 
 
111 
	load_image_file 'text_2.png', texture, (256*256*3+54) ;открытие файла текстуры
112 
 
113 
	;* Setup texturing *
114 
	stdcall [glTexEnvi], GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_DECAL
115 
 
116 
	;* generate texture object IDs *
117 
	stdcall [glGenTextures], 1, TexObj
118 
	stdcall [glBindTexture], GL_TEXTURE_2D, [TexObj]
119 
	stdcall [glTexImage2D], GL_TEXTURE_2D, 0, 3, 256, 256, 0,  GL_RGB, GL_UNSIGNED_BYTE, [texture]
120 
 
121 
	stdcall [glTexParameteri], GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST
122 
	stdcall [glTexParameteri], GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST
123 
	stdcall [glTexParameteri], GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT
124 
	stdcall [glTexParameteri], GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT
125 
	stdcall [glBindTexture], GL_TEXTURE_2D, [TexObj]
126 
	stdcall [glEnable], GL_TEXTURE_2D
127 
 
128 
	call draw_3d
129 
 
130 
align 4
131 
red_win:
132 
	call draw_window
133 
 
134 
align 4
135 
still:
136 
	mcall SF_WAIT_EVENT
137 
	cmp al,1
138 
	jz red_win
139 
	cmp al,2
140 
	jz key
141 
	cmp al,3
142 
	jz button
143 
	jmp still
144 
 
145 
align 4
146 
draw_window:
147 
	pushad
148 
	mcall SF_REDRAW,SSF_BEGIN_DRAW
149 
	mcall SF_CREATE_WINDOW,(50 shl 16)+420,(30 shl 16)+410,0x33ffffff,,caption
150 
 
151 
	mov esi,[sc.work_button]
152 
	mcall SF_DEFINE_BUTTON,(6 shl 16)+19,(6 shl 16)+19,3+0x40000000 ;земля 1
153 
	mcall ,(36 shl 16)+19,,4+0x40000000 ;земля 2
154 
 
155 
	mcall SF_PUT_IMAGE,[image_data_toolbar],(21 shl 16)+21,(5 shl 16)+5 ;земля 1
156 
	;add ebx,2*IMAGE_TOOLBAR_ICON_SIZE
157 
	mcall ,,,(35 shl 16)+5 ;земля 2
158 
 
159 
	stdcall [kosglSwapBuffers]
160 
	mcall SF_REDRAW,SSF_END_DRAW
161 
	popad
162 
	ret
163 
 
164 
align 4
165 
key:
166 
	mcall SF_GET_KEY
167 
 
168 
	cmp ah,27 ;Esc
169 
	je button.exit
170 
 
171 
	cmp ah,61 ;+
172 
	jne @f
173 
		finit
174 
		fld dword[scale]
175 
		fadd dword[delt_sc]
176 
		fst dword[scale]
177 
		mov word[NumberSymbolsAD],3
178 
		fstp qword[Data_Double]
179 
		call DoubleFloat_to_String
180 
		mov byte[txt_scale.v],0
181 
		stdcall str_cat, txt_scale.v,Data_String
182 
		call draw_3d
183 
		stdcall [kosglSwapBuffers]
184 
	@@:
185 
	cmp ah,45 ;-
186 
	jne @f
187 
		finit
188 
		fld dword[scale]
189 
		fsub dword[delt_sc]
190 
		fst dword[scale]
191 
		mov word[NumberSymbolsAD],3
192 
		fstp qword[Data_Double]
193 
		call DoubleFloat_to_String
194 
		mov byte[txt_scale.v],0
195 
		stdcall str_cat, txt_scale.v,Data_String
196 
		call draw_3d
197 
		stdcall [kosglSwapBuffers]
198 
	@@:
199 
	cmp ah,176 ;Left
200 
	jne @f
201 
		finit
202 
		fld dword[angle_y]
203 
		fadd dword[delt_size]
204 
		fst dword[angle_y]
205 
		mov word[NumberSymbolsAD],2
206 
		fstp qword[Data_Double]
207 
		call DoubleFloat_to_String
208 
		mov byte[txt_angle_y.v],0
209 
		stdcall str_cat, txt_angle_y.v,Data_String
210 
		call draw_3d
211 
		stdcall [kosglSwapBuffers]
212 
	@@:
213 
	cmp ah,179 ;Right
214 
	jne @f
215 
		finit
216 
		fld dword[angle_y]
217 
		fsub dword[delt_size]
218 
		fst dword[angle_y]
219 
		mov word[NumberSymbolsAD],2
220 
		fstp qword[Data_Double]
221 
		call DoubleFloat_to_String
222 
		mov byte[txt_angle_y.v],0
223 
		stdcall str_cat, txt_angle_y.v,Data_String
224 
		call draw_3d
225 
		stdcall [kosglSwapBuffers]
226 
	@@:
227 
	cmp ah,178 ;Up
228 
	jne @f
229 
		finit
230 
		fld dword[angle_x]
231 
		fadd dword[delt_size]
232 
		fst dword[angle_x]
233 
		mov word[NumberSymbolsAD],2
234 
		fstp qword[Data_Double]
235 
		call DoubleFloat_to_String
236 
		mov byte[txt_angle_x.v],0
237 
		stdcall str_cat, txt_angle_x.v,Data_String
238 
		call draw_3d
239 
		stdcall [kosglSwapBuffers]
240 
	@@:
241 
	cmp ah,177 ;Down
242 
	jne @f
243 
		finit
244 
		fld dword[angle_x]
245 
		fsub dword[delt_size]
246 
		fst dword[angle_x]
247 
		mov word[NumberSymbolsAD],2
248 
		fstp qword[Data_Double]
249 
		call DoubleFloat_to_String
250 
		mov byte[txt_angle_x.v],0
251 
		stdcall str_cat, txt_angle_x.v,Data_String
252 
		call draw_3d
253 
		stdcall [kosglSwapBuffers]
254 
	@@:
255 
 
256 
	jmp still
257 
 
258 
align 4
259 
button:
260 
	mcall SF_GET_BUTTON
261 
	cmp ah,3
262 
	jne @f
263 
		call but_dr_0
264 
		jmp still
265 
	@@:
266 
	cmp ah,4
267 
	jne @f
268 
		call but_dr_1
269 
		jmp still
270 
	@@:
271 
	cmp ah,1
272 
	jne still
273 
.exit:
274 
	stdcall [gluDeleteQuadric], [qObj]
275 
	stdcall mem.Free,[image_data_toolbar]
276 
	mcall SF_TERMINATE_PROCESS
277 
 
278 
align 4
279 
but_dr_0:
280 
	mov dword[dr_figure],0
281 
	call draw_3d
282 
	stdcall [kosglSwapBuffers]
283 
	ret
284 
 
285 
align 4
286 
but_dr_1:
287 
	mov dword[dr_figure],1
288 
	call draw_3d
289 
	stdcall [kosglSwapBuffers]
290 
	ret
291 
 
292 
align 4
293 
caption db 'Test textures, [Esc] - exit, [<-],[->],[Up],[Down] - rotate',0
294 
align 4
295 
ctx1 db 28 dup (0) ;TinyGLContext or KOSGLContext
296 
;sizeof.TinyGLContext = 28
297 
 
298 
align 4
299 
draw_3d:
300 
stdcall [glClear], GL_COLOR_BUFFER_BIT + GL_DEPTH_BUFFER_BIT ;очистим буфер цвета и глубины
301 
 
302 
stdcall [glPushMatrix]
303 
	stdcall [glTranslatef], 0.0,0.0,0.5
304 
	stdcall [glScalef], [scale], [scale], [scale]
305 
	;stdcall [glRotatef], [angle_z],0.0,0.0,1.0
306 
	stdcall [glRotatef], [angle_y],0.0,1.0,0.0
307 
	stdcall [glRotatef], [angle_x],1.0,0.0,0.0
308 
 
309 
cmp dword[dr_figure],0
310 
jne @f
311 
	; рисование земли
312 
	stdcall [gluSphere], [qObj], 1.0, 16,16
313 
@@:
314 
cmp dword[dr_figure],1
315 
jne @f
316 
	; рисование земли
317 
	stdcall [gluSphere], [qObj], 1.0, 64,64
318 
@@:
319 
stdcall [glPopMatrix]
320 
 
321 
	stdcall [buf2d_draw_text], buf_ogl, buf_1,txt_scale,5,5,0xffff00
322 
	stdcall [buf2d_draw_text], buf_ogl, buf_1,txt_angle_y,5,15,0xffff00
323 
	stdcall [buf2d_draw_text], buf_ogl, buf_1,txt_angle_x,5,25,0xffff00
324 
	ret
325 
 
326 
dr_figure dd 0
327 
qObj dd 0
328 
TexObj dd 0 ;массив указателей на текстуры (в данном случае 1 шт.)
329 
texture dd 0 ;указатель на память с текстурой
330 
 
331 
scale dd 0.5
332 
delt_sc dd 0.05
333 
angle_z dd 0.0
334 
angle_x dd 90.0
335 
angle_y dd 225.0
336 
delt_size dd 3.0
337 
 
338 
;--------------------------------------------------
339 
align 4
340 
import_lib_tinygl:
341 
 
342 
macro E_LIB n
343 
{
344 
	n dd sz_#n
345 
}
346 
include '../export.inc'
347 
	dd 0,0
348 
macro E_LIB n
349 
{
350 
	sz_#n db `n,0
351 
}
352 
include '../export.inc'
353 
 
354 
align 4
355 
import_buf2d:
356 
	dd sz_init0
357 
	buf2d_create dd sz_buf2d_create
358 
	buf2d_create_f_img dd sz_buf2d_create_f_img
359 
	buf2d_clear dd sz_buf2d_clear
360 
	buf2d_draw dd sz_buf2d_draw
361 
	buf2d_delete dd sz_buf2d_delete
362 
	buf2d_resize dd sz_buf2d_resize
363 
	buf2d_line dd sz_buf2d_line
364 
	buf2d_rect_by_size dd sz_buf2d_rect_by_size
365 
	buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size
366 
	buf2d_circle dd sz_buf2d_circle
367 
	buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2
368 
	buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2
369 
	buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8
370 
	buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32
371 
	buf2d_bit_blt dd sz_buf2d_bit_blt
372 
	buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp
373 
	buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha
374 
	buf2d_curve_bezier dd sz_buf2d_curve_bezier
375 
	buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix
376 
	buf2d_draw_text dd sz_buf2d_draw_text
377 
	buf2d_crop_color dd sz_buf2d_crop_color
378 
	buf2d_offset_h dd sz_buf2d_offset_h
379 
	buf2d_flood_fill dd sz_buf2d_flood_fill
380 
	buf2d_set_pixel dd sz_buf2d_set_pixel
381 
	dd 0,0
382 
	sz_init0 db 'lib_init',0
383 
	sz_buf2d_create db 'buf2d_create',0
384 
	sz_buf2d_create_f_img db 'buf2d_create_f_img',0
385 
	sz_buf2d_clear db 'buf2d_clear',0
386 
	sz_buf2d_draw db 'buf2d_draw',0
387 
	sz_buf2d_delete db 'buf2d_delete',0
388 
	sz_buf2d_resize db 'buf2d_resize',0
389 
	sz_buf2d_line db 'buf2d_line',0
390 
	sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0
391 
	sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0
392 
	sz_buf2d_circle db 'buf2d_circle',0
393 
	sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0
394 
	sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0
395 
	sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0
396 
	sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0
397 
	sz_buf2d_bit_blt db 'buf2d_bit_blt',0
398 
	sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0
399 
	sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0
400 
	sz_buf2d_curve_bezier db 'buf2d_curve_bezier',0
401 
	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
402 
	sz_buf2d_draw_text db 'buf2d_draw_text',0
403 
	sz_buf2d_crop_color db 'buf2d_crop_color',0
404 
	sz_buf2d_offset_h db 'buf2d_offset_h',0
405 
	sz_buf2d_flood_fill db 'buf2d_flood_fill',0
406 
	sz_buf2d_set_pixel db 'buf2d_set_pixel',0
407 
 
408 
align 4
409 
import_libimg:
410 
	dd alib_init1
411 
	img_is_img  dd aimg_is_img
412 
	img_info    dd aimg_info
413 
	img_from_file dd aimg_from_file
414 
	img_to_file dd aimg_to_file
415 
	img_from_rgb dd aimg_from_rgb
416 
	img_to_rgb  dd aimg_to_rgb
417 
	img_to_rgb2 dd aimg_to_rgb2
418 
	img_decode  dd aimg_decode
419 
	img_encode  dd aimg_encode
420 
	img_create  dd aimg_create
421 
	img_destroy dd aimg_destroy
422 
	img_destroy_layer dd aimg_destroy_layer
423 
	img_count   dd aimg_count
424 
	img_lock_bits dd aimg_lock_bits
425 
	img_unlock_bits dd aimg_unlock_bits
426 
	img_flip    dd aimg_flip
427 
	img_flip_layer dd aimg_flip_layer
428 
	img_rotate  dd aimg_rotate
429 
	img_rotate_layer dd aimg_rotate_layer
430 
	img_draw    dd aimg_draw
431 
 
432 
	dd 0,0
433 
	alib_init1   db 'lib_init',0
434 
	aimg_is_img  db 'img_is_img',0 ;определяет по данным, может ли библиотека сделать из них изображение
435 
	aimg_info    db 'img_info',0
436 
	aimg_from_file db 'img_from_file',0
437 
	aimg_to_file db 'img_to_file',0
438 
	aimg_from_rgb db 'img_from_rgb',0
439 
	aimg_to_rgb  db 'img_to_rgb',0 ;преобразование изображения в данные RGB
440 
	aimg_to_rgb2 db 'img_to_rgb2',0
441 
	aimg_decode  db 'img_decode',0 ;автоматически определяет формат графических данных
442 
	aimg_encode  db 'img_encode',0
443 
	aimg_create  db 'img_create',0
444 
	aimg_destroy db 'img_destroy',0
445 
	aimg_destroy_layer db 'img_destroy_layer',0
446 
	aimg_count   db 'img_count',0
447 
	aimg_lock_bits db 'img_lock_bits',0
448 
	aimg_unlock_bits db 'img_unlock_bits',0
449 
	aimg_flip    db 'img_flip',0
450 
	aimg_flip_layer db 'img_flip_layer',0
451 
	aimg_rotate  db 'img_rotate',0
452 
	aimg_rotate_layer db 'img_rotate_layer',0
453 
	aimg_draw    db 'img_draw',0
454 
 
455 
;--------------------------------------------------
456 
system_dir_0 db '/sys/lib/'
457 
lib_name_0 db 'tinygl.obj',0
458 
system_dir_1 db '/sys/lib/'
459 
lib_name_1 db 'buf2d.obj',0
460 
system_dir_2 db '/sys/lib/'
461 
lib_name_2 db 'libimg.obj',0
462 
err_msg_found_lib_0 db 'Sorry I cannot load library ',39,'tinygl.obj',39,0
463 
err_msg_found_lib_1 db 'Sorry I cannot load library ',39,'buf2d.obj',39,0
464 
err_msg_found_lib_2 db 'Sorry I cannot load library ',39,'libimg.obj',39,0
465 
head_f_i:
466 
head_f_l db 'System error',0
467 
err_msg_import_0 db 'Error on load import library ',39,'tinygl.obj',39,0
468 
err_msg_import_1 db 'Error on load import library ',39,'buf2d.obj',39,0
469 
err_msg_import_2 db 'Error on load import library ',39,'libimg.obj',39,0
470 
;--------------------------------------------------
471 
 
472 
txt_scale:
473 
db 'Scale: '
474 
.v:
475 
db 0
476 
rb 10
477 
 
478 
txt_angle_z:
479 
db 'Rotate z: '
480 
.v:
481 
db 0
482 
rb 10
483 
 
484 
txt_angle_x:
485 
db 'Rotate x: '
486 
.v:
487 
db 0
488 
rb 10
489 
 
490 
txt_angle_y:
491 
db 'Rotate y: '
492 
.v:
493 
db 0
494 
rb 10
495 
 
496 
align 4
497 
buf_ogl:
498 
	dd 0 ;указатель на буфер изображения
499 
	dw 10,10 ;+4 left,top
500 
.w: dd 400
501 
.h: dd 350
502 
	dd 0,24 ;+16 color,bit in pixel
503 
 
504 
align 4
505 
buf_1:
506 
	dd 0 ;указатель на буфер изображения
507 
	dw 25,25 ;+4 left,top
508 
	dd 128,144 ;+8 w,h
509 
	dd 0,24 ;+16 color,bit in pixel
510 
 
511 
align 4
512 
l_libs_start:
513 
	lib_0 l_libs lib_name_0, cur_dir_path, library_path,  system_dir_0,\
514 
		err_msg_found_lib_0, head_f_l, import_lib_tinygl,err_msg_import_0,head_f_i
515 
	lib_1 l_libs lib_name_1, cur_dir_path, library_path,  system_dir_1,\
516 
		err_msg_found_lib_1, head_f_l, import_buf2d,  err_msg_import_1,head_f_i
517 
	lib_2 l_libs lib_name_2, cur_dir_path, file_name, system_dir_2,\
518 
		err_msg_found_lib_2, head_f_l, import_libimg, err_msg_import_2, head_f_i
519 
l_libs_end:
520 
 
521 
align 4
522 
i_end:
523 
	run_file_70 FileInfoBlock
524 
	sc system_colors
525 
		rb sizeof.sys_colors_new-sizeof.system_colors
526 
align 16
527 
	rb 4096
528 
stacktop:
529 
	cur_dir_path rb 4096
530 
	library_path rb 4096
531 
	file_name rb 4096
532 
mem: