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


;---------------------------------------------------------------------
; Free3D version 0.6
;
; last update:  21/02/2011
; written by:   Marat Zakiyanov aka Mario79, aka Mario
; changes:      advanced control for mouse
;               advanced control for keyboard:
;               W,A,S,D adn Arrow UP,Down,Left,Right
;---------------------------------------------------------------------
; Free3D version 0.5
;
; last update:  20/02/2011
; written by:   Marat Zakiyanov aka Mario79, aka Mario
; changes:      PNG textures 128x128
;               using libraries cnv_png.obj and archiver.obj
;               using dinamically allocation of memory
;
;---------------------------------------------------------------------
;
;   Fisheye Raycasting Engine Etc. FREE3D for MENUETOS by Dieter Marfurt
;   Version 0.4 (requires some texture-files to compile (see Data Section))
;   dietermarfurt@angelfire.com - www.melog.ch/mos_pub/
;   Don't hit me - I'm an ASM-Newbie... since years :)
;
;   Compile with FASM for Menuet (requires .INC files - see DATA Section)
;
;   Willow - greatly srinked code size by using GIF texture and FPU to calculate sine table
;
;   !!!! Don't use GIF_LITE.INC in your apps - it's modified for FREE3D !!!!
;
;   Heavyiron - new 0-function of drawing window from kolibri (do not work correctly with menuet)
 
TEX_SIZE	equ	128*128*4	;64*64*4	;
 
ICON_SIZE_X	equ	128	;64
ICON_SIZE_Y	equ	128	;64
 
Floors_Height	equ	32000
;---------------------------------------------------------------------
use32
org	0x0
	db 'MENUET01'	; 8 byte id
	dd 0x01		; header version
	dd START	; start of code
	dd IM_END	; size of image
	dd I_END	; 0x100000 ; memory for app
	dd stacktop	; 0x100000 ; esp
	dd 0x0
	dd path
;---------------------------------------------------------------------
include '../../../macros.inc'
;include	'macros.inc'
include '../../../develop/libraries/box_lib/load_lib.mac'
;include 'load_lib.mac'
@use_library
;---------------------------------------------------------------------
START:	; start of execution
	mcall	68,11
	mcall	66,1,1
	mcall	40,0x27
 
	mcall	9,procinfo,-1
	mov	ecx,[ebx+30]	; PID
	mcall	18,21
	mov	[active_process],eax	; WINDOW SLOT
 
load_libraries	l_libs_start,end_l_libs
	test	eax,eax
	jnz	finish
 
; unpack deflate
	mov	eax,[unpack_DeflateUnpack2]
	mov	[deflate_unpack],eax
 
	call	load_icons
	call	convert_icons
 
	mov	esi,sinus
	mov	ecx,360*10
	fninit
	fld	[sindegree]
;--------------------------------------	
.sinlp:
	fst	st1
	fsin
	fmul	[sindiv]
	fistp	dword[esi]
	add	esi,4
	fadd	[sininc]
	loop	.sinlp
;---------------------------------------------------------------------
	call	cursor_to_screen_center
	call	set_new_cursor_skin
;---------------------------------------------------------------------	
align	4
red:	; redraw
	call	draw_window
	call	draw_stuff
;---------------------------------------------------------------------
align	4
still:
	mcall	10	; ask no wait for full speed
 
	cmp	eax,1	; window redraw request ?
	je	red
 
	cmp	eax,2	; key in buffer ?
	je	key
 
	cmp	eax,3	; button in buffer ?
	je	button
 
	cmp	eax,6
	jne	still
;---------------------------------------------------------------------
mouse:
	mcall	18,7
	cmp	[active_process],eax
	jne	still
 
	mcall	37,1
 
	xor	ebx,ebx
	mov	bx,ax  ; EBX mouse y
	shr	eax,16 ; EAX mouse x
 
	mov	ecx,[mouse_position_old]
	xor	edx,edx
	mov	dx,cx  ; EDX mouse y old
	shr	ecx,16 ; ECX mouse x old
	
	cmp	eax,ecx
	je	.y	;still
	ja	.turn_left
;---------------------------------------------------------------------
.turn_right:
	xchg	eax,ecx
	sub	eax,ecx
	mov	edi,[vheading]
	add	edi,eax
	jmp	@f
;---------------------------------------------------------------------
.turn_left:
	sub	eax,ecx
	mov	edi,[vheading]
	sub	edi,eax
;--------------------------------------
@@:
	call	check_range
;---------------------------------------------------------------------
.y:
	cmp	ebx,edx
	je	.red
	ja	.walk_down
;--------------------------------------
.walk_up:	
	sub	edx,ebx
	mov	ecx,edx
	call	prepare_2
	jz	.1
;--------------------------------------	
	add	eax,edi	; newPx
	add	ebx,esi	; newPy
	jmp	.1
;---------------------------------------------------------------------
.walk_down:
	sub	ebx,edx
	mov	ecx,ebx
	call	prepare_2
	jz	.1
	
	sub	eax,edi	; newPx
	sub	ebx,esi	; newPy
;--------------------------------------
.1:
	mov	edi,eax	; newPx / ffff
	mov	esi,ebx	; newPy / ffff
	sar	edi,16
	sar	esi,16
	mov	ecx,esi
	sal	ecx,5
	lea	ecx,[grid+ecx+edi]
	cmp	[ecx],byte 0
	je	@f
	
	call	cursor_to_screen_center	
	jmp	still	;cannotwalk
;---------------------------------------------------------------------
@@:
	mov	[vpx],eax
	mov	[vpy],ebx
;--------------------------------------
.red:
	call	cursor_to_screen_center
	jmp	red
;---------------------------------------------------------------------
align	4
prepare_2:
	shr	ecx,4
	push	ecx
	call	prepare_1
	pop	ecx
	cmp	ecx,3
	jb	@f
	mov	ecx,3
@@:
	shl	edi,cl
	shl	esi,cl
	test	ecx,ecx
	ret
;---------------------------------------------------------------------
align	4
check_range:
	cmp	edi,0
	jge	@f
 
	mov	edi,3600
	jmp	.store
;--------------------------------------
@@:
	cmp	edi,3600
	jle	@f
 
	xor	edi,edi
;--------------------------------------	
@@:
.store:
	mov	[vheading],edi
	ret
;---------------------------------------------------------------------
align	4
cursor_to_screen_center:
	mcall	18,15
	mcall	37,1
	mov	[mouse_position_old],eax
	ret
;---------------------------------------------------------------------
set_new_cursor_skin:
	mcall	68,12,32*32*4
	mov	ecx,eax
	mcall	37,4,,2
	mov	ecx,eax
	mcall	37,5
	ret
;---------------------------------------------------------------------
align	4
key:	; key
	mcall	2
	cmp	[extended_key],1
	je	.extended_key
	test	al, al
	jnz	still
 
	cmp	ah, 0xE0
	jne	@f
 
	mov	[extended_key],1
	jmp	still
;---------------------------------------------------------------------
@@:
	cmp	ah,1	; Esc
	je	finish
 
	cmp	ah,17 ; W up
	je	s_up
 
	cmp	ah,31 ; S down
	je	s_down
 
	cmp	ah,30 ; A left
	je	w_left	;s_left
 
	cmp	ah,32 ; D right
	je	w_right	;s_right
 
	jmp	still
;---------------------------------------------------------------------
.extended_key:
	mov	[extended_key],0
	mov	[current_key_code],ah
 
	cmp	ah,27	; esc=End App
	je	finish
 
	cmp	ah,72 ; up arrow
	je	s_up
 
	cmp	ah,80 ; down arrow
	je	s_down
 
	cmp	ah,75 ; left arrow
	je	s_left
 
	cmp	ah,77 ; right arrow
	je	s_right
 
	jmp	still
;---------------------------------------------------------------------
align	4
smart_clr_key_buf:
	mov	al,[old_key_code]
	mov	ah,[current_key_code]
	mov	[old_key_code],ah
	cmp	al,ah
	jne	.end
;--------------------------------------
.still:
	mcall	2
	cmp	[extended_key],1
	je	.extended_key
 
	test	al, al
	jnz	.end
 
	cmp	ah, 0xE0
	jne	.end
 
	mov	[extended_key],1
	jmp	.still
.end:
	call	draw_stuff
	jmp	still
;---------------------------------------------------------------------
.extended_key:
	mov  [extended_key],0
	mov  [current_key_code],ah
	jmp  smart_clr_key_buf
;---------------------------------------------------------------------
align	4
w_left:		; walk left
	call	prepare_1
	add	eax,esi	; newPx
	sub	ebx,edi	; newPy
	jmp	s_down.1
;---------------------------------------------------------------------
align	4
w_right:	; walk right
	call	prepare_1
	sub	eax,esi	; newPx
	add	ebx,edi	; newPy
	jmp	s_down.1
;---------------------------------------------------------------------
align	4
s_up:	; walk forward (key or mouse)
	call	prepare_1
