forked from KolibriOS/kolibrios
217 lines
3.5 KiB
NASM
217 lines
3.5 KiB
NASM
;
|
|
; application : Tiny ray tracer
|
|
; compilator : Fasm
|
|
; system : MenuetOS64/KolibriOS
|
|
; author : Maciej Guba aka macgub
|
|
; email : macgub3@wp.pl
|
|
; web : http://macgub.hekko.pl
|
|
|
|
include "../../macros.inc"
|
|
|
|
timeout equ 3
|
|
XRES equ 500 ; window size
|
|
YRES equ 500
|
|
maxx = XRES
|
|
maxy = YRES
|
|
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 ; memory for app
|
|
dd I_END ; esp
|
|
dd 0x0 , 0x0 ; I_Param , I_Icon
|
|
|
|
START: ; start of execution
|
|
|
|
call draw_window
|
|
|
|
still:
|
|
|
|
mov eax,23 ; wait here for event
|
|
mov ebx,timeout
|
|
int 0x40
|
|
; mov eax,11 ; check for event no wait
|
|
; int 0x40
|
|
|
|
cmp eax,1 ; redraw request ?
|
|
je red
|
|
cmp eax,2 ; key in buffer ?
|
|
je key
|
|
cmp eax,3 ; button in buffer ?
|
|
je button
|
|
|
|
jmp noclose
|
|
|
|
red: ; redraw
|
|
call draw_window
|
|
jmp still
|
|
|
|
key: ; key
|
|
mov eax,2 ; just read it and ignore
|
|
int 0x40
|
|
jmp still
|
|
|
|
button: ; button
|
|
mov eax,17 ; get id
|
|
int 0x40
|
|
|
|
cmp ah,1 ; button id=1 ?
|
|
jne noclose
|
|
|
|
mov eax,-1 ; close this program
|
|
int 0x40
|
|
noclose:
|
|
|
|
; mov eax,13
|
|
; mov ebx,20*65536+maxx-25
|
|
; mov ecx,20*65536+maxy-25
|
|
; xor edx,edx
|
|
; int 0x40
|
|
|
|
mov edi,screen
|
|
mov ecx,maxx*maxy*3/4
|
|
xor eax,eax
|
|
cld
|
|
rep stosd
|
|
|
|
add [deg_counter],1
|
|
cmp [deg_counter],360
|
|
jne @f
|
|
mov [deg_counter],0
|
|
@@:
|
|
fninit
|
|
fld [one_deg]
|
|
fimul [deg_counter]
|
|
fsincos
|
|
fstp [sin]
|
|
fstp [cos]
|
|
|
|
mov ecx,MAX_SPHERES ;MAX_LIGHTS
|
|
mov esi,non_rot_sphere ;light
|
|
mov edi,sphere
|
|
|
|
.rotary:
|
|
|
|
|
|
fld dword[esi]
|
|
fsub [xo]
|
|
fmul [cos]
|
|
fld dword[esi+8]
|
|
fsub [zo]
|
|
fmul [sin]
|
|
fchs
|
|
faddp
|
|
fadd [xo] ; top of stack - new 'x'
|
|
fstp dword[edi]
|
|
|
|
fld dword[esi+8]
|
|
fsub [zo]
|
|
fmul [cos]
|
|
fld dword[esi]
|
|
fsub dword[xo]
|
|
fmul [sin]
|
|
faddp
|
|
fadd [zo]
|
|
fstp dword[edi+8]
|
|
; fld dword[esi+4]
|
|
; fstp dword[edi+4]
|
|
push dword[esi+4]
|
|
pop dword[edi+4]
|
|
mov dword[edi+12],0.0
|
|
|
|
add esi,12
|
|
add edi,16
|
|
sub ecx,1
|
|
jnz .rotary
|
|
|
|
mov ecx,MAX_LIGHTS
|
|
mov esi,non_rot_light
|
|
mov edi,light
|
|
|
|
.rotary_lights:
|
|
|
|
|
|
fld dword[esi]
|
|
fsub [xo]
|
|
fmul [cos]
|
|
fld dword[esi+4]
|
|
fsub [yo]
|
|
fmul [sin]
|
|
fchs
|
|
faddp
|
|
fadd [xo] ; top of stack - new 'x'
|
|
fstp dword[edi]
|
|
|
|
fld dword[esi]
|
|
fsub [xo]
|
|
fmul [sin]
|
|
fchs
|
|
fld dword[esi+4]
|
|
fsub dword[yo]
|
|
fmul [cos]
|
|
faddp
|
|
fadd [yo]
|
|
fstp dword[edi+4]
|
|
; fld dword[esi+8]
|
|
; fstp dword[edi+8]
|
|
push dword[esi+8]
|
|
pop dword[edi+8]
|
|
mov dword[edi+12],0.0
|
|
|
|
add esi,12
|
|
add edi,16
|
|
sub ecx,1
|
|
jnz .rotary_lights
|
|
|
|
|
|
|
|
call main_loop
|
|
|
|
mcall 7,screen,<maxx,maxy>,<0,0>
|
|
|
|
|
|
|
|
jmp still
|
|
|
|
|
|
|
|
include 'ray.inc'
|
|
|
|
; *********************************************
|
|
; ******* WINDOW DEFINITIONS AND DRAW ********
|
|
; *********************************************
|
|
draw_window:
|
|
|
|
mcall 12,1
|
|
|
|
mcall 48,4 ; get skin height
|
|
lea ecx,[eax + (100 shl 16) + maxy+4]
|
|
mov edi,title
|
|
mcall 0,<100,maxx+9>,,0x74000000
|
|
|
|
mcall 12,2
|
|
|
|
ret
|
|
|
|
title db 'Ray tracing',0
|
|
xo dd 0.5
|
|
yo dd 0.5
|
|
zo dd 0.1
|
|
deg_counter dw 0
|
|
one_deg dd 0.017453
|
|
include 'dataray.inc'
|
|
sin dd ?
|
|
cos dd ?
|
|
screen rb XRES * YRES * 3
|
|
mem_stack:
|
|
rb 65536
|
|
I_END:
|
|
|
|
|
|
|
|
|