1,5 → 1,5 |
use32 |
org 0x0 |
org 0 |
db 'MENUET01' |
dd 1,start,i_end,mem,stacktop,0,cur_dir_path |
|
114,7 → 114,7 |
add ebx,IMAGE_TOOLBAR_ICON_SIZE |
mcall ,,,(95 shl 16)+5 ;масштаб - |
|
stdcall [kosglSwapBuffers] |
call [kosglSwapBuffers] |
mcall SF_REDRAW,SSF_END_DRAW |
popad |
ret |
148,7 → 148,7 |
mov byte[txt_angle_y.v],0 |
stdcall str_cat, txt_angle_y.v,Data_String |
call draw_3d |
stdcall [kosglSwapBuffers] |
call [kosglSwapBuffers] |
@@: |
cmp ah,179 ;Right |
jne @f |
162,7 → 162,7 |
mov byte[txt_angle_y.v],0 |
stdcall str_cat, txt_angle_y.v,Data_String |
call draw_3d |
stdcall [kosglSwapBuffers] |
call [kosglSwapBuffers] |
@@: |
cmp ah,178 ;Up |
jne @f |
176,7 → 176,7 |
mov byte[txt_angle_x.v],0 |
stdcall str_cat, txt_angle_x.v,Data_String |
call draw_3d |
stdcall [kosglSwapBuffers] |
call [kosglSwapBuffers] |
@@: |
cmp ah,177 ;Down |
jne @f |
190,7 → 190,7 |
mov byte[txt_angle_x.v],0 |
stdcall str_cat, txt_angle_x.v,Data_String |
call draw_3d |
stdcall [kosglSwapBuffers] |
call [kosglSwapBuffers] |
@@: |
|
jmp still |
229,7 → 229,7 |
but_dr_0: |
mov dword[dr_figure],0 |
call draw_3d |
stdcall [kosglSwapBuffers] |
call [kosglSwapBuffers] |
ret |
|
align 4 |
236,7 → 236,7 |
but_dr_1: |
mov dword[dr_figure],1 |
call draw_3d |
stdcall [kosglSwapBuffers] |
call [kosglSwapBuffers] |
ret |
|
align 4 |
259,7 → 259,7 |
mov byte[txt_scale.v],0 |
stdcall str_cat, txt_scale.v,Data_String |
call draw_3d |
stdcall [kosglSwapBuffers] |
call [kosglSwapBuffers] |
ret |
|
align 4 |
282,14 → 282,11 |
mov byte[txt_scale.v],0 |
stdcall str_cat, txt_scale.v,Data_String |
call draw_3d |
stdcall [kosglSwapBuffers] |
call [kosglSwapBuffers] |
ret |
|
align 4 |
caption db 'Test textures, [Esc] - exit, [<-],[->],[Up],[Down] - rotate',0 |
align 4 |
ctx1 db 28 dup (0) ;TinyGLContext or KOSGLContext |
;sizeof.TinyGLContext = 28 |
|
align 4 |
draw_3d: |
324,13 → 321,6 |
stdcall [buf2d_draw_text], buf_ogl, buf_1,txt_angle_x,5,25,0xffff00 |
ret |
|
dr_figure dd 0 |
qObj dd 0 |
TexObj dd 0 ;массив указателей на текстуры (в данном случае 1 шт.) |
texture dd 0 ;указатель на память с текстурой |
text_w dd 0 |
text_h dd 0 |
|
scale dd 0.95 ;начальный масштаб |
sc_delt dd 0.05 ;изменение масштаба при нажатии |
sc_min dd 0.1 ;минимальный масштаб |
464,14 → 454,14 |
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,0 |
err_msg_found_lib_1 db 'Sorry I cannot load library ',39,'buf2d.obj',39,0 |
err_msg_found_lib_2 db 'Sorry I cannot load library ',39,'libimg.obj',39,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,0 |
err_msg_import_1 db 'Error on load import library ',39,'buf2d.obj',39,0 |
err_msg_import_2 db 'Error on load import library ',39,'libimg.obj',39,0 |
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: |
525,6 → 515,14 |
|
align 4 |
i_end: |
ctx1 db 28 dup (0) ;TinyGLContext or KOSGLContext |
;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 |