kolibrios-gitea/programs/demos/crownscr/trunk/crownscr.asm

;
;    Crown_s Soft Screensaver v1.13m
;       WWW: http://www.crown-s-soft.com
;
;    You may add you own figures. See file FIGURES.INC
;
;    Compile with FASM v1.48 for Menuet or hier  (FASM v1.40 contains bug)
;
;    Copyright(c) 2002-2004 Crown_s Soft. All rights reserved.
;

fullscreen = 1
n_points = 0x1800
delay = 2
speed equ 0.004


macro align value { rb (value-1) - ($ + value-1) mod value }

use32
	       org    0x0
	       db     'MENUET01'	      ; 8 byte id
	       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     0x0		      ; I_Icon

copyright db   'Crown_s Soft(c) Screensaver v1.13m    www.crown-s-soft.com',0
copyrightlen:

include "lang.inc"
include "figuresi.inc"
include "..\..\..\macros.inc"
start:
    cld
    finit
    call filling_alfbet ; fill table alfbet by casual numbers

    mov eax,[tabl_calls]
    mov [pp1adr],eax


    cmp [flscr],0
    jz	nofullscreen
      mov  eax,14
      mcall

      mov  [maxy],ax
      sub  ax,480
      jnc m5
	xor ax,ax
      m5:
      shr  ax,1
      mov  [posy],ax

      shr  eax,16
      mov  [maxx],ax
      sub  ax,480
      jnc m6
	xor ax,ax
      m6:
      shr  ax,1
      mov  [posx],ax

      mov  [outsize],480+65536*480
    jmp m4
    nofullscreen:
      mov  [posx],75
      mov  [posy],20

      mov  [outsize],450+65536*480
    m4:

red:
    call draw_window

still:
    mov  eax,23
    mov  ebx,delay
    mcall			; wait here for event

    cmp  eax,1			; redraw request ?
    je	 red
    cmp  eax,2			; key in buffer ?
    je	 key
    cmp  eax,3			; button in buffer ?
    je	 button


    call calcframe
    mov  edx,dword [posy]     ; edx=image position in window [x]*65536+[y]
    mov  ecx,[outsize]	      ; ecx=image position in window [x]*65536+[y]
    mov  ebx,scr	      ; ebx pointer to image in memory
    mov  eax,07 	      ; putimage
    mcall
jmp  still

key:
    mov  eax,2
    mcall

    cmp  al,1			; is key in buffer ?
    jz	 still
    cmp  ah,0x1B		; is key ESC ?
    jz	 close
jmp  still

button: 			; button
    mov  eax,17 		; get id
    mcall

;    cmp  ah,1                   ; button id=1 ?
;    jne  still

close:
    mov  eax,-1 		; close this program
    mcall


;   *********************************************
;   *******  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 LABEL
      mov  ebx,8*65536+8	     ; [x start] *65536 + [y start]
      mov  ecx,0x10ddeeff	     ; color of text RRGGBB
      mov  edx,copyright	     ; pointer to text beginning
      mov  esi,copyrightlen-copyright; text length
      mov  eax,4		     ; function 4 : write text to window
      mcall

				     ; CLOSE BUTTON
      mov  ebx,(640-19)*65536+12     ; [x start] *65536 + [x size]
      mov  ecx,5*65536+12	     ; [y start] *65536 + [y size]
      mov  edx,1		     ; button id
      mov  esi,0x6688dd 	     ; button color RRGGBB
      mov  eax,8		     ; function 8 : define and draw button
      mcall
    jmp m3
    m2:
      movzx  ebx,[maxx] 	     ; [x start] *65536 + [x size]
      movzx  ecx,[maxy] 	     ; [y start] *65536 + [y size]

      mov  edx,0x01000000	     ; 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

      inc bx
      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
ret


calcframe:
     cld
     mov  edi,scr
     mov  ecx,480*480*3/4
     xor  eax,eax
     rep stosd	   ; CLS


     mov  ebx,[frame]
     not  bh
     test bh,03h
     not  bh
     jnz  lb1
       ; ebx=xxxx xxxx  xxxx xxxx  xxxx xx11  xxxx xxxxb
       mov  byte [p],bl
     lb1:

     test  bx,03ffh
     jnz  lb2
       ; ebx=xxxx xxxx  xxxx xxxx  xxxx xx00  0000 0000b
       mov [p],0

       mov  eax,[pp1adr]
       mov  [pp0adr],eax

       inc [pp1]
       cmp [pp1],num_tabl_calls
       jnz lb3
	 mov [pp1],0
       lb3:

       movzx eax,[pp1]
       mov  eax,[tabl_calls+eax*4]
       mov  [pp1adr],eax
     lb2:


     fild  [frame]    ; st0=STime
     fmul  [speed1]   ; st0=STime*Speed
     fst   [bt_r]     ; al_rSTime*Speed
     fadd  st0,st0
     fstp  [al_r]     ; al_rSTime*Speed*2


     mov   [Fl],0
     mov ecx,[mFl]
     mov esi,alfbet
     ckl1:
       call [pp0adr]
       cmp  [p],0
       jz  lb4
	 fstp [x1]
	 fstp [y1]
	 fstp [z1]
	 call [pp1adr]
	 call mix
       lb4:

       call turn

       add  esi,4
       inc  [Fl]
     loop ckl1

     inc ebx
     mov [frame],ebx
ret


