Subversion Repositories Kolibri OS

;*****************************************************************************

; Scaling RAW image plugin - for zSea image viewer

; Copyright (c) 2009 - 2011, Marat Zakiyanov aka Mario79, aka Mario

; All rights reserved.

;

; Redistribution and use in source and binary forms, with or without

; modification, are permitted provided that the following conditions are met:

;	 * Redistributions of source code must retain the above copyright

;	   notice, this list of conditions and the following disclaimer.

;	 * Redistributions in binary form must reproduce the above copyright

;	   notice, this list of conditions and the following disclaimer in the

;	   documentation and/or other materials provided with the distribution.

;	 * Neither the name of the  nor the

;	   names of its contributors may be used to endorse or promote products

;	   derived from this software without specific prior written permission.

;

; THIS SOFTWARE IS PROVIDED BY Marat Zakiyanov ''AS IS'' AND ANY

; EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED

; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE

; DISCLAIMED. IN NO EVENT SHALL  BE LIABLE FOR ANY

; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES

; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;

; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND

; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT

; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS

; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

;*****************************************************************************

; Scaling 32b, 24b, 16b, 8b

format MS COFF

public EXPORTS

section '.flat' code readable align 16

;include	'macros.inc'

include	'../../../../macros.inc'

;---------------------------------------------------------------------

START:

	pushad

	mov	edi,dword [esp+56]

	mov	esi,dword [esp+52]

	mov	edx,dword [esp+48]

	mov	ecx,dword [esp+44]

	mov	ebx,dword [esp+40]

	mov	eax,dword [esp+36]

	mov [pointer],eax

	test bx,bx

	jnz  @f

	inc  bx

@@:

	ror ebx,16

	test bx,bx

	jnz  @f

	inc  bx

@@:

	rol ebx,16

	mov [new_size],ebx

	mov [start_coordinates],ecx

	mov [scaling_mode],edx

	mov [filtering],esi

	mov [background_color],edi

	mov eax,[eax+4]

	mov [image_file],eax

	mov  esi,[eax+28]

    add  esi,eax

	mov  ebx,[eax+20]

	add  ebx,eax

	mov  [palette],ebx

	mov ebx,[eax+12]

	mov [resolution],ebx

	cmp  ebx,32

	jne  @f

	mov  ebp,dword START.32

	jmp  .1

@@:

	cmp  ebx,24

	jne  @f

	mov  ebp,dword START.24

	jmp  .1

@@:

	cmp  ebx,16

	jne  @f

	mov  ebp,dword START.16

	jmp  .1

@@:

	cmp  ebx,15

	jne  @f

	inc  ebx

	mov  ebp,dword START.16

	jmp  .1

@@:

	cmp  ebx,8

	jne  @f

	mov  ebp,dword START.8

@@:

.1:

	shr  ebx,3

	mov  [bytes_to_pixel],ebx

	mov  ebx,[eax+8]

	mov  [y],ebx

	mov  ebx,[eax+4]

	mov  [x],ebx

	imul ebx,[bytes_to_pixel]

	mov  [size_x],ebx

	mov  eax,100

	shl  eax,12

	mov  ebx,[scaling_mode]

	test ebx,ebx

	jnz  @f

	inc  ebx

@@:

	xor  edx,edx

	div  ebx

	mov  [scaling_delta],eax

	call .get_memory

	cmp  [scaling_mode],0

	jne  @f

	call .scaling

	jmp  .ret_ok

@@:

	call .scaling_2

;---------------------------------------------------------------------

.ret_ok:

	mcall 68,13,[area_for_x]

	mov ebx,[pointer]

	mov  eax,[raw_area]

	mov  [ebx+20],eax  ; store RAW pointer

;	movzx eax,word [new_size.x1]

;	mov [ebx+24],esi  ;eax

;	movzx eax,word [new_size.y1]

;	mov [ebx+28],eax

;	mov eax,[size_x]

;	mov [ebx+32],eax

;	mov eax,[bytes_to_pixel]

;	mov [ebx+36],eax

;	mov eax,[x]

;	mov [ebx+40],eax

;	mov eax,[y]

;	mov [ebx+44],eax

.exit:

	popad

	ret	24

;---------------------------------------------------------------------

align 4

.scaling:

	xor ecx,ecx

.y:

	xor ebx,ebx

;-------------------------

.x:

	call ebp

	inc  ebx

	cmp  bx,[new_size.x1]

	jb   .x

;-------------------------

	inc  ecx

	cmp  cx,[new_size.y1]

	jb   .y

	ret

;---------------------------------------------------------------------

align 4

.scaling_2:

	xor  eax,eax

	mov  ax,[start_coordinates.y]

	imul eax,[size_x]

	add  esi,eax

	xor  eax,eax

	mov  ax,[start_coordinates.x]

	imul eax,[bytes_to_pixel]

	add  esi,eax

	xor  eax,eax

	dec  eax

	mov [temp_y],eax

	xor ecx,ecx

align 4

.y_2:

	xor ebx,ebx

;-------------------------

align 4

.x_2:

	call ebp

	inc  ebx

	cmp  bx,[new_size.x1]

	jb   .x_2

;-------------------------

	inc  ecx

	cmp  cx,[new_size.y1]

	jb   .y_2

	ret

;---------------------------------------------------------------------

align 4

.32:

	push ecx ebx

	call .calculate_pixel

	mov  eax,[ecx]

	call .check_filtering_32

	pop  ebx ecx

	cld

	stosd

	ret

;---------------------------------------------------------------------

align 4

.24:

	push ecx ebx

	call .calculate_pixel

	mov  eax,[ecx]

	call .check_filtering_24

	cld

	stosw

	shr  eax,16

	pop  ebx ecx

	cld

	stosb

	ret

