405 lines
8.2 KiB
NASM
405 lines
8.2 KiB
NASM
;
|
||
; 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.73 for Kolibri or hier
|
||
;
|
||
; Copyright(c) 2002-2004 Crown_s Soft. All rights reserved.
|
||
;
|
||
|
||
fullscreen = 1
|
||
n_points = 0x1800
|
||
delay = 2
|
||
const480 = 480
|
||
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 params ; I_Param
|
||
dd 0x0 ; I_Icon
|
||
|
||
copyright db 'Crown_s Soft(c) Screensaver - www.crown-s-soft.com',0
|
||
copyrightlen:
|
||
|
||
include "lang.inc"
|
||
include "figuresi.inc"
|
||
include "..\..\..\macros.inc"
|
||
include "..\..\..\KOSfuncs.inc"
|
||
start:
|
||
cmp dword[params], '@ss'
|
||
setz [screensaver]
|
||
mov ebx, EVM_REDRAW + EVM_KEY + EVM_BUTTON
|
||
cmovz ebx, EVM_REDRAW + EVM_KEY + EVM_BUTTON + EVM_MOUSE
|
||
mcall SF_SET_EVENTS_MASK
|
||
|
||
cmp [flscr],0
|
||
jz @f
|
||
mov edi, transparent_cursor
|
||
xor eax, eax
|
||
mov ecx, 32*32
|
||
rep stosd
|
||
mcall SF_MOUSE_GET, SSF_LOAD_CURSOR, transparent_cursor, 2
|
||
mov ecx, eax
|
||
mcall SF_MOUSE_GET, SSF_SET_CURSOR
|
||
@@:
|
||
cld
|
||
finit
|
||
call filling_alfbet ; fill table alfbet by casual numbers
|
||
|
||
mov eax,[tabl_calls]
|
||
mov [pp1adr],eax
|
||
|
||
|
||
cmp [flscr],0
|
||
jz nofullscreen
|
||
mcall SF_GET_SCREEN_SIZE
|
||
|
||
mov [maxy],ax
|
||
sub ax,const480
|
||
jnc m5
|
||
xor ax,ax
|
||
m5:
|
||
shr ax,1
|
||
mov [posy],ax
|
||
|
||
shr eax,16
|
||
mov [maxx],ax
|
||
sub ax,const480
|
||
jnc m6
|
||
xor ax,ax
|
||
m6:
|
||
shr ax,1
|
||
mov [posx],ax
|
||
|
||
mov [outsize],const480+65536*const480
|
||
jmp m4
|
||
nofullscreen:
|
||
mov [posx],75
|
||
mov [posy],20
|
||
|
||
mov [outsize],const480+65536*const480
|
||
m4:
|
||
|
||
red:
|
||
call draw_window
|
||
|
||
still:
|
||
mcall SF_WAIT_EVENT_TIMEOUT, delay ; 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 close
|
||
cmp eax,6 ; mouse moved ?
|
||
je close
|
||
|
||
call calcframe
|
||
mov eax,SF_PUT_IMAGE
|
||
mov ebx,scr ; ebx pointer to image in memory
|
||
mov ecx,[outsize] ; ecx=image position in window [w]*65536+[h]
|
||
mov edx,dword [posy] ; edx=image position in window [x]*65536+[y]
|
||
mcall
|
||
jmp still
|
||
|
||
key:
|
||
cmp [screensaver], 0
|
||
jnz close
|
||
|
||
mcall SF_GET_KEY
|
||
|
||
cmp al,1 ; is key in buffer ?
|
||
jz still
|
||
cmp ah,0x1B ; is key ESC ?
|
||
jz close
|
||
jmp still
|
||
|
||
close:
|
||
cmp [screensaver], 0
|
||
jz @f
|
||
mcall SF_FILE, f70
|
||
@@:
|
||
mcall SF_TERMINATE_PROCESS
|
||
|
||
|
||
; *********************************************
|
||
; ******* WINDOW DEFINITIONS AND DRAW ********
|
||
; *********************************************
|
||
|
||
|
||
draw_window:
|
||
mcall SF_REDRAW, SSF_BEGIN_DRAW ;start draw
|
||
|
||
cmp [flscr],0
|
||
jnz m2
|
||
mcall SF_STYLE_SETTINGS, SSF_GET_SKIN_HEIGHT
|
||
mov esi, eax
|
||
; DRAW WINDOW
|
||
mov ecx,100*65536+const480+4 ; [y start] *65536 + [y size]
|
||
add ecx, esi
|
||
mcall SF_CREATE_WINDOW, 100*65536+const480+9,,0x74000000,,copyright
|
||
|
||
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
|
||
mcall SF_DRAW_RECT
|
||
m3:
|
||
|
||
mcall SF_REDRAW, SSF_END_DRAW ;end draw
|
||
ret
|
||
|
||
|
||
calcframe:
|
||
cld
|
||
mov edi,scr
|
||
mov ecx,const480*const480*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 [consts]
|
||
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
|
||
mcall SF_GET_SYS_TIME
|
||
; 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
|
||
consts dd const480
|
||
|
||
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 ?
|
||
|
||
f70: ; run
|
||
dd SSF_START_APP, 0, 0, 0, 0
|
||
db '/sys/@SS',0
|
||
|
||
screensaver db ?
|
||
params rb 4
|
||
transparent_cursor rd 32*32
|
||
|
||
align 16
|
||
alfbet: ; alfbet db n_points*4 dup (?)
|
||
scr = alfbet+n_points*4 ; scr db 480*480*3+1 dup (?)
|
||
i_end = scr+const480*const480*3+1 ; i_param db 256 dup (?)
|