| 0,0 → 1,186 |
|---|
| use32 |
| org 0x0 |
| db 'MENUET01' |
| dd 0x01, START, I_END, E_END, E_END, 0, 0 |
| |
| ;----------------------------------------------------------------------------- |
| |
| include '../../../../../proc32.inc' |
| include '../../../../../macros.inc' |
| include '../../../../../dll.inc' |
| ;include '../../../../../debug.inc' |
| |
| include '../../libio/libio.inc' |
| include '../../libimg/libimg.inc' |
| |
| ;----------------------------------------------------------------------------- |
| |
| START: |
| mcall 68, 11 |
| |
| stdcall dll.Load, @IMPORT |
| or eax, eax |
| jnz exit |
| |
| invoke file.open, input_file, O_READ |
| or eax, eax |
| jz exit |
| mov [fh], eax |
| |
| invoke file.size, input_file |
| mov [img_data_len], ebx |
| |
| stdcall mem.Alloc, ebx |
| or eax, eax |
| jz exit |
| mov [img_data], eax |
| |
| invoke file.read, [fh], eax, [img_data_len] |
| cmp eax, -1 |
| je exit |
| cmp eax, [img_data_len] |
| jne exit |
| |
| invoke file.close, [fh] |
| inc eax |
| jz exit |
| |
| invoke img.decode, [img_data], [img_data_len], 0 |
| or eax, eax |
| jz exit |
| mov [image_initial], eax |
| |
| stdcall mem.Free, [img_data] |
| test eax, eax |
| jz exit |
| ;----------------------------------------------------------------------------- |
| |
| still: |
| mcall 10 |
| cmp eax, 1 |
| je .draw_window |
| cmp eax, 2 |
| je .key |
| cmp eax, 3 |
| je .button |
| jmp still |
| |
| |
| .draw_window: |
| mcall 12, 1 |
| mcall 0, <200, 150>, <200, 150>, 0x73FFFFFF, 0x00000000, window_title |
| call draw_image |
| mcall 12, 2 |
| jmp still |
| |
| .key: |
| mcall 2 |
| jmp still |
| |
| .button: |
| mcall 17 |
| shr eax, 8 |
| cmp eax, 1 |
| jne still |
| |
| exit: |
| cmp [image_initial], 0 |
| je @f |
| invoke img.destroy, [image_initial] |
| @@: |
| cmp [image_scaled], 0 |
| je @f |
| invoke img.destroy, [image_scaled] |
| @@: |
| mcall -1 |
| |
| |
| proc draw_image |
| |
| cmp [image_scaled], 0 |
| je @f |
| invoke img.destroy, [image_scaled] |
| @@: |
| |
| mcall 9, proc_info, -1 |
| |
| mov ecx, [proc_info.client_box.height] |
| inc ecx |
| mov edx, [proc_info.client_box.width] |
| inc edx |
| |
| mov ebx, [image_initial] |
| ; invoke img.scale, ebx, 1, 2, 5, 5, 0, LIBIMG_SCALE_TYPE_STRETCH, LIBIMG_SCALE_ALG_BILINEAR, edx, ecx |
| ; invoke img.scale, ebx, 1, 2, 5, 5, 0, LIBIMG_SCALE_TYPE_STRETCH, LIBIMG_SCALE_ALG_INTEGER, 3, 3 |
| invoke img.scale, ebx, 0, 0, [ebx + Image.Width], [ebx + Image.Height], 0, LIBIMG_SCALE_TYPE_STRETCH, LIBIMG_SCALE_ALG_BILINEAR, edx, ecx |
| |
| ; proc img.scale _src, _crop_x, _crop_y, _crop_width, _crop_height, _dst, _scale_type, _scale_alg, _param1, _param2 |
| ; see libimg.inc for available scale types and algorithms |
| ; LIBIMG_SCALE_ALG_BILINEAR: _param1, _param2 -- width and height of rectangle to fit _src image to |
| ; LIBIMG_SCALE_ALG_INTEGER: _param1 -- scale factor (i.e. 3 means scaling 7x7 to 21x21); _param2 ignored |
| ; LIBIMG_SCALE_TYPE_*: just try and see, they are common STRETCH, FIT_BY_WIDTH etc. |
| ; returns pointer to a scaled image |
| |
| ; invoke img.scale, ebx, 0, 0, [ebx + Image.Width], [ebx + Image.Height], 0, LIBIMG_SCALE_TYPE_STRETCH, LIBIMG_SCALE_ALG_INTEGER, 3, 3 |
| test eax, eax |
| jz exit |
| mov [image_scaled], eax |
| |
| invoke img.draw, eax, 0, 0, [eax + Image.Width], [eax + Image.Height], 0, 0 |
| |
| ret |
| endp |
| |
| ;----------------------------------------------------------------------------- |
| |
| window_title db 'img.scale example',0 |
| |
| input_file db '/hd0/1/gray_5x7.tiff',0 |
| ;input_file db '/hd0/1/grayscale_123x123.tiff',0 |
| ;input_file db '/hd0/1/grayscale_357x357.tiff',0 |
| ;input_file db '/hd0/1/grayscale_620x620.tiff',0 |
| ;input_file db '/hd0/1/rgb_220.jpg',0 |
| ;input_file db '/hd0/1/rgba_217.tiff',0 |
| ;input_file db '/hd0/1/rgb_7x9.tiff',0 |
| ;input_file db '/hd0/1/rgba_7x9.tiff',0 |
| ;input_file db '/hd0/1/gray_7x9.tiff',0 |
| ;input_file db '/hd0/1/rgb_70x90.png',0 |
| ;----------------------------------------------------------------------------- |
| |
| align 4 |
| @IMPORT: |
| |
| library \ |
| libio , 'libio.obj' , \ |
| libimg , 'libimg.obj' |
| |
| import libio , \ |
| libio.init , 'lib_init' , \ |
| file.size , 'file_size' , \ |
| file.open , 'file_open' , \ |
| file.read , 'file_read' , \ |
| file.close , 'file_close' |
| |
| import libimg , \ |
| libimg.init , 'lib_init' , \ |
| img.decode , 'img_decode' , \ |
| img.destroy , 'img_destroy' , \ |
| img.draw , 'img_draw' , \ |
| img.scale , 'img_scale' , \ |
| img.formats_table,'img_formats_table' |
| |
| ;----------------------------------------------------------------------------- |
| |
| I_END: |
| |
| fh dd ? |
| img_data_len dd ? |
| img_data dd ? |
| |
| image_initial dd ? |
| image_scaled dd ? |
| |
| proc_info process_information |
| |
| rd 0x1000 ; stack |
| E_END: |