add scale limits, optimize code

git-svn-id: svn://kolibrios.org@6200 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
IgorA 2016-02-12 20:31:07 +00:00
parent 2189324326
commit a97271f298
6 changed files with 271 additions and 399 deletions

View File

@ -130,13 +130,13 @@ draw_window:
pushad
mcall SF_REDRAW,SSF_BEGIN_DRAW
mcall SF_CREATE_WINDOW,(50 shl 16)+410,(30 shl 16)+425,0x33ffffff,,title1
mcall SF_CREATE_WINDOW,(50 shl 16)+410,(30 shl 16)+425,0x33404040,,title1
stdcall [kosglSwapBuffers]
;Title
mcall SF_DRAW_TEXT,(300 shl 16)+4,0x808080,fps, fps.end-fps
mcall SF_DRAW_TEXT,(8 shl 16)+4,0x808080,title3,title3.end-title3
;mcall SF_DRAW_TEXT,(180 shl 16)+4,0x808080,title2,title2.end-title2
mcall SF_DRAW_TEXT,(300 shl 16)+4,0xc0c0c0,fps, fps.end-fps
mcall SF_DRAW_TEXT,(8 shl 16)+4,0xc0c0c0,title3,title3.end-title3
;mcall SF_DRAW_TEXT,(180 shl 16)+4,0xc0c0c0,title2,title2.end-title2
mcall SF_REDRAW,SSF_END_DRAW
popad
@ -210,7 +210,7 @@ title2: db 'F full screen'
.end: db 0
title3: db 'ESC - exit'
.end: db 0
fps: db 'FPS:'
fps: db 'FPS:'
.end: db 0
align 4

View File

@ -1,101 +1,21 @@
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 '../../../../../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
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 ;удаляем временный буфер с параметрами изображения
@@:
}
offs_zbuf_pbuf equ 24 ;const. from 'zbuffer.inc'
align 4
@ -129,7 +49,7 @@ load_libraries l_libs_start,l_libs_end
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 бит
@ -317,7 +237,15 @@ align 4
but_zoom_p:
finit
fld dword[scale]
fadd dword[delt_sc]
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]
@ -332,7 +260,15 @@ align 4
but_zoom_m:
finit
fld dword[scale]
fsub dword[delt_sc]
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]
@ -399,8 +335,10 @@ ret
qObj dd 0
scale dd 0.4
delt_sc dd 0.05
scale dd 0.4 ;начальный масштаб
sc_delt dd 0.05 ;изменение масштаба при нажатии
sc_min dd 0.1 ;минимальный масштаб
sc_max dd 1.1 ;максимальный масштаб
angle_z dd 0.0
angle_y dd 0.0
delt_size dd 3.0
@ -576,15 +514,15 @@ buf_ogl:
align 4
buf_1:
dd 0 ;указатель на буфер изображения
dw 25,25 ;+4 left,top
dd 128,144 ;+8 w,h
dd 0,24 ;+16 color,bit in pixel
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, 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,\
err_msg_found_lib_2, head_f_l, import_libimg, err_msg_import_2, head_f_i
@ -598,6 +536,5 @@ align 16
rb 4096
stacktop:
cur_dir_path rb 4096
library_path rb 4096
file_name rb 4096
mem:

View File

@ -1,101 +1,21 @@
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 '../../../../../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
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 ;удаляем временный буфер с параметрами изображения
@@:
}
offs_zbuf_pbuf equ 24 ;const. from 'zbuffer.inc'
align 4
@ -130,7 +50,7 @@ load_libraries l_libs_start,l_libs_end
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 бит
@ -181,10 +101,16 @@ draw_window:
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 ;масштаб -
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,IMAGE_TOOLBAR_ICON_SIZE
mcall ,,,(95 shl 16)+5 ;масштаб -
stdcall [kosglSwapBuffers]
mcall SF_REDRAW,SSF_END_DRAW
@ -200,31 +126,13 @@ key:
cmp ah,61 ;+
jne @f
finit
fld dword[scale]
fadd dword[delt_sc]
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]
call but_zoom_p
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]
call DoubleFloat_to_String
mov byte[txt_scale.v],0
stdcall str_cat, txt_scale.v,Data_String
call draw_3d
stdcall [kosglSwapBuffers]
call but_zoom_m
jmp still
@@:
cmp ah,178 ;Up
jne @f
@ -298,6 +206,16 @@ button:
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:
@ -319,6 +237,52 @@ but_dr_1:
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
@ -430,8 +394,10 @@ texture dd 0 ;указатель на память с текстурой
text_w dd 0
text_h dd 0
scale dd 0.4
delt_sc dd 0.05
scale dd 0.4 ;начальный масштаб
sc_delt dd 0.05 ;изменение масштаба при нажатии
sc_min dd 0.1 ;минимальный масштаб
sc_max dd 1.1 ;максимальный масштаб
angle_z dd 0.0
angle_y dd 0.0
delt_size dd 3.0
@ -607,15 +573,15 @@ buf_ogl:
align 4
buf_1:
dd 0 ;указатель на буфер изображения
dw 25,25 ;+4 left,top
dd 128,144 ;+8 w,h
dd 0,24 ;+16 color,bit in pixel
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, 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,\
err_msg_found_lib_2, head_f_l, import_libimg, err_msg_import_2, head_f_i
@ -629,6 +595,5 @@ align 16
rb 4096
stacktop:
cur_dir_path rb 4096
library_path rb 4096
file_name rb 4096
mem:

