WebSVN – Kolibri OS – Path Comparison – / – /programs/develop Rev 6189 and /programs/develop Rev 6188

Regard whitespace Rev 6189 → Rev 6188

/programs/develop/libraries/TinyGL/asm_fork/image_util.asm
File deleted
\ No newline at end of file

/programs/develop/libraries/TinyGL/asm_fork/examples/textures2.asm
File deleted

/programs/develop/libraries/TinyGL/asm_fork/examples/text_3.png
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Deleted: svn:mime-type
-application/octet-stream
\ No newline at end of property

 /programs/develop/libraries/TinyGL/asm_fork/examples/build.bat
 ,41 → 1,3
-if not exist bin mkdir bin
-@copy *.png bin\*.png
-if not exist bin\font8x9.bmp @copy ..\..\..\..\..\fs\kfar\trunk\font8x9.bmp bin\font8x9.bmp
-if not exist bin\tinygl.obj @fasm.exe -m 16384 ..\tinygl.asm bin\tinygl.obj
-@fasm.exe -m 16384 test0.asm bin\test0.kex
-@fasm.exe -m 16384 test1.asm bin\test1.kex
-@fasm.exe -m 16384 test2.asm bin\test2.kex
-@fasm.exe -m 16384 test3.asm bin\test3.kex
-@fasm.exe -m 16384 test_array0.asm bin\test_array0.kex
-@fasm.exe -m 16384 test_array1.asm bin\test_array1.kex
-@fasm.exe -m 16384 test_glu0.asm bin\test_glu0.kex
-@fasm.exe -m 16384 test_glu1.asm bin\test_glu1.kex
-@fasm.exe -m 16384 test_glu2.asm bin\test_glu2.kex
-@fasm.exe -m 16384 gears.asm bin\gears.kex
-@fasm.exe -m 16384 textures0.asm bin\textures0.kex
-@fasm.exe -m 16384 textures1.asm bin\textures1.kex
-@fasm.exe -m 16384 textures2.asm bin\textures2.kex
-@kpack bin\test0.kex
-@kpack bin\test1.kex
-@kpack bin\test2.kex
-@kpack bin\test3.kex
-@kpack bin\test_array0.kex
-@kpack bin\test_array1.kex
-@kpack bin\test_glu0.kex
-@kpack bin\test_glu1.kex
-@kpack bin\test_glu2.kex
-@kpack bin\gears.kex
-@kpack bin\textures0.kex
-@kpack bin\textures1.kex
-@kpack bin\textures2.kex
+@fasm.exe test_glu2.asm test_glu2
+@FASM.exe textures0.asm textures0
 pause

 /programs/develop/libraries/TinyGL/asm_fork/examples/test_glu2.asm
 ,21 → 25,17
         FileName dd ?
 ends
-align 4
-open_b rb 560
+image_data dd 0 ;указатель на временную память, нужен для преобразования изображения
 image_data_toolbar dd 0
+IMAGE_FILE1_SIZE equ 128*144*3+54 ;размер файла с изображением
 IMAGE_TOOLBAR_ICON_SIZE equ 21*21*3
+IMAGE_TOOLBAR_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*3+54
-;макрос для загрузки изображений
+macro load_image_file path,buf,size { ;макрос для загрузки изображений
 ; path - может быть переменной или строковым параметром
-; buf - переменная куда будет записан указатель на изображение в формате rgb
-; img_w, img_h - переменные куда будут записаны размеры открываемого
-;    изображения, не обязательные параметры
-macro load_image_file path, buf, img_w, img_h
-{
 if path eqtype '' ;проверяем задан ли строкой параметр path
+                jmp @f
         local .path_str
-        jmp @f
                 .path_str db path ;формируем локальную переменную
                 db 0
         @@:
 ,24 → 44,12
 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 ;выделяем память для изображения
+        stdcall mem.Alloc, dword size ;выделяем память для изображения
         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.Count], dword size
         mov [run_file_70.Buffer], eax
         mov byte[run_file_70+20], 0
         mov [run_file_70.FileName], file_name
 ,27 → 56,13
         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 ;удаляем временный буфер с параметрами изображения
+                ;определяем вид изображения и переводим его во временный буфер image_data
+                stdcall dword[img_decode], dword[buf],ebx,0
+                mov dword[image_data],eax
+                ;преобразуем изображение к формату rgb
+                stdcall dword[img_to_rgb2], dword[image_data],dword[buf]
+                ;удаляем временный буфер image_data
+                stdcall dword[img_destroy], dword[image_data]
         @@:
 }
 ,13 → 99,13
         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,IMAGE_FILE1_SIZE
         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 'toolb_1.png', image_data_toolbar,IMAGE_TOOLBAR_SIZE
         call draw_3d
 align 4
 ,8 → 133,6
         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 ,(126 shl 16)+19,,7+0x40000000 ;масштаб -
         mcall SF_PUT_IMAGE,[image_data_toolbar],(21 shl 16)+21,(5 shl 16)+5 ;вершины вкл.
         add ebx,IMAGE_TOOLBAR_ICON_SIZE
 ,10 → 139,6
         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 ;масштаб +