;	sal	esi,1	; edit walking speed here
;	sal	edi,1
	add	eax,edi	; newPx
	add	ebx,esi	; newPy
	jmp	s_down.1
;---------------------------------------------------------------------
align	4
s_down:	; walk	backward
	call	prepare_1
;	sal	esi,1	; edit walking speed here
;	sal	edi,1
	sub	eax,edi	; newPx
	sub	ebx,esi	; newPy
.1:
	mov	edi,eax	; newPx / ffff
	mov	esi,ebx	; newPy / ffff
	sar	edi,16
	sar	esi,16
	mov	ecx,esi
	sal	ecx,5
	lea	ecx,[grid+ecx+edi]
	cmp	[ecx],byte 0
	jne	smart_clr_key_buf	;cannotwalk
 
	mov	[vpx],eax
	mov	[vpy],ebx
	jmp	smart_clr_key_buf
;---------------------------------------------------------------------
align	4
prepare_1:
	mov	eax,[vpx]
	mov	ebx,[vpy]
	mov	ecx,[vheading]
	mov	edx,ecx
	mov	edi,[sinus+ecx*4]
	lea	edx,[sinus+3600+edx*4]
	cmp	edx,eosinus	; cosinus taken from (sinus plus 900) mod 3600
	jb	@f
 
	sub	edx,14400
;--------------------------------------
@@:
	mov	esi,[edx]
	ret
;---------------------------------------------------------------------
align	4
s_left:		; turn	left	(key)
	mov	edi,[vheading]
	add	edi,50
	jmp	s_right.1
;---------------------------------------------------------------------
align	4
s_right:	; turn	right
	mov	edi,[vheading]
	sub	edi,50
.1:
	call	check_range
	jmp	smart_clr_key_buf
;---------------------------------------------------------------------
align	4
button:	; button
	mcall	17
	cmp	ah,1	; button id=1 ?
	jne	still	;gamestart
;--------------------------------------
finish:
	mcall	-1	; close this program
;---------------------------------------------------------------------
;   *********************************************
;   *******  WINDOW DEFINITIONS AND DRAW ********
;   *********************************************
align	4
draw_window:
	mcall	12,1
 
 
	
	mcall	0,<50,649>,<50,484>,0x01000000,0x01000000,0x01000000
 
	mcall	12,2
	ret
;---------------------------------------------------------------------
;   *********************************************
;   *******       COMPUTE 3D-VIEW        ********
;   *********************************************
align	4
draw_stuff:
	mov	[step1],dword 1
;	mov	[step64],dword 64
	mov	esi,[vheading]
	add	esi,320
	mov	[va],esi
	mov	eax,[vheading]
	sub	eax,320
	mov	[vacompare],eax
;------------------------------------ CAST 640 PIXEL COLUMNS ---------------
; FOR A=320+heading to -319+heading step -1 (a is stored in [va])
;---------------------------------------------------------------------------
;	mov	edx,5
	mov	[vx1],dword 0	;5 ;edx ; init x1 ... pixelcolumn
;--------------------------------------
align	4
for_a:
	mov	edx,[vx1]
	mov	[vx1b],edx
	sub	[vx1b],dword 320
	mov	edx,[va]	; a2
	cmp	edx,-1	; a2 is a mod 3600
	jg	ok1
 
	add	edx,3600
;--------------------------------------
ok1:
	cmp	edx,3600
	jb	ok2
 
	sub	edx,3600
;--------------------------------------
ok2:
; get stepx and stepy
	; pointer to stepx
	lea	ecx,[sinus+edx*4]
	mov	esi,[ecx]
	sar	esi,4	; accuracy
	mov	[vstepx],esi	; store stepx
	lea	esi,[sinus+3600+edx*4]
	cmp	esi,eosinus	;cosinus taken from ((sinus plus 900) mod 3600)
	jb	ok202
 
	sub	esi,14400
;--------------------------------------
ok202:
	mov	ecx,[esi]
	sar	ecx,4
	mov	[vstepy],ecx	; store	stepy
 
	mov	eax,[vpx]	; get Camera Position
	mov	ebx,[vpy]
	mov	[vxx],eax	; init caster position
	mov	[vyy],ebx
 
	mov	edi,0	; init L (number of raycsting-steps)
	mov	[step1],dword 1	; init Caster stepwidth for L.
;--------------------------------------
;  raycast a pixel column
align	4
raycast:
	add	edi,[step1]	; count caster steps
	jmp	nodouble	; use this to prevent blinking/wobbling textures: much slower!
 
;	cmp	edi,32
;	je	double
	
;	cmp	edi,512
;	je	double
	
;	cmp	edi,1024
;	je	double
	
;	jmp	nodouble
;---------------------------------------------------------------------
;double:
;	mov	edx,[step1]
;	sal	edx,1
;	mov	[step1],edx
 
;	mov	edx,[vstepx]
;	sal	edx,1
;	mov	[vstepx],edx
 
;	mov	edx,[vstepy]
;	sal	edx,1
;	mov	[vstepy],edx
;--------------------------------------
nodouble:
	mov	eax,Floors_Height	;32000	; 3600 ; determine Floors Height based on distance
	xor	edx,edx
	mov	ebx,edi
 
	div	ebx
 
	shl	edx,1
	cmp	ebx,edx
	jae	@f
	inc	eax
@@:
 
	mov	esi,eax
	mov	[vdd],esi
	mov	edx,260
	sub	edx,esi
	mov	[vh],edx
 
	cmp	edx,22
	jb	no_nu_pixel
 
	cmp	edx,259
	jg	no_nu_pixel	; draw only new pixels
 
	cmp	edx,[h_old]
	je	no_nu_pixel
 
	mov	eax,[vxx]	; calc floor pixel
	mov	ebx,[vyy]
 
	and	eax,0x0000FFFF
	and	ebx,0x0000FFFF
 
	shr	eax,10
	shr	ebx,10	; pixel coords inside Texture x,y 64*64
	mov	[xfrac],eax
	mov	[yfrac],ebx
; plot floor pixel !!!!
	mov	[vl],edi	; save L
	mov	[ytemp],esi	; remember L bzw. H
 
	mov	edi,[yfrac]	; get pixel color of this floor pixel
	sal	edi,9	;8 - for 64x64
	mov	esi,[xfrac]
	sal	esi,3	;2 - for 64x64
; in fact its floor, just using the wall texture :)
;	lea	edi,[wall+edi+esi]
	add	edi,[wall1]
	add	edi,esi
	mov	edx,[edi]
	mov	[remesi],esi
;**** calculate pixel adress:****
	mov	esi,[ytemp]
	add	esi,240
	imul	esi,1920
	mov	eax,[vx1]
	lea	eax,[eax+eax*2]
	lea	esi,[screen_buffer+eax+esi]
 
	cmp	esi,screen_buffer+1920*480
	jg	foff0
 
	cmp	esi,screen_buffer
	jb	foff0
; now we have the adress of the floor-pixel color in edi
; and the adress of the pixel in the image in esi
	mov	edx,[edi]
;******************** custom distance DARKEN Floor
	mov	eax,[vdd]
;	jmp	nodark0	; use this to deactivate darkening floor (a bit faster)
 
	cmp	eax,80
	jg	nodark0
; split	rgb
	mov	[blue_color],edx
	and	[blue_color],dword 255
 
	shr	edx,8
	mov	[green_color],edx
	and	[green_color],dword 255
 
	shr	edx,8
	mov	[red_color],edx
	and	[red_color],dword 255
 
	mov	eax,81	; darkness parameter
	sub	eax,[vdd]
	sal	eax,1
; reduce rgb
	sub	[red_color],eax
	cmp	[red_color],dword 0
	jg	notblack10
 
	mov	[red_color],dword 0
;--------------------------------------
notblack10:
	sub	[green_color],eax
	cmp	[green_color],dword 0
	jg	notblack20
 
	mov	[green_color],dword 0
;--------------------------------------
notblack20:
	mov	edx,[blue_color]
	sub	[blue_color],eax
	cmp	[blue_color],dword 0
	jg	notblack30
 
	mov	[blue_color],dword 0
;--------------------------------------
notblack30:
	shl	dword [red_color],16	; reassemble rgb
	shl	dword [green_color],8
	mov	edx,[red_color]
	or	edx,[green_color]
	or	edx,[blue_color]
;--------------------------------------
nodark0:
;   eo custom darken floor
	mov	eax,edx
 
;	cmp	esi,screen_buffer+1920*480
;	ja	foff0
 
;	cmp	esi,screen_buffer
;	jb	foff0
 
	mov	[esi],eax	; actually draw the floor pixel
; paint "forgotten" pixels
	mov	edx,[lasty]
	sub	edx,1920
	cmp	esi,edx
	je	foff0
 
	mov	[esi+1920],eax
	sub	edx,1920
	cmp	esi,edx
	je	foff0
 
	mov	[edx+1920],eax
	sub	edx,1920
	cmp	esi,edx
	je	foff0
	
	mov	[edx+1920],eax
;--------------------------------------
align	4
foff0:
	mov	[lasty],esi
