;*****************************************************************************
; RAW to RAW convert plugin - for zSea image viewer
; Copyright (c) 2008-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 <organization> 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 <copyright holder> 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.
;*****************************************************************************

; Convert:
; 16b in 8b
; 1b,2b,3b in 8b

format MS COFF

public EXPORTS

section '.flat' code readable align 16

;include    'macros.inc'
include    '../../../../macros.inc'
;---------------------------------------------------------------------
START:
	pushad
	mov	eax,dword [esp+36]
	mov	[pointer],eax
	mov	eax,[eax+4]
	mov	[image_file],eax
	mov	esi,[eax+28]
	add	esi,eax
	mov	edi,esi
	mov	ecx,[eax+32]
	
	cmp	[eax+16],word 16
	je	.16b
	cmp	[eax+12],dword 1
	je	.1b
	cmp	[eax+12],dword 2
	je	.2b
	cmp	[eax+12],dword 4
	je	.4b
;---------------------------------------------------------------------
.ret_ok:
	mov	ebx,[image_file]
	cmp	[ebx+18],word 2
	jne	@f
	mov	eax,[ebx+12]
	shr	eax,1
	mov	[ebx+12],eax
@@:
	popad
	ret	4
;---------------------------------------------------------------------	
.less_8b:
	mov	edx,[image_file]
	mov	ecx,[area_size]
	add	ecx,[edx+28]
	mcall	68,20
	mov	[image_file],eax

	mov	ecx,[area_size]
	mov	eax,ecx
	shr	ecx,2
	test	eax,3
	jz	@f
	inc	ecx
@@:
	mov	esi,[raw_area]
	mov	edi,[image_file]
	add	edi,[edi+28]
	cld  
	rep	movsd

	mcall	68,13,[raw_area]
	mov	eax,[image_file]
	mov	ebx,[pointer]
	mov	[ebx+4],eax
	popad
	ret	4
;---------------------------------------------------------------------	
.16b:
; eax - RAW image_file
	cmp	[eax+18],word 3
	je	@f
	cmp	[eax+18],word 4
	jne	.16b_1
@@:
	xor	ebx,ebx
	mov	bx,[eax+18]
	
	xchg	eax,ecx
	xor	edx,edx
	div	ebx
	xchg	ecx,eax
	
	shr	ecx,1
	
	mov	[eax+16],word 8
	mov	ebx,[eax+12]
	shr	ebx,1
	mov	[eax+12],ebx

	mov	ebx,eax
	
.convert_16_in_8:   ; converting 16 bit sample to 8 bit
	cld
	lodsw
	mov	al,ah
	stosb
	
	lodsw
	mov	al,ah
	stosb
	
	lodsw
	mov	al,ah
	stosb
	
	cmp	[ebx+18],word 4
	jne	@f
	lodsw
	mov	al,ah
	stosb
@@:   
	dec	ecx
	jnz	.convert_16_in_8
	
	jmp	.16b_end
;---------------------------------------------------------------------
.16b_1:
; eax - RAW image_file
	cmp	[eax+18],word 1
	je	@f
	cmp	[eax+18],word 2
	jne	.16b_end
@@:
	shr	ecx,1
	
	mov	[eax+16],word 8
	mov	ebx,[eax+12]
	shr	ebx,1
	mov	[eax+12],ebx
	
.convert_16_in_8_1:
	cld
	lodsw
	stosb
	dec	ecx
	jnz	.convert_16_in_8_1
;---------------------------------------------------------------------
.16b_end:
	xor	eax,eax
	mov	[raw_area],eax
	jmp	.ret_ok
;---------------------------------------------------------------------	
.4b:
	call	.get_memory
	mov	edx,ebx
	inc	ebx
	shr	ebx,1
.4b_1:
	push	ebx edi
@@:
	cld
	lodsb
	shl	eax,8
	mov	al,ah
	and	ah,0xf
	shr	al,4
	stosw
	
	dec	ebx
	jnz	@b
	pop	edi ebx
	add	edi,edx
	dec	ecx
	jnz	.4b_1
	
	jmp	.less_8b
;---------------------------------------------------------------------
.2b:
	call	.get_memory
	mov	edx,ebx
	mov	eax,ebx
	shr	ebx,2
	test	eax,3
	jz	@f
	inc	ebx
@@:
	mov	ebp,ebx
.2b_1:
	push	ebp edi
@@:
	cld
	lodsb
	
	mov	bl,al
	
	and	al,11b
	shl	ax,8
	
	mov	al,bl
	shr	al,2
	and	al,11b
	shl	eax,8
	
	mov	al,bl
	shr	al,4
	and	al,11b
	shl	eax,8
	
	mov	al,bl
	shr	al,6
	and	al,11b
	
	stosd

	dec	ebp
	jnz	@b
	pop	edi ebp
	
	add	edi,edx
	dec	ecx
	jnz	.2b_1
	
	jmp	.less_8b
;---------------------------------------------------------------------
.1b:
	call	.get_memory
	mov	edx,ebx
	mov	eax,ebx
	shr	ebx,3
	test	eax,7
	jz	@f
	inc	ebx
@@:
	mov	ebp,ebx
.1b_1:
	push	ebp edi