-        add ebx,IMAGE_TOOLBAR_ICON_SIZE
-        mcall ,,,(125 shl 16)+5 ;масштаб -
         stdcall [kosglSwapBuffers]
         mcall SF_REDRAW,SSF_END_DRAW
 ,13 → 154,31
         cmp ah,61 ;+
         jne @f
-                call but_zoom_p
-                jmp still
+                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]
         @@:
         cmp ah,45 ;-
         jne @f
-                call but_zoom_m
-                jmp still
+                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]
         @@:
         cmp ah,178 ;Up
         jne @f
 ,16 → 257,6
                 call but_st_face
                 jmp still
         @@:
-        cmp ah,6
-        jne @f
-                call but_zoom_p
-                jmp still
-        @@:
-        cmp ah,7
-        jne @f
-                call but_zoom_m
-                jmp still
-        @@:
         cmp ah,1
         jne still
 .exit:
 ,38 → 285,8
         stdcall [kosglSwapBuffers]
         ret
-align 4
-but_zoom_p:
-        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]
-        ret
 align 4
-but_zoom_m:
-        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]
-        ret
-align 4
 caption db 'Test gluSphere, [Esc] - exit, [<-],[->],[Up],[Down] - rotate',0
 align 4
 ctx1 db 28 dup (0) ;TinyGLContext or KOSGLContext

 /programs/develop/libraries/TinyGL/asm_fork/examples/textures0.asm
 ,21 → 25,17
         FileName dd ?
 ends
-align 4
-open_b rb 560
+image_data dd 0 ;указатель на временную память, нужен для преобразования изображения
 image_data_toolbar dd 0
+IMAGE_FILE1_SIZE equ 128*144*3+54 ;размер файла с изображением
 IMAGE_TOOLBAR_ICON_SIZE equ 21*21*3
+IMAGE_TOOLBAR_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*3+54
-;макрос для загрузки изображений
+macro load_image_file path,buf,size { ;макрос для загрузки изображений
 ; path - может быть переменной или строковым параметром
-; buf - переменная куда будет записан указатель на изображение в формате rgb
-; img_w, img_h - переменные куда будут записаны размеры открываемого
-;    изображения, не обязательные параметры
-macro load_image_file path, buf, img_w, img_h
-{
 if path eqtype '' ;проверяем задан ли строкой параметр path
+                jmp @f
         local .path_str
-        jmp @f
                 .path_str db path ;формируем локальную переменную
                 db 0
         @@:
 ,24 → 44,12
 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 ;выделяем память для изображения
+        stdcall mem.Alloc, dword size ;выделяем память для изображения
         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.Count], dword size
         mov [run_file_70.Buffer], eax
         mov byte[run_file_70+20], 0
         mov [run_file_70.FileName], file_name
 ,27 → 56,13
         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 ;удаляем временный буфер с параметрами изображения
+                ;определяем вид изображения и переводим его во временный буфер image_data
+                stdcall dword[img_decode], dword[buf],ebx,0
+                mov dword[image_data],eax
+                ;преобразуем изображение к формату rgb
+                stdcall dword[img_to_rgb2], dword[image_data],dword[buf]
+                ;удаляем временный буфер image_data
+                stdcall dword[img_destroy], dword[image_data]
         @@:
 }
 ,23 → 100,24
         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,IMAGE_FILE1_SIZE
         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_1.png', texture, text_w,text_h ;открытие файла текстуры