;**** end of draw floor pixel ****
	mov	esi,[remesi]
	mov	edi,[vl]	; restore L
;--------------------------------------
no_nu_pixel:
	mov	esi,[vh]
	mov	[h_old],esi
 
	mov	eax,[vxx]
	mov	ebx,[vyy]
 
	add	eax,[vstepx]	; casting...
	add	ebx,[vstepy]
 
	mov	[vxx],eax
	mov	[vyy],ebx
 
	sar	eax,16
	sar	ebx,16
 
	mov	[vpxi],eax	; casters position in Map Grid
	mov	[vpyi],ebx
 
	mov	edx,ebx
	shl	edx,5
	lea	edx,[grid+edx+eax]
 
	cmp	[edx],byte 0	; raycaster reached a wall? (0=no)
	jne	getout
 
	cmp	edi,10000	; limit view range
	jb	raycast
;--------------------------------------
getout:
	mov	eax,[edx]	; store Grid Wall Value for Texture Selection
	mov	[vk],eax
	call	blur	; deactivate this (blurs the near floor) : a bit faster
 
; simply copy floor to ceil pixel column here
;	jmp	nocopy	; use this for test purposes
	pusha
	mov	eax,screen_buffer+1920*240
	mov	ebx,eax	;screen_buffer+1920*240
;--------------------------------------
align	4
copyfloor:
	sub	eax,1920
	add	ebx,1920
	mov	ecx,[vx1]
	lea	ecx,[ecx+ecx*2]
	lea	edx,[ecx+ebx]
	add	ecx,eax
	mov	esi,[edx]
	mov	[ecx],esi
	cmp	eax,screen_buffer
	jg	copyfloor
;@@:
	popa
; *** end of copy floor to ceil
;nocopy:
;--------------------------------------
; draw this pixelrows wall
	mov	[vl],edi
	mov	edi,260
	sub	edi,[vdd]
	cmp	edi,0
	jg	ok3
	
	xor	edi,edi
;--------------------------------------
ok3:
	mov	[vbottom],edi	; end wall ceil (or window top)
	mov	esi,262
	add	esi,[vdd]	; start wall floor
	xor	edi,edi
; somethin is wrong with xfrac,so recalc...
	mov	eax,[vxx]
	and	eax,0x0000FFFF
	shr	eax,10
	mov	[xfrac],eax
 
	mov	eax,[vyy]
	and	eax,0x0000FFFF
	shr	eax,10
	mov	[yfrac],eax
;--------------------------------------
pixelrow:
; find each pixels color:
	add	edi,ICON_SIZE_Y
	sub	esi,1
	cmp	esi,502		; dont calc offscreen-pixels
	jg	speedup
 
	xor	edx,edx
	mov	eax,edi
	mov	ebx,[vdd]
;	add	ebx,ebx
	shl	ebx,1
	div	ebx
 
	shl	edx,1
	cmp	ebx,edx
	jae	@f
	inc	eax
@@:
	and	eax,ICON_SIZE_Y-1
	mov	[ytemp],eax	; get y of texture for wall
 
	mov	eax,[xfrac]
	add	eax,[yfrac]
	and	eax,ICON_SIZE_X-1
	mov	[xtemp],eax	; get x of texture for wall
; now prepare to plot that wall-pixel...
	mov	[remedi],edi
	mov	edi,[ytemp]
	sal	edi,9	;8 - for 64x64
	mov	edx,[xtemp]
	sal	edx,3	;2 - for 64x64
	add	edi,edx
	mov	eax,[vk]	; determine which texture should be used
	and	eax,255
 
	cmp	eax,1
	jne	checkmore1
 
	add	edi,[wall0]	;ceil
	jmp	foundtex
;---------------------------------------------------------------------
align	4
checkmore1:
	cmp	eax,2
	jne	checkmore2
 
	add	edi,[wall1]
	jmp	foundtex
;---------------------------------------------------------------------
align	4
checkmore2:
	cmp	eax,3
	jne	checkmore3
 
	add	edi,[wall2]
	jmp	foundtex
;---------------------------------------------------------------------
align	4
checkmore3:
	cmp	eax,4
	jne	checkmore4
 
	add	edi,[wall3]
	jmp	foundtex
;---------------------------------------------------------------------
align	4
checkmore4:
	cmp	eax,5
	jne	checkmore5
 
	add	edi,[wall4]
	jmp	foundtex
;---------------------------------------------------------------------
align	4
checkmore5:
	cmp	eax,6
	jne	checkmore6
 
	add	edi,[wall5]
	jmp	foundtex
;---------------------------------------------------------------------
align	4
checkmore6:
	cmp	eax,7
	jne	checkmore7
 
	add	edi,[wall6]
	jmp	foundtex
;---------------------------------------------------------------------
align	4
checkmore7:
	cmp	eax,8
	jne	checkmore8
 
	add	edi,[wall7]
	jmp	foundtex
;---------------------------------------------------------------------
align	4
checkmore8:
foundtex:
	mov	edx,[edi]	; get pixel color inside texture
; ***pseudoshade south-west
;	jmp	east	; activate this for southwest pseudoshade : a bit slower + blink-bug
;---------------------------------------------------------------------
;	mov	edi,[yfrac]
;	mov	[pseudo],dword 0	; store flag for custom distance darkening
;	cmp	edi,[xfrac]
;	jge	east
 
;	and	edx,0x00FEFEFE
;	shr	edx,1
;	mov	[pseudo],dword 1
;--------------------------------------
east:
	call	dark_distance	; deactivate wall distance darkening: a bit faster
; ******* DRAW WALL PIXEL *******
	mov	eax,esi
	lea	eax,[esi-22]
	imul	eax,1920
	mov	ebx,[vx1]
	lea	ebx,[ebx+ebx*2]
	lea	eax,[eax+screen_buffer+ebx]
 
	cmp	eax,screen_buffer+1920*480
	ja	dont_draw
 
	cmp	eax,screen_buffer
	jb	dont_draw
 
	mov	[eax],edx	; actually set the pixel in the image
;--------------------------------------
; *** eo draw wall pixel
dont_draw:
	mov	edi,[remedi]
;--------------------------------------
speedup:
	cmp	esi,[vbottom]	; end of this column?
	jg	pixelrow
 
	mov	edi,[vl]	; restoring
	mov	eax,[vx1]	; inc X1
	add	eax,1
	mov	[vx1],eax
;*** NEXT A ***
	mov	esi,[va]
	sub	esi,1
	mov	[va],esi
	cmp	esi,[vacompare]
	jg	for_a
;*** EO NEXT A ***
;--------------------------------------
; **** put image !!!!!****
	xor	edx,edx
	mcall	7,screen_buffer,<640,480>
	ret
;---------------------------------------------------------------------
align	4
blur:
	pusha
	mov	eax,screen_buffer+360*1920
;--------------------------------------
align	4
copyfloor2:
	add	eax,1920
	mov	ebx,[vx1]
	lea	ebx,[ebx+ebx*2]
	add	ebx,eax
	
	mov	ecx,[ebx-15]
	and	ecx,0x00FEFEFE
	shr	ecx,1
	
	mov	edx,[ebx-12]
	and	edx,0x00FEFEFE
	shr	edx,1
	add	edx,ecx
	and	edx,0x00FEFEFE
	shr	edx,1
 
	mov	ecx,[ebx-9]
	and	ecx,0x00FEFEFE
	shr	ecx,1
	add	edx,ecx
 
	and	edx,0x00FEFEFE
	shr	edx,1
 
	mov	ecx,[ebx-6]
	and	ecx,0x00FEFEFE
	shr	ecx,1
	add	edx,ecx
 
	and	edx,0x00FEFEFE
	shr	edx,1
 
	mov	ecx,[ebx-3]
	and	ecx,0x00FEFEFE
	shr	ecx,1
	add	edx,ecx
 
	and	edx,0x00FEFEFE
	shr	edx,1
 
	mov	ecx,[ebx]
	and	ecx,0x00FEFEFE
	shr	ecx,1
	add	edx,ecx
 
	mov	[ebx],edx
 
	cmp	eax,screen_buffer+478*1920
	jb	copyfloor2
 
	popa
	ret
;---------------------------------------------------------------------
; ******* Darken by Distance *******
align	4
dark_distance:
; color must be in edx, wall height in [vdd]
	mov	eax,[vdd]
	cmp	eax,50
	jg	nodark
; split rgb
	mov	[blue_color],edx
	and	[blue_color],dword 255
 
	shr	edx,8
	mov	[green_color],edx
	and	[green_color],dword 255
 
	shr	edx,8
	mov	[red_color],edx
	and	[red_color],dword 255
 
	mov	eax,51	; darkness parameter
	sub	eax,[vdd]
	cmp	[pseudo],dword 1
	je	isdarkside
 
	sal	eax,2
;--------------------------------------
align	4
isdarkside:
; reduce rgb
	sub	[red_color],eax
	cmp	[red_color],dword 0
	jg	notblack10b
 
	mov	[red_color],dword 0
