lang equ ru ; ; Assembler ; SMALL ; CODE ; Graphics ; Libary ; ; Ver 0.18 By Pavlushin Evgeni (RUSSIA) ; www.waptap@mail.ru ;InfoList ;0.01 LoadImage ;0.02 SetBmp ;0.03 Bmptoimg, Setimg ~01.03.2004 ;0.04 Bug deleted, copyimg ~03.05.2004 ;0.05 fullimg, collimg ~05.05.2004 ;0.06 getimg ~09.05.2004 ;0.07 convbmp ~13.05.2004 ;0.08 fps ~14.05.2004 ;0.09 drawfbox ~03.06.2004 ;0.10 all macros optimized by Halyavin A., add at ~07.06.2004 ;0.11 many macros optimized by Halyavin A., add at ~30.08.2004 ;0.12 bmptoimg ~07.09.2004 ;0.13 imgtoimg ~08.09.2004 ;0.14 imgtoimg modify not brake bmp pict! ~09.09.2004 ;0.15 giftoimg, giftoani ~10.09.2004 ;0.16 setframe, rgbtobgr, setbmp deleted ~20.09.2004 ;0.17 modification giftoimg, giftoani, getframeoff ~01.10.2004 ;0.18 aframetoimg,aimgtoimg,frametoimg ~03.10.2004 aframetoimg_use_count=0 macro aframetoimg img, x, y, canvas,acol { local loo,loo2,acolor aframetoimg_use_count=aframetoimg_use_count+1 if aframetoimg_use_count = 1 jmp end_aframetoimg_proc acolor dd 0 aframetoimg_proc: ;getout coord mov [acolor],ebp mov edx,ebx ;img ;xsize movzx eax,word [edx] add eax,esi ;y cor ; mov eax,esi ;y cor mul dword [ecx] ;canvas xsize add eax,edi ;x cor mov ebp,ebx ;img ;xsize movzx edx,word [ebp] add eax,edx mov ebp,eax shl eax,1 add ebp,eax add ebp,ecx ;canvas+8;start add ebp,8 ;get img size add ebx,4 mov eax,ebx ;img ;xsize movzx esi,word [eax] movzx edi,word [eax+2] add ebx,4 mov edx,ebx ;img+8 loo2: push esi loo: ;test on alpha color mov eax,[edx] shl eax,8 shr eax,8 cmp eax,[acolor] jne yx add edx,3 add ebp,3 jmp nx yx: mov al,byte [edx] mov byte [ebp],al inc ebp inc edx mov al,byte [edx] mov byte [ebp],al inc ebp inc edx mov al,byte [edx] mov byte [ebp],al inc ebp inc edx nx: dec esi jnz loo pop esi sub ebp,3 mov eax,[ecx] ;offset = offset+((canxsize-imgxsize)*3) sub eax,esi add ebp,eax shl eax,1 add ebp,eax add ebp,3 dec edi jnz loo2 ret end_aframetoimg_proc: end if push img push canvas push x push y push acol pop ebp pop esi pop edi pop ecx pop ebx call aframetoimg_proc } frametoimg_use_count=0 macro frametoimg img, x, y, canvas { local loo,loo2 frametoimg_use_count=frametoimg_use_count+1 if frametoimg_use_count = 1 jmp end_frametoimg_proc frametoimg_proc: ;getout coord mov edx,ebx ;img ;xsize movzx eax,word [edx] add eax,esi ;y cor ; mov eax,esi ;y cor mul dword [ecx] ;canvas xsize add eax,edi ;x cor mov ebp,ebx ;img ;xsize movzx edx,word [ebp] add eax,edx mov ebp,eax shl eax,1 add ebp,eax add ebp,ecx ;canvas+8;start add ebp,8 ;get img size add ebx,4 mov eax,ebx ;img ;xsize movzx esi,word [eax] movzx edi,word [eax+2] add ebx,4 mov edx,ebx ;img+8 loo2: push esi loo: mov al,byte [edx] mov byte [ebp],al inc ebp inc edx mov al,byte [edx] mov byte [ebp],al inc ebp inc edx mov al,byte [edx] mov byte [ebp],al inc ebp inc edx dec esi jnz loo pop esi sub ebp,3 mov eax,[ecx] ;offset = offset+((canxsize-imgxsize)*3) sub eax,esi add ebp,eax shl eax,1 add ebp,eax add ebp,3 dec edi jnz loo2 ret end_frametoimg_proc: end if push img push canvas push x push y pop esi pop edi pop ecx pop ebx call frametoimg_proc } aimgtoimg_use_count=0 macro aimgtoimg img, x, y, canvas,acol { local loo,loo2,acolor aimgtoimg_use_count=aimgtoimg_use_count+1 if aimgtoimg_use_count = 1 jmp end_aimgtoimg_proc acolor dd 0 aimgtoimg_proc: ;getout coord mov [acolor],ebp mov eax,esi ;y cor mul dword [ecx] ;canvas xsize add eax,edi ;x cor mov ebp,eax shl eax,1 add ebp,eax add ebp,ecx ;canvas+8;start add ebp,8 ;get img size mov eax,ebx ;img ;xsize mov esi,[eax] add ebx,4 mov eax,ebx ; img+4 ;ysize mov edi,[eax] add ebx,4 mov edx,ebx ;img+8 loo2: push esi loo: ;test on alpha color mov eax,[edx] shl eax,8 shr eax,8 cmp eax,[acolor] jne yx add edx,3 add ebp,3 jmp nx yx: mov al,byte [edx] mov byte [ebp],al inc ebp inc edx mov al,byte [edx] mov byte [ebp],al inc ebp inc edx mov al,byte [edx] mov byte [ebp],al inc ebp inc edx nx: dec esi jnz loo pop esi sub ebp,3 mov eax,[ecx] ;offset = offset+((canxsize-imgxsize)*3) sub eax,esi add ebp,eax shl eax,1 add ebp,eax add ebp,3 dec edi jnz loo2 ret end_aimgtoimg_proc: end if push img push canvas push x push y push acol pop ebp pop esi pop edi pop ecx pop ebx call aimgtoimg_proc } imgtoimg_use_count=0 macro imgtoimg img, x, y, canvas { local loo,loo2 imgtoimg_use_count=imgtoimg_use_count+1 if imgtoimg_use_count = 1 jmp end_imgtoimg_proc imgtoimg_proc: ;getout coord mov eax,esi ;y cor mul dword [ecx] ;canvas xsize add eax,edi ;x cor mov ebp,eax shl eax,1 add ebp,eax add ebp,ecx ;canvas+8;start add ebp,8 ;get img size mov eax,ebx ;img ;xsize mov esi,[eax] add ebx,4 mov eax,ebx ; img+4 ;ysize mov edi,[eax] add ebx,4 mov edx,ebx ;img+8 loo2: push esi loo: mov al,byte [edx] mov byte [ebp],al inc ebp inc edx mov al,byte [edx] mov byte [ebp],al inc ebp inc edx mov al,byte [edx] mov byte [ebp],al inc ebp inc edx dec esi jnz loo pop esi sub ebp,3 mov eax,[ecx] ;offset = offset+((canxsize-imgxsize)*3) sub eax,esi add ebp,eax shl eax,1 add ebp,eax add ebp,3 dec edi jnz loo2 ret end_imgtoimg_proc: end if push img push canvas push x push y pop esi pop edi pop ecx pop ebx call imgtoimg_proc } ;DrawBox macro drawfbox x,y,xs,ys,color { words2reg ebx,x,xs ;x*65536+xs words2reg ecx,y,ys ;y*65536+ys mov edx,color mov eax,13 mcall } ; FPS - Set Frame Per Second Display fps_show_frequency=40 macro fps x,y,color,delcolor { local spdat,savetime,new_time,fps,fps_cntr,out_fps,new_time,ttt local no_out_fps jmp spdat savetime dd 0 fps_cntr dd 0 fps dd 0 ttt dd 0 spdat: get_time: mov eax,3 mcall cmp eax,[savetime] jne new_time inc [fps_cntr] cmp dword [ttt],0 je out_fps dec dword [ttt] jmp no_out_fps new_time: mov [savetime],eax mov ebx,[fps_cntr] mov [fps],ebx mov [fps_cntr],0 out_fps: if ~(delcolor eq ) mov ebx,x*65536+36 mov ecx,y*65536+7 mov edx,delcolor mov eax,13 mcall end if mov dword [ttt],fps_show_frequency mov eax,47 mov ebx,6*65536 ; mov bl,0 mov edx,x*65536+y mov esi,color mov ecx,[fps] mcall no_out_fps: } ; COLLIMG - Collusion image's _1dbounce_count=0; macro collimg img1_off,x1,y1,img2_off,x2,y2,otv { local bounce,exit,anot,bc,nbc mov esi,[img1_off] ;xs1 mov edi,[img2_off] ;ys2 mov eax,x1 ; mov ebx,x2 ; call _1dbounce mov edx,ecx mov esi,[img1_off+4] ;ys1 mov edi,[img2_off+4] ;ys2 mov eax,y1 ; mov ebx,y2 ; call _1dbounce add edx,ecx cmp edx,2 je bounce mov otv,0 jmp exit _1dbounce_count=_1dbounce_count+1 if _1dbounce_count = 1 _1dbounce: cmp ebx,eax jb anot add eax,esi cmp eax,ebx jbe nbc bc: mov ecx,1 ret anot: add ebx,edi cmp ebx,eax ja bc nbc: xor ecx,ecx ret end if bounce: mov otv,1 exit: } macro rgbtobgr image { local loo mov eax,[image] mul dword [image+4] mov ecx,eax mov esi,image+8 ; add esi,8 loo: mov al,[esi] mov bl,[esi+2] mov [esi],bl mov [esi+2],al add esi,3 dec ecx jnz loo } macro setimg x , y ,arg3 { mov eax,7 mov ebx,arg3 add ebx,8 mov cx,[arg3] shl ecx,16 add cx,[arg3+4] ; wordstoreg ecx,[arg3],[arg3+4] words2reg edx, x , y ;arg1*65536+arg2 mcall } macro setframe x , y ,arg3 { mov eax,7 mov ebx,arg3 add ebx,8 words2reg edx, x , y ;arg1*65536+arg2 add edx,dword [arg3] mov ecx,dword [arg3+4] mcall } macro getimg imgsrc,x,y,xs,ys,imgdest { local cyc if xs eqtype 0 mov dword [imgdest],xs else mov eax,xs mov dword [imgdest],eax end if if ys eqtype 0 mov dword [imgdest+4],ys else mov eax,ys mov dword [imgdest+4],eax end if mov eax,dword [imgsrc] ;getx size ; lea ecx,[eax+2*eax] mov ecx,eax shl ecx,1 add ecx,eax mov ebx,y mul ebx add eax,x mov edx,ecx lea eax,[eax+2*eax] ;eax=offset on imsrc ; mov ebp,eax ; shl eax,1 ; add eax,ebp mov ecx,xs mov ebx,ys mov edi,8+imgdest lea esi,[eax+8+imgsrc] ; mov esi,eax ; add esi,8 ; add esi,imgsrc cld cyc: movsw movsb dec ecx jne cyc add esi,edx mov ecx,xs sub esi,ecx sub esi,ecx sub esi,ecx dec ebx jne cyc } macro copyimg img2_off,img1_off { mov eax,dword [img1_off] mov ebx,dword [img1_off+4] mul ebx lea ecx,[eax+2*eax] lea esi,[img1_off+8] lea edi,[img2_off+8] cld rep movsb } macro fullimg img_off,xs,ys,color { local cop mov eax,xs mov ebx,ys mov dword [img_off],eax mov dword [img_off+4],ebx mul ebx lea ebp,[eax+2*eax] mov esi,color if color eqtype 0 mov ecx,color/65536 else mov ecx,esi shr ecx,16 end if xor edi,edi cop: mov word [img_off+8+edi],si add edi,2 mov byte [img_off+8+edi],cl inc edi cmp edi,ebp jne cop } ; number of frame in ecx ; callculatin offset of raw data macro getframeoff num_of_frame,offset_of_animation,offset_of_frame { local loo,setpic mov ebp,num_of_frame ;ecx mov esi,offset_of_animation;Image loo: cmp ebp,0 je setpic movzx eax,word [esi+4] movzx ebx,word [esi+6] mul ebx ;dword [esi+4] mov ebx,3 mul ebx add eax,8 add esi,eax dec ebp jmp loo setpic: mov dword offset_of_frame,esi } ; BMPTOIMG -Convert BMP format TO IMG format ; (SYNTAX) BMPTOIMG BMP_source_offset,IMG_dest_ofset ; (SAMPLE) View BMPLS.ASM sample. ; ( NOTE ) This is macros is not brake bmp structure! Tested in 32,8,4 bits bmptoimg_data_area_count=0 macro bmptoimg bmp_load_area,img_dest_area { local fileinfo,string,end_bmp,nodix local converttable,noaddelem,nextbit,convert1bpp,convert4bpp,convert2 local nextelem,convertno32,nomorestring,convert1,nextstring,yespicsize ;local qwe,bmpfn ; convert: movzx eax,word [bmp_load_area+28] mul dword [bmp_load_area+18] add eax,31 shr eax,5 mov dword [bmptoimg_data_area_dwps],eax ;dwps-doublewords per string shl eax,2 mov dword [bmptoimg_data_area_bps],eax ;bps-bytes per string cmp dword [bmp_load_area+34],0 jne yespicsize ;if picture size is defined mul dword [bmp_load_area+22] mov dword [bmp_load_area+34],eax yespicsize: mov ebp,img_dest_area+8 mov eax,bmp_load_area mov ebx,eax add ebx, [bmp_load_area+2];file size inc ebx mov dword [bmptoimg_soi],ebx ;soi-start of image area for drawing add eax, [bmp_load_area+10] mov dword [bmptoimg_data_area_sop],eax ;sop-start of picture in file add eax, [bmp_load_area+34] mov dword [bmptoimg_data_area_eop],eax ;eop-end of picture in file mov eax, [bmp_load_area+18] lea eax,[eax+2*eax] ;3x pixels in eax mov edi,dword [bmptoimg_soi] ;initializing mov esi,dword [bmptoimg_data_area_eop] sub esi,dword [bmptoimg_data_area_bps] nextstring: push edi push ebp cmp word [bmp_load_area+28],24 jne convertno32 mov edi,ebp mov ecx,[bmptoimg_data_area_dwps] cld rep movsd convert1: pop ebp pop edi sub esi,dword [bmptoimg_data_area_bps] sub esi,dword [bmptoimg_data_area_bps] cmp esi,dword [bmptoimg_data_area_sop] jb end_bmp add edi,eax add ebp,eax jmp nextstring convertno32: mov ebx,bmp_load_area add ebx, [bmp_load_area+14] add ebx,14 ;start of color table push esi add esi,dword [bmptoimg_data_area_bps] mov dword [bmptoimg_data_area_eos],esi pop esi nextelem: push eax movzx eax,byte [esi] cmp word [bmp_load_area+28],4 je convert4bpp cmp word [bmp_load_area+28],1 je convert1bpp call converttable convert2: pop eax inc esi cmp esi,dword [bmptoimg_data_area_eos] jae convert1 add edi,3 add ebp,3 jmp nextelem convert4bpp: shl ax,4 shr al,4 push ax movzx eax,ah call converttable add edi,3 add ebp,3 pop ax movzx eax,al call converttable jmp convert2 convert1bpp: mov ecx,eax mov edx,7 nextbit: xor eax,eax bt ecx,edx jnc noaddelem inc eax noaddelem: push edx call converttable pop edx dec edx js convert2 add edi,3 add ebp,3 jmp nextbit converttable: shl eax,2 add eax,ebx mov edx, dword [eax] ; mov dword [edi],edx mov [ebp],edx ret bmptoimg_data_area_count=bmptoimg_data_area_count+1 if bmptoimg_data_area_count = 1 ; DATA AREA bmptoimg_soi dd 0 bmptoimg_data_area_bps dd 0 bmptoimg_data_area_dwps dd 0 bmptoimg_data_area_sop dd 0 bmptoimg_data_area_eop dd 0 bmptoimg_data_area_eos dd 0 end if end_bmp: mov eax,dword [bmp_load_area+18] mov ebx,dword [bmp_load_area+22] mov dword [img_dest_area],eax mov dword [img_dest_area+4],ebx } if used ReadGIF ; For convert RGB to BGR COLOR_ORDER equ MENUETOS include 'gif_lite.inc' end if macro giftoani gifsrc,imgsrc,num_of_frames { gif_img_count = num_of_frames mov esi, gifsrc mov edi, imgsrc call ReadGIF } macro giftoimg gifsrc,imgsrc { if defined gif_img_count error 'giftoimg cannot be used in GIF multiple images mode. Use giftoani instead.' end if mov esi, gifsrc mov edi, imgsrc call ReadGIF }