WebSVN – Kolibri OS – Diff – /programs/games/phenix/trunk/ascgl.inc

 ;     SMALL
 ;       CODE
 ;         Graphics
 ;           Libary
+;
+;   Ver 0.18
+;
-;   Ver 0.18 By Pavlushin Evgeni (RUSSIA)
+; draw image into image with alpha color mask
+; image_draw_acimage dest, source, x, y, alpha_color
+;
+macro image_draw_acimage dest, source, x, y, alpha_color
+{
+local next_pix,next_line,skip_pix,no_skip
+   push dest
+   push source
+   push x
+   push y
-;   www.waptap@mail.ru
+   push alpha_color
+   pop ebp  ; alpha color
+   pop eax  ; y
+   pop ebx  ; x
+   pop esi  ; src
+   pop edi  ; dest
+   call image_draw_acimage_proc
+if ~ defined image_draw_acimage_used
+image_draw_acimage_used equ 1
+   jmp end_image_draw_acimage_proc
+image_draw_acimage_proc:
+   mov ecx,dword [edi]   ; ecx = canvas width
+   mul ecx       ; edx:eax = ypos * canvas width
+   add eax,ebx   ; eax =  (ypos * canvas width) + xpos
+   lea eax,[eax+eax*2+8] ; eax=(y*xsize+x)*3+8 (8=skip xy size dwords)
+   mov edx,[esi]   ; edx = img width
+   sub ecx,edx     ; ecx = canvas width - img width
+   lea ebx,[ecx*2+ecx] ; ebx = how many pixels skip for new line
+   mov ecx,[esi+4] ; ecx = img height
+   add esi,8       ; esi + 8 for skip xy size dwords
+   add edi,eax     ; edi = dest position
+   shl ebp,8       ; for fast compare with alpha color
+   cld             ; set movs direction flag
+next_line:
+   push edx
+next_pix:
+   mov eax,[esi]
+   shl eax,8
+   cmp eax,ebp
+   je  skip_pix
+   movsw
+   movsb
+   jmp no_skip
+skip_pix:
+   add esi,3
+   add edi,3
+no_skip:
+   dec edx
+   jnz next_pix
+   pop edx
+   add edi,ebx
+   dec ecx
+   jnz next_line
+   ret
+end_image_draw_acimage_proc :
+end if
+}
+macro image_set_size image,width,height
+{
+   mov dword [image],width
+   mov dword [image+4],height
+}
+; label - draw label on window
+; example:
+; label 10,12,'Hello World!',cl_Green+font_size_x4+utf16
+macro image_draw_label image,x,y,text,color
+{
+local label_text
+   draw_to_buffer   equ 00001000b shl 24
+   jmp @f
+label_text db text
+@@:
+   words2reg ebx,x,y       ; ebx - position
+   dword2reg ecx,color+draw_to_buffer ; ecx - color
+   mov edi,image
+   mov edx,label_text      ; edx - address of label text
+   mov esi,@b-label_text   ; esi - size of libel in bytes
+   mov eax,4
+   mcall
+}
+; draw_frect - draw filled rect
+macro draw_frect x,y,xs,ys,color
+{
+   wordstoreg ebx,x,xs ;x*65536+xs
+   wordstoreg ecx,y,ys ;y*65536+ys
+   mov  edx,color
+   mov  eax,13
+   mcall
+}
+; draw_label - Draw label in window
+; example:
+; draw_label 10,12,'Hello World!',cl_Green+font_size_x4+utf16
+macro draw_label x,y,text,color
-;InfoList
+{
+local label_text
+   words2reg ebx,x,y   ; ebx - position
-;0.01 LoadImage
+if text eqtype 123 | text eqtype eax
-;0.02 SetBmp
+   movt edx,text
+   mov ecx,color+(1 shl 31)  ; ecx - color
-;0.03 Bmptoimg, Setimg ~01.03.2004
+else
+   mov edx,label_text  ; edx - address of label text
+   jmp @f
+label_text db text
+@@:
-;0.04 Bug deleted, copyimg ~03.05.2004
+   mov esi,@b-label_text     ; esi - size of libel in bytes
+   movt ecx,color            ; ecx - color
-;0.05 fullimg, collimg ~05.05.2004
+end if
+   mov eax,4
+   mcall
+}
-;0.06 getimg ~09.05.2004
-;0.07 convbmp ~13.05.2004
+hide_zeros equ (1 shl 31)
-;0.08 fps ~14.05.2004
+use_bg_color equ (1 shl 30)
+use_big_font equ (1 shl 28)
-;0.09 drawfbox ~03.06.2004
+macro draw_number data, x, y, color, numtype, bg_color
+{
+   movt ecx,data
-;0.10 all macros optimized by halyavin, add at ~07.06.2004
+   movt ebx,numtype
+   mov bl,0     ; if bl = 0, ecx is contain number
+   words2reg edx,x,y
+if bg_color eq
+   movt esi,color
-;0.11 many macros optimized by halyavin, add at ~30.08.2004
+else
-;0.12 bmptoimg ~07.09.2004
+   movt esi,color+use_bg_color
+   movt edi,bg_color
+end if
+   mov eax,47
+   mcall
+}
-;0.13 imgtoimg ~08.09.2004
-;0.14 imgtoimg modify not brake bmp pict! ~09.09.2004
+; draw_image - macro for draw image on window area
+macro draw_image x, y, image
-;0.15 giftoimg, giftoani ~10.09.2004
+{
-;0.16 setframe, rgbtobgr, setbmp deleted ~20.09.2004
+   mov ecx,[image-2]    ; -2 for except shl ecx,16
+   mov cx,[image+4]     ; ecx = xsize*65536+ysize
-;0.17 modification giftoimg, giftoani, getframeoff ~01.10.2004
+   wordstoreg edx, x, y ; edx = x*65536+y
+   lea ebx,[image+8]    ; ebx = image data address
+   mov eax,7            ; eax = 7 is draw image function
+   mcall
 ;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
+   jmp end_aframetoimg_proc
 acolor dd 0
 aframetoimg_proc:
 ;getout coord
-    mov [acolor],ebp
+   mov [acolor],ebp
-    mov edx,ebx ;img   ;xsize
+   mov edx,ebx ;img   ;xsize
-    movzx eax,word [edx]
+   movzx eax,word [edx]
-    add eax,esi ;y cor
+   add eax,esi ;y cor
 ;    mov eax,esi ;y cor
-    mul dword [ecx] ;canvas xsize
+   mul dword [ecx] ;canvas xsize
-    add eax,edi ;x cor
+   add eax,edi ;x cor
-    mov ebp,ebx ;img   ;xsize
+   mov ebp,ebx ;img   ;xsize
-    movzx edx,word [ebp]
+   movzx edx,word [ebp]
-    add eax,edx
+   add eax,edx
-    mov ebp,eax
+   mov ebp,eax
-    shl eax,1
+   shl eax,1
-    add ebp,eax
+   add ebp,eax
-    add ebp,ecx ;canvas+8;start
+   add ebp,ecx ;canvas+8;start
-    add ebp,8
+   add ebp,8
 ;get img size
-    add ebx,4
+   add ebx,4
-    mov eax,ebx ;img   ;xsize
+   mov eax,ebx ;img   ;xsize
-    movzx esi,word [eax]
+   movzx esi,word [eax]
-    movzx edi,word [eax+2]
+   movzx edi,word [eax+2]
-    add ebx,4
+   add ebx,4
-    mov edx,ebx ;img+8
+   mov edx,ebx ;img+8
 loo2:
 push esi
 loo:
 ;test on alpha color
-    mov eax,[edx]
+   mov eax,[edx]
-    shl eax,8
+   shl eax,8
-    shr eax,8
-    cmp eax,[acolor]
+   shr eax,8
-    jne  yx
+   cmp eax,[acolor]
-    add edx,3
+   jne  yx
-    add ebp,3
+   add edx,3
-    jmp nx
+   add ebp,3
-yx:
+   jmp nx
+yx:
-    mov al,byte [edx]
+   mov al,byte [edx]
-    mov byte [ebp],al
+   mov byte [ebp],al
-    inc ebp
+   inc ebp
-    inc edx
+   inc edx
-    mov al,byte [edx]
+   mov al,byte [edx]
-    mov byte [ebp],al
+   mov byte [ebp],al
-    inc ebp
+   inc ebp
-    inc edx
+   inc edx
-    mov al,byte [edx]
+   mov al,byte [edx]
-    mov byte [ebp],al
+   mov byte [ebp],al
-    inc ebp
+   inc ebp
-    inc edx
+   inc edx
 nx:
-    dec esi
+   dec esi
-    jnz loo
+   jnz loo
 pop esi
-    sub ebp,3
+   sub ebp,3
-    mov eax,[ecx]  ;offset = offset+((canxsize-imgxsize)*3)
+   mov eax,[ecx]  ;offset = offset+((canxsize-imgxsize)*3)
-    sub eax,esi
+   sub eax,esi
-    add ebp,eax
+   add ebp,eax
-    shl eax,1
+   shl eax,1
-    add ebp,eax
+   add ebp,eax
-    add ebp,3
+   add ebp,3
-    dec edi
+   dec edi
-    jnz loo2
+   jnz loo2
-    ret
+   ret
 end_aframetoimg_proc:
 end if
-    push img
+   push img
-    push canvas
+   push canvas
-    push x
+   push x
-    push y
+   push y
-    push acol
+   push acol
-    pop  ebp
+   pop  ebp
-    pop  esi
+   pop  esi
-    pop  edi
+   pop  edi
-    pop ecx
+   pop ecx
-    pop ebx
+   pop ebx
-    call aframetoimg_proc
+   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
+   jmp end_frametoimg_proc
 frametoimg_proc:
 ;getout coord
-    mov edx,ebx ;img   ;xsize
+   mov edx,ebx ;img   ;xsize
-    movzx eax,word [edx]
+   movzx eax,word [edx]
-    add eax,esi ;y cor
+   add eax,esi ;y cor
 ;    mov eax,esi ;y cor
-    mul dword [ecx] ;canvas xsize
+   mul dword [ecx] ;canvas xsize
-    add eax,edi ;x cor
+   add eax,edi ;x cor
-    mov ebp,ebx ;img   ;xsize
+   mov ebp,ebx ;img   ;xsize
-    movzx edx,word [ebp]
+   movzx edx,word [ebp]
-    add eax,edx
+   add eax,edx
-    mov ebp,eax
+   mov ebp,eax
-    shl eax,1
+   shl eax,1
-    add ebp,eax
+   add ebp,eax
-    add ebp,ecx ;canvas+8;start
+   add ebp,ecx ;canvas+8;start
-    add ebp,8
+   add ebp,8
 ;get img size
-    add ebx,4
+   add ebx,4
-    mov eax,ebx ;img   ;xsize
+   mov eax,ebx ;img   ;xsize
-    movzx esi,word [eax]
+   movzx esi,word [eax]
-    movzx edi,word [eax+2]
+   movzx edi,word [eax+2]
-    add ebx,4
+   add ebx,4
-    mov edx,ebx ;img+8
+   mov edx,ebx ;img+8
 loo2:
 push esi
 loo:
-    mov al,byte [edx]
+   mov al,byte [edx]
-    mov byte [ebp],al
+   mov byte [ebp],al
-    inc ebp
+   inc ebp
-    inc edx
+   inc edx
-    mov al,byte [edx]
+   mov al,byte [edx]
-    mov byte [ebp],al
+   mov byte [ebp],al
-    inc ebp
+   inc ebp
-    inc edx
+   inc edx
-    mov al,byte [edx]
+   mov al,byte [edx]
-    mov byte [ebp],al
+   mov byte [ebp],al
-    inc ebp
+   inc ebp
-    inc edx
+   inc edx
-    dec esi
+   dec esi
-    jnz loo
+   jnz loo
 pop esi
-    sub ebp,3
+   sub ebp,3
-    mov eax,[ecx]  ;offset = offset+((canxsize-imgxsize)*3)
+   mov eax,[ecx]  ;offset = offset+((canxsize-imgxsize)*3)
-    sub eax,esi
+   sub eax,esi
-    add ebp,eax
+   add ebp,eax
-    shl eax,1
+   shl eax,1
-    add ebp,eax
+   add ebp,eax
-    add ebp,3
+   add ebp,3
-    dec edi
+   dec edi
-    jnz loo2
+   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
+   ret
-    push x
+end_frametoimg_proc:
-    push y
+end if
-    push acol
+   push img
-    pop  ebp
+   push canvas
-    pop  esi
+   push x
-    pop  edi
+   push y
-    pop ecx
+   pop  esi
-    pop ebx
+   pop  edi
-    call aimgtoimg_proc
+   pop ecx
-}
+   pop ebx
+   call frametoimg_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
+   jmp end_imgtoimg_proc
 imgtoimg_proc:
 ;getout coord