@@:
	cld
	lodsb
	
	mov	bl,al
	shr	al,4
	and	al,1b
	shl	ax,8
	
	mov	al,bl
	shr	al,5
	and	al,1b
	shl	eax,8
	
	mov	al,bl
	shr	al,6
	and	al,1b
	shl	eax,8
	
	mov	al,bl
	shr	al,7
	
	stosd
	
	mov	al,bl
	and	al,1b
	shl	ax,8
	
	mov	al,bl
	shr	al,1
	and	al,1b
	shl	eax,8

	mov	al,bl
	shr	al,2
	and	al,1b
	shl	eax,8
	
	mov	al,bl
	shr	al,3
	and	al,1b
	
	stosd
	
	dec	ebp
	jnz	@b
	pop	edi ebp
	
	add	edi,edx
	dec	ecx
	jnz	.1b_1

	jmp	.less_8b
;---------------------------------------------------------------------
.get_memory:
; eax - RAW image_file
	mov	ebx,dword 8
	mov	[eax+16],bx
	mov	[eax+12],ebx
	mov	ecx,[eax+4]
	imul	ecx,[eax+8]
	push	eax
	mov	[area_size],ecx
	mcall	68,12
	mov	[raw_area],eax
	mov	edi,eax
	pop	eax
	mov	ebx,[eax+4]
	mov	ecx,[eax+8]
	ret
;---------------------------------------------------------------------
Convert24b:
	pushad
	mov	eax,dword [esp+36]
	mov	[pointer],eax
	mov	eax,[eax+4]
	mov	[image_file],eax

	mov	esi,[eax+28]
	add	esi,eax

	mov	ebp,[eax+20]
	add	ebp,eax
	
	mov	ecx,[eax+4]
	imul	ecx,[eax+8]
	push	eax ecx
	lea	ecx,[ecx*3]
	mov	edx,ecx
	add	ecx,44		; header
	mcall	68,12		;get new RAW area
	mov	[raw_area],eax
	mov	edi,eax
	
	push	esi
	mov	esi,[image_file]
	mov	ecx,3
	cld
	rep	movsd			;copy the 3 first dword for the structure of RAW
	pop	esi
	
	sub	edi,12
	mov	[edi+12],dword 24	;overall depth of the pixel
	mov	[edi+16],word 8		;channel depth of the pixel
	xor	eax,eax
	mov	[edi+20],eax		;palette area pointer
	mov	[edi+24],eax		;palette area size
	mov	[edi+28],dword 44	;rgb area pointer
	mov	[edi+32],edx		;rgb area size
	mov	[edi+36],eax		;transparency area pointer
	mov	[edi+40],eax		;transparency area size
	pop	ecx eax
	
	add	edi,44

	cmp	[eax+12],dword 32
	je	.32b
	cmp	[eax+12],dword 16
	je	.16b
	cmp	[eax+12],dword 15
	je	.15b
	cmp	[eax+12],dword 8
	je	.8b
	
.ret_ok:
	mov	ebx,[pointer]
	mov	eax,[raw_area]
	mov	[ebx+20],eax  ; store RAW pointer
	popad
	ret	4
;---------------------------------------------------------------------
.32b:
	cld
	lodsd
	stosw
	shr	eax,16
	stosb
	
	dec	ecx
	jnz	.32b
	
	jmp	.ret_ok
;---------------------------------------------------------------------
.16b:
	cld
	lodsw
	
	xor	ebx,ebx
	ror	ax,11
	mov	bl,al
	and	bl,11111b
	shl	bl,3
	shl	ebx,8
	rol	ax,6
	mov	bl,al
	and	bl,111111b
	shl	bl,2
	shl	ebx,8
	rol	ax,5
	mov	bl,al
	and	bl,11111b
	shl	bl,3
	mov	eax,ebx
	
	cld
	stosw
	shr	eax,16
	stosb
	
	dec	ecx
	jnz	.16b
	
	jmp	.ret_ok
;---------------------------------------------------------------------
.15b:
	cld
	lodsw
	
	xor	ebx,ebx
	ror	ax,10
	mov	bl,al
	and	bl,11111b
	shl	bl,3
	shl	ebx,8
	rol	ax,5
	mov	bl,al
	and	bl,11111b
	shl	bl,3
	shl	ebx,8
	rol	ax,5
	mov	bl,al
	and	bl,11111b
	shl	bl,3
	mov	eax,ebx
	
	cld
	stosw
	shr	eax,16
	stosb
	
	dec	ecx
	jnz	.15b
	
	jmp	.ret_ok
;---------------------------------------------------------------------
.8b:
	xor	eax,eax
	cld
	lodsb
	shl	eax,2
	mov	eax,[eax+ebp]
	
	cld
	stosw
	shr	eax,16
	stosb
	
	dec	ecx
	jnz	.8b
	
	jmp	.ret_ok
;---------------------------------------------------------------------
align 16
EXPORTS:
	dd szStart,	START
	dd szVersion,	0x00010003
	dd szConv_24b,	Convert24b
	dd 0

szStart		db 'START',0
szVersion	db 'version',0
szConv_24b	db 'Convert24b',0
pointer		dd 0
image_file	dd 0
;delta		dd 0
;resolution	dd 0
;compression	dd 0
raw_area	dd 0
area_size	dd 0