WebSVN – Kolibri OS – Diff – /programs/develop/libraries/TinyGL/asm_fork/examples/textures0.asm

 use32
 	org 0x0
 	db 'MENUET01'
-	dd 1,start,i_end
-	dd mem,stacktop
-	dd 0,cur_dir_path
+	dd 1,start,i_end,mem,stacktop,0,cur_dir_path
 include '../../../../../proc32.inc'
 include '../../../../../macros.inc'
-include '../../../../../KOSfuncs.inc'
-include '../../../../../develop/libraries/box_lib/load_lib.mac'
+include '../../../../../KOSfuncs.inc'
-include '../../../../../dll.inc'
+include '../../../../../load_img.inc'
 include '../opengl_const.inc'
 include '../../../../../develop/info3ds/info_fun_float.inc'
-@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
-struct FileInfoBlock
-	Function dd ?
-	Position dd ?
-	Flags	 dd ?
-	Count	 dd ?
-	Buffer	 dd ?
-		db ?
 	FileName dd ?
-ends
 @use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
 align 4
-open_b rb 560
-image_data_toolbar dd 0
-IMAGE_TOOLBAR_ICON_SIZE equ 21*21*3
-;макрос для загрузки изображений
-; path - может быть переменной или строковым параметром
-; buf - переменная куда будет записан указатель на изображение в формате rgb
-; img_w, img_h - переменные куда будут записаны размеры открываемого
-;    изображения, не обязательные параметры
-macro load_image_file path, buf, img_w, img_h
-{
-if path eqtype '' ;проверяем задан ли строкой параметр path
-	local .path_str
-	jmp @f
-		.path_str db path ;формируем локальную переменную
-		db 0
-	@@:
-	;32 - стандартный адрес по которому должен быть буфер с системным путем
-	copy_path .path_str,[32],file_name,0
-else
-	copy_path path,[32],file_name,0 ;формируем полный путь к файлу изображения, подразумеваем что он в одной папке с программой
-end if
-    mov [run_file_70.Function], SSF_GET_INFO
-    mov [run_file_70.Position], 0
-    mov [run_file_70.Flags], 0
-    mov dword[run_file_70.Count], 0
-    mov dword[run_file_70.Buffer], open_b
-    mov byte[run_file_70+20], 0
-    mov dword[run_file_70.FileName], file_name
-    mcall SF_FILE,run_file_70
-	or eax,eax
-	jnz @f
-    mov ecx,dword[open_b+32] ;+32 qword: размер файла в байтах
-    stdcall mem.Alloc,ecx ;выделяем память для изображения
-	mov [buf],eax
-	mov [run_file_70.Function], SSF_READ_FILE
-	mov [run_file_70.Position], 0
-	mov [run_file_70.Flags], 0
-	mov [run_file_70.Count], ecx
-	mov [run_file_70.Buffer], eax
-	mov byte[run_file_70+20], 0
-	mov [run_file_70.FileName], file_name
-	mcall SF_FILE,run_file_70 ;загружаем файл изображения
-	cmp ebx,0xffffffff
-	je @f
-		;определяем вид изображения и пишем его параметры
-		stdcall [img_decode], [buf],ebx,0
-		mov ebx,eax
-		;определяем размер декодированного изображения
-		mov ecx,[eax+4] ;+4 = image width
-if img_w eq
-else
-		mov dword[img_w],ecx
-end if
-if img_h eq
-		imul ecx,[eax+8] ;+8 = image height
-else
-		mov eax,[eax+8] ;+8 = image height
-		mov dword[img_h],eax
-		imul ecx,eax
-end if
-		imul ecx,3 ;need for r,g,b
-		stdcall mem.ReAlloc,[buf],ecx ;изменяем размер для буфера
-		mov [buf],eax
-		stdcall [img_to_rgb2], ebx,[buf] ;преобразуем изображение к формату rgb
-		stdcall [img_destroy], ebx ;удаляем временный буфер с параметрами изображения
+align 4
-	@@:
+image_data_toolbar dd 0
 IMAGE_TOOLBAR_ICON_SIZE equ 21*21*3
 	mov eax,dword[ctx1] ;eax -> TinyGLContext.GLContext
 	mov eax,[eax] ;eax -> ZBuffer
 	mov eax,[eax+offs_zbuf_pbuf] ;eax -> ZBuffer.pbuf
 	mov dword[buf_ogl],eax
-	load_image_file 'font8x9.bmp', image_data_toolbar
+	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 бит
 	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 ,(36 shl 16)+19,,4+0x40000000 ;куб
+	mcall ,(96 shl 16)+19,,6+0x40000000 ;масштаб -
 	mcall SF_PUT_IMAGE,[image_data_toolbar],(21 shl 16)+21,(5 shl 16)+5 ;сферы
+	add ebx,2*IMAGE_TOOLBAR_ICON_SIZE
+	mcall ,,,(35 shl 16)+5 ;куб
+	add ebx,IMAGE_TOOLBAR_ICON_SIZE
+	mcall ,,,(65 shl 16)+5 ;масштаб +
-	add ebx,2*IMAGE_TOOLBAR_ICON_SIZE
+	add ebx,IMAGE_TOOLBAR_ICON_SIZE
-	mcall ,,,(35 shl 16)+5 ;куб
+	mcall ,,,(95 shl 16)+5 ;масштаб -
 	stdcall [kosglSwapBuffers]
 	cmp ah,27 ;Esc
 	je button.exit
 	cmp ah,61 ;+
-	jne @f
-		finit
-		fld dword[scale]
-		fadd dword[delt_sc]
-		fst dword[scale]
-		mov word[NumberSymbolsAD],3
-		fstp qword[Data_Double]
+	jne @f
-		call DoubleFloat_to_String
-		mov byte[txt_scale.v],0
-		stdcall str_cat, txt_scale.v,Data_String
+		call but_zoom_p
-		call draw_3d
-		stdcall [kosglSwapBuffers]
+		jmp still
 	@@:
 	cmp ah,45 ;-
-	jne @f
-		finit
-		fld dword[scale]
-		fsub dword[delt_sc]
-		fst dword[scale]
-		mov word[NumberSymbolsAD],3
-		fstp qword[Data_Double]
+	jne @f
-		call DoubleFloat_to_String
-		mov byte[txt_scale.v],0
-		stdcall str_cat, txt_scale.v,Data_String
+		call but_zoom_m
-		call draw_3d
-		stdcall [kosglSwapBuffers]
+		jmp still
 	@@:
 	cmp ah,178 ;Up
 	jne @f
 		finit
 	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]
 	call draw_3d
 	stdcall [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
+	stdcall [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
+	stdcall [kosglSwapBuffers]
+	ret
 align 4
 caption db 'Test textures, [Esc] - exit, [<-],[->],[Up],[Down] - rotate',0
 align 4
 ctx1 db 28 dup (0) ;TinyGLContext or KOSGLContext
 TexObj dd 0 ;массив указателей на текстуры (в данном случае 1 шт.)
 texture dd 0 ;указатель на память с текстурой
 text_w dd 0
 text_h dd 0
+scale dd 0.4 ;начальный масштаб
-scale dd 0.4
+sc_delt dd 0.05 ;изменение масштаба при нажатии
+sc_min dd 0.1 ;минимальный масштаб
-delt_sc dd 0.05
+sc_max dd 1.1 ;максимальный масштаб
 angle_z dd 0.0
 angle_y dd 0.0
 delt_size dd 3.0
 	dd 0,24 ;+16 color,bit in pixel
 align 4
 buf_1:
 	dd 0 ;указатель на буфер изображения
-	dw 25,25 ;+4 left,top
+	dd 0 ;+4 left,top
-	dd 128,144 ;+8 w,h
+.w: dd 0
-	dd 0,24 ;+16 color,bit in pixel
+.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, library_path,  system_dir_0,\
+	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, library_path,  system_dir_1,\
+	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,\
 	sc system_colors
 align 16
 	rb 4096
 stacktop:
 	cur_dir_path rb 4096
-	library_path rb 4096
 	file_name rb 4096
 mem:

Subversion Repositories Kolibri OS

(root)/programs/develop/libraries/TinyGL/asm_fork/examples/textures0.asm – Rev 6189 → 6200