-    mov eax,esi ;y cor
+   mov eax,esi ;y cor
-    mul dword [ecx] ;canvas xsize
+   mul dword [ecx] ;canvas xsize
-    add eax,edi ;x cor
+   add eax,edi ;x cor
-    mov ebp,eax
+   mov ebp,eax
-    shl eax,1
+   shl eax,1
-    add ebp,eax
+   add ebp,eax
-    add ebp,ecx ;canvas+8;start
+   add ebp,ecx ;canvas+8;start
-    add ebp,8
+   add ebp,8
 ;get img size
-    mov eax,ebx ;img   ;xsize
+   mov eax,ebx ;img   ;xsize
-    mov esi,[eax]
+   mov esi,[eax]
-    add ebx,4
+   add ebx,4
-    mov eax,ebx ; img+4 ;ysize
+   mov eax,ebx ; img+4 ;ysize
-    mov edi,[eax]
+   mov edi,[eax]
-    add ebx,4
+   add ebx,4
-    mov edx,ebx ;img+8
+   mov edx,ebx ;img+8
 loo2:
 push esi
 loo:
-    mov al,byte [edx]
+   mov al,byte [edx]
-    mov byte [ebp],al
+   mov byte [ebp],al
-    inc ebp
+   inc ebp
-    inc edx
+   inc edx
-    mov al,byte [edx]
+   mov al,byte [edx]
-    mov byte [ebp],al
-    inc ebp
+   mov byte [ebp],al
-    inc edx
-    mov al,byte [edx]
+   inc ebp
-    mov byte [ebp],al
+   inc edx
-    inc ebp
+   mov al,byte [edx]
-    inc edx
+   mov byte [ebp],al
-    dec esi
+   inc ebp
-    jnz loo
+   inc edx
-pop esi
+   dec esi
-    sub ebp,3
+   jnz loo
-    mov eax,[ecx]  ;offset = offset+((canxsize-imgxsize)*3)
+pop esi
-    sub eax,esi
+   sub ebp,3
-    add ebp,eax
+   mov eax,[ecx]  ;offset = offset+((canxsize-imgxsize)*3)
-    shl eax,1
+   sub eax,esi
-    add ebp,eax
+   add ebp,eax
+   shl eax,1
-    add ebp,3
-    dec edi
-    jnz loo2
-    ret
-end_imgtoimg_proc:
-end if
-    push img
-    push canvas
-    push x
-    push y
-    pop  esi
+   add ebp,eax
-    pop  edi
+   add ebp,3
-    pop  ecx
+   dec edi
-    pop  ebx
+   jnz loo2
-    call imgtoimg_proc
+   ret
 end_imgtoimg_proc:
 end if
+   push img
-;DrawBox
+   push canvas
-macro drawfbox x,y,xs,ys,color
+   push x
    push y
-    wordstoreg ebx,x,xs ;x*65536+xs
+   pop  esi
-    wordstoreg ecx,y,ys ;y*65536+ys
+   pop  edi
-    mov  edx,color
+   pop  ecx
-    mov  eax,13
+   pop  ebx
-    mcall
+   call imgtoimg_proc
 }
 ; 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
+   jmp spdat
 savetime dd 0
 fps_cntr dd 0
 fps      dd 0
 ttt      dd 0
 spdat:
 get_time:
-    mov eax,3
+   mov eax,3
-    mcall
+   mcall
-    cmp eax,[savetime]
+   cmp eax,[savetime]
-    jne new_time
+   jne new_time
-    inc [fps_cntr]
+   inc [fps_cntr]
-    cmp dword [ttt],0
+   cmp dword [ttt],0
-    je  out_fps
+   je  out_fps
-    dec dword [ttt]
+   dec dword [ttt]
-    jmp no_out_fps
+   jmp no_out_fps
 new_time:
-    mov [savetime],eax
+   mov [savetime],eax
-    mov ebx,[fps_cntr]
+   mov ebx,[fps_cntr]
-    mov [fps],ebx
+   mov [fps],ebx
-    mov [fps_cntr],0
+   mov [fps_cntr],0
 out_fps:
-if ~(delcolor eq )
-    mov ebx,x*65536+30
-    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,5*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
+if ~(delcolor eq )
-	jbe nbc
+   mov ebx,x*65536+30
-bc:
-	mov ecx,1
+   mov ecx,y*65536+7
-	ret
+   mov edx,delcolor
-anot:
+   mov eax,13
-    add ebx,edi
+   mcall
-	cmp ebx,eax
-	ja  bc
+end if
-nbc:
+   mov dword [ttt],fps_show_frequency
-	xor ecx,ecx
+   mov eax,47
-	ret
+   mov ebx,5*65536
-end if
+   ;   mov bl,0
-bounce:
+   mov edx,x*65536+y
-	mov otv,1
+   mov esi,color
-exit:
+   mov ecx,[fps]
-}
-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
+   mcall
-   add esi,3
+no_out_fps:
    dec ecx
-   jnz loo
-}
+macro rgbtobgr image
+{
+   mov eax,[image]
-macro setimg x , y ,arg3
+   mul dword [image+4]
-{
+   mov ecx,eax
-    mov  eax,7
+   mov esi,image+8
-    mov  ebx,arg3
+@@:
-    add  ebx,8
+   mov al,[esi]
-    mov  cx,[arg3]
+   mov bl,[esi+2]
+   mov [esi],bl
-    shl  ecx,16
+   mov [esi+2],al
-    add  cx,[arg3+4]
+   add esi,3
-;    wordstoreg ecx,[arg3],[arg3+4]
+   dec ecx
-    wordstoreg edx, x , y  ;arg1*65536+arg2
+   jnz @b
-    mcall
+}
-}
 macro setframe x , y ,arg3
-macro setframe x , y ,arg3
+{
-{
+   mov  eax,7
-    mov  eax,7
+   mov  ebx,arg3
+   add  ebx,8
+   wordstoreg edx, x , y  ;arg1*65536+arg2
-    mov  ebx,arg3
+   add  edx,dword [arg3]
-    add  ebx,8
+   mov  ecx,dword [arg3+4]
-    wordstoreg edx, x , y  ;arg1*65536+arg2
+   mcall
-    add  edx,dword [arg3]
+}
-    mov  ecx,dword [arg3+4]
-    mcall
-}
+macro getimg imgsrc,x,y,xs,ys,imgdest
-macro getimg imgsrc,x,y,xs,ys,imgdest
 {
-local cyc
+local next_pixel,next_line
-if xs eqtype 0
+; store image size
-    mov dword [imgdest],xs
-else
+if xs eqtype 0 | xs eqtype eax
-    mov eax,xs
+   mov dword [imgdest],xs
-    mov dword [imgdest],eax
+else
-end if
+   mov eax,xs
-if ys eqtype 0
-    mov dword [imgdest+4],ys
-else
-    mov eax,ys
+   mov dword [imgdest],eax
-    mov dword [imgdest+4],eax
+end if
-end if
+if ys eqtype 0 | ys eqtype eax
+   mov dword [imgdest+4],ys
-    mov eax,dword [imgsrc] ;getx size
+else
-;    lea ecx,[eax+2*eax]
+   ;push ys
-    mov ecx,eax
-    shl ecx,1
+   ;pop dword [imgdest+4]
-    add ecx,eax
+   mov eax,ys
-    mov ebx,y
+   mov dword [imgdest+4],eax
-    mul ebx
+end if
-    add eax,x
-    mov edx,ecx
+   lea edi,[8+imgdest]    ; edi = destinaton address
-    lea eax,[eax+2*eax]  ;eax=offset on imsrc
-;    mov ebp,eax
-;    shl eax,1
-;    add eax,ebp
+   mov eax,dword [imgsrc] ; eax = xsize of source image in pixels
-    mov ecx,xs
+   push eax               ; store eax before mul operation
-    mov ebx,ys
+   mov edx,y
    mul edx                ; edx:eax = eax*edx
-    mov edi,8+imgdest
+   add eax,x
-    lea esi,[eax+8+imgsrc]
+   lea esi,[imgsrc+8+eax+2*eax]    ; esi = start offset on img src
-;    mov esi,eax
+   pop eax                ; restore eax
-;    add esi,8
+   sub eax,xs             ; eax = src image xsize - crop fragment xsize
-;    add esi,imgsrc
+   lea eax,[eax+eax*2]    ; eax = eax * 3 (bytes per pixel)
-    cld
+   ; this loop used esi,edi,ecx,edx,eax registers
-cyc:
+   mov edx,ys     ; edx = ysize in pixels
-    movsw
+   cld            ; set direction
-    movsb
+next_line:
-    dec ecx
+   mov ecx,xs     ; ecx = xsize in pixels
-    jne cyc
+next_pixel:
-    add esi,edx
+   movsw
-    mov ecx,xs
+   movsb          ; write 3 bytes pixel
-    sub esi,ecx
+   dec ecx
-    sub esi,ecx
+   jnz next_pixel
-    sub esi,ecx
+   add esi,eax
-    dec ebx
+   dec edx
-    jne cyc
+   jnz next_line
 }
 macro copyimg img2_off,img1_off
+{
-    mov  eax,dword [img1_off]
+   mov  eax,dword [img1_off]
-    mov  ebx,dword [img1_off+4]
+   mov  ebx,dword [img1_off+4]
-    mul  ebx
+   mul  ebx
-    lea  ecx,[eax+2*eax]
+   lea  ecx,[eax+2*eax]
-    lea  esi,[img1_off+8]
+   lea  esi,[img1_off+8]
-    lea  edi,[img2_off+8]
+   lea  edi,[img2_off+8]
-    cld
+   cld
-    rep  movsb
+   rep  movsb
 }
 macro fullimg img_off,xs,ys,color
+{
-local cop
-    mov eax,xs
-    mov ebx,ys
+local cop
-    mov  dword [img_off],eax
+   mov eax,xs
-    mov  dword [img_off+4],ebx
+   mov ebx,ys
-    mul  ebx
+   mov  dword [img_off],eax
-    lea  ebp,[eax+2*eax]
+   mov  dword [img_off+4],ebx
-    mov  esi,color
+   mul  ebx
   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
 ; ( NOTE )  This is macro 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
-;    mov  dword [edi],edx
+   ;    mov  dword [edi],edx
-    mov [ebp],edx
+   mov [ebp],edx
-    ret
+   ret
 bmptoimg_data_area_eop      dd 0
 bmptoimg_data_area_eos      dd 0
 end if
 end_bmp:
-    mov  eax,dword [bmp_load_area+18]
+   mov  eax,dword [bmp_load_area+18]
-    mov  ebx,dword [bmp_load_area+22]
+   mov  ebx,dword [bmp_load_area+22]
-    mov  dword [img_dest_area],eax
+   mov  dword [img_dest_area],eax
-    mov  dword [img_dest_area+4],ebx
+   mov  dword [img_dest_area+4],ebx
+}
 if used ReadGIF
 end if
 macro giftoani gifsrc,imgsrc,num_of_frames
+{
 gif_img_count = num_of_frames
-        mov     esi, gifsrc
+   mov     esi, gifsrc
-        mov     edi, imgsrc
+   mov     edi, imgsrc
-        call    ReadGIF
+   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     esi, gifsrc
-        mov     edi, imgsrc
+   mov     edi, imgsrc

Subversion Repositories Kolibri OS

(root)/programs/games/phenix/trunk/ascgl.inc @ 5098 – Rev 552 → 9241