Subversion Repositories Kolibri OS

use32

	org 0

	db 'MENUET01'

	dd 1,start,i_end,mem,stacktop,0,cur_dir_path

include '../../../../../proc32.inc'

include '../../../../../macros.inc'

include '../../../../../KOSfuncs.inc'

include '../../../../../load_img.inc'

include '../opengl_const.inc'

include '../zbuffer.inc'

include '../../../../../develop/info3ds/info_fun_float.inc'

@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load

;Макрос для параметров типа double (8 байт)

macro glpush GLDoubleVar {

	push dword[GLDoubleVar+4]

	push dword[GLDoubleVar]

}

align 4

image_data_toolbar dd 0

IMAGE_TOOLBAR_ICON_SIZE equ 21*21*3

align 4

start:

load_libraries l_libs_start,l_libs_end

	;проверка на сколько удачно загузились библиотеки

	mov	ebp,lib_0

	.test_lib_open:

	cmp	dword [ebp+ll_struc_size-4],0

	jz	@f

		mcall SF_TERMINATE_PROCESS

	@@:

	add ebp,ll_struc_size

	cmp ebp,l_libs_end

	jl .test_lib_open

	mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.system_colors

	mcall SF_SET_EVENTS_MASK,0x27

	stdcall [kosglMakeCurrent], 5,30,[buf_ogl.w],[buf_ogl.h],ctx1

	stdcall [glEnable], GL_DEPTH_TEST

	stdcall [glEnable], GL_NORMALIZE ;делам нормали одинаковой величины во избежание артефактов

	call [gluNewQuadric]

	mov [qObj],eax

	stdcall [gluQuadricTexture], eax,GL_TRUE

	stdcall [glClearColor], 0.0,0.0,0.0,0.0

	stdcall [glShadeModel], GL_SMOOTH

	mov eax,dword[ctx1] ;eax -> TinyGLContext.GLContext

	mov eax,[eax] ;eax -> ZBuffer

	mov eax,[eax+ZBuffer.pbuf]

	mov dword[buf_ogl],eax

	load_image_file 'font8x9.bmp', image_data_toolbar, buf_1.w,buf_1.h

	stdcall [buf2d_create_f_img], buf_1,[image_data_toolbar] ;создаем буфер

	stdcall mem.Free,[image_data_toolbar] ;освобождаем память

	stdcall [buf2d_conv_24_to_8], buf_1,1 ;делаем буфер прозрачности 8 бит

	stdcall [buf2d_convert_text_matrix], buf_1

	load_image_file 'toolb_1.png', image_data_toolbar

	load_image_file 'text_2.png', texture, text_w,text_h ;открытие файла текстуры

	;* Setup texturing *

	stdcall [glTexEnvi], GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_DECAL

	;* generate texture object IDs *

	stdcall [glGenTextures], 1, TexObj

	stdcall [glBindTexture], GL_TEXTURE_2D, [TexObj]

	stdcall [glTexImage2D], GL_TEXTURE_2D, 0, 3, [text_w], [text_h],\

		0, GL_RGB, GL_UNSIGNED_BYTE, [texture]

	stdcall [glTexParameteri], GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST

	stdcall [glTexParameteri], GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST

	stdcall [glTexParameteri], GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT

	stdcall [glTexParameteri], GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT

	stdcall [glBindTexture], GL_TEXTURE_2D, [TexObj]

	stdcall [glEnable], GL_TEXTURE_2D

	call draw_3d

align 4

red_win:

	call draw_window

align 4

still:

	mcall SF_WAIT_EVENT

	cmp al,1

	jz red_win

	cmp al,2

	jz key

	cmp al,3

	jz button

	jmp still

align 4

draw_window:

	pushad

	mcall SF_REDRAW,SSF_BEGIN_DRAW

	mcall SF_CREATE_WINDOW,(50 shl 16)+420,(30 shl 16)+410,0x33ffffff,,caption

	mov esi,[sc.work_button]

	mcall SF_DEFINE_BUTTON,(6 shl 16)+19,(6 shl 16)+19,3+0x40000000 ;земля с меридиан.

	mcall ,(36 shl 16)+19,,4+0x40000000 ;земля

	mcall ,(66 shl 16)+19,,5+0x40000000 ;масштаб +

	mcall ,(96 shl 16)+19,,6+0x40000000 ;масштаб -

	mov ebx,[image_data_toolbar]

	add ebx,IMAGE_TOOLBAR_ICON_SIZE

	mcall SF_PUT_IMAGE,,(21 shl 16)+21,(5 shl 16)+5 ;земля с меридиан.

	add ebx,IMAGE_TOOLBAR_ICON_SIZE

	mcall ,,,(35 shl 16)+5 ;земля

	add ebx,IMAGE_TOOLBAR_ICON_SIZE

	mcall ,,,(65 shl 16)+5 ;масштаб +

	add ebx,IMAGE_TOOLBAR_ICON_SIZE

	mcall ,,,(95 shl 16)+5 ;масштаб -

	call [kosglSwapBuffers]

	mcall SF_REDRAW,SSF_END_DRAW

	popad

	ret

