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

   org 0x0
   db "MENUET01"
   dd 0x01
   dd ENTRANCE
-  dd EYES_END
+  dd I_END
   dd 0x3000
   dd 0x3000
   dd 0x0
   dd 0x0
 include 'macros.inc'
+ENTRANCE: ; start of code
-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
-; ==== main ====
+stosb
+stosb
+stosb
+loop lp1
+sub esi,30
-call prepare_eyes
+mov  ecx,30
+lp2:
+lodsb
+stosb
-call shape_window
+stosb
+stosb
-still:
 loop lp2
+pop  ecx
+loop transform_loop
+mov eax,14           ; calculating screen position
+int 0x40
-call draw_eyes                   ; draw those funny "eyes"
+shr eax,1
-mov eax,23                       ; wait for event with timeout
+mov ax,59
-mov ebx,TIMEOUT
-int 0x40
-cmp eax,1                        ; redraw ?
-jnz  no_draw
-call redraw_overlap
-no_draw:
-cmp eax,2                        ; key ?
-jz  key
-cmp eax,3                        ; button ?
-jz  button
+sub eax,30*65536
-jmp still                        ; loop
+mov [win_ebx],eax
+mov [win_ecx],dword 10*65536+44
-; EVENTS
-key:
+mov esi,imagedata    ; calculate shape reference area
-mov eax,2        ; just read and ignore
+mov edi,winref
+mov ecx,900          ; disable drag bar
+mov al,0
-int 0x40
+rep stosb
-jmp still
+mov ecx,30           ; calculate circles for eyes
-button:          ; analyze button
-mov eax,-1       ; this is button 1 - we have only one button :-)
+shape_loop:
-int 0x40
+push ecx
 jmp still
+call copy_line       ; duplicate (we have two eyes :)
-; -====- declarations -====-
+sub  esi,30
 call copy_line
+pop  ecx
+loop shape_loop
+; -====- shape -====-
+shape_window:
+mov eax,50                   ; set up shape reference area
+xor ebx,ebx
+mov ecx,winref
+int 0x40
+call draw_window
+still:
+call draw_eyes                   ; draw those funny "eyes"
-imagedata equ EYES_END
+_wait:
+mov eax,23                       ; wait for event with timeout
+mov ebx,TIMEOUT
+int 0x40
+        dec     eax
+        jz      redraw
+        dec     eax
+        jz      key
-skindata  equ EYES_END+925
+        dec     eax
-winref    equ EYES_END+6325
+        jnz     still
 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
-redraw_overlap:              ; label for redraw event (without checkmouse)
+draw_window:
 mov eax,12
 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
-mov ecx, [mouse]    ; ecx = mousex, edx = mousey
+pusha
 mov edx,ecx
-shr ecx,16
+        movzx   ecx, word [mouse+2] ; ecx = mousex, esi = mousey
-and edx,0xFFFF
+        movzx   esi, word [mouse]
 ; ===> calculate position
 push eax
 push ebx
 mov byte [sign1],0
-mov esi, [win_ebx]
+mov edx, [win_ebx]
-shr esi,16
+shr edx,16
-add eax,esi
+add eax,edx
 sub ecx,eax                 ; ECX=ECX-EAX (signed) , ECX=|ECX|
 jnc abs_ok_1
 neg ecx
 mov byte [sign1],1
 abs_ok_1:
-mov [temp1],ecx
+        push    ecx         ; save x distance
 mov byte [sign2],0
-mov esi,[win_ecx]
+mov edx,[win_ecx]
-shr esi,16
+shr edx,16
-add ebx,esi
+add ebx,edx
-sub edx,ebx                 ; EDX=EDX-EBX (signed) , EDX=|EDX|
-jnc abs_ok_2
-neg edx
+sub esi,ebx                 ; EDX=EDX-EBX (signed) , EDX=|EDX|
-mov byte [sign2],1
-abs_ok_2:
-mov [temp2],edx
+jnc abs_ok_2
-pop ebx
-pop eax
-push eax                    ; ECX*=ECX
+neg esi
-push edx
+mov byte [sign2],1
-xor eax,eax
-xor edx,edx
-mov ax,cx
+abs_ok_2:
-mul cx
-shl edx,16
-or  eax,edx
-mov ecx,eax
+mov [temp2],esi
-pop edx
-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
+; ESI = ECX*ECX+ESI*ESI
+        imul    ecx, ecx
-add  ebx,edx
+        imul    esi, esi
+        add     esi, ecx
-xor  edi,edi                 ; ESI=SQRT(EBX)
-mov  ecx,edi
+xor  ecx,ecx                 ; EDX=SQRT(EBX)
-mov  edx,edi
+xor  edx,edx
-inc  edi
+mov  eax,1
-mov  eax,edi
+sqrt_loop:
-inc  edi
-sqrt_loop:
+; in this moment ecx=edx*edx, eax=1+2*edx
 add  ecx,eax
