mirror of
https://github.com/KolibriOS/kolibrios.git
synced 2024-12-28 09:19:41 +03:00
587 lines
14 KiB
PHP
587 lines
14 KiB
PHP
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; ;;
|
|
;; Copyright (C) KolibriOS team 2010-2015. All rights reserved. ;;
|
|
;; Distributed under terms of the GNU General Public License ;;
|
|
;; ;;
|
|
;; VNC client for KolibriOS ;;
|
|
;; ;;
|
|
;; Written by hidnplayr@kolibrios.org ;;
|
|
;; ;;
|
|
;; GNU GENERAL PUBLIC LICENSE ;;
|
|
;; Version 2, June 1991 ;;
|
|
;; ;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
|
create_palette:
|
|
|
|
push eax ecx edi
|
|
movzx ecx, [palettesize]
|
|
lea edi, [ecx*BYTES_PER_CPIXEL]
|
|
|
|
@@:
|
|
lea eax, [esi+edi]
|
|
cmp [datapointer], eax
|
|
jae @f
|
|
call read_data.more
|
|
jmp @b
|
|
@@:
|
|
|
|
DEBUGF 1, "Loading palette of %u colors\n", ecx
|
|
mov edi, palette
|
|
.loop:
|
|
call load_cpixel
|
|
stosd
|
|
dec ecx
|
|
jnz .loop
|
|
pop edi ecx eax
|
|
|
|
ret
|
|
|
|
|
|
load_cpixel: ; returns in eax
|
|
|
|
if BITS_PER_PIXEL = 8
|
|
|
|
xor eax, eax
|
|
lodsb
|
|
mov eax, [lut_8bpp+eax*4]
|
|
|
|
else if BITS_PER_PIXEL = 16
|
|
|
|
push ebx
|
|
lodsw
|
|
mov bx, ax
|
|
shl bx, 5
|
|
and bh, 0xfc ; green
|
|
|
|
mov bl, ah
|
|
and bl, 0xf8 ; red
|
|
shl ebx, 8
|
|
|
|
mov bl, al
|
|
shl bl, 3
|
|
and bl, 0xf8 ; blue
|
|
mov eax, ebx
|
|
pop ebx
|
|
|
|
else ; 32 BPP gets packed to 24 BPP
|
|
|
|
mov eax, [esi]
|
|
and eax, 0x00ffffff
|
|
add esi, 3
|
|
|
|
end if
|
|
|
|
ret
|
|
|
|
|
|
encoding_TRLE:
|
|
|
|
DEBUGF 1, "TRLE\n"
|
|
|
|
mov [subrectangle.x], 0
|
|
mov [subrectangle.y], 0
|
|
.tile:
|
|
mov eax, [rectangle.width]
|
|
sub eax, [subrectangle.x]
|
|
cmp eax, 16
|
|
jb @f
|
|
mov eax, 16
|
|
@@:
|
|
mov [subrectangle.width], eax
|
|
|
|
mov edx, [rectangle.height]
|
|
sub edx, [subrectangle.y]
|
|
cmp edx, 16
|
|
jb @f
|
|
mov edx, 16
|
|
@@:
|
|
mov [subrectangle.height], edx
|
|
DEBUGF 1, "Subrectangle: x=%u y=%u width=%u height=%u ", \
|
|
[subrectangle.x], [subrectangle.y], [subrectangle.width], [subrectangle.height]
|
|
|
|
; Calculate first pixel pos
|
|
mov eax, [rectangle.y]
|
|
add eax, [subrectangle.y]
|
|
movzx ebx, [screen.width]
|
|
mul ebx
|
|
add eax, [rectangle.x]
|
|
add eax, [subrectangle.x]
|
|
lea edi, [framebuffer+eax*3]
|
|
|
|
; Calculate offset between two rows of pixels
|
|
movzx eax, [screen.width]
|
|
sub eax, [subrectangle.width]
|
|
lea ebp, [eax*3]
|
|
|
|
mov edx, [subrectangle.height]
|
|
|
|
@@:
|
|
lea eax, [esi+1]
|
|
cmp [datapointer], eax
|
|
jae @f
|
|
call read_data.more
|
|
jmp @b
|
|
@@:
|
|
lodsb ; subencoding type
|
|
DEBUGF 1, "encoding=%u\n", al
|
|
test al, al
|
|
jz .raw
|
|
cmp al, 1
|
|
je .solid
|
|
cmp al, 16
|
|
jbe .palette_packed
|
|
cmp al, 127
|
|
je .reuse_palette
|
|
jb .invalid
|
|
and al, 0x7f
|
|
jz .plain_rle
|
|
cmp al, 1
|
|
je .prle_reuse_palette
|
|
|
|
; Palette Run Length Encoded tile
|
|
mov [palettesize], al
|
|
call create_palette
|
|
.prle_reuse_palette:
|
|
DEBUGF 1, "Pallete RLE tile\n"
|
|
|
|
mov eax, 1
|
|
.prle_line:
|
|
mov ebx, [subrectangle.width]
|
|
.prle_pixel:
|
|
dec eax
|
|
jz .prle_reload
|
|
|
|
mov word[edi], cx
|
|
rol ecx, 16
|
|
add edi, 2
|
|
mov byte[edi], cl
|
|
rol ecx, 16
|
|
inc edi
|
|
dec ebx
|
|
jnz .prle_pixel
|
|
|
|
add edi, ebp
|
|
dec edx
|
|
jnz .prle_line
|
|
jmp .next_tile
|
|
|
|
.prle_reload:
|
|
@@:
|
|
lea eax, [esi+1]
|
|
cmp [datapointer], eax
|
|
jae @f
|
|
call read_data.more
|
|
jmp @b
|
|
@@:
|
|
; load palette index and get color from palette
|
|
xor eax, eax
|
|
lodsb
|
|
push ebx
|
|
mov bl, al
|
|
and al, 0x7f
|
|
mov ecx, [palette+eax*4]
|
|
|
|
; run length follows?
|
|
xor eax, eax
|
|
test bl, 0x80
|
|
pop ebx
|
|
jz .plength_ok
|
|
|
|
@@:
|
|
lea eax, [esi+1]
|
|
cmp [datapointer], eax
|
|
jae @f
|
|
call read_data.more
|
|
jmp @b
|
|
@@:
|
|
|
|
; load runlength
|
|
push ebx
|
|
xor eax, eax
|
|
xor ebx, ebx
|
|
@@:
|
|
lodsb
|
|
cmp al, 255
|
|
jne @f
|
|
add ebx, eax
|
|
jmp @b
|
|
@@:
|
|
add eax, ebx
|
|
pop ebx
|
|
.plength_ok:
|
|
add eax, 2
|
|
jmp .prle_pixel
|
|
|
|
|
|
|
|
|
|
; Run Length Encoded tile
|
|
.plain_rle:
|
|
|
|
DEBUGF 1, "Plain RLE tile\n"
|
|
|
|
mov eax, 1
|
|
.rle_line:
|
|
mov ebx, [subrectangle.width]
|
|
.rle_pixel:
|
|
dec eax
|
|
jz .rle_reload
|
|
|
|
mov word[edi], cx
|
|
rol ecx, 16
|
|
add edi, 2
|
|
mov byte[edi], cl
|
|
rol ecx, 16
|
|
inc edi
|
|
dec ebx
|
|
jnz .rle_pixel
|
|
add edi, ebp
|
|
dec edx
|
|
jnz .rle_line
|
|
jmp .next_tile
|
|
|
|
.rle_reload:
|
|
@@:
|
|
lea eax, [esi+BYTES_PER_CPIXEL+1]
|
|
cmp [datapointer], eax
|
|
jae @f
|
|
call read_data.more
|
|
jmp @b
|
|
@@:
|
|
; load pixel value
|
|
call load_cpixel
|
|
mov ecx, eax
|
|
|
|
; load length
|
|
xor eax, eax
|
|
push ebx
|
|
xor ebx, ebx
|
|
@@:
|
|
lodsb
|
|
cmp al, 255
|
|
jne @f
|
|
add ebx, eax
|
|
jmp @b
|
|
@@:
|
|
add eax, ebx
|
|
add eax, 2
|
|
pop ebx
|
|
jmp .rle_pixel
|
|
|
|
|
|
|
|
.reuse_palette:
|
|
cmp [palettesize], 1
|
|
jne .reuse_palette_
|
|
mov eax, [palette]
|
|
mov ecx, eax
|
|
shr ecx, 16
|
|
jmp .solid_line
|
|
|
|
; Palette packed tile
|
|
.palette_packed:
|
|
DEBUGF 1, "Palette packed tile\n"
|
|
|
|
mov [palettesize], al
|
|
call create_palette
|
|
|
|
.reuse_palette_:
|
|
cmp [palettesize], 2
|
|
je .palette_1bit
|
|
cmp [palettesize], 4
|
|
jbe .palette_2bit
|
|
jmp .palette_4bit
|
|
|
|
.palette_1bit:
|
|
DEBUGF 1, "1-bit palette\n"
|
|
.palette_1bit_line:
|
|
mov ebx, [subrectangle.width]
|
|
.palette_1bit_byte:
|
|
@@:
|
|
lea eax, [esi+1]
|
|
cmp [datapointer], eax
|
|
jae @f
|
|
call read_data.more
|
|
jmp @b
|
|
@@:
|
|
lodsb
|
|
rol al, 1
|
|
mov ecx, eax
|
|
and eax, 0x1
|
|
mov eax, [palette+4*eax]
|
|
stosw
|
|
shr eax, 16
|
|
stosb
|
|
dec ebx
|
|
jz .palette_1bit_next_line
|
|
|
|
rol cl, 1
|
|
mov eax, ecx
|
|
and eax, 0x1
|
|
mov eax, [palette+4*eax]
|
|
stosw
|
|
shr eax, 16
|
|
stosb
|
|
dec ebx
|
|
jz .palette_1bit_next_line
|
|
|
|
rol cl, 1
|
|
mov eax, ecx
|
|
and eax, 0x1
|
|
mov eax, [palette+4*eax]
|
|
stosw
|
|
shr eax, 16
|
|
stosb
|
|
dec ebx
|
|
jz .palette_1bit_next_line
|
|
|
|
rol cl, 1
|
|
mov eax, ecx
|
|
and eax, 0x1
|
|
mov eax, [palette+4*eax]
|
|
stosw
|
|
shr eax, 16
|
|
stosb
|
|
dec ebx
|
|
jz .palette_1bit_next_line
|
|
|
|
rol cl, 1
|
|
mov eax, ecx
|
|
and eax, 0x1
|
|
mov eax, [palette+4*eax]
|
|
stosw
|
|
shr eax, 16
|
|
stosb
|
|
dec ebx
|
|
jz .palette_1bit_next_line
|
|
|
|
rol cl, 1
|
|
mov eax, ecx
|
|
and eax, 0x1
|
|
mov eax, [palette+4*eax]
|
|
stosw
|
|
shr eax, 16
|
|
stosb
|
|
dec ebx
|
|
jz .palette_1bit_next_line
|
|
|
|
rol cl, 1
|
|
mov eax, ecx
|
|
and eax, 0x1
|
|
mov eax, [palette+4*eax]
|
|
stosw
|
|
shr eax, 16
|
|
stosb
|
|
dec ebx
|
|
jz .palette_1bit_next_line
|
|
|
|
rol cl, 1
|
|
and ecx, 0x1
|
|
mov eax, [palette+4*ecx]
|
|
stosw
|
|
shr eax, 16
|
|
stosb
|
|
dec ebx
|
|
jnz .palette_1bit_byte
|
|
|
|
.palette_1bit_next_line:
|
|
add edi, ebp
|
|
dec edx
|
|
jnz .palette_1bit_line
|
|
jmp .next_tile
|
|
|
|
|
|
|
|
.palette_2bit:
|
|
DEBUGF 1, "2-bit palette\n"
|
|
.palette_2bit_line:
|
|
mov ebx, [subrectangle.width]
|
|
.palette_2bit_byte:
|
|
@@:
|
|
lea eax, [esi+1]
|
|
cmp [datapointer], eax
|
|
jae @f
|
|
call read_data.more
|
|
jmp @b
|
|
@@:
|
|
lodsb
|
|
mov ecx, eax
|
|
and eax, 0xc0
|
|
shr eax, 4
|
|
mov eax, [palette+eax]
|
|
stosw
|
|
shr eax, 16
|
|
stosb
|
|
dec ebx
|
|
jz .palette_2bit_next_line
|
|
|
|
mov eax, ecx
|
|
and eax, 0x30
|
|
shr eax, 2
|
|
mov eax, [palette+eax]
|
|
stosw
|
|
shr eax, 16
|
|
stosb
|
|
dec ebx
|
|
jz .palette_2bit_next_line
|
|
|
|
mov eax, ecx
|
|
and eax, 0x0c
|
|
mov eax, [palette+eax]
|
|
stosw
|
|
shr eax, 16
|
|
stosb
|
|
dec ebx
|
|
jz .palette_2bit_next_line
|
|
|
|
and ecx, 0x03
|
|
mov eax, [palette+4*ecx]
|
|
stosw
|
|
shr eax, 16
|
|
stosb
|
|
dec ebx
|
|
jnz .palette_2bit_byte
|
|
|
|
.palette_2bit_next_line:
|
|
add edi, ebp
|
|
dec edx
|
|
jnz .palette_2bit_line
|
|
jmp .next_tile
|
|
|
|
|
|
|
|
|
|
.palette_4bit:
|
|
DEBUGF 1, "4-bit palette\n"
|
|
.palette_4bit_line:
|
|
mov ebx, [subrectangle.width]
|
|
.palette_4bit_byte:
|
|
@@:
|
|
lea eax, [esi+1]
|
|
cmp [datapointer], eax
|
|
jae @f
|
|
call read_data.more
|
|
jmp @b
|
|
@@:
|
|
lodsb
|
|
mov cl, al
|
|
and eax, 0xf0
|
|
shr eax, 2
|
|
mov eax, [palette+eax]
|
|
stosw
|
|
shr eax, 16
|
|
stosb
|
|
dec ebx
|
|
jz .palette_4bit_next_line
|
|
|
|
and ecx, 0x0f
|
|
shl ecx, 2
|
|
mov eax, [palette+ecx]
|
|
stosw
|
|
shr eax, 16
|
|
stosb
|
|
dec ebx
|
|
jnz .palette_4bit_byte
|
|
.palette_4bit_next_line:
|
|
add edi, ebp
|
|
dec edx
|
|
jnz .palette_4bit_line
|
|
jmp .next_tile
|
|
|
|
|
|
; RAW tile
|
|
.raw:
|
|
push edx
|
|
mov eax, [subrectangle.width]
|
|
mul [subrectangle.height]
|
|
|
|
push eax
|
|
lea ecx, [eax*BYTES_PER_CPIXEL]
|
|
@@:
|
|
lea eax, [esi+ecx]
|
|
cmp [datapointer], eax
|
|
jae @f
|
|
call read_data.more
|
|
jmp @b
|
|
@@:
|
|
pop eax
|
|
lea eax, [eax*3]
|
|
pop edx
|
|
|
|
DEBUGF 1, "RAW tile\n"
|
|
.raw_line:
|
|
mov ebx, [subrectangle.width]
|
|
.raw_pixel:
|
|
call load_cpixel
|
|
stosw
|
|
shr eax, 16
|
|
stosb
|
|
dec ebx
|
|
jnz .raw_pixel
|
|
add edi, ebp
|
|
dec edx
|
|
jnz .raw_line
|
|
jmp .next_tile
|
|
|
|
|
|
|
|
; Single color tile
|
|
.solid:
|
|
DEBUGF 1, "Solid tile\n"
|
|
@@:
|
|
lea eax, [esi+BYTES_PER_CPIXEL]
|
|
cmp [datapointer], eax
|
|
jae @f
|
|
call read_data.more
|
|
jmp @b
|
|
@@:
|
|
call load_cpixel
|
|
mov ecx, eax
|
|
shr ecx, 16
|
|
|
|
mov [palettesize], 1
|
|
mov [palette], eax
|
|
|
|
.solid_line:
|
|
mov ebx, [subrectangle.width]
|
|
.solid_pixel:
|
|
stosw
|
|
mov [edi], cl
|
|
inc edi
|
|
dec ebx
|
|
jnz .solid_pixel
|
|
add edi, ebp
|
|
dec edx
|
|
jnz .solid_line
|
|
; jmp .next_tile
|
|
|
|
|
|
|
|
; Go to the next tile
|
|
.next_tile:
|
|
mov eax, [subrectangle.x]
|
|
add eax, 16
|
|
cmp eax, [rectangle.width]
|
|
jae .next_row
|
|
mov [subrectangle.x], eax
|
|
jmp .tile
|
|
.next_row:
|
|
mov [subrectangle.x], 0
|
|
mov eax, [subrectangle.y]
|
|
add eax, 16
|
|
cmp eax, [rectangle.height]
|
|
jae .done
|
|
mov [subrectangle.y], eax
|
|
jmp .tile
|
|
|
|
.invalid:
|
|
DEBUGF 2, "Invalid subencoding type!\n"
|
|
.fail:
|
|
DEBUGF 2, "TRLE failed!\n"
|
|
jmp next_rectangle
|
|
|
|
.done:
|
|
DEBUGF 1, "TRLE complete!\n"
|
|
jmp next_rectangle |