/programs/develop/libraries/TinyGL/asm_fork/examples/gears.asm |
---|
130,13 → 130,13 |
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 |
/programs/develop/libraries/TinyGL/asm_fork/examples/test_glu2.asm |
---|
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 |
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 |
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 |
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 |
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 |
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 |
rb 4096 |
stacktop: |
cur_dir_path rb 4096 |
library_path rb 4096 |
file_name rb 4096 |
mem: |
/programs/develop/libraries/TinyGL/asm_fork/examples/textures0.asm |
---|
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 |
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 |
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 |
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 |
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: |
320,6 → 238,52 |
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 |
430,8 → 394,10 |
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 |
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 |
rb 4096 |
stacktop: |
cur_dir_path rb 4096 |
library_path rb 4096 |
file_name rb 4096 |
mem: |
/programs/develop/libraries/TinyGL/asm_fork/examples/textures1.asm |
---|
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 |
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 |
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 |
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 |
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 |
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 |
rb 4096 |
stacktop: |
cur_dir_path rb 4096 |
library_path rb 4096 |
file_name rb 4096 |
mem: |
/programs/develop/libraries/TinyGL/asm_fork/examples/textures2.asm |
---|
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 |
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 |
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 |
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 |
stdcall [kosglSwapBuffers] |
ret |
align 4 |
caption db 'Test textures, [Esc] - exit, [<-],[->],[Up],[Down] - rotate',0 |
align 4 |
351,8 → 288,10 |
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 |
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 |
rb 4096 |
stacktop: |
cur_dir_path rb 4096 |
library_path rb 4096 |
file_name rb 4096 |
mem: |
/programs/load_img.inc |
---|
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: |
} |