;---------------------------------------------------------------------

align 4

.16:

	push ecx ebx

	call .calculate_pixel

	xor  eax,eax

	mov  ax,[ecx]

	call .check_filtering_16

	pop  ebx ecx

	cld

	stosw

	ret

;---------------------------------------------------------------------

align 4

.8:

	push ecx ebx

	call .calculate_pixel

	cmp  [filtering],0

	jne   @f

	mov  al,[ecx]

	pop  ebx ecx

	cld

	stosb

	ret

@@:

	call .check_filtering_8

	cld

	stosw

	shr  eax,16

	pop  ebx ecx

	cld

	stosb

	ret

;---------------------------------------------------------------------

align 4

.calculate_pixel:

	test ecx,ecx

	jz   .offset_x

;.offset_y:

	mov  eax,ecx

	mov  ecx,[temp_y]

	cmp  eax,ecx

	jne  .new_y

	mov  eax,[temp_y_offset]

	mov  ecx,eax

	jmp  .offset_x

;--------------------------------

align 4

.new_y:

	mov  [temp_y],eax

	mov  ebx,[scaling_mode]

	test ebx,ebx

	jz  @f

	imul eax,[scaling_delta]

;--------------------------------

	push ebx

	mov  ebx,eax

	shr  eax,12

	and  ebx,0xFFF

	shl  ebx,7  ;multiply 128

	shr  ebx,12

	mov  [next_pixel_y],ebx

	pop  ebx

;--------------------------------

	jmp  .ex_1

align 4

@@:

;--------------------------------

	imul eax,dword [y]

	mov bx,word [new_size.y1]

;--------------------------------

align 4

.y_div:

	test ebx,ebx

	jnz  @f

	inc  ebx

align 4

@@:

	xor  edx,edx

	div  ebx

;--------------------------------

	push eax

	mov  eax,edx

	shl  eax,7  ;multiply 128

	xor  edx,edx

	div  ebx

	mov  [next_pixel_y],eax

	pop  eax

;--------------------------------

align 4

.ex_1:

	mov  [temp_y1],eax

	imul eax,[size_x]

	mov  [temp_y_offset],eax

	mov  ecx,eax

align 4

.offset_x:

	test ebx,ebx

	jz   .finish

	mov  eax,[esp+4]   ;ebx

	mov edx,[esp+8]

	test edx,edx

	jz  .continue

	shl eax,3

	add eax,[area_for_x]

	mov edx,[eax+4]

	mov [next_pixel_x],edx

	mov eax,[eax]

	jmp .ex_3

;--------------------------------

align 4

.continue:

	mov  ebx,[scaling_mode]

	test ebx,ebx

	jz  @f

	imul eax,[scaling_delta]

;--------------------------------

	mov  ebx,eax

	shr  eax,12

	and  ebx,0xFFF

	shl  ebx,7  ;multiply 128

	shr  ebx,12

	mov  [next_pixel_x],ebx

;--------------------------------

	jmp  .ex_2

;--------------------------------

align 4

@@:

	imul eax,dword [x]

	mov  bx,word [new_size.x1]

;--------------------------------

align 4

.x_div:

	test ebx,ebx

	jnz  @f

	inc  ebx

align 4

@@:

	xor  edx,edx

	div  ebx

;--------------------------------

	push eax

	mov  eax,edx

	shl  eax,7  ;multiply 128

	xor  edx,edx

	div  ebx

	mov  [next_pixel_x],eax

	pop  eax

;--------------------------------

align 4

.ex_2:

	mov  edx,[bytes_to_pixel]

	mov  ebx,eax

	xor  eax,eax

align 4

@@:

	add eax,ebx

	dec  edx

	jnz   @r

	mov ebx,[esp+4]

	shl ebx,3

	add ebx,[area_for_x]

	mov [ebx],eax

	mov edx,[next_pixel_x]

	mov [ebx+4],edx

align 4

.ex_3:

	mov [temp_x1],eax

	add  ecx,eax

align 4

.finish:

	add  ecx,esi

	ret

;---------------------------------------------------------------------

align 4

.get_memory:

	xor  ecx,ecx

	mov  cx,[new_size.x1]

	shl  ecx,3

	mcall 68,12

	mov  [area_for_x],eax

	xor   ecx,ecx

	mov   ebx,[new_size]

	mov   cx,bx

	shr   ebx,16

	imul ecx,ebx  ;[eax+8]

	mov  eax,[bytes_to_pixel]

	cmp  eax,1

	jne  @f

	mov  eax,3

@@:

	imul ecx,eax

	mcall 68,12

	mov  [raw_area],eax

	mov  edi,eax

	ret

;---------------------------------------------------------------------

include 'b_filter.inc'

;---------------------------------------------------------------------

align 4

EXPORTS:

	dd      szStart,	START

	dd      szVersion,	0x00010002

	dd      0

szStart		db 'START',0

szVersion	db 'version',0

align 4

pointer		dd 0

image_file	dd 0

new_size:

.y1:			dw 0

.x1:			dw 0

x:  dd 0

y:  dd 0

size_x		dd 0

bytes_to_pixel dd 0

start_coordinates:

.y	dw 0

.x	dw 0

scaling_mode	dd 0

raw_area	dd 0

scaling_delta dd 0

area_for_x dd 0

temp_y dd 0

temp_y_offset dd 0

resolution dd 0

filtering dd 0

next_pixel_y dd 0

next_pixel_x dd 0

temp_y1 dd 0

temp_x1 dd 0

B_sample dd 0

G_sample dd 0

R_sample dd 0

B_sample_1 dd 0

G_sample_1 dd 0

R_sample_1 dd 0

palette dd 0

background_color dd 0