+        load_image_file 'toolb_1.png', image_data_toolbar,IMAGE_TOOLBAR_SIZE
+        load_image_file 'text_1.png', texture, (256*256*3+54) ;открытие файла текстуры
         ;* Setup texturing *
         stdcall [glTexEnvi], GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_DECAL
+        stdcall [glHint], GL_PERSPECTIVE_CORRECTION_HINT, GL_FASTEST
         ;* 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],\
-, GL_RGB, GL_UNSIGNED_BYTE, [texture]
+        stdcall [glTexImage2D], GL_TEXTURE_2D, 0, 3, 256, 256, 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
 ,6 → 301,8
 stdcall [glClear], GL_COLOR_BUFFER_BIT + GL_DEPTH_BUFFER_BIT ;очистим буфер цвета и глубины
 stdcall [glPushMatrix]
+        call SetLight
         stdcall [glTranslatef], 0.0,0.0,0.5
         stdcall [glScalef], [scale], [scale], [scale]
         stdcall [glRotatef], [angle_z],0.0,0.0,1.0
 ,12 → 396,28
         stdcall [buf2d_draw_text], buf_ogl, buf_1,txt_angle_y,5,25,0xffff00
         ret
+align 4
+SetLight:
+        stdcall [glLightfv], GL_LIGHT0, GL_POSITION, light_position
+        stdcall [glLightfv], GL_LIGHT0, GL_SPOT_DIRECTION, light_dir
+        stdcall [glLightfv], GL_LIGHT0, GL_DIFFUSE, white_light
+        stdcall [glLightfv], GL_LIGHT0, GL_SPECULAR, white_light
+        stdcall [glEnable], GL_COLOR_MATERIAL
+        stdcall [glColorMaterial], GL_FRONT, GL_AMBIENT_AND_DIFFUSE
+        stdcall [glMaterialfv], GL_FRONT, GL_SPECULAR, mat_specular
+        ;stdcall [glMaterialf], GL_FRONT, GL_SHININESS, [mat_shininess]
+        stdcall [glLightModelfv], GL_LIGHT_MODEL_AMBIENT, lmodel_ambient
+        stdcall [glEnable],GL_LIGHTING
+        stdcall [glEnable],GL_LIGHT0
+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.4
 delt_sc dd 0.05

 /programs/develop/libraries/TinyGL/asm_fork/examples/textures1.asm
 ,21 → 25,17
         FileName dd ?
 ends
-align 4
-open_b rb 560
+image_data dd 0 ;указатель на временную память, нужен для преобразования изображения
 image_data_toolbar dd 0
+IMAGE_FILE1_SIZE equ 128*144*3+54 ;размер файла с изображением
 IMAGE_TOOLBAR_ICON_SIZE equ 21*21*3
+IMAGE_TOOLBAR_SIZE equ IMAGE_TOOLBAR_ICON_SIZE*3+54
-;макрос для загрузки изображений
+macro load_image_file path,buf,size { ;макрос для загрузки изображений
 ; path - может быть переменной или строковым параметром
-; buf - переменная куда будет записан указатель на изображение в формате rgb
-; img_w, img_h - переменные куда будут записаны размеры открываемого
-;    изображения, не обязательные параметры
-macro load_image_file path, buf, img_w, img_h
-{
 if path eqtype '' ;проверяем задан ли строкой параметр path
+                jmp @f
         local .path_str
-        jmp @f
                 .path_str db path ;формируем локальную переменную
                 db 0
         @@:
 ,24 → 44,12
 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 ;выделяем память для изображения
+        stdcall mem.Alloc, dword size ;выделяем память для изображения
         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.Count], dword size
         mov [run_file_70.Buffer], eax
         mov byte[run_file_70+20], 0
         mov [run_file_70.FileName], file_name
 ,27 → 56,13
         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 ;удаляем временный буфер с параметрами изображения
+                ;определяем вид изображения и переводим его во временный буфер image_data
+                stdcall dword[img_decode], dword[buf],ebx,0
+                mov dword[image_data],eax
+                ;преобразуем изображение к формату rgb
+                stdcall dword[img_to_rgb2], dword[image_data],dword[buf]
+                ;удаляем временный буфер image_data
+                stdcall dword[img_destroy], dword[image_data]
         @@:
 }
 ,15 → 100,16
         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,IMAGE_FILE1_SIZE
         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 ;открытие файла текстуры