View File

@ -1,101 +1,21 @@
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 '../../../../../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
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 ;удаляем временный буфер с параметрами изображения
@@:
}
offs_zbuf_pbuf equ 24 ;const. from 'zbuffer.inc'
align 4
@ -130,7 +50,7 @@ load_libraries l_libs_start,l_libs_end
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 бит
@ -323,7 +243,15 @@ align 4
but_zoom_p:
finit
fld dword[scale]
fadd dword[delt_sc]
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]
@ -338,7 +266,15 @@ align 4
but_zoom_m:
finit
fld dword[scale]
fsub dword[delt_sc]
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]
@ -395,8 +331,10 @@ texture dd 0 ;указатель на память с текстурой
text_w dd 0
text_h dd 0
scale dd 0.95
delt_sc dd 0.05
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
@ -571,17 +509,17 @@ buf_ogl:
align 4
buf_1:
dd 0 ;указатель на буфер изображения
dw 25,25 ;+4 left,top
dd 128,144 ;+8 w,h
dd 0,24 ;+16 color,bit in pixel
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, 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, library_path, system_dir_2,\
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:
@ -593,6 +531,5 @@ align 16
rb 4096
stacktop:
cur_dir_path rb 4096
library_path rb 4096
file_name rb 4096
mem:

View File

@ -1,101 +1,21 @@
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 '../../../../../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
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 ;удаляем временный буфер с параметрами изображения
@@:
}
offs_zbuf_pbuf equ 24 ;const. from 'zbuffer.inc'
align 4
@ -131,7 +51,7 @@ load_libraries l_libs_start,l_libs_end
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 бит
@ -294,7 +214,15 @@ align 4
but_zoom_p:
finit
fld dword[scale]
fadd dword[delt_sc]
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]
@ -309,7 +237,15 @@ align 4
but_zoom_m:
finit
fld dword[scale]
fsub dword[delt_sc]
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]
@ -320,6 +256,7 @@ but_zoom_m:
stdcall [kosglSwapBuffers]
ret
align 4
caption db 'Test textures, [Esc] - exit, [<-],[->],[Up],[Down] - rotate',0
align 4
@ -351,8 +288,10 @@ texture dd 0 ;указатель на память с текстурой
text_w dd 0
text_h dd 0
scale dd 1.5
delt_sc dd 0.05
scale dd 1.5 ;начальный масштаб
sc_delt dd 0.05 ;изменение масштаба при нажатии
sc_min dd 0.95 ;минимальный масштаб
sc_max dd 2.5 ;максимальный масштаб
angle_z dd 0.0
angle_x dd 90.0
angle_y dd 0.0
@ -527,17 +466,17 @@ buf_ogl:
align 4
buf_1:
dd 0 ;указатель на буфер изображения
dw 25,25 ;+4 left,top
dd 128,144 ;+8 w,h
dd 0,24 ;+16 color,bit in pixel
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, 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, library_path, system_dir_2,\
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:
@ -549,6 +488,5 @@ align 16
rb 4096
stacktop:
cur_dir_path rb 4096
library_path rb 4096
file_name rb 4096
mem:

95
programs/load_img.inc Normal file
View File

@ -0,0 +1,95 @@
;
; Макрос для загрузки изображений чрез функции библиотеки libimg.
; Действия которые делает макрос load_image_file:
;
; Проверяет размер полученного файла с изображением.
; Выделяет под него память и загружает туда файл.
; Определяет размер памяти необходимой для распаковки изображения.
; Перевыделяет память, и распаковывает изображение из форматов jpg, png, ...
; в формат rgb который можно выводить на экран через сист. функцию.
; При необходимости можно также получить размеры открываемого изображения для
; их дальнейшего использования в программе.
;
; В использующей программе должна быть подключена библиотека libimg,
; объявлена переменная file_name размером около 4096 байт,
; а также структура run_file_70 типа FileInfoBlock.
; подключение некоторых необходимых файлов:
include 'dll.inc'
include 'develop/libraries/box_lib/load_lib.mac'
include 'libio.inc'
align 4
open_b rb 560
; path - может быть переменной или строковым параметром
; buf - переменная куда будет записан указатель на изображение в формате rgb
; img_w, img_h - переменные куда будут записаны размеры открываемого
; изображения, не обязательные параметры
; bytes_p_p - сколько байт памяти брать на пиксель, не обязательный параметр
; если не указан берется 3. Минимальное значение должно быть не меньше 3.
macro load_image_file path, buf, img_w, img_h, bytes_p_p
{
local .end_open
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 .end_open
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 .end_open
;определяем вид изображения и пишем его параметры
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
if bytes_p_p eq
imul ecx,3 ;need for r,g,b
else
imul ecx,bytes_p_p
end if
stdcall mem.ReAlloc,[buf],ecx ;изменяем размер для буфера
mov [buf],eax
stdcall [img_to_rgb2], ebx,[buf] ;преобразуем изображение к формату rgb
stdcall [img_destroy], ebx ;удаляем временный буфер с параметрами изображения
.end_open:
}