; turn coordinate system
turn:
  ; around Y
  ;  x= x*cos(a)-z*sin(a)
  ;  y= y
  ;  z= x*sin(a)+z*cos(a)
  fld  st2	; st0=z  st1=x  st2=y  st3=z
  fld  st1	; st0=x  st1=z  st2=x  st3=y  st4=z
  fld  [al_r]	; st0=a  st1=x  st2=z  st3=x  st4=y  st5=z
  fsincos	; st0=cos(a)  st1=sin(a)  st2=x  st3=z  st4=x  st5=y  st6=z
  fmul	st4,st0
  fmulp st6,st0 ; st0=sin(a)  st1=x  st2=z  st3=x*cos(a)  st4=y  st5=z*cos(a)
  fmul	st2,st0
  fmulp st1,st0 ; st0=x*sin(a)  st1=z*sin(a)  st2=x*cos(a) st3=y st4=z*c
  faddp st4,st0
  fsubp st1,st0


  ; around X
  ;  x=x
  ;  y= y*cos(b)+z*sin(b)
  ;  z=-y*sin(b)+z*cos(b)
  fld  st2	; st0=z  st1=x  st2=y  st3=z
  fld  st2	; st0=y  st1=z  st2=x  st3=y  st4=z
  fld  [bt_r]	; st0=b  st1=y  st2=z  st3=x  st4=y  st5=z
  fsincos	; st0=cos(b)  st1=sin(b)  st2=y  st3=z  st4=x  st5=y  st6=z
  fmul	st5,st0
  fmulp st6,st0 ; st0=sin(b)  st1=y  st2=z  st3=x  st4=y*cos(b)  st5=z*cos(b)
  fmul	st2,st0
  fmulp st1,st0 ; st0=y*sin(b) st1=z*sin(b) st2=x st3=y*cos(b) st4=z*cos(b)
  fsubp st4,st0 ; st0=z*sin(b)  st1=x  st2=y*cos(b)  st3=z*cos(b)-y*sin(b)
  faddp st2,st0

  ; st0=x  st1=y  st2=z
  fistp [x1]
  fistp [y1]
  fmul	  [Zdepth]   ; st0=z*Zdepth
  fiadd   [Zcolor]   ; st0=z*Zdepth+Zcolor
  fistp   [z_w]      ; st0z*Zdepth+Zcolor


  push edx

  mov  eax,[x1]
  add  eax,[mid]
  mul  [const480]
  add  eax,[y1]
  add  eax,[mid]
  mul  [const3]

  mov  dl,byte [z_w]	  ; al=ZZ
  mov  [scr+0+eax],dl
  mov  [scr+1+eax],dl
  mov  [scr+2+eax],dl

  pop  edx
ret



mix:
  fild	[p]	  ; st0=p
  fmul	[mp]	  ; st0=p=p*mp
  fld	st0	  ; st0=p  st1=p
  fmul	st4,st0
  fmul	st3,st0
  fmulp st2,st0   ; st0=p    st1=x*p  st2=y*p  st3=z*p

  fld1
  fsubrp st1,st0  ; st0=1-p  st1=x*p  st2=y*p  st3=z*p
  fld	 [z1]	  ; st0=z1   st1=1-p  st2=x*p  st3=y*p  st4=z*p
  fmul	st0,st1
  faddp st4,st0
  fld	 [y1]	  ; st0=y1   st1=1-p  st2=x*p  st3=y*p  st4=
  fmul	st0,st1
  faddp st3,st0
  fld	 [x1]	  ; st0=x1   st1=1-p  st2=x*p  st3=y*p+y1*(1-p)  st4=
  fmulp st1,st0   ; st0=x1*(1-p)      st1=x*p  st2=y*p+y1*(1-p)  st3=
  faddp st1,st0   ; st0=x=x*p+x1*(1-p)  st1=y=y*p+y1*(1-p)  st2=z
ret


filling_alfbet:
     ; Initialize RND
     mov   eax,3
     mcall
     ; eax - fist random number

     mov   ecx,n_points
     mov   edi,alfbet
     mov   ebx,8088405h
     ck2:
       stosd
       ; Compute next random number
       ; New := 8088405H * Old + 1
       mul   ebx
       inc   eax
     loop ck2
ret


; DATA AREA
align 2

  frame   dd	 0

  mp	  dd	 0.00390625
  n_r	  dd	 0.00390625

  mal_r   dd	 6.28318530717958648
  mbt_r   dd	 6.28318530717958648

  const3   dd	 3
  const6   dw	 6
  const480 dd	 480

  mFl	  dd	 n_points
  pp1	  dw	 0

  Zdepth  dd	 0.3
  Zcolor  dw	 140

  mid	  dd	 240   ; centre of screen

  speed1  dd	 speed
  flscr   db	 fullscreen

  align 4

  outsize dd	 ?
  posy	  dw	 ?
  posx	  dw	 ?
  maxy	  dw	 ?
  maxx	  dw	 ?

  Fl	  dd	 ?

  p	  dd	 ?
  al_r	  dd	 ?
  bt_r	  dd	 ?


  pp0adr  dd	 ?
  pp1adr  dd	 ?

  z_w	  dw	 ?

  x1	  dd	 ?
  y1	  dd	 ?
  z1	  dd	 ?

align 16
  alfbet:		  ; alfbet  db  n_points*4  dup (?)
  scr = alfbet+n_points*4   ; scr     db  480*480*3+1 dup (?)
  i_end = scr+480*480*3+1 ; i_param db  256         dup (?)