;--------------------------------------
align	4
notblack10b:
	sub	[green_color],eax
	cmp	[green_color],dword 0
	jg	notblack20b
 
	mov	[green_color],dword 0
;--------------------------------------
align	4
notblack20b:
	mov	edx,[blue_color]
	sub	[blue_color],eax
	cmp	[blue_color],dword 0
	jg	notblack30b
 
	mov	[blue_color],dword 0
;--------------------------------------	
align	4
notblack30b:
	shl	dword [red_color],16	; reassemble rgb
	shl	dword [green_color],8
	mov	edx,[red_color]
	or	edx,[green_color]
	or	edx,[blue_color]
	mov	eax,edx
;--------------------------------------
align	4
nodark:
	ret
;---------------------------------------------------------------------
load_icons:
	mov	ebx,icons_file_name
	mov	esi,path
	mov	edi,file_name
	call	copy_file_path
 
	mov	[fileinfo.subfunction],dword 5
	mov	[fileinfo.size],dword 0
	mov	[fileinfo.return],dword file_info
	mcall	70,fileinfo
	test	eax,eax
	jnz	.error
 
	mov	[fileinfo.subfunction],dword 0
 
	mov	ecx,[file_info+32]
	mov	[fileinfo.size],ecx
	mov	[img_size],ecx
	
	mcall	68,12
	test	eax,eax
	jz	finish	;memory_get_error
 
	mov	[fileinfo.return],eax
	mov	[image_file],eax
 
	mcall	70,fileinfo
	test	eax,eax
	jnz	.error
	ret
.error:
;	mov	[N_error],2
;	mov	[error_type],eax
	jmp	finish
;---------------------------------------------------------------------
copy_file_path:
	xor	eax,eax
	cld
@@:
	lodsb
	stosb
	test	eax,eax
	jnz	@b
	mov	esi,edi
	dec	esi
	std
@@:
	lodsb
	cmp	al,'/'
	jnz	@b
	mov	edi,esi
	add	edi,2
	mov	esi,ebx
	cld
@@:
	lodsb
	stosb
	test	eax,eax
	jnz	@b
	ret
;---------------------------------------------------------------------
convert_icons:
	xor	eax,eax
	mov	[return_code],eax
	push	image_file
	call	[cnv_png_import.Start]
 
	mov	ecx,[image_file]
	mcall	68,13,
	test	eax,eax
	jz	finish	;memory_free_error
 
	cmp	[return_code],dword 0
;	je	@f
;	mov	[N_error],6
;	jmp	button.exit
;@@:
	jne	finish
 
	mcall	68,20,ICON_SIZE_X*ICON_SIZE_Y*4*8+44,[raw_pointer]
	mov	[raw_pointer],eax
 
	mov	ebx,[raw_pointer]
; set RAW area for icon
	mov	eax,[ebx+28]
	add	eax,ebx
	mov	edi,eax
	mov	esi,eax
	add	esi,ICON_SIZE_X*ICON_SIZE_Y*8*3-1
	add	edi,ICON_SIZE_X*ICON_SIZE_Y*8*4-4
 
;	add	eax,TEX_SIZE
	mov	[wall0],eax
	add	eax,TEX_SIZE
	mov	[wall1],eax
	add	eax,TEX_SIZE
	mov	[wall2],eax
	add	eax,TEX_SIZE
	mov	[wall3],eax
	add	eax,TEX_SIZE
	mov	[wall4],eax
	add	eax,TEX_SIZE
	mov	[wall5],eax
	add	eax,TEX_SIZE
	mov	[wall6],eax
	add	eax,TEX_SIZE
	mov	[wall7],eax
	add	eax,TEX_SIZE
; conversion 24b to 32 b
	mov	ecx,ICON_SIZE_X*ICON_SIZE_Y*8
	std
@@:
	xor	eax,eax
	lodsb
	rol	eax,8
	lodsb
	rol	eax,8
	lodsb
;	ror	eax,16
	stosd
	dec	ecx
	jnz	@b
	cld
	ret
;---------------------------------------------------------------------
; DATA AREA
;ceil=ceil
;wall=wall floor
;2 corner stone
;3 leaf mosaic
;4 closed window
;5 greek mosaic
;6 old street stones
;7 maya wall
;---------------------------------------------------------------------
align	4
grid:	; 32*32 Blocks, Map: 0 = Air, 1 to 8 = Wall
db 2,1,2,1,2,1,2,1,2,1,2,1,1,1,1,1,1,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
db 1,0,0,0,1,0,0,0,0,0,0,3,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,8,8
db 5,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8
db 1,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,1,0,0,0,0,3,3,3,3,0,0,0,0,0,0,8
db 5,0,1,2,3,4,5,6,7,8,2,1,3,3,3,0,5,0,2,1,2,3,0,0,0,0,0,0,0,0,0,8
db 1,0,0,0,0,0,0,0,0,0,2,3,0,0,0,0,5,0,0,0,0,3,0,0,0,0,0,0,0,0,0,8
db 5,0,0,0,1,0,0,4,0,0,0,1,0,0,0,0,5,0,0,0,0,3,3,0,3,3,0,0,0,0,0,8
db 1,1,0,1,1,1,1,4,1,0,1,3,0,0,0,0,5,2,1,2,0,3,0,0,0,3,0,0,0,0,0,8
db 5,0,0,0,1,0,0,0,0,0,0,1,0,3,3,3,5,0,0,0,0,3,0,0,0,3,0,0,0,0,0,8
db 1,0,0,0,1,0,0,5,0,0,0,0,0,0,0,0,5,0,0,0,0,0,0,0,0,3,0,0,0,0,0,8
db 5,0,0,0,0,0,0,5,0,0,0,1,0,0,0,0,5,0,0,0,0,3,0,0,0,0,0,0,0,0,0,8
db 1,4,4,4,4,4,4,4,4,4,4,3,0,0,0,0,0,0,0,0,0,3,0,0,0,0,0,0,0,0,8,8
db 2,2,2,2,2,2,8,8,8,8,8,8,8,8,8,0,0,0,6,6,0,7,7,7,7,7,7,7,7,7,8,8
db 1,0,0,0,1,0,0,0,0,0,0,3,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,1
db 5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,0,2,2,2,2,0,0,0,0,3,3,3,3,3,1
db 1,0,0,0,1,0,0,1,0,0,0,0,0,0,0,0,6,0,0,0,0,2,0,0,0,0,3,0,0,0,0,1
db 5,0,2,3,2,3,2,3,2,3,2,1,0,0,0,0,6,0,2,2,0,2,0,0,0,0,3,0,5,5,0,1
db 1,0,0,0,0,0,0,4,0,0,0,3,0,0,0,0,6,0,0,2,0,2,0,2,0,0,3,0,0,0,0,1
db 5,0,0,0,1,0,0,4,0,0,0,1,0,0,0,0,6,0,0,2,2,2,0,2,0,0,3,3,3,3,0,1
db 1,1,0,1,1,1,1,4,1,0,1,3,7,7,7,0,6,0,0,0,0,0,0,2,0,0,0,0,0,3,0,1
db 5,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,6,0,0,0,0,2,2,2,0,0,0,0,0,3,0,1
db 1,0,0,0,1,0,0,5,0,0,0,3,0,0,0,0,6,0,0,0,0,2,0,0,0,0,0,0,0,0,0,1
db 5,0,0,0,0,0,0,5,0,0,0,1,0,0,0,0,6,0,5,1,0,2,0,0,4,4,0,4,4,0,0,1
db 1,4,1,4,1,4,1,4,1,4,1,3,0,0,0,0,6,0,0,5,0,2,0,0,0,4,0,4,0,0,0,1
db 1,0,0,0,0,0,0,4,0,0,0,3,0,3,3,3,6,0,0,1,0,1,0,0,4,4,0,4,4,0,0,1
db 5,0,0,0,1,0,0,4,0,0,0,1,0,0,0,0,6,0,0,5,0,1,0,4,4,0,0,0,4,4,0,1
db 1,1,0,1,1,1,1,4,1,0,1,3,0,0,0,0,6,0,0,1,0,1,0,4,0,0,0,0,0,4,0,1
db 5,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,6,0,0,5,0,1,0,4,0,0,0,0,0,4,0,1
db 1,0,0,0,1,0,0,5,0,0,0,3,0,0,0,0,6,1,5,1,0,1,0,4,4,0,0,0,4,4,0,1
db 5,0,0,0,0,0,0,5,0,0,0,0,0,0,1,1,0,0,0,0,0,1,0,0,4,4,4,4,4,0,0,1
db 1,4,1,4,1,4,1,4,1,4,1,3,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1
db 2,1,2,1,2,1,2,1,2,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
;---------------------------------------------------------------------
vpx:
	dd 0x0001FFFF	; initial player position * 0xFFFF
vpy:
	dd 0x0001FFFF
 
title	db 'Free3D v0.6 - fisheye raycasting engine etc.',0
 
