WebSVN – Kolibri OS – Diff – /programs/demos/eyes/trunk/eyes.asm

+;
 ; EYES FOR MENUET
+;
 ; Written by Nikita Lesnikov (nlo_one@mail.ru)
+;
 ; Position of "eyes" is fixed. To close "eyes" just click on them.
+;
 ; NOTE: quite big timeout is used to disable blinking when redrawing.
 ; If "eyes" blink on your system, enlarge the TIMEOUT. If not, you can
 ; decrease it due to more realistic movement.
+;
 TIMEOUT equ 5
 ; EXECUTABLE HEADER
 use32
   org 0x0
   db "MENUET01"
   dd 0x01
   dd ENTRANCE
-  dd I_END
+  dd EYES_END
   dd 0x3000
   dd 0x3000
   dd 0x0
   dd 0x0
 include 'macros.inc'
 ENTRANCE: ; start of code
 ; ==== main ====
-prepare_eyes:
-mov esi,imagedata    ; transform grayscale to putimage format
-mov edi,skindata
-mov ecx,30
-transform_loop:
-push ecx
-mov  ecx,30
-lp1:
-lodsb
-stosb
-stosb
-stosb
-loop lp1
-sub esi,30
-mov  ecx,30
-lp2:
-lodsb
-stosb
-stosb
-stosb
-loop lp2
-pop  ecx
+call prepare_eyes
+call shape_window
+still:
-loop transform_loop
+call draw_eyes                   ; draw those funny "eyes"
 mov eax,23                       ; wait for event with timeout
-mov eax,14           ; calculating screen position
-int 0x40
-shr eax,1
-mov ax,59
-sub eax,30*65536
-mov [win_ebx],eax
+mov ebx,TIMEOUT
-mov [win_ecx],dword 10*65536+44
+int 0x40
-mov esi,imagedata    ; calculate shape reference area
+cmp eax,1                        ; redraw ?
-mov edi,winref
-mov ecx,900          ; disable drag bar
+jnz  no_draw
-mov al,0
-rep stosb
+call redraw_overlap
+no_draw:
-mov ecx,30           ; calculate circles for eyes
-shape_loop:
-push ecx
+cmp eax,2                        ; key ?
-call copy_line       ; duplicate (we have two eyes :)
+jz  key
+cmp eax,3                        ; button ?
+jz  button
-sub  esi,30
+jmp still                        ; loop
-call copy_line
-pop  ecx
-loop shape_loop
+; EVENTS
+key:
-; -====- shape -====-
+mov eax,2        ; just read and ignore
+int 0x40
+jmp still
-shape_window:
+button:          ; analyze button
+mov eax,-1       ; this is button 1 - we have only one button :-)
+int 0x40
-mov eax,50                   ; set up shape reference area
+jmp still
-xor ebx,ebx
-mov ecx,winref
-int 0x40
-call draw_window
-still:
-call draw_eyes                   ; draw those funny "eyes"
-_wait:
-mov eax,23                       ; wait for event with timeout
-mov ebx,TIMEOUT
+; -====- declarations -====-
-int 0x40
-        dec     eax
+imagedata equ EYES_END
-        jz      redraw
-        dec     eax
-        jz      key
-        dec     eax
+skindata  equ EYES_END+925
-        jnz     still
+winref    equ EYES_END+6325
 button:
-        or      eax, -1
+; -====- shape -====-
         int     0x40
-key:
+shape_window:
         mov     al, 2
-        int     0x40
+mov eax,50                   ; set up shape reference area
-        jmp     still
+mov ebx,0
-redraw:
+mov ecx,winref
-        call    draw_window
+int 0x40
         call    redraw_eyes
-        jmp     _wait
+ret
 ; -====- redrawing -====-
 draw_eyes:                   ; check mousepos to disable blinking
 mov eax,37
 xor ebx,ebx
 int 0x40
 cmp dword [mouse],eax
 jne redraw_ok
 ret
 redraw_ok:
 mov [mouse],eax
-redraw_eyes:
-mov eax,7
-mov ebx,skindata
-mov ecx,60*65536+30
-mov edx,15
-int 0x40
-mov eax,15
-mov ebx,30
-call draw_eye_point
-add eax,30
-call draw_eye_point
-ret
-draw_window:
+redraw_overlap:              ; label for redraw event (without checkmouse)
 mov eax,12
 mov ebx,1
 int 0x40
 xor eax,eax                  ; define window
 mov ebx,[win_ebx]
 mov ecx,[win_ecx]
 xor edx,edx
 xor esi,esi
 xor edi,edi
 int 0x40
 mov eax,8                    ; define closebutton
 mov ebx,60
 mov ecx,45
 mov edx,1
 int 0x40
