1
0
kolibrios/programs/demos/movback/trunk/movback.asm
CleverMouse 03998632b5 movback&plasma: calculate window height using 48.4; use sysfn 65 for 8bpp
git-svn-id: svn://kolibrios.org@2597 a494cfbc-eb01-0410-851d-a64ba20cac60
2012-04-10 13:13:14 +00:00

176 lines
2.7 KiB
NASM

include "lang.inc"
include "../../../macros.inc"
WND_SIZE_X = 320
WND_SIZE_Y = 200
VC_DELTA = 1
HC_DELTA = 2
MEOS_APP_START
CODE
fninit
call init_sinus_table
call init_background
call init_palette
mov eax,40
mov ebx,101b
mcall
jmp .paint_window
.event_loop:
mov eax,23
mov ebx,1
mcall
test eax,eax
je .draw_screen
dec eax
je .paint_window
or eax,-1
mcall
.draw_screen:
test [proc_info.wnd_state], 0x04
jnz .event_loop
add word [ver_counter],VC_DELTA
add word [hor_counter],HC_DELTA
call handle_animation
xor ebp,ebp
mcall 65,virtual_screen_8,<WND_SIZE_X,WND_SIZE_Y>,<0,0>,8,_palette
jmp .event_loop
.paint_window:
mcall 9,proc_info,-1
mov eax,12
mov ebx,1
mcall
mcall 48,4 ; get skin height
lea ecx,[eax + (100 shl 16) + WND_SIZE_Y+4]
mov edi,title
mcall 0,<100,WND_SIZE_X+9>,,0x74000000
test [proc_info.wnd_state], 0x04
jnz @f
xor ebp,ebp
mcall 65,virtual_screen_8,<WND_SIZE_X,WND_SIZE_Y>,<0,0>,8,_palette
@@:
mov eax,12
mov ebx,2
mcall
jmp .event_loop
init_palette:
mov ecx,256
mov edi,_palette
xor eax,eax
.next_pal:
mov al,ah
shr al,2
stosb
stosb
stosb
stosb
inc ah
loop .next_pal
ret
init_sinus_table:
sub esp,4
mov ecx,256
mov edi,sinetable
.sin_loop:
fld dword [esp]
fld st0
fsin
fmul [scale_sin]
fistp word [edi]
fadd [delta_angle]
fstp dword [esp]
add edi,2
loop .sin_loop
add esp,4
ret
init_background:
mov edi,background
xor edx,edx
.ib_vertical:
xor ecx,ecx
.ib_horizontal:
mov eax,ecx
xor eax,edx
stosb
inc ecx
cmp ecx,256
jne .ib_horizontal
inc edx
cmp edx,256
jne .ib_vertical
ret
s_OFFX = 0
s_OFFY = 2
handle_animation:
sub esp,4
mov ebx,[ver_counter]
and ebx,255
add ebx,ebx
mov ax,[sinetable+ebx]
mov [esp+s_OFFY],ax
mov ebx,[hor_counter]
and ebx,255
add ebx,ebx
mov ax,[sinetable+ebx]
mov [esp+s_OFFX],ax
mov edi,virtual_screen_8
mov edx,WND_SIZE_Y-1
.a_ver:
mov ecx,WND_SIZE_X-1
mov bx,[esp+s_OFFY]
add bx,dx
and ebx,255
shl ebx,8
.a_hor:
mov ax,[esp+s_OFFX]
add ax,cx
and eax,255
mov al,[background+ebx+eax]
stosb
dec ecx
jge .a_hor
dec edx
jge .a_ver
add esp,4
ret
DATA
delta_angle dd 0.0245436926066 ; pi/128
scale_sin dd 128.0
title db 'MoveBack',0
UDATA
ver_counter dd ?
hor_counter dd ?
_palette: rd 256
virtual_screen_8:
rb WND_SIZE_X*WND_SIZE_Y
background:
rb 256*256
sinetable:
rw 256
proc_info process_information
MEOS_APP_END