sindegree	dd 0.0
sininc		dd 0.0017453292519943295769236907684886
sindiv		dd 6553.5
;textures:
;file 'texture.gif'
current_key_code	db 0
old_key_code		db 0
extended_key		db 0
;---------------------------------------------------------------------
align	4
fileinfo:
.subfunction	dd 5
.Offset		dd 0
.Offset_1	dd 0
.size		dd 0
.return		dd file_info
		db 0
.name:		dd file_name
;---------------------------------------------------------------------
icons_file_name		db 'texture_24b.png',0
;---------------------------------------------------------------------
plugins_directory	db 0
 
system_dir_Boxlib	db '/sys/lib/box_lib.obj',0
system_dir_CnvPNG	db '/sys/lib/cnv_png.obj',0
system_dir_Sort		db '/sys/lib/sort.obj',0
system_dir_UNPACK	db '/sys/lib/archiver.obj',0
 
ihead_f_i:
ihead_f_l	db 'System	error',0
 
er_message_found_lib1	db 'cnv_png.obj - Not found!',0
er_message_import1	db 'cnv_png.obj - Wrong import!',0
 
err_message_found_lib2	db 'archiver.obj - Not found!',0
err_message_import2	db 'archiver.obj - Wrong import!',0
 
 
align	4
l_libs_start:
library01	l_libs	system_dir_CnvPNG+9,path,file_name,system_dir_CnvPNG,\
er_message_found_lib1,ihead_f_l,cnv_png_import,er_message_import1,ihead_f_i,plugins_directory
 
library02	l_libs	system_dir_UNPACK+9,path,file_name,system_dir_UNPACK,\
err_message_found_lib2,ihead_f_l,UNPACK_import,err_message_import2,ihead_f_i,plugins_directory
 
end_l_libs:
;---------------------------------------------------------------------
align	4
cnv_png_import:
.Start		dd aCP_Start
.Version	dd aCP_Version
.Check		dd aCP_Check
.Assoc		dd aCP_Assoc
	dd 0
	dd 0
aCP_Start	db 'START',0
aCP_Version	db 'version',0
aCP_Check	db 'Check_Header',0
aCP_Assoc	db 'Associations',0
;---------------------------------------------------------------------
align	4
UNPACK_import:
;unpack_Version			dd aUnpack_Version
;unpack_PluginLoad		dd aUnpack_PluginLoad	
;unpack_OpenFilePlugin		dd aUnpack_OpenFilePlugin
;unpack_ClosePlugin		dd aUnpack_ClosePlugin
;unpack_ReadFolder		dd aUnpack_ReadFolder	
;unpack_SetFolder		dd aUnpack_SetFolder
;unpack_GetFiles		dd aUnpack_GetFiles
;unpack_GetOpenPluginInfo	dd aUnpack_GetOpenPluginInfo
;unpack_Getattr			dd aUnpack_Getattr
;unpack_Open			dd aUnpack_Open
;unpack_Read			dd aUnpack_Read
;unpack_Setpos			dd aUnpack_Setpos
;unpack_Close			dd aUnpack_Close
;unpack_DeflateUnpack		dd aUnpack_DeflateUnpack
unpack_DeflateUnpack2		dd aUnpack_DeflateUnpack2
	dd 0
	dd 0
 
;aUnpack_Version		db 'version',0
;aUnpack_PluginLoad		db 'plugin_load',0
;aUnpack_OpenFilePlugin		db 'OpenFilePlugin',0
;aUnpack_ClosePlugin		db 'ClosePlugin',0
;aUnpack_ReadFolder		db 'ReadFolder',0
;aUnpack_SetFolder		db 'SetFolder',0
;aUnpack_GetFiles		db 'GetFiles',0
;aUnpack_GetOpenPluginInfo	db 'GetOpenPluginInfo',0
;aUnpack_Getattr		db 'getattr',0
;aUnpack_Open			db 'open',0
;aUnpack_Read			db 'read',0
;aUnpack_Setpos			db 'setpos',0
;aUnpack_Close			db 'close',0
;aUnpack_DeflateUnpack		db 'deflate_unpack',0
aUnpack_DeflateUnpack2		db 'deflate_unpack2',0
 
;---------------------------------------------------------------------
IM_END:
;---------------------------------------------------------------------
; not	change	this	section!!!
; start	section
;---------------------------------------------------------------------
align	4
image_file	rd 1
raw_pointer	rd 1
return_code	rd 1
img_size	rd 1
deflate_unpack	rd 1
raw_pointer_2	rd 1	;+20
;---------------------------------------------------------------------
; end	section
;---------------------------------------------------------------------
align	4
;---------------------------------------------------------------------
wall0	rd 1
wall1	rd 1
wall2	rd 1
wall3	rd 1
wall4	rd 1
wall5	rd 1
wall6	rd 1
wall7	rd 1
;screen_buffer	rd 1
active_process	rd 1
 
;mouse_position		rd 1
mouse_position_old	rd 1
;---------------------------------------------------------------------
align	4
col1:
	dd ?	;-
; misc raycaster vars:
vxx:
	dd ?	;-
vyy:
	dd ?	;-
vl:
	dd ?	;-
vstepx:
	dd ?	;-
vstepy:
	dd ?	;-
vxxint:
	dd ?	;-
vyyint:
	dd ?	;-
vk:
	dd ?	;-
va:
	dd ?	;-
va2:
	dd ?	;-
vdd:
	dd ?	;-
vx1:
	dd ?	;-
vx1b:
	dd ?	;-
vh:
	dd ?	;-
vdt:
	dd ?	;-
vheading:	; initial heading: 0 to 3599
	dd ?	;-
vacompare:
	dd ?	;-
vpxi:
	dd ?	;-
vpyi:
	dd ?	;-
wtolong:
	dw ?,?	;-,?;-
 
xtemp:
	dd ?	;-
ytemp:
	dd ?	;-
xfrac:
	dd ?	;-
yfrac:
	dd ?	;-
h_old:
	dd ?	;-
vbottom:
	dd ?	;-
;mouseya:
;	dd ?	;-
remeax:
	dd ?	;-
remebx:
	dd ?	;-
remecx:
	dd ?	;-
remedx:
	dd ?	;-
remedi:
	dd ?	;-
remesi:
	dd ?	;-
red_color:
	dd ?	;-
green_color:
	dd ?	;-
blue_color:
	dd ?	;-
pseudo:
	dd ?	;-
step1:
	dd ?	;-
;step64:
;	dd ?	;-
lasty:
	dd ?	;-
;---------------------------------------------------------------------
;I_END:
IncludeUGlobals
align	4
sinus	rd 360*10
eosinus:
;	rd 16*1024*4
;---------------------------------------------------------------------
align	4
	rb 4096
stacktop:
;---------------------------------------------------------------------
procinfo:
	rb 1024
;---------------------------------------------------------------------
path:
	rb 4096
;---------------------------------------------------------------------
file_name:
	rb 4096
;---------------------------------------------------------------------
file_info:
	rb 40
;---------------------------------------------------------------------
screen_buffer:
	rb 640*480*3 *3/2
;---------------------------------------------------------------------
I_END:
;---------------------------------------------------------------------