+        load_image_file 'toolb_1.png', image_data_toolbar,IMAGE_TOOLBAR_SIZE
+        load_image_file 'text_2.png', texture, (256*256*3+54) ;открытие файла текстуры
         ;* Setup texturing *
         stdcall [glTexEnvi], GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_DECAL
 ,8 → 116,7
         ;* 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],\
-, GL_RGB, GL_UNSIGNED_BYTE, [texture]
+        stdcall [glTexImage2D], GL_TEXTURE_2D, 0, 3, 256, 256, 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
 ,8 → 151,6
         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
 ,10 → 157,6
         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 ;масштаб -
         stdcall [kosglSwapBuffers]
         mcall SF_REDRAW,SSF_END_DRAW
 ,13 → 172,31
         cmp ah,61 ;+
         jne @f
-                call but_zoom_p
-                jmp still
+                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]
         @@:
         cmp ah,45 ;-
         jne @f
-                call but_zoom_m
-                jmp still
+                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]
         @@:
         cmp ah,176 ;Left
         jne @f
 ,16 → 270,6
                 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:
 ,36 → 292,6
         ret
 align 4
-but_zoom_p:
-        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]
-        ret
-align 4
-but_zoom_m:
-        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]
-        ret
-align 4
 caption db 'Test textures, [Esc] - exit, [<-],[->],[Up],[Down] - rotate',0
 align 4
 ctx1 db 28 dup (0) ;TinyGLContext or KOSGLContext
 ,7 → 304,6
 stdcall [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
 ,14 → 333,12
 qObj dd 0
 TexObj dd 0 ;массив указателей на текстуры (в данном случае 1 шт.)
 texture dd 0 ;указатель на память с текстурой
-text_w dd 0
-text_h dd 0
-scale dd 0.95
+scale dd 0.5
 delt_sc dd 0.05
 angle_z dd 0.0
 angle_x dd 90.0
-angle_y dd 0.0
+angle_y dd 225.0
 delt_size dd 3.0
 ;--------------------------------------------------
 ,7 → 520,7
                 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,\
                 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:

/programs/develop/libraries/TinyGL/asm_fork/examples/toolb_1.png
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream

 /programs/develop/libraries/TinyGL/asm_fork/texture.asm
 ,7 → 248,7
                 stdcall gl_malloc, 256*256*3
                 mov [pixels1],eax ;pixels1 = gl_malloc(256 * 256 * 3)
                 ; no interpolation is done here to respect the original image aliasing !
-                stdcall gl_resizeImage, eax,256,256,[edi+36],edx,esi
+;gl_resizeImageNoInterpolate(eax,256,256,[edi+36],edx,esi)
                 mov dword[do_free],1
                 mov edx,256
                 mov esi,256
 ,6 → 289,17
 ;gl_convertRGB_to_8A8R8G8B(eax,[pixels1],ebx,esi)
         @@:
 end if
+if TGL_FEATURE_RENDER_BITS eq 16
+        mov ebx,edx
+        imul edx,esi
+        shl edx,1
+        stdcall gl_malloc,edx
+        mov [ecx+offs_imag_pixmap],eax ;im.pixmap = gl_malloc(width*height*2)
+        or eax,eax ;if(im.pixmap)
+        jz @f
+;gl_convertRGB_to_5R6G5B(eax,[pixels1],ebx,esi)
+        @@:
+end if
         cmp dword[do_free],0 ;if (do_free)
         je @f
                 stdcall gl_free, [pixels1]

 /programs/develop/libraries/TinyGL/asm_fork/tinygl.asm
 ,7 → 26,7
 include 'zline.asm'
 ;include 'zdither.asm'
 include 'ztriangle.asm'
-include 'image_util.asm'
+;include 'image_util.asm'
 ;include 'msghandling.asm'
 include 'arrays.asm'
 include 'specbuf.asm'

Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 6189 → Rev 6188