+mov eax,7
+mov ebx,skindata
+mov ecx,60*65536+30
+mov edx,15
+int 0x40
+mov eax,15
+mov ebx,30
+call draw_eye_point
+add eax,30
+call draw_eye_point
 mov eax,12
 mov ebx,2
 int 0x40
 ret
 draw_eye_point:          ; draw eye point (EAX=X, EBX=Y)
 pusha
-        movzx   ecx, word [mouse+2] ; ecx = mousex, esi = mousey
+mov ecx, [mouse]    ; ecx = mousex, edx = mousey
+mov edx,ecx
+shr ecx,16
-        movzx   esi, word [mouse]
+and edx,0xFFFF
 ; ===> calculate position
 push eax
 push ebx
 mov byte [sign1],0
-mov edx, [win_ebx]
+mov esi, [win_ebx]
-shr edx,16
+shr esi,16
-add eax,edx
+add eax,esi
 sub ecx,eax                 ; ECX=ECX-EAX (signed) , ECX=|ECX|
 jnc abs_ok_1
 neg ecx
 mov byte [sign1],1
 abs_ok_1:
-        push    ecx         ; save x distance
+mov [temp1],ecx
 mov byte [sign2],0
-mov edx,[win_ecx]
+mov esi,[win_ecx]
-shr edx,16
+shr esi,16
-add ebx,edx
+add ebx,esi
-sub esi,ebx                 ; EDX=EDX-EBX (signed) , EDX=|EDX|
+sub edx,ebx                 ; EDX=EDX-EBX (signed) , EDX=|EDX|
 jnc abs_ok_2
-neg esi
+neg edx
 mov byte [sign2],1
 abs_ok_2:
-mov [temp2],esi
+mov [temp2],edx
+pop ebx
+pop eax
+push eax                    ; ECX*=ECX
+push edx
-; ESI = ECX*ECX+ESI*ESI
+xor eax,eax
+xor edx,edx
+mov ax,cx
+mul cx
-        imul    ecx, ecx
+shl edx,16
-        imul    esi, esi
+or  eax,edx
+mov ecx,eax
+pop edx
-        add     esi, ecx
+pop eax
+push eax                    ; EDX*=EDX
+push ecx
 mov  ecx,edx
+xor  eax,eax
+xor  edx,edx
+mov  ax,cx
+mul  cx
+shl  edx,16
+or   eax,edx
+mov  edx,eax
+pop  ecx
+pop  eax
+push ebx
+push ecx
+push edx
+push eax
+mov  ebx,ecx                 ; EBX=ECX+EDX
+add  ebx,edx
+xor  edi,edi                 ; ESI=SQRT(EBX)
+mov  ecx,edi
-xor  ecx,ecx                 ; EDX=SQRT(EBX)
+mov  edx,edi
+inc  edi
-xor  edx,edx
+mov  eax,edi
-mov  eax,1
-sqrt_loop:
+inc  edi
-; in this moment ecx=edx*edx, eax=1+2*edx
-add  ecx,eax
+sqrt_loop:
-inc  eax
+add  ecx,eax
-inc  eax
+add  eax,edi
 inc  edx
-cmp  ecx,esi
+cmp  ecx,ebx
+jbe  sqrt_loop
-jbe  sqrt_loop
+dec  edx
-dec  edx
+mov  esi,edx
-mov  eax,edx                   ; EDX=EDX/7
+mov  ax,si                   ; ESI=ESI/7
 mov  dl,7
 div  dl
-and  eax,0xFF
+and  ax,0xFF
-mov  edx,eax                   ; EDX ? 0 : EDX=1
+mov  si,ax                   ; ESI ? 0 : ESI=1
 jnz  nozeroflag1
-inc  edx
+mov  si,1
-nozeroflag1:
+nozeroflag1:
-        pop     eax             ; EAX = x distance
-                                ; ECX=EAX/EDX
+pop eax
+pop edx
+pop ecx
+pop ebx
+push eax                     ; ECX=[temp1]/ESI
+push edx
+mov  eax,[temp1]
+mov  dx,si
+div  dl
-div  dl
+mov  cl,al
-movzx ecx,al
+and  ecx,0xFF
-pop  ebx
+pop  edx
 pop  eax
+cmp  byte [sign1],1
-        cmp     byte [sign1], 0
+je   subtract_1
+add  eax,ecx                  ; EAX=EAX+ECX
-        jz      @f
+jmp  calc_ok_1
+subtract_1:
-        neg     ecx
+sub  eax,ecx                  ; EAX=EAX-ECX
+calc_ok_1:
 @@:
-        add     eax, ecx
+push eax                      ; EDX=[temp2]/ESI
+push ecx
+mov  eax,[temp2]
 mov  dx,si
-push eax                      ; ESI=[temp2]/EDX
+div  dl
-mov  eax,[temp2]
+mov  dl,al
-div  dl
+and  dx,0xFF
+pop  ecx
-movzx esi,al
+pop  eax
-pop  eax
+cmp  byte [sign2],1
 je   subtract_2
-        cmp     byte [sign2], 0
+add  ebx,edx                  ; EBX=EBX+EDX
-        jz      @f
+jmp  calc_ok_2
-        neg     esi
+subtract_2:
-@@:
+sub  ebx,edx                  ; EBX=EBX-EDX
-        add     ebx, esi
+calc_ok_2:
 ; <===
-; draw point
+mov ecx,ebx         ; draw point
-        lea     ecx, [ebx-2]
+mov ebx,eax
+mov eax,13
+dec ecx
+dec ecx
+dec ebx
-        lea     ebx, [eax-2]
+dec ebx
 shl ecx,16
 add ecx,4
 shl ebx,16
 add ebx,4
 mov eax,13
 xor edx,edx
 int 0x40
 popa
 ret
 ; -====- working on images and window -====-
+prepare_eyes:
+;mov eax,6            ; load EYES.RAW
+;mov ebx,graphix
+;mov ecx,0x00000000
+;mov edx,0xFFFFFFFF
+;mov esi,imagedata
+;int 0x40
+;cmp eax,0xFFFFFFFF
+;jnz filefound
+;mov eax,-1           ; file not exists...
+;int 0x40
+;filefound:
+mov esi,imagedata+25 ; transform grayscale to putimage format
+mov edi,skindata
+mov ecx,30
+transform_loop:
+push ecx
+mov  ecx,30
+lp1:
+lodsb
+stosb
+stosb
+stosb
+loop lp1
+sub esi,30
+mov  ecx,30
+lp2:
+lodsb
+stosb
+stosb
+stosb
+loop lp2
+pop  ecx
+loop transform_loop
+mov eax,14           ; calculating screen position
+int 0x40
+shr eax,1
+mov ax,59
+sub eax,30*65536
+mov [win_ebx],eax
+mov [win_ecx],dword 10*65536+44
+mov esi,imagedata+25 ; calculate shape reference area
+mov edi,winref
+mov ecx,900          ; disable drag bar
+mov al,0
+rep stosb
+mov ecx,30           ; calculate circles for eyes
+shape_loop:
+push ecx
+call copy_line       ; duplicate (we have two eyes :)
+sub  esi,30
+call copy_line
+pop  ecx
+loop shape_loop
+ret
 copy_line:       ; copy single line to shape reference area
 mov ecx,30
 cpl_loop:
 lodsb
-; input is image: 0xFF = white pixel, 0 = black pixel
+cmp al,0xFF
-; output is membership boolean: 0 = pixel no, 1 = pixel ok
+jnz  set_one
-inc eax
+mov al,0
+jmp cpl_ok
+set_one:
+mov al,1
+cpl_ok:
 stosb
 loop cpl_loop
 ret
 ; DATA
 ; environment
 win_ebx  dd     0x0
 win_ecx  dd     0x0
 mouse    dd     0xFFFFFFFF
-EYES_END: ; end of code
-imagedata:
-; texture is 900 bytes starting from 25th
+;graphix  db     "EYES.RAW    "
-file "eyes.raw":25,900
-I_END:
 ; temporary storage for math routines
-sign1   db      ?
+temp1    dd     0
-sign2   db      ?
+temp2    dd     0
-align 4
+sign1    db     0
-temp2   dd      ?
+sign2    db     0
-skindata rb     60*30*3
+EYES_END: ; end of code
-winref  rb      45*60
+file "EYES.RAW"
-;>
+mov>

Subversion Repositories Kolibri OS

(root)/programs/demos/eyes/trunk/eyes.asm – Rev 133 → 205