forked from KolibriOS/kolibrios
32bb153b9f
- use 'libimg.obj' - can open *.jpg and *.png files git-svn-id: svn://kolibrios.org@6328 a494cfbc-eb01-0410-851d-a64ba20cac60
476 lines
10 KiB
PHP
476 lines
10 KiB
PHP
;***************************************************************************
|
|
;*******************CODING BMP FILE(1,4,8,24 bits)**************************
|
|
;***************************************************************************
|
|
|
|
;-------------------------autor andrew_programmer---------------------------
|
|
|
|
coding_bmp:
|
|
|
|
mov [PointerToImage],ebx
|
|
mov [WhereCodingBMP],ecx
|
|
mov [BmpPalette],edx
|
|
mov [Bmp_SizeX],esi
|
|
mov [Bmp_SizeY],edi
|
|
;**********************************************
|
|
;******************1 bit BMP*******************
|
|
;**********************************************
|
|
cmp eax,2
|
|
ja no_monohrom_colors
|
|
mov esi,[BmpPalette]
|
|
mov edi,[WhereCodingBMP]
|
|
add edi,54
|
|
mov eax,[esi] ;first color
|
|
mov ebx,[esi+4] ;second color
|
|
mov [edi],eax
|
|
mov [edi+4],ebx
|
|
|
|
;coding image to bmp 1 bit format
|
|
mov esi,[PointerToImage]
|
|
mov edx,[WhereCodingBMP]
|
|
mov ebx,[Bmp_SizeX]
|
|
add ebx,31 ;picture_size_x+31
|
|
shr ebx,5 ;((picture_size_x)+31)/32
|
|
mov [Bmp_doublewords],ebx ;double words in string
|
|
shl ebx,2
|
|
mov [Bmp_bytes_per_string],ebx ;bytes per string
|
|
mov ecx,[Bmp_SizeY]
|
|
dec ecx
|
|
imul ebx,ecx
|
|
add edx,54+8
|
|
add edx,ebx ;in edx pointer to area for coding
|
|
|
|
mov ebp,[Bmp_bytes_per_string]
|
|
|
|
mov ebx,[Bmp_SizeY]
|
|
mov esi,[PointerToImage]
|
|
mov edi,edx
|
|
|
|
mov edx,[Bmp_SizeX]
|
|
lea edx,[edx+edx*2]
|
|
|
|
mov [Bmp_Counter],7
|
|
and [Bmp_Counter2],0
|
|
copy_lines_1:
|
|
|
|
push esi
|
|
mov ecx,[Bmp_bytes_per_string]
|
|
shl ecx,3 ;(Bmp_bytes_per_string)*8
|
|
|
|
rep_movsb_1:
|
|
|
|
mov eax,[esi]
|
|
and eax,0xffffff
|
|
push esi
|
|
push ecx
|
|
push ebx
|
|
mov esi,[BmpPalette]
|
|
xor ecx,ecx
|
|
find_color_in_palette_1:
|
|
mov ebx,[esi]
|
|
and ebx,0xffffff
|
|
cmp eax,ebx ;color fined ?
|
|
je color_fined_1
|
|
add esi,4
|
|
inc ecx
|
|
cmp ecx,256
|
|
jl find_color_in_palette_1
|
|
color_fined_1:
|
|
mov [Bmp_Counter3],ecx ;number color in palette
|
|
pop ebx
|
|
pop ecx
|
|
pop esi
|
|
mov eax,[Bmp_Counter3]
|
|
|
|
test eax,eax
|
|
jz no_change_bit_in_byte
|
|
|
|
push ecx
|
|
mov ecx,[Bmp_Counter]
|
|
bts [Bmp_Counter2],ecx
|
|
pop ecx
|
|
|
|
no_change_bit_in_byte:
|
|
|
|
dec [Bmp_Counter]
|
|
jns no_minus_in_counter
|
|
|
|
push eax
|
|
mov eax,[Bmp_Counter2]
|
|
mov [edi],al
|
|
inc edi
|
|
mov [Bmp_Counter],7
|
|
and [Bmp_Counter2],0 ;obnulyaem byte
|
|
pop eax
|
|
|
|
no_minus_in_counter:
|
|
|
|
add esi,3
|
|
dec ecx
|
|
jnz rep_movsb_1
|
|
pop esi
|
|
|
|
add esi,edx
|
|
sub edi,ebp
|
|
sub edi,ebp
|
|
|
|
dec ebx
|
|
jnz copy_lines_1
|
|
|
|
mov edi,[WhereCodingBMP]
|
|
mov ebx,[Bmp_bytes_per_string]
|
|
imul ebx,[Bmp_SizeY]
|
|
add ebx,(54+8)
|
|
|
|
;crate list of bmp description
|
|
mov [edi],word 'BM'
|
|
mov [edi+2],ebx
|
|
mov [edi+10],dword 54+8 ;where bigin bmp imige
|
|
mov [edi+14],dword 40
|
|
mov edx,[Bmp_SizeX]
|
|
mov ecx,[Bmp_SizeY]
|
|
mov [edi+18],edx ;picture size x
|
|
mov [edi+22],ecx ;picture size y
|
|
mov [edi+26],word 1
|
|
mov [edi+28],word 1 ;bits per pixel
|
|
mov [edi+30],dword 0
|
|
mov edx,[Bmp_bytes_per_string]
|
|
imul edx,ecx
|
|
mov [edi+34],edx
|
|
mov [edi+38],dword 0
|
|
mov [edi+42],dword 0
|
|
mov [edi+46],dword 0
|
|
|
|
ret
|
|
|
|
no_monohrom_colors:
|
|
|
|
;**********************************************
|
|
;*****************4 bits BMP*******************
|
|
;**********************************************
|
|
cmp eax,16
|
|
ja no_16_colors
|
|
;copy 16 colors palette
|
|
mov esi,[BmpPalette]
|
|
mov edi,[WhereCodingBMP]
|
|
add edi,54
|
|
mov ecx,16
|
|
rep movsd
|
|
|
|
;coding image to bmp 4 bits format
|
|
mov esi,[PointerToImage]
|
|
mov edx,[WhereCodingBMP]
|
|
mov ebx,[Bmp_SizeX]
|
|
shl ebx,2 ;4*(picture_size_x)
|
|
add ebx,31 ;4*(picture_size_x)+31
|
|
shr ebx,5 ;(4*(picture_size_x)+31)/32
|
|
mov [Bmp_doublewords],ebx ;double words in string
|
|
shl ebx,2
|
|
mov [Bmp_bytes_per_string],ebx ;bytes per string
|
|
mov ecx,[Bmp_SizeY]
|
|
dec ecx
|
|
imul ebx,ecx
|
|
add edx,54+64
|
|
add edx,ebx
|
|
|
|
mov ebp,[Bmp_bytes_per_string]
|
|
|
|
mov ebx,[Bmp_SizeY]
|
|
mov [Bmp_Counter2],ebx
|
|
|
|
mov edi,edx
|
|
|
|
xor ebx,ebx
|
|
copy_lines_4:
|
|
|
|
mov ecx,[Bmp_bytes_per_string]
|
|
shl ecx,1
|
|
|
|
and [Bmp_Counter3],0
|
|
push esi
|
|
|
|
rep_movsb_4:
|
|
mov eax,[esi]
|
|
and eax,0xffffff
|
|
|
|
mov [Bmp_save1],esi
|
|
mov [Bmp_save2],ecx
|
|
mov [Bmp_save3],ebx
|
|
mov esi,[BmpPalette]
|
|
xor ecx,ecx
|
|
find_color_in_palette_:
|
|
mov ebx,[esi]
|
|
and ebx,0xffffff
|
|
cmp eax,ebx ;color fined ?
|
|
je color_fined_
|
|
add esi,4
|
|
inc ecx
|
|
cmp ecx,16
|
|
jl find_color_in_palette_
|
|
color_fined_:
|
|
mov [Bmp_Counter],ecx ;number color in palette
|
|
mov esi,[Bmp_save1]
|
|
mov ecx,[Bmp_save2]
|
|
mov ebx,[Bmp_save3]
|
|
|
|
xor eax,eax
|
|
mov eax,[Bmp_Counter]
|
|
shl bl,4
|
|
add bl,al
|
|
|
|
mov eax,[Bmp_Counter3]
|
|
and eax,1b
|
|
test eax,eax ;next block ready ?
|
|
jz no_ready
|
|
mov [edi],bl ;4 bit color
|
|
inc edi
|
|
no_ready:
|
|
|
|
add esi,3
|
|
inc [Bmp_Counter3]
|
|
|
|
dec ecx
|
|
jnz rep_movsb_4
|
|
|
|
pop esi
|
|
|
|
add esi,[Bmp_SizeX]
|
|
add esi,[Bmp_SizeX]
|
|
add esi,[Bmp_SizeX]
|
|
|
|
sub edi,ebp
|
|
sub edi,ebp
|
|
|
|
dec [Bmp_Counter2]
|
|
jnz copy_lines_4
|
|
|
|
;total size of bmp file
|
|
mov edi,[WhereCodingBMP]
|
|
mov ebx,[Bmp_bytes_per_string]
|
|
imul ebx,[Bmp_SizeY]
|
|
add ebx,(54+64)
|
|
|
|
;crate list of bmp description
|
|
mov [edi],word 'BM'
|
|
mov [edi+2],ebx
|
|
mov [edi+10],dword 54+64
|
|
mov [edi+14],dword 40
|
|
mov edx,[Bmp_SizeX]
|
|
mov ecx,[Bmp_SizeY]
|
|
mov [edi+18],edx
|
|
mov [edi+22],ecx
|
|
mov [edi+26],word 1
|
|
mov [edi+28],word 4
|
|
mov [edi+30],dword 0
|
|
mov edx,[Bmp_bytes_per_string]
|
|
imul edx,ecx
|
|
mov [edi+34],edx
|
|
mov [edi+38],dword 0
|
|
mov [edi+42],dword 0
|
|
mov [edi+46],dword 0
|
|
|
|
ret
|
|
no_16_colors:
|
|
|
|
;**********************************************
|
|
;******************8 bits BMP******************
|
|
;**********************************************
|
|
|
|
cmp eax,256
|
|
ja no_8_bits_per_pixel
|
|
;copy palette
|
|
mov esi,[BmpPalette]
|
|
mov edi,[WhereCodingBMP]
|
|
add edi,54
|
|
mov ecx,256
|
|
rep movsd
|
|
|
|
;coding image to bmp 8 bits format
|
|
mov esi,[PointerToImage]
|
|
mov edx,[WhereCodingBMP]
|
|
mov ebx,[Bmp_SizeX]
|
|
shl ebx,3 ;8*(picture_size_x)
|
|
add ebx,31 ;8*(picture_size_x)+31
|
|
shr ebx,5 ;(8*(picture_size_x)+31)/32
|
|
mov [Bmp_doublewords],ebx ;double words in string
|
|
shl ebx,2
|
|
mov [Bmp_bytes_per_string],ebx ;bytes per string
|
|
|
|
mov ecx,[Bmp_SizeY]
|
|
dec ecx
|
|
imul ebx,ecx
|
|
add edx,(1024+54)
|
|
add edx,ebx ;in edx pointer to copy bitmap arrea
|
|
|
|
mov ebp,[Bmp_bytes_per_string]
|
|
shl ebp,1
|
|
|
|
mov ebx,[Bmp_SizeY]
|
|
mov edi,edx
|
|
|
|
copy_lines_8:
|
|
|
|
mov ecx,[Bmp_bytes_per_string]
|
|
mov [Bmp_save1],esi
|
|
rep_movsb_8:
|
|
mov eax,[esi]
|
|
and eax,0xffffff
|
|
push esi
|
|
push ecx
|
|
push ebx
|
|
mov esi,[BmpPalette]
|
|
xor ecx,ecx
|
|
find_color_in_palette:
|
|
mov ebx,[esi]
|
|
and ebx,0xffffff
|
|
cmp eax,ebx ;color fined ?
|
|
je color_fined
|
|
add esi,4
|
|
inc ecx
|
|
cmp ecx,256
|
|
jl find_color_in_palette
|
|
color_fined:
|
|
mov [Bmp_Counter],ecx ;number color in palette
|
|
pop ebx
|
|
pop ecx
|
|
pop esi
|
|
mov eax,[Bmp_Counter]
|
|
mov [edi],al ;8 bit color
|
|
add esi,3
|
|
inc edi
|
|
|
|
dec ecx
|
|
jnz rep_movsb_8
|
|
|
|
mov esi,[Bmp_save1]
|
|
|
|
add esi,[Bmp_SizeX]
|
|
add esi,[Bmp_SizeX]
|
|
add esi,[Bmp_SizeX]
|
|
|
|
sub edi,ebp
|
|
dec ebx
|
|
jnz copy_lines_8
|
|
|
|
;total size of bmp file
|
|
mov edi,[WhereCodingBMP]
|
|
mov ebx,[Bmp_bytes_per_string]
|
|
imul ebx,[Bmp_SizeY]
|
|
add ebx,54+1024
|
|
|
|
;crate list of bmp description
|
|
mov [edi],word 'BM'
|
|
mov [edi+2],ebx
|
|
mov [edi+10],dword 54+1024
|
|
mov [edi+14],dword 40
|
|
mov edx,[Bmp_SizeX]
|
|
mov ecx,[Bmp_SizeY]
|
|
mov [edi+18],edx
|
|
mov [edi+22],ecx
|
|
mov [edi+26],word 1
|
|
mov [edi+28],word 8
|
|
mov [edi+30],dword 0
|
|
mov edx,[Bmp_bytes_per_string]
|
|
imul edx,ecx
|
|
mov [edi+34],edx
|
|
mov [edi+38],dword 0
|
|
mov [edi+42],dword 0
|
|
mov [edi+46],dword 0
|
|
|
|
ret
|
|
no_8_bits_per_pixel:
|
|
|
|
;**********************************************
|
|
;*******************24 bit BMP*****************
|
|
;**********************************************
|
|
|
|
cmp eax,256
|
|
jle no_32_bits_per_pixel
|
|
;copy picture
|
|
mov esi,[PointerToImage]
|
|
mov edx,[WhereCodingBMP]
|
|
mov ebx,[Bmp_SizeX]
|
|
shl ebx,3 ;8*(picture_size_x)
|
|
lea ebx,[ebx+ebx*2] ;3*8*(picture_size_x)
|
|
add ebx,31 ;3*8*(picture_size_x)+31
|
|
shr ebx,5 ;(3*8*(picture_size_x)+31)/32
|
|
mov [Bmp_doublewords],ebx ;double words in string
|
|
shl ebx,2
|
|
mov [Bmp_bytes_per_string],ebx ;bytes per string
|
|
mov ecx,[Bmp_SizeY]
|
|
dec ecx
|
|
imul ebx,ecx
|
|
add edx,54
|
|
add edx,ebx ;in edx pointer to start of copy bit map
|
|
|
|
mov ebp,[Bmp_bytes_per_string]
|
|
shl ebp,1
|
|
|
|
mov ebx,[Bmp_SizeY]
|
|
|
|
mov esi,[PointerToImage]
|
|
mov edi,edx
|
|
|
|
mov edx,[Bmp_SizeX]
|
|
lea edx,[edx+edx*2]
|
|
|
|
copy_lines_24:
|
|
|
|
push esi
|
|
mov ecx,[Bmp_doublewords]
|
|
rep_movsb_24:
|
|
mov eax,[esi]
|
|
mov [edi],eax
|
|
add esi,4
|
|
add edi,4
|
|
dec ecx
|
|
jnz rep_movsb_24
|
|
pop esi
|
|
|
|
add esi,edx
|
|
sub edi,ebp
|
|
dec ebx
|
|
jnz copy_lines_24
|
|
|
|
;total size of bmp fille
|
|
mov edi,[WhereCodingBMP]
|
|
mov ebx,[Bmp_bytes_per_string]
|
|
imul ebx,[Bmp_SizeY]
|
|
add ebx,54
|
|
|
|
;write info to structure of bmp file
|
|
mov [edi],word 'BM'
|
|
mov [edi+2],ebx
|
|
mov [edi+10],dword 54 ;where begin bmp imige
|
|
mov [edi+14],dword 40 ;total size of structure number two
|
|
mov edx,[Bmp_SizeX]
|
|
mov ecx,[Bmp_SizeY]
|
|
mov [edi+18],edx
|
|
mov [edi+22],ecx
|
|
mov [edi+26],word 1
|
|
mov [edi+28],word 24 ;bytes per pixel
|
|
mov [edi+30],dword 0
|
|
mov edx,[Bmp_bytes_per_string]
|
|
imul edx,ecx
|
|
mov [edi+34],edx ;size of bmp image
|
|
mov [edi+38],dword 0
|
|
mov [edi+42],dword 0
|
|
mov [edi+46],dword 0
|
|
ret
|
|
no_32_bits_per_pixel:
|
|
|
|
|
|
ret
|
|
|
|
PointerToImage dd 0
|
|
WhereCodingBMP dd 0
|
|
BmpPalette dd 0
|
|
Bmp_SizeX dd 0
|
|
Bmp_SizeY dd 0
|
|
Bmp_Counter dd 0
|
|
Bmp_Counter2 dd 0
|
|
Bmp_Counter3 dd 0
|
|
Bmp_save1 dd 0
|
|
Bmp_save2 dd 0
|
|
Bmp_save3 dd 0
|
|
Bmp_bytes_per_string dd 0
|
|
Bmp_doublewords dd 0 |