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

+;
 fullscreen = 1
 n_points = 0x1800
+delay = 2
-delay = 2
+const480 = 480
 speed equ 0.004
 	       dd     0x01		      ; header version
 	       dd     start		      ; start of code
 	       dd     i_end		      ; size of image
 	       dd     i_end+0x1000	      ; memory for app
 	       dd     i_end+0x1000	      ; esp
-	       dd     0x0		      ; I_Param
+	       dd     params		      ; I_Param
 	       dd     0x0		      ; I_Icon
-copyright db   'Crown_s Soft(c) Screensaver v1.13m    www.crown-s-soft.com',0
+copyright db   'Crown_s Soft(c) Screensaver - www.crown-s-soft.com',0
 copyrightlen:
 include "lang.inc"
 include "figuresi.inc"
+include "..\..\..\macros.inc"
+start:
+    cmp     dword[params], '@ss'
+    setz    [screensaver]
+    mov     ebx, EVM_REDRAW + EVM_KEY
+    cmovz   ebx, EVM_REDRAW + EVM_KEY + EVM_MOUSE
+    mcall   40
+    cmp [flscr],0
+    jz @f
+    mov     edi, transparent_cursor
+    xor     eax, eax
+    mov     ecx, 32*32
+    rep     stosd
+    mcall   37, 4, transparent_cursor, 2
+    mov     ecx, eax
-include "..\..\..\macros.inc"
+    mcall   37, 5
-start:
+@@:
     cld
     finit
     jz	nofullscreen
       mov  eax,14
       mcall
       mov  [maxy],ax
-      sub  ax,480
+      sub  ax,const480
       jnc m5
 	xor ax,ax
       m5:
       shr  ax,1
       mov  [posy],ax
       shr  eax,16
       mov  [maxx],ax
-      sub  ax,480
+      sub  ax,const480
       jnc m6
 	xor ax,ax
       m6:
       shr  ax,1
       mov  [posx],ax
-      mov  [outsize],480+65536*480
+      mov  [outsize],const480+65536*const480
     jmp m4
     nofullscreen:
       mov  [posx],75
       mov  [posy],20
-      mov  [outsize],450+65536*480
+      mov  [outsize],const480+65536*const480
-    m4:
-red:
+    m4:
     call draw_window
 red:
-still:
+    call draw_window
     mov  eax,23
-    mov  ebx,delay
+still:
-    mcall			; wait here for event
+    mcall 23,delay			; wait here for event
+    cmp  eax,1			; redraw request ?
-    cmp  eax,1			; redraw request ?
+    je	 red
-    je	 red
-    cmp  eax,2			; key in buffer ?
-    je	 key
-    cmp  eax,3			; button in buffer ?
+    cmp  eax,2			; key in buffer ?
+    je	 key
+    cmp  eax,3			; button in buffer ?
+    je	 close
-    je	 button
+    cmp  eax,6			; mouse moved ?
     je	 close
+    call calcframe
+    mov  eax,07 	      ; putimage
+    mov  ebx,scr	      ; ebx pointer to image in memory
-    call calcframe
+    mov  ecx,[outsize]	      ; ecx=image position in window [w]*65536+[h]
     mov  edx,dword [posy]     ; edx=image position in window [x]*65536+[y]
-    mov  ecx,[outsize]	      ; ecx=image position in window [x]*65536+[y]
+    mcall
-    mov  ebx,scr	      ; ebx pointer to image in memory
+jmp  still
     mov  eax,07 	      ; putimage
-    mcall
+key:
-jmp  still
+	cmp  [screensaver], 0
-key:
-    mov  eax,2
-    mcall
-    cmp  al,1			; is key in buffer ?
-    jz	 still
-    cmp  ah,0x1B		; is key ESC ?
+	jnz  close
-    jz	 close
+    mov  eax,2
+    mcall
-jmp  still
+    cmp  al,1			; is key in buffer ?
     jz	 still
-button: 			; button
+    cmp  ah,0x1B		; is key ESC ?
-    mov  eax,17 		; get id
+    jz	 close
-    mcall
+jmp  still
-;    cmp  ah,1                   ; button id=1 ?
-;    jne  still
 close:
-close:
+    cmp     [screensaver], 0
-    mov  eax,-1 		; close this program
+    jz      @f
-    mcall
+    mcall   70, f70
+  @@:
+    mcall   -1
-;   *********************************************
-;   *******  WINDOW DEFINITIONS AND DRAW ********
-;   *********************************************
-draw_window:
-    mov  eax,12 		     ; function 12:tell os about windowdraw
-    mov  ebx,1			     ; 1, start of draw
-    mcall
-    cmp  [flscr],0
-    jnz  m2
-      mov  ebx,1*65536+638	     ; [x start] *65536 + [x size]
-      mov  ecx,1*65536+478	     ; [y start] *65536 + [y size]
-      mov  edx,0x02000000	     ; color of work area RRGGBB,8->color gl
-      mov  esi,0x805080d0	     ; color of grab bar  RRGGBB,8->color gl
-      mov  edi,0x005080d0	     ; color of frames    RRGGBB
-      xor  eax,eax		     ; function 0 : define and draw window
-      mcall
+;   *********************************************
 ;   *******  WINDOW DEFINITIONS AND DRAW ********
-				     ; WINDOW LABEL
+;   *********************************************
       mov  ebx,8*65536+8	     ; [x start] *65536 + [y start]
       inc cx
       mov eax,13		     ; functiom 13 : draw bar
       mcall
     m3:
-    mov  eax,12 		     ; function 12:tell os about windowdraw
-    mov  ebx,2			     ; 2, end of draw
-    mcall
+    mcall 12, 2 ;end draw
 ret
 calcframe:
      cld
      mov  edi,scr
-     mov  ecx,480*480*3/4
+     mov  ecx,const480*const480*3/4
   push edx
   mov  eax,[x1]
   add  eax,[mid]
-  mul  [const480]
+  mul  [consts]
   add  eax,[y1]
   add  eax,[mid]
   mal_r   dd	 6.28318530717958648
   mbt_r   dd	 6.28318530717958648
   const3   dd	 3
   const6   dw	 6
-  const480 dd	 480
+  consts   dd    const480
   mFl	  dd	 n_points
   x1	  dd	 ?
   y1	  dd	 ?
+  z1	  dd	 ?
+f70:    ; run
+        dd 7, 0, 0, 0, 0
+        db '/sys/@SS',0
+screensaver db ?
+params rb 4
-  z1	  dd	 ?
+transparent_cursor rd 32*32
 align 16
   alfbet:		  ; alfbet  db  n_points*4  dup (?)

Subversion Repositories Kolibri OS

(root)/programs/demos/crownscr/trunk/crownscr.asm – Rev 485 → 9449