-add  eax,edi
+inc  eax
-inc  edx
+inc  eax
-cmp  ecx,ebx
+inc  edx
-jbe  sqrt_loop
+cmp  ecx,esi
-dec  edx
+jbe  sqrt_loop
-mov  esi,edx
+dec  edx
-mov  ax,si                   ; ESI=ESI/7
+mov  eax,edx                   ; EDX=EDX/7
-mov  dl,7
-div  dl
-and  ax,0xFF
-mov  si,ax                   ; ESI ? 0 : ESI=1
-jnz  nozeroflag1
+mov  dl,7
-mov  si,1
-nozeroflag1:
-pop eax
+div  dl
-pop edx
+and  eax,0xFF
-pop ecx
-pop ebx
+mov  edx,eax                   ; EDX ? 0 : EDX=1
 jnz  nozeroflag1
-push eax                     ; ECX=[temp1]/ESI
+inc  edx
-push edx
+nozeroflag1:
-mov  eax,[temp1]
-mov  dx,si
-div  dl
+        pop     eax             ; EAX = x distance
-mov  cl,al
+                                ; ECX=EAX/EDX
-and  ecx,0xFF
-pop  edx
+div  dl
-pop  eax
 movzx ecx,al
-cmp  byte [sign1],1
-je   subtract_1
+pop  ebx
-add  eax,ecx                  ; EAX=EAX+ECX
+pop  eax
-jmp  calc_ok_1
-subtract_1:
 sub  eax,ecx                  ; EAX=EAX-ECX
-calc_ok_1:
+        cmp     byte [sign1], 0
+        jz      @f
-push eax                      ; EDX=[temp2]/ESI
+        neg     ecx
-push ecx
-mov  eax,[temp2]
+@@:
-mov  dx,si
+        add     eax, ecx
-div  dl
 mov  dl,al
-and  dx,0xFF
+push eax                      ; ESI=[temp2]/EDX
-pop  ecx
+mov  eax,[temp2]
-pop  eax
+div  dl
-cmp  byte [sign2],1
-je   subtract_2
-add  ebx,edx                  ; EBX=EBX+EDX
-jmp  calc_ok_2
+movzx esi,al
-subtract_2:
+pop  eax
 sub  ebx,edx                  ; EBX=EBX-EDX
-calc_ok_2:
+        cmp     byte [sign2], 0
         jz      @f
 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
+; -====- working on images and window -====-
 copy_line:       ; copy single line to shape reference area
 mov ecx,30
 cpl_loop:
 lodsb
-cmp al,0xFF
+; input is image: 0xFF = white pixel, 0 = black pixel
-jnz  set_one
-mov al,0
-jmp cpl_ok
-set_one:
-mov al,1
+; output is membership boolean: 0 = pixel no, 1 = pixel ok
-cpl_ok:
+inc eax
 stosb
 loop cpl_loop
 ; environment
 win_ebx  dd     0x0
 win_ecx  dd     0x0
+mouse    dd     0xFFFFFFFF
+EYES_END: ; end of code
-mouse    dd     0xFFFFFFFF
+imagedata:
+; texture is 900 bytes starting from 25th
+file "eyes.raw":25,900
-;graphix  db     "EYES.RAW    "
+I_END:
 ; temporary storage for math routines
-temp1    dd     0
+sign1   db      ?
-temp2    dd     0
+sign2   db      ?
-sign1    db     0
+align 4

Subversion Repositories Kolibri OS

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