Rev 2494	Rev 6249
1	;---------------------------------------------------------------------	1	;---------------------------------------------------------------------
2	; Free3D version 0.6	2	; Free3D version 0.6
3	;	3	;
4	; last update: 21/02/2011	4	; last update: 21/02/2011
5	; written by: Marat Zakiyanov aka Mario79, aka Mario	5	; written by: Marat Zakiyanov aka Mario79, aka Mario
6	; changes: advanced control for mouse	6	; changes: advanced control for mouse
7	; advanced control for keyboard:	7	; advanced control for keyboard:
8	; W,A,S,D adn Arrow UP,Down,Left,Right	8	; W,A,S,D adn Arrow UP,Down,Left,Right
9	;---------------------------------------------------------------------	9	;---------------------------------------------------------------------
10	; Free3D version 0.5	10	; Free3D version 0.5
11	;	11	;
12	; last update: 20/02/2011	12	; last update: 20/02/2011
13	; written by: Marat Zakiyanov aka Mario79, aka Mario	13	; written by: Marat Zakiyanov aka Mario79, aka Mario
14	; changes: PNG textures 128x128	14	; changes: PNG textures 128x128
15	; using libraries cnv_png.obj and archiver.obj	15	; using libraries cnv_png.obj and archiver.obj
16	; using dinamically allocation of memory	16	; using dinamically allocation of memory
17	;	17	;
18	;---------------------------------------------------------------------	18	;---------------------------------------------------------------------
19	;	19	;
20	; Fisheye Raycasting Engine Etc. FREE3D for MENUETOS by Dieter Marfurt	20	; Fisheye Raycasting Engine Etc. FREE3D for MENUETOS by Dieter Marfurt
21	; Version 0.4 (requires some texture-files to compile (see Data Section))	21	; Version 0.4 (requires some texture-files to compile (see Data Section))
22	; dietermarfurt@angelfire.com - www.melog.ch/mos_pub/	22	; dietermarfurt@angelfire.com - www.melog.ch/mos_pub/
23	; Don't hit me - I'm an ASM-Newbie... since years :)	23	; Don't hit me - I'm an ASM-Newbie... since years :)
24	;	24	;
25	; Compile with FASM for Menuet (requires .INC files - see DATA Section)	25	; Compile with FASM for Menuet (requires .INC files - see DATA Section)
26	;	26	;
27	; Willow - greatly srinked code size by using GIF texture and FPU to calculate sine table	27	; Willow - greatly srinked code size by using GIF texture and FPU to calculate sine table
28	;	28	;
29	; !!!! Don't use GIF_LITE.INC in your apps - it's modified for FREE3D !!!!	29	; !!!! Don't use GIF_LITE.INC in your apps - it's modified for FREE3D !!!!
30	;	30	;
31	; Heavyiron - new 0-function of drawing window from kolibri (do not work correctly with menuet)	31	; Heavyiron - new 0-function of drawing window from kolibri (do not work correctly with menuet)
32		32
33	TEX_SIZE equ 1281284 ;64644 ;	33	TEX_SIZE equ 1281284 ;64644 ;
34		34
35	ICON_SIZE_X equ 128 ;64	35	ICON_SIZE_X equ 128 ;64
36	ICON_SIZE_Y equ 128 ;64	36	ICON_SIZE_Y equ 128 ;64
37		37
38	Floors_Height equ 32000	38	Floors_Height equ 32000
39	;---------------------------------------------------------------------	39	;---------------------------------------------------------------------
40	use32	40	use32
41	org 0x0	41	org 0x0
42	db 'MENUET01' ; 8 byte id	42	db 'MENUET01' ; 8 byte id
43	dd 0x01 ; header version	43	dd 0x01 ; header version
44	dd START ; start of code	44	dd START ; start of code
45	dd IM_END ; size of image	45	dd IM_END ; size of image
46	dd I_END ; 0x100000 ; memory for app	46	dd I_END ; 0x100000 ; memory for app
47	dd stacktop ; 0x100000 ; esp	47	dd stacktop ; 0x100000 ; esp
48	dd 0x0	48	dd 0x0
49	dd path	49	dd path
50	;---------------------------------------------------------------------	50	;---------------------------------------------------------------------
51	include '../../../macros.inc'	51	include '../../../macros.inc'
52	;include 'macros.inc'	52	;include 'macros.inc'
53	include '../../../develop/libraries/box_lib/load_lib.mac'	53	include '../../../develop/libraries/box_lib/load_lib.mac'
54	;include 'load_lib.mac'	54	;include 'load_lib.mac'
55	@use_library	55	@use_library
56	;---------------------------------------------------------------------	56	;---------------------------------------------------------------------
57	START: ; start of execution	57	START: ; start of execution
58	mcall 68,11	58	mcall 68,11
59	mcall 66,1,1	59	mcall 66,1,1
60	mcall 40,0x27	60	mcall 40,0x27
61		61
62	mcall 9,procinfo,-1	62	mcall 9,procinfo,-1
63	mov ecx,[ebx+30] ; PID	63	mov ecx,[ebx+30] ; PID
64	mcall 18,21	64	mcall 18,21
65	mov [active_process],eax ; WINDOW SLOT	65	mov [active_process],eax ; WINDOW SLOT
66		66
67	load_libraries l_libs_start,end_l_libs	67	load_libraries l_libs_start,end_l_libs
68	test eax,eax	68	test eax,eax
69	jnz finish	69	jnz finish
70		70
71	; unpack deflate	71	; unpack deflate
72	mov eax,[unpack_DeflateUnpack2]	72	mov eax,[unpack_DeflateUnpack2]
73	mov [deflate_unpack],eax	73	mov [deflate_unpack],eax
74		74
75	call load_icons	75	call load_icons
76	call convert_icons	76	call convert_icons
77		77
78	mov esi,sinus	78	mov esi,sinus
79	mov ecx,360*10	79	mov ecx,360*10
80	fninit	80	fninit
81	fld [sindegree]	81	fld [sindegree]
82	;--------------------------------------	82	;--------------------------------------
83	.sinlp:	83	.sinlp:
84	fst st1	84	fst st1
85	fsin	85	fsin
86	fmul [sindiv]	86	fmul [sindiv]
87	fistp dword[esi]	87	fistp dword[esi]
88	add esi,4	88	add esi,4
89	fadd [sininc]	89	fadd [sininc]
90	loop .sinlp	90	loop .sinlp
91	;---------------------------------------------------------------------	91	;---------------------------------------------------------------------
92	call cursor_to_screen_center	92	call cursor_to_screen_center
93	call set_new_cursor_skin	93	call set_new_cursor_skin
94	;---------------------------------------------------------------------	94	;---------------------------------------------------------------------
95	align 4	95	align 4
96	red: ; redraw	96	red: ; redraw
97	call draw_window	97	call draw_window
98	call draw_stuff	98	call draw_stuff
99	;---------------------------------------------------------------------	99	;---------------------------------------------------------------------
100	align 4	100	align 4
101	still:	101	still:
102	mcall 10 ; ask no wait for full speed	102	mcall 10 ; ask no wait for full speed
103		103
104	cmp eax,1 ; window redraw request ?	104	cmp eax,1 ; window redraw request ?
105	je red	105	je red
106		106
107	cmp eax,2 ; key in buffer ?	107	cmp eax,2 ; key in buffer ?
108	je key	108	je key
109		109
110	cmp eax,3 ; button in buffer ?	110	cmp eax,3 ; button in buffer ?
111	je button	111	je button
112		112
113	cmp eax,6	113	cmp eax,6
114	jne still	114	jne still
115	;---------------------------------------------------------------------	115	;---------------------------------------------------------------------
116	mouse:	116	mouse:
117	mcall 18,7	117	mcall 18,7
118	cmp [active_process],eax	118	cmp [active_process],eax
119	jne still	119	jne still
120		120
121	mcall 37,1	121	mcall 37,1
122		122
123	xor ebx,ebx	123	xor ebx,ebx
124	mov bx,ax ; EBX mouse y	124	mov bx,ax ; EBX mouse y
125	shr eax,16 ; EAX mouse x	125	shr eax,16 ; EAX mouse x
126		126
127	mov ecx,[mouse_position_old]	127	mov ecx,[mouse_position_old]
128	xor edx,edx	128	xor edx,edx
129	mov dx,cx ; EDX mouse y old	129	mov dx,cx ; EDX mouse y old
130	shr ecx,16 ; ECX mouse x old	130	shr ecx,16 ; ECX mouse x old
131		131
132	cmp eax,ecx	132	cmp eax,ecx
133	je .y ;still	133	je .y ;still
134	ja .turn_left	134	ja .turn_left
135	;---------------------------------------------------------------------	135	;---------------------------------------------------------------------
136	.turn_right:	136	.turn_right:
137	xchg eax,ecx	137	xchg eax,ecx
138	sub eax,ecx	138	sub eax,ecx
139	mov edi,[vheading]	139	mov edi,[vheading]
140	add edi,eax	140	add edi,eax
141	jmp @f	141	jmp @f
142	;---------------------------------------------------------------------	142	;---------------------------------------------------------------------
143	.turn_left:	143	.turn_left:
144	sub eax,ecx	144	sub eax,ecx
145	mov edi,[vheading]	145	mov edi,[vheading]
146	sub edi,eax	146	sub edi,eax
147	;--------------------------------------	147	;--------------------------------------
148	@@:	148	@@:
149	call check_range	149	call check_range
150	;---------------------------------------------------------------------	150	;---------------------------------------------------------------------
151	.y:	151	.y:
152	cmp ebx,edx	152	cmp ebx,edx
153	je .red	153	je .red
154	ja .walk_down	154	ja .walk_down
155	;--------------------------------------	155	;--------------------------------------
156	.walk_up:	156	.walk_up:
157	sub edx,ebx	157	sub edx,ebx
158	mov ecx,edx	158	mov ecx,edx
159	call prepare_2	159	call prepare_2
160	jz .1	160	jz .1
161	;--------------------------------------	161	;--------------------------------------
162	add eax,edi ; newPx	162	add eax,edi ; newPx
163	add ebx,esi ; newPy	163	add ebx,esi ; newPy
164	jmp .1	164	jmp .1
165	;---------------------------------------------------------------------	165	;---------------------------------------------------------------------
166	.walk_down:	166	.walk_down:
167	sub ebx,edx	167	sub ebx,edx
168	mov ecx,ebx	168	mov ecx,ebx
169	call prepare_2	169	call prepare_2
170	jz .1	170	jz .1
171		171
172	sub eax,edi ; newPx	172	sub eax,edi ; newPx
173	sub ebx,esi ; newPy	173	sub ebx,esi ; newPy
174	;--------------------------------------	174	;--------------------------------------
175	.1:	175	.1:
176	mov edi,eax ; newPx / ffff	176	mov edi,eax ; newPx / ffff
177	mov esi,ebx ; newPy / ffff	177	mov esi,ebx ; newPy / ffff
178	sar edi,16	178	sar edi,16
179	sar esi,16	179	sar esi,16
180	mov ecx,esi	180	mov ecx,esi
181	sal ecx,5	181	sal ecx,5
182	lea ecx,[grid+ecx+edi]	182	lea ecx,[grid+ecx+edi]
183	cmp [ecx],byte 0	183	cmp [ecx],byte 0
184	je @f	184	je @f
185		185
186	call cursor_to_screen_center	186	call cursor_to_screen_center
187	jmp still ;cannotwalk	187	jmp still ;cannotwalk
188	;---------------------------------------------------------------------	188	;---------------------------------------------------------------------
189	@@:	189	@@:
190	mov [vpx],eax	190	mov [vpx],eax
191	mov [vpy],ebx	191	mov [vpy],ebx
192	;--------------------------------------	192	;--------------------------------------
193	.red:	193	.red:
194	call cursor_to_screen_center	194	call cursor_to_screen_center
195	jmp red	195	jmp red
196	;---------------------------------------------------------------------	196	;---------------------------------------------------------------------
197	align 4	197	align 4
198	prepare_2:	198	prepare_2:
199	shr ecx,4	199	shr ecx,4
200	push ecx	200	push ecx
201	call prepare_1	201	call prepare_1
202	pop ecx	202	pop ecx
203	cmp ecx,3	203	cmp ecx,3
204	jb @f	204	jb @f
205	mov ecx,3	205	mov ecx,3
206	@@:	206	@@:
207	shl edi,cl	207	shl edi,cl
208	shl esi,cl	208	shl esi,cl
209	test ecx,ecx	209	test ecx,ecx
210	ret	210	ret
211	;---------------------------------------------------------------------	211	;---------------------------------------------------------------------
212	align 4	212	align 4
213	check_range:	213	check_range:
214	cmp edi,0	214	cmp edi,0
215	jge @f	215	jge @f
216		216
217	mov edi,3600	217	mov edi,3600
218	jmp .store	218	jmp .store
219	;--------------------------------------	219	;--------------------------------------
220	@@:	220	@@:
221	cmp edi,3600	221	cmp edi,3600
222	jle @f	222	jle @f
223		223
224	xor edi,edi	224	xor edi,edi
225	;--------------------------------------	225	;--------------------------------------
226	@@:	226	@@:
227	.store:	227	.store:
228	mov [vheading],edi	228	mov [vheading],edi
229	ret	229	ret
230	;---------------------------------------------------------------------	230	;---------------------------------------------------------------------
231	align 4	231	align 4
232	cursor_to_screen_center:	232	cursor_to_screen_center:
233	mcall 18,15	233	mcall 18,15
234	mcall 37,1	234	mcall 37,1
235	mov [mouse_position_old],eax	235	mov [mouse_position_old],eax
236	ret	236	ret
237	;---------------------------------------------------------------------	237	;---------------------------------------------------------------------
238	set_new_cursor_skin:	238	set_new_cursor_skin:
239	mcall 68,12,32324	239	mcall 68,12,32324
240	mov ecx,eax	240	mov ecx,eax
241	mcall 37,4,,2	241	mcall 37,4,,2
242	mov ecx,eax	242	mov ecx,eax
243	mcall 37,5	243	mcall 37,5
244	ret	244	ret
245	;---------------------------------------------------------------------	245	;---------------------------------------------------------------------
246	align 4	246	align 4
247	key: ; key	247	key: ; key
248	mcall 2	248	mcall 2
249	cmp [extended_key],1	249	cmp [extended_key],1
250	je .extended_key	250	je .extended_key
251	test al, al	251	test al, al
252	jnz still	252	jnz still
253		253
254	cmp ah, 0xE0	254	cmp ah, 0xE0
255	jne @f	255	jne @f
256		256
257	mov [extended_key],1	257	mov [extended_key],1
258	jmp still	258	jmp still
259	;---------------------------------------------------------------------	259	;---------------------------------------------------------------------
260	@@:	260	@@:
261	cmp ah,1 ; Esc	261	cmp ah,1 ; Esc
262	je finish	262	je finish
263		263
264	cmp ah,17 ; W up	264	cmp ah,17 ; W up
265	je s_up	265	je s_up
266		266
267	cmp ah,31 ; S down	267	cmp ah,31 ; S down
268	je s_down	268	je s_down
269		269
270	cmp ah,30 ; A left	270	cmp ah,30 ; A left
271	je w_left ;s_left	271	je w_left ;s_left
272		272
273	cmp ah,32 ; D right	273	cmp ah,32 ; D right
274	je w_right ;s_right	274	je w_right ;s_right
275		275
276	jmp still	276	jmp still
277	;---------------------------------------------------------------------	277	;---------------------------------------------------------------------
278	.extended_key:	278	.extended_key:
279	mov [extended_key],0	279	mov [extended_key],0
280	mov [current_key_code],ah	280	mov [current_key_code],ah
281		281
282	cmp ah,27 ; esc=End App	282	cmp ah,27 ; esc=End App
283	je finish	283	je finish
284		284
285	cmp ah,72 ; up arrow	285	cmp ah,72 ; up arrow
286	je s_up	286	je s_up
287		287
288	cmp ah,80 ; down arrow	288	cmp ah,80 ; down arrow
289	je s_down	289	je s_down
290		290
291	cmp ah,75 ; left arrow	291	cmp ah,75 ; left arrow
292	je s_left	292	je s_left
293		293
294	cmp ah,77 ; right arrow	294	cmp ah,77 ; right arrow
295	je s_right	295	je s_right
296		296
297	jmp still	297	jmp still
298	;---------------------------------------------------------------------	298	;---------------------------------------------------------------------
299	align 4	299	align 4
300	smart_clr_key_buf:	300	smart_clr_key_buf:
301	mov al,[old_key_code]	301	mov al,[old_key_code]
302	mov ah,[current_key_code]	302	mov ah,[current_key_code]
303	mov [old_key_code],ah	303	mov [old_key_code],ah
304	cmp al,ah	304	cmp al,ah
305	jne .end	305	jne .end
306	;--------------------------------------	306	;--------------------------------------
307	.still:	307	.still:
308	mcall 2	308	mcall 2
309	cmp [extended_key],1	309	cmp [extended_key],1
310	je .extended_key	310	je .extended_key
311		311
312	test al, al	312	test al, al
313	jnz .end	313	jnz .end
314		314
315	cmp ah, 0xE0	315	cmp ah, 0xE0
316	jne .end	316	jne .end
317		317
318	mov [extended_key],1	318	mov [extended_key],1
319	jmp .still	319	jmp .still
320	.end:	320	.end:
321	call draw_stuff	321	call draw_stuff
322	jmp still	322	jmp still
323	;---------------------------------------------------------------------	323	;---------------------------------------------------------------------
324	.extended_key:	324	.extended_key:
325	mov [extended_key],0	325	mov [extended_key],0
326	mov [current_key_code],ah	326	mov [current_key_code],ah
327	jmp smart_clr_key_buf	327	jmp smart_clr_key_buf
328	;---------------------------------------------------------------------	328	;---------------------------------------------------------------------
329	align 4	329	align 4
330	w_left: ; walk left	330	w_left: ; walk left
331	call prepare_1	331	call prepare_1
332	add eax,esi ; newPx	332	add eax,esi ; newPx
333	sub ebx,edi ; newPy	333	sub ebx,edi ; newPy
334	jmp s_down.1	334	jmp s_down.1
335	;---------------------------------------------------------------------	335	;---------------------------------------------------------------------
336	align 4	336	align 4
337	w_right: ; walk right	337	w_right: ; walk right
338	call prepare_1	338	call prepare_1
339	sub eax,esi ; newPx	339	sub eax,esi ; newPx
340	add ebx,edi ; newPy	340	add ebx,edi ; newPy
341	jmp s_down.1	341	jmp s_down.1
342	;---------------------------------------------------------------------	342	;---------------------------------------------------------------------
343	align 4	343	align 4
344	s_up: ; walk forward (key or mouse)	344	s_up: ; walk forward (key or mouse)
345	call prepare_1	345	call prepare_1
346	; sal esi,1 ; edit walking speed here	346	; sal esi,1 ; edit walking speed here
347	; sal edi,1	347	; sal edi,1
348	add eax,edi ; newPx	348	add eax,edi ; newPx
349	add ebx,esi ; newPy	349	add ebx,esi ; newPy
350	jmp s_down.1	350	jmp s_down.1
351	;---------------------------------------------------------------------	351	;---------------------------------------------------------------------
352	align 4	352	align 4
353	s_down: ; walk backward	353	s_down: ; walk backward
354	call prepare_1	354	call prepare_1
355	; sal esi,1 ; edit walking speed here	355	; sal esi,1 ; edit walking speed here
356	; sal edi,1	356	; sal edi,1
357	sub eax,edi ; newPx	357	sub eax,edi ; newPx
358	sub ebx,esi ; newPy	358	sub ebx,esi ; newPy
359	.1:	359	.1:
360	mov edi,eax ; newPx / ffff	360	mov edi,eax ; newPx / ffff
361	mov esi,ebx ; newPy / ffff	361	mov esi,ebx ; newPy / ffff
362	sar edi,16	362	sar edi,16
363	sar esi,16	363	sar esi,16
364	mov ecx,esi	364	mov ecx,esi
365	sal ecx,5	365	sal ecx,5
366	lea ecx,[grid+ecx+edi]	366	lea ecx,[grid+ecx+edi]
367	cmp [ecx],byte 0	367	cmp [ecx],byte 0
368	jne smart_clr_key_buf ;cannotwalk	368	jne smart_clr_key_buf ;cannotwalk
369		369
370	mov [vpx],eax	370	mov [vpx],eax
371	mov [vpy],ebx	371	mov [vpy],ebx
372	jmp smart_clr_key_buf	372	jmp smart_clr_key_buf
373	;---------------------------------------------------------------------	373	;---------------------------------------------------------------------
374	align 4	374	align 4
375	prepare_1:	375	prepare_1:
376	mov eax,[vpx]	376	mov eax,[vpx]
377	mov ebx,[vpy]	377	mov ebx,[vpy]
378	mov ecx,[vheading]	378	mov ecx,[vheading]
379	mov edx,ecx	379	mov edx,ecx
380	mov edi,[sinus+ecx*4]	380	mov edi,[sinus+ecx*4]
381	lea edx,[sinus+3600+edx*4]	381	lea edx,[sinus+3600+edx*4]
382	cmp edx,eosinus ; cosinus taken from (sinus plus 900) mod 3600	382	cmp edx,eosinus ; cosinus taken from (sinus plus 900) mod 3600
383	jb @f	383	jb @f
384		384
385	sub edx,14400	385	sub edx,14400
386	;--------------------------------------	386	;--------------------------------------
387	@@:	387	@@:
388	mov esi,[edx]	388	mov esi,[edx]
389	ret	389	ret
390	;---------------------------------------------------------------------	390	;---------------------------------------------------------------------
391	align 4	391	align 4
392	s_left: ; turn left (key)	392	s_left: ; turn left (key)
393	mov edi,[vheading]	393	mov edi,[vheading]
394	add edi,50	394	add edi,50
395	jmp s_right.1	395	jmp s_right.1
396	;---------------------------------------------------------------------	396	;---------------------------------------------------------------------
397	align 4	397	align 4
398	s_right: ; turn right	398	s_right: ; turn right
399	mov edi,[vheading]	399	mov edi,[vheading]
400	sub edi,50	400	sub edi,50
401	.1:	401	.1:
402	call check_range	402	call check_range
403	jmp smart_clr_key_buf	403	jmp smart_clr_key_buf
404	;---------------------------------------------------------------------	404	;---------------------------------------------------------------------
405	align 4	405	align 4
406	button: ; button	406	button: ; button
407	mcall 17	407	mcall 17
408	cmp ah,1 ; button id=1 ?	408	cmp ah,1 ; button id=1 ?
409	jne still ;gamestart	409	jne still ;gamestart
410	;--------------------------------------	410	;--------------------------------------
411	finish:	411	finish:
412	mcall -1 ; close this program	412	mcall -1 ; close this program
413	;---------------------------------------------------------------------	413	;---------------------------------------------------------------------
414	; *********************************************	414	; *********************************************
415	; ***** WINDOW DEFINITIONS AND DRAW ******	415	; ***** WINDOW DEFINITIONS AND DRAW ******
416	; *********************************************	416	; *********************************************
417	align 4	417	align 4
418	draw_window:	418	draw_window:
419	mcall 12,1	419	mcall 12,1
420		-
421	mcall 48, 4	-
422	lea ecx, [5065536+484+eax]; [y start] 65536 + [y size] + [skin_height]	420
423	mcall 0,<50,649>,,0x34,,title	421	mcall 0,<50,649>,<50,484>,0x01000000,0x01000000,0x01000000
424		422
425	mcall 12,2	423	mcall 12,2
426	ret	424	ret
427	;---------------------------------------------------------------------	425	;---------------------------------------------------------------------
428	; *********************************************	426	; *********************************************
429	; ***** COMPUTE 3D-VIEW ******	427	; ***** COMPUTE 3D-VIEW ******
430	; *********************************************	428	; *********************************************
431	align 4	429	align 4
432	draw_stuff:	430	draw_stuff:
433	mov [step1],dword 1	431	mov [step1],dword 1
434	; mov [step64],dword 64	432	; mov [step64],dword 64
435	mov esi,[vheading]	433	mov esi,[vheading]
436	add esi,320	434	add esi,320
437	mov [va],esi	435	mov [va],esi
438	mov eax,[vheading]	436	mov eax,[vheading]
439	sub eax,320	437	sub eax,320
440	mov [vacompare],eax	438	mov [vacompare],eax
441	;------------------------------------ CAST 640 PIXEL COLUMNS ---------------	439	;------------------------------------ CAST 640 PIXEL COLUMNS ---------------
442	; FOR A=320+heading to -319+heading step -1 (a is stored in [va])	440	; FOR A=320+heading to -319+heading step -1 (a is stored in [va])
443	;---------------------------------------------------------------------------	441	;---------------------------------------------------------------------------
444	; mov edx,5	442	; mov edx,5
445	mov [vx1],dword 0 ;5 ;edx ; init x1 ... pixelcolumn	443	mov [vx1],dword 0 ;5 ;edx ; init x1 ... pixelcolumn
446	;--------------------------------------	444	;--------------------------------------
447	align 4	445	align 4
448	for_a:	446	for_a:
449	mov edx,[vx1]	447	mov edx,[vx1]
450	mov [vx1b],edx	448	mov [vx1b],edx
451	sub [vx1b],dword 320	449	sub [vx1b],dword 320
452	mov edx,[va] ; a2	450	mov edx,[va] ; a2
453	cmp edx,-1 ; a2 is a mod 3600	451	cmp edx,-1 ; a2 is a mod 3600
454	jg ok1	452	jg ok1
455		453
456	add edx,3600	454	add edx,3600
457	;--------------------------------------	455	;--------------------------------------
458	ok1:	456	ok1:
459	cmp edx,3600	457	cmp edx,3600
460	jb ok2	458	jb ok2
461		459
462	sub edx,3600	460	sub edx,3600
463	;--------------------------------------	461	;--------------------------------------
464	ok2:	462	ok2:
465	; get stepx and stepy	463	; get stepx and stepy
466	; pointer to stepx	464	; pointer to stepx
467	lea ecx,[sinus+edx*4]	465	lea ecx,[sinus+edx*4]
468	mov esi,[ecx]	466	mov esi,[ecx]
469	sar esi,4 ; accuracy	467	sar esi,4 ; accuracy
470	mov [vstepx],esi ; store stepx	468	mov [vstepx],esi ; store stepx
471	lea esi,[sinus+3600+edx*4]	469	lea esi,[sinus+3600+edx*4]
472	cmp esi,eosinus ;cosinus taken from ((sinus plus 900) mod 3600)	470	cmp esi,eosinus ;cosinus taken from ((sinus plus 900) mod 3600)
473	jb ok202	471	jb ok202
474		472
475	sub esi,14400	473	sub esi,14400
476	;--------------------------------------	474	;--------------------------------------
477	ok202:	475	ok202:
478	mov ecx,[esi]	476	mov ecx,[esi]
479	sar ecx,4	477	sar ecx,4
480	mov [vstepy],ecx ; store stepy	478	mov [vstepy],ecx ; store stepy
481		479
482	mov eax,[vpx] ; get Camera Position	480	mov eax,[vpx] ; get Camera Position
483	mov ebx,[vpy]	481	mov ebx,[vpy]
484	mov [vxx],eax ; init caster position	482	mov [vxx],eax ; init caster position
485	mov [vyy],ebx	483	mov [vyy],ebx
486		484
487	mov edi,0 ; init L (number of raycsting-steps)	485	mov edi,0 ; init L (number of raycsting-steps)
488	mov [step1],dword 1 ; init Caster stepwidth for L.	486	mov [step1],dword 1 ; init Caster stepwidth for L.
489	;--------------------------------------	487	;--------------------------------------
490	; raycast a pixel column	488	; raycast a pixel column
491	align 4	489	align 4
492	raycast:	490	raycast:
493	add edi,[step1] ; count caster steps	491	add edi,[step1] ; count caster steps
494	jmp nodouble ; use this to prevent blinking/wobbling textures: much slower!	492	jmp nodouble ; use this to prevent blinking/wobbling textures: much slower!
495		493
496	; cmp edi,32	494	; cmp edi,32
497	; je double	495	; je double
498		496
499	; cmp edi,512	497	; cmp edi,512
500	; je double	498	; je double

Subversion Repositories Kolibri OS

(root)/programs/demos/free3d/trunk/free3d.asm – Rev 2494 → 6249