align 4

key:

	mcall SF_GET_KEY

	cmp ah,27 ;Esc

	je button.exit

	cmp ah,61 ;+

	jne @f

		call but_zoom_p

		jmp still

	@@:

	cmp ah,45 ;-

	jne @f

		call but_zoom_m

		jmp still

	@@:

	cmp ah,176 ;Left

	jne @f

		finit

		fld dword[angle_y]

		fadd dword[delt_size]

		fst dword[angle_y]

		mov word[NumberSymbolsAD],2

		fstp qword[Data_Double]

		call DoubleFloat_to_String

		mov byte[txt_angle_y.v],0

		stdcall str_cat, txt_angle_y.v,Data_String

		call draw_3d

		call [kosglSwapBuffers]

	@@:

	cmp ah,179 ;Right

	jne @f

		finit

		fld dword[angle_y]

		fsub dword[delt_size]

		fst dword[angle_y]

		mov word[NumberSymbolsAD],2

		fstp qword[Data_Double]

		call DoubleFloat_to_String

		mov byte[txt_angle_y.v],0

		stdcall str_cat, txt_angle_y.v,Data_String

		call draw_3d

		call [kosglSwapBuffers]

	@@:

	cmp ah,178 ;Up

	jne @f

		finit

		fld dword[angle_x]

		fadd dword[delt_size]

		fst dword[angle_x]

		mov word[NumberSymbolsAD],2

		fstp qword[Data_Double]

		call DoubleFloat_to_String

		mov byte[txt_angle_x.v],0

		stdcall str_cat, txt_angle_x.v,Data_String

		call draw_3d

		call [kosglSwapBuffers]

	@@:

	cmp ah,177 ;Down

	jne @f

		finit

		fld dword[angle_x]

		fsub dword[delt_size]

		fst dword[angle_x]

		mov word[NumberSymbolsAD],2

		fstp qword[Data_Double]

		call DoubleFloat_to_String

		mov byte[txt_angle_x.v],0

		stdcall str_cat, txt_angle_x.v,Data_String

		call draw_3d

		call [kosglSwapBuffers]

	@@:

	jmp still

align 4

button:

	mcall SF_GET_BUTTON

	cmp ah,3

	jne @f

		call but_dr_0

		jmp still

	@@:

	cmp ah,4

	jne @f

		call but_dr_1

		jmp still

	@@:

	cmp ah,5

	jne @f

		call but_zoom_p

		jmp still

	@@:

	cmp ah,6

	jne @f

		call but_zoom_m

		jmp still

	@@:

	cmp ah,1

	jne still

.exit:

	stdcall [gluDeleteQuadric], [qObj]

	stdcall mem.Free,[image_data_toolbar]

	mcall SF_TERMINATE_PROCESS

align 4

but_dr_0:

	mov dword[dr_figure],0

	call draw_3d

	call [kosglSwapBuffers]

	ret

align 4

but_dr_1:

	mov dword[dr_figure],1

	call draw_3d

	call [kosglSwapBuffers]

	ret

align 4

but_zoom_p:

	finit

	fld dword[scale]

	fadd dword[sc_delt]

	fcom dword[sc_max]

	fstsw ax

	sahf

	jbe @f

		ffree st0

		fincstp

		fld dword[sc_max]

	@@:

	fst dword[scale]

	mov word[NumberSymbolsAD],3

	fstp qword[Data_Double]

	call DoubleFloat_to_String

	mov byte[txt_scale.v],0

	stdcall str_cat, txt_scale.v,Data_String

	call draw_3d

	call [kosglSwapBuffers]

	ret

align 4

but_zoom_m:

	finit

	fld dword[scale]

	fsub dword[sc_delt]

	fcom dword[sc_min]

	fstsw ax

	sahf

	ja @f

		ffree st0

		fincstp

		fld dword[sc_min]

	@@:

	fst dword[scale]

	mov word[NumberSymbolsAD],3

	fstp qword[Data_Double]

	call DoubleFloat_to_String

	mov byte[txt_scale.v],0

	stdcall str_cat, txt_scale.v,Data_String

	call draw_3d

	call [kosglSwapBuffers]

	ret

align 4

caption db 'Test textures, [Esc] - exit, [<-],[->],[Up],[Down] - rotate',0

align 4

draw_3d:

stdcall [glClear], GL_COLOR_BUFFER_BIT + GL_DEPTH_BUFFER_BIT ;очистим буфер цвета и глубины

call [glPushMatrix]

	stdcall [glTranslatef], 0.0,0.0,0.5

	stdcall [glScalef], [scale], [scale], [scale]

	stdcall [glScalef], 1.0, 1.0, 0.1 ;прижимаем сферу, что-бы сразу не вылазила при увеличении

	stdcall [glRotatef], [angle_y],0.0,1.0,0.0

	stdcall [glRotatef], [angle_x],1.0,0.0,0.0

cmp dword[dr_figure],0

jne @f

	; рисование земли с меридианами

	stdcall [glColor3f], 0.0, 0.0, 1.0

	stdcall [gluQuadricDrawStyle], [qObj],GLU_LINE

	stdcall [gluSphere], [qObj], 1.0, 24,18 ;меридианы

	stdcall [gluQuadricDrawStyle], [qObj],GLU_FILL

	stdcall [gluSphere], [qObj], 0.995, 24,18 ;земля

@@:

cmp dword[dr_figure],1

jne @f

	; рисование земли

	stdcall [gluQuadricDrawStyle], [qObj],GLU_FILL

	stdcall [gluSphere], [qObj], 1.0, 64,64

@@:

call [glPopMatrix]

	stdcall [buf2d_draw_text], buf_ogl, buf_1,txt_scale,5,5,0xffff00

	stdcall [buf2d_draw_text], buf_ogl, buf_1,txt_angle_y,5,15,0xffff00

	stdcall [buf2d_draw_text], buf_ogl, buf_1,txt_angle_x,5,25,0xffff00

	ret

scale dd 0.95 ;начальный масштаб

sc_delt dd 0.05 ;изменение масштаба при нажатии

sc_min dd 0.1 ;минимальный масштаб

sc_max dd 5.0 ;максимальный масштаб

angle_z dd 0.0

angle_x dd 90.0

angle_y dd 0.0

delt_size dd 3.0

;--------------------------------------------------

align 4

import_lib_tinygl:

macro E_LIB n

{

	n dd sz_#n

}

include '../export.inc'

	dd 0,0

macro E_LIB n

{

	sz_#n db `n,0

}

include '../export.inc'

align 4

import_buf2d:

	dd sz_init0

	buf2d_create dd sz_buf2d_create

	buf2d_create_f_img dd sz_buf2d_create_f_img

	buf2d_clear dd sz_buf2d_clear

	buf2d_draw dd sz_buf2d_draw

	buf2d_delete dd sz_buf2d_delete

	buf2d_resize dd sz_buf2d_resize

	buf2d_line dd sz_buf2d_line

	buf2d_rect_by_size dd sz_buf2d_rect_by_size

	buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size

	buf2d_circle dd sz_buf2d_circle

	buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2

	buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2

	buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8

	buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32

	buf2d_bit_blt dd sz_buf2d_bit_blt

	buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp

	buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha

	buf2d_curve_bezier dd sz_buf2d_curve_bezier

	buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix

	buf2d_draw_text dd sz_buf2d_draw_text

	buf2d_crop_color dd sz_buf2d_crop_color

	buf2d_offset_h dd sz_buf2d_offset_h

	buf2d_flood_fill dd sz_buf2d_flood_fill

	buf2d_set_pixel dd sz_buf2d_set_pixel

	dd 0,0

	sz_init0 db 'lib_init',0

	sz_buf2d_create db 'buf2d_create',0

	sz_buf2d_create_f_img db 'buf2d_create_f_img',0

	sz_buf2d_clear db 'buf2d_clear',0

	sz_buf2d_draw db 'buf2d_draw',0

	sz_buf2d_delete db 'buf2d_delete',0

	sz_buf2d_resize db 'buf2d_resize',0

	sz_buf2d_line db 'buf2d_line',0

	sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0

	sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0

	sz_buf2d_circle db 'buf2d_circle',0

	sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0

	sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0

	sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0

	sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0

	sz_buf2d_bit_blt db 'buf2d_bit_blt',0

	sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0

	sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0

	sz_buf2d_curve_bezier db 'buf2d_curve_bezier',0

	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0

	sz_buf2d_draw_text db 'buf2d_draw_text',0

	sz_buf2d_crop_color db 'buf2d_crop_color',0

	sz_buf2d_offset_h db 'buf2d_offset_h',0

	sz_buf2d_flood_fill db 'buf2d_flood_fill',0

	sz_buf2d_set_pixel db 'buf2d_set_pixel',0

align 4

import_libimg:

	dd alib_init1

;	img_is_img  dd aimg_is_img

;	img_info    dd aimg_info

;	img_from_file dd aimg_from_file

;	img_to_file dd aimg_to_file

;	img_from_rgb dd aimg_from_rgb

;	img_to_rgb  dd aimg_to_rgb

	img_to_rgb2 dd aimg_to_rgb2

	img_decode  dd aimg_decode

;	img_encode  dd aimg_encode

;	img_create  dd aimg_create

	img_destroy dd aimg_destroy

;	img_destroy_layer dd aimg_destroy_layer

;	img_count   dd aimg_count

;	img_lock_bits dd aimg_lock_bits

;	img_unlock_bits dd aimg_unlock_bits

;	img_flip    dd aimg_flip

;	img_flip_layer dd aimg_flip_layer

;	img_rotate  dd aimg_rotate

;	img_rotate_layer dd aimg_rotate_layer

;	img_draw    dd aimg_draw

;	img_convert dd aimg_convert

	dd 0,0

	alib_init1   db 'lib_init',0

;	aimg_is_img  db 'img_is_img',0 ;определяет по данным, может ли библиотека сделать из них изображение

;	aimg_info    db 'img_info',0

;	aimg_from_file db 'img_from_file',0

;	aimg_to_file db 'img_to_file',0

;	aimg_from_rgb db 'img_from_rgb',0

;	aimg_to_rgb  db 'img_to_rgb',0 ;преобразование изображения в данные RGB

	aimg_to_rgb2 db 'img_to_rgb2',0

	aimg_decode  db 'img_decode',0 ;автоматически определяет формат графических данных

;	aimg_encode  db 'img_encode',0

;	aimg_create  db 'img_create',0

	aimg_destroy db 'img_destroy',0

;	aimg_destroy_layer db 'img_destroy_layer',0

;	aimg_count   db 'img_count',0

;	aimg_lock_bits db 'img_lock_bits',0

;	aimg_unlock_bits db 'img_unlock_bits',0

;	aimg_flip    db 'img_flip',0

;	aimg_flip_layer db 'img_flip_layer',0

;	aimg_rotate  db 'img_rotate',0

;	aimg_rotate_layer db 'img_rotate_layer',0

;	aimg_draw    db 'img_draw',0

;	aimg_convert db 'img_convert',0

;--------------------------------------------------

system_dir_0 db '/sys/lib/'

lib_name_0 db 'tinygl.obj',0

system_dir_1 db '/sys/lib/'

lib_name_1 db 'buf2d.obj',0

system_dir_2 db '/sys/lib/'

lib_name_2 db 'libimg.obj',0

err_msg_found_lib_0 db 'Sorry I cannot load library ',39,'tinygl.obj',39,'" -tE',0

err_msg_found_lib_1 db 'Sorry I cannot load library ',39,'buf2d.obj',39,'" -tE',0

err_msg_found_lib_2 db 'Sorry I cannot load library ',39,'libimg.obj',39,'" -tE',0

head_f_i:

head_f_l db '"System error',0

err_msg_import_0 db 'Error on load import library ',39,'tinygl.obj',39,'" -tE',0

err_msg_import_1 db 'Error on load import library ',39,'buf2d.obj',39,'" -tE',0

err_msg_import_2 db 'Error on load import library ',39,'libimg.obj',39,'" -tE',0

;--------------------------------------------------

txt_scale:

db 'Scale: '

.v:

db 0

rb 10

txt_angle_z:

db 'Rotate z: '

.v:

db 0

rb 10

txt_angle_x:

db 'Rotate x: '

.v:

db 0

rb 10

txt_angle_y:

db 'Rotate y: '

.v:

db 0

rb 10

align 4

buf_ogl:

	dd 0 ;указатель на буфер изображения

	dw 10,10 ;+4 left,top

.w: dd 400

.h: dd 350

	dd 0,24 ;+16 color,bit in pixel

align 4

buf_1:

	dd 0 ;указатель на буфер изображения

	dd 0 ;+4 left,top

.w: dd 0

.h: dd 0,0,24 ;+16 color,bit in pixel

align 4

l_libs_start:

	lib_0 l_libs lib_name_0, cur_dir_path, file_name,  system_dir_0,\

		err_msg_found_lib_0, head_f_l, import_lib_tinygl,err_msg_import_0,head_f_i

	lib_1 l_libs lib_name_1, cur_dir_path, file_name,  system_dir_1,\

		err_msg_found_lib_1, head_f_l, import_buf2d,  err_msg_import_1,head_f_i

	lib_2 l_libs lib_name_2, cur_dir_path, file_name, system_dir_2,\

		err_msg_found_lib_2, head_f_l, import_libimg, err_msg_import_2, head_f_i

l_libs_end:

align 4

i_end:

	ctx1 rb 28 ;sizeof.TinyGLContext = 28

	dr_figure dd 0

	qObj dd 0

	TexObj dd 0 ;массив указателей на текстуры (в данном случае 1 шт.)

	texture dd 0 ;указатель на память с текстурой

	text_w dd 0

	text_h dd 0

	run_file_70 FileInfoBlock

	sc system_colors

align 16

	rb 4096

stacktop:

	cur_dir_path rb 4096

	file_name rb 4096

mem: