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


;
;   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 64*64*4
ceil = sinus+16*1024
wall = ceil+TEX_SIZE*1
wall2 = ceil+TEX_SIZE*2
wall3 = ceil+TEX_SIZE*3
wall4 = ceil+TEX_SIZE*4
wall5 = ceil+TEX_SIZE*5
wall6 = ceil+TEX_SIZE*6
wall7 = ceil+TEX_SIZE*7
APP_MEM equ 0x200000
 
use32
 
               org    0x0
 
               db     'MENUET01'              ; 8 byte id
               dd     0x01                    ; header version
               dd     START                   ; start of code
               dd     I_END                   ; size of image
               dd     APP_MEM;0x100000        ; memory for app
               dd     APP_MEM;0x100000        ; esp
               dd     0x0 , 0x0               ; I_Param , I_Icon
include 'lang.inc'
include '..\..\..\macros.inc'
COLOR_ORDER equ OTHER
include 'gif_lite.inc'
 
START:                          ; start of execution
		mov  esi,textures
		mov  edi,ceil-8
		call ReadGIF
		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 draw_window            ; at first, draw the window
    call draw_stuff
 
gamestart:
;   ******* MOUSE CHECK *******
;    mov eax,37    ; check mouse (use mouse over window to navigate)
;    mov ebx,2     ; check mousebuttons
;    mcall
;    cmp eax,0    ; only use mouse when button down
;    je noneed    ; deactivated cause of disappear-bug etc.
    mov eax,37
    mov ebx,1     ; check mouseposition
    mcall
 
    mov ebx,eax
    shr eax,16
    and eax,0x0000FFFF  ; mousex
    and ebx,0x0000FFFF  ; mousey
 
    cmp eax,5  ; mouse out of window ?
    jb check_refresh  ; it will prevent an app-crash
    cmp ebx,22
    jb check_refresh
    cmp eax, 640
    jg check_refresh
    cmp ebx,501
    jg check_refresh
 
    cmp eax,315 ; navigating?
    jb m_left
    cmp eax,325 ;
    jg m_right
continue:
    cmp ebx,220 ;
    jb s_up
    cmp ebx,260 ;
    jg s_down
;   ******* END OF MOUSE CHECK *******
check_refresh:
 
;    mov eax,23  ; wait for system event with 10 ms timeout
;    mov ebx,1   ; thats max 100 FPS
    mov eax,11 ; ask no wait for full speed
    mcall
 
    cmp  eax,1                  ; window redraw request ?
    je   red2
    cmp  eax,2                  ; key in buffer ?
    je   key2
    cmp  eax,3                  ; button in buffer ?
    je   button2
 
    mov edi,[mouseya] ; check flag if a refresh has to be done
    cmp edi,1
    jne gamestart
    mov [mouseya],dword 0
    call draw_stuff
 
 
    jmp gamestart
 
; END OF MAINLOOP
 
red2:                          ; redraw
    call draw_window
    call draw_stuff
    jmp  gamestart
 
key2:                          ; key
    mov  eax,2
    mcall
    cmp  al,1
    je   gamestart     ; keybuffer empty
 
    cmp ah,27    ; esc=End App
    je finish
 
    cmp  ah,178  ; up
    je   s_up
    cmp  ah,177  ; down
    je   s_down
    cmp  ah,176  ; left
    je   s_left
    cmp  ah,179  ; right
    je   s_right
 
    jmp gamestart ; was any other key
 
 
s_up:             ; walk forward (key or mouse)
    mov eax,[vpx]
    mov ebx,[vpy]
 
 
    mov ecx,[vheading]
    mov edi,[sinus+ecx*4]
 
    mov edx,[vheading]
;    imul edx,4
;    add edx,sinus
;    add edx,3600
    lea edx, [sinus+3600+edx*4]
    cmp edx,eosinus ;cosinus taken from (sinus plus 900) mod 3600
    jb ok200
    sub edx,14400
    ok200:
    mov esi,[edx]
;    sal esi,1  ; edit walking speed here
;    sal edi,1
 
    add eax,edi ; newPx
    add ebx,esi ; newPy
    mov edi,eax ; newPx / ffff
    mov esi,ebx ; newPy / ffff
    sar edi,16
    sar esi,16
    mov ecx,esi
    sal ecx,5 ; equal *32
;    add ecx,edi
;    add ecx,grid
    lea ecx, [grid+ecx+edi]
    cmp [ecx],byte 0  ; collision check
    jne cannotwalk0
    mov [vpx],eax
    mov [vpy],ebx
    mov [mouseya],dword 1 ; set refresh flag
cannotwalk0:
    jmp check_refresh
 
s_down:                    ; walk backward
    mov eax,[vpx]
    mov ebx,[vpy]
 
    mov ecx,[vheading]
    mov edi,[sinus+ecx*4]
 
    mov edx,[vheading]
;    imul edx,4
;    add edx,sinus
;    add edx,3600
    lea edx, [sinus+3600+edx*4]
    cmp edx,eosinus ;cosinus taken from (sinus plus 900) mod 3600
    jb ok201
    sub edx,14400
    ok201:
 
    mov esi,[edx]
;    sal esi,1  ; edit walking speed here
;    sal edi,1
 
    sub eax,edi ; newPx
    sub ebx,esi ; newPy
    mov edi,eax ; newPx / ffff
    mov esi,ebx ; newPy / ffff
    sar edi,16
    sar esi,16
    mov ecx,esi
    sal ecx,5
;    add ecx,edi
;    add ecx,grid
    lea ecx, [grid+ecx+edi]
    cmp [ecx],byte 0
    jne cannotwalk1
    mov [vpx],eax
    mov [vpy],ebx
    mov [mouseya],dword 1
cannotwalk1:
    jmp check_refresh
 
s_left:                                   ; turn left (key)
    mov edi,[vheading]  ; heading
    add edi,50
    cmp edi,3600
    jb ok_heading0
    sub edi,3600
    ok_heading0:
    mov [vheading],edi
    mov [mouseya],dword 1
    jmp check_refresh
 
s_right:                                  ; turn right
    mov edi,[vheading]
    sub edi,50
    cmp edi,-1
    jg ok_heading1
    add edi,3600
    ok_heading1:
    mov [vheading],edi
    mov [mouseya],dword 1
    jmp check_refresh
 
m_left:                                   ; turn left (mouse)
    mov edi,[vheading]  ; heading
    mov ecx,315
    sub ecx,eax
    sar ecx,2
    add edi,ecx
    cmp edi,3600
    jb ok_heading2
    sub edi,3600
    ok_heading2:
    mov [vheading],edi
    mov [mouseya],dword 1
    jmp continue    ; allow both: walk and rotate
 
m_right:                                  ; turn right
    mov edi,[vheading]
    sub eax,325
    sar eax,2
    sub edi,eax
    cmp edi,-1
    jg ok_heading3
    add edi,3600
    ok_heading3:
    mov [vheading],edi
    mov [mouseya],dword 1
    jmp continue
 
 
 
  button2:                       ; button
    mov  eax,17                  ; get id
    mcall
    cmp  ah,1                   ; button id=1 ?
    jne  gamestart
 
; eo GAME mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm
 finish:
    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
 
                                   ; DRAW WINDOW
    mov  eax,0                     ; function 0 : define and draw window
    mov  ebx,50*65536+649         ; [x start] *65536 + [x size]
    mov  ecx,50*65536+506         ; [y start] *65536 + [y size]
    mov  edx,0x74ffffff            ; color of work area RRGGBB,8->color gl
    mov  edi,title
    mcall
 
    mov  eax,12                    ; function 12:tell os about windowdraw
    mov  ebx,2                     ; 2, end of draw
    mcall
 
    ret
 
;   *********************************************
;   *******       COMPUTE 3D-VIEW        ********
;   *********************************************
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
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
;    mov ecx,edx
;    imul ecx,4
;    add ecx,sinus     ; pointer to stepx
    lea ecx, [sinus+edx*4]
    mov esi,[ecx]
    sar esi,4         ; accuracy
    mov [vstepx],esi  ; store stepx
 
;    mov esi,edx
;    imul esi,4
;    add esi,sinus  ; pointer to stepy
;    add esi,3600
    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.................................
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,32000 ; 3600 ; determine Floors Height based on distance
    mov edx,0
    mov ebx,edi
 
    div ebx
    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,8
    mov esi,[xfrac]
    sal esi,2
;    add edi,esi
;    add edi,wall ; in fact its floor, just using the wall texture :)
    lea edi, [wall+edi+esi]
 
    mov edx,[edi]
    mov [remesi],esi
 
    ;**** calculate pixel adress:****
    mov esi,[ytemp]
    add esi,240
    imul esi,1920
;    add esi,[vx1]
;    add esi,[vx1]
;    add esi,[vx1]
;    add esi,0x80000
    mov eax, [vx1]
    lea eax, [eax+eax*2]
    lea esi, [0x80000+eax+esi]
 
    cmp esi,0x80000+1920*480
    jg foff0
    cmp esi,0x80000
    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],edx
    and [blue],dword 255
 
    shr edx,8
    mov [green],edx
    and [green],dword 255
 
    shr edx,8
    mov [red],edx
    and [red],dword 255
 
    mov eax,81    ; darkness parameter
    sub eax,[vdd]
    sal eax,1
 
;                        reduce rgb
    sub [red],eax
    cmp [red], dword 0
    jg notblack10
    mov [red],dword 0
    notblack10:
 
    sub [green],eax
    cmp [green],dword 0
    jg notblack20
    mov [green],dword 0
    notblack20:
 
    mov edx,[blue]
    sub [blue],eax
    cmp [blue],dword 0
    jg notblack30
    mov [blue],dword 0
    notblack30:
 
    shl dword [red],16  ; reassemble rgb
    shl dword [green],8
    mov edx,[red]
    or edx,[green]
    or edx,[blue]
 
nodark0:
;   eo custom darken floor
 
 
    mov eax,edx
    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
 
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
;    imul edx,32
    shl edx,5
;    add edx,grid
;    add edx,eax
    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,0x80000+1920*240
    mov ebx,0x80000+1920*240
 
copyfloor:
    sub eax,1920
    add ebx,1920
 
;    mov ecx,0
;    add ecx,[vx1]
;    add ecx,[vx1]
;    add ecx,[vx1]
    mov ecx, [vx1]
    lea ecx, [ecx+ecx*2]
 
;    mov edx,ecx
;    add ecx,eax
;    add edx,ebx
    lea edx, [ecx+ebx]
    add ecx,eax
 
    mov esi,[edx]
    mov [ecx],esi
 
    cmp eax,0x80000
    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,64
    sub esi,1
    cmp esi, 502  ; dont calc offscreen-pixels
    jg speedup
 
    xor edx,edx
    mov eax, edi
    mov ebx,[vdd]
;    add ebx,[vdd]
    add ebx, ebx
    div ebx
    and eax,63
    mov [ytemp],eax   ; get y of texture for wall
 
    mov eax,[xfrac]
    add eax,[yfrac]
 
    and eax,63
    mov [xtemp],eax   ; get x of texture for wall
 
    ; now prepare to plot that wall-pixel...
    mov [remedi],edi
 
    mov edi,[ytemp]
    sal edi,8
    mov edx,[xtemp]
    sal edx,2
    add edi,edx
 
    mov eax,[vk] ; determine which texture should be used
    and eax,255
 
    cmp eax,1
    jne checkmore1
    add edi,ceil
    jmp foundtex
    checkmore1:
 
    cmp eax,2
    jne checkmore2
    add edi,wall
    jmp foundtex
    checkmore2:
 
    cmp eax,3
    jne checkmore3
    add edi,wall2
    jmp foundtex
    checkmore3:
 
    cmp eax,4
    jne checkmore4
    add edi,wall3
    jmp foundtex
    checkmore4:
 
    cmp eax,5
    jne checkmore5
    add edi,wall4
    jmp foundtex
    checkmore5:
 
    cmp eax,6
    jne checkmore6
    add edi,wall5
    jmp foundtex
    checkmore6:
 
    cmp eax,7
    jne checkmore7
    add edi,wall6
    jmp foundtex
    checkmore7:
 
    cmp eax,8
    jne checkmore8
    add edi,wall7
    jmp foundtex
    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
;    sub eax,22
    lea eax, [esi-22]
    imul eax,1920
;    add eax,[vx1]
;    add eax,[vx1]
;    add eax,[vx1]
;    add eax,0x80000
    mov ebx, [vx1]
    lea ebx, [ebx+ebx*2]
    lea eax, [eax+0x80000+ebx]
 
    cmp eax,0x80000+1920*480
    jg dont_draw
    cmp eax,0x80000
    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 !!!!!****
; ***********************
    mov eax,7
    mov ebx,0x80000
    mov ecx,640*65536+480
    xor edx,edx
    mcall
 
    ret
 
blur:
 
pusha
mov eax,0x080000+360*1920
 
copyfloor2:
    add eax,1920
;    mov ebx,eax
;    add ebx,[vx1]
;    add ebx,[vx1]
;    add ebx,[vx1]
    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,0x80000+478*1920
    jb copyfloor2
 
popa
 
ret
 
 
 
; ******* Darken by Distance *******
dark_distance:
 
; color must be in edx, wall height in [vdd]
 
    mov eax,[vdd]
    cmp eax,50
    jg nodark
    ;                split rgb
 
    mov [blue],edx
    and [blue],dword 255
 
    shr edx,8
    mov [green],edx
    and [green],dword 255
 
    shr edx,8
    mov [red],edx
    and [red],dword 255
 
    mov eax,51    ; darkness parameter
    sub eax,[vdd]
    cmp [pseudo],dword 1
    je isdarkside
    sal eax,2
isdarkside:
 
;                        reduce rgb
    sub [red],eax
    cmp [red], dword 0
    jg notblack10b
    mov [red],dword 0
    notblack10b:
 
    sub [green],eax
    cmp [green],dword 0
    jg notblack20b
    mov [green],dword 0
    notblack20b:
 
    mov edx,[blue]
    sub [blue],eax
    cmp [blue],dword 0
    jg notblack30b
    mov [blue],dword 0
    notblack30b:
 
    shl dword [red],16 ; reassemble rgb
    shl dword [green],8
    mov edx,[red]
    or edx,[green]
    or edx,[blue]
    mov eax,edx
 
nodark:
 
    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
 
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   'FISHEYE RAYCASTING ENGINE ETC. FREE3D',0
 
sindegree dd 0.0
sininc    dd 0.0017453292519943295769236907684886
sindiv    dd 6553.5
textures:
	file 'texture.gif'
 
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:
 dd ?;-
green:
 dd ?;-
blue:
 dd ?;-
pseudo:
 dd ?;-
step1:
 dd ?;-
step64:
 dd ?;-
lasty:
 dd ?;-
 
I_END:
IncludeUGlobals
sinus rd 360*10
eosinus:

Rev 552	Rev 1416
1	;	1	;
2	; Fisheye Raycasting Engine Etc. FREE3D for MENUETOS by Dieter Marfurt	2	; Fisheye Raycasting Engine Etc. FREE3D for MENUETOS by Dieter Marfurt
3	; Version 0.4 (requires some texture-files to compile (see Data Section))	3	; Version 0.4 (requires some texture-files to compile (see Data Section))
4	; dietermarfurt@angelfire.com - www.melog.ch/mos_pub/	4	; dietermarfurt@angelfire.com - www.melog.ch/mos_pub/
5	; Don't hit me - I'm an ASM-Newbie... since years :)	5	; Don't hit me - I'm an ASM-Newbie... since years :)
6	;	6	;
7	; Compile with FASM for Menuet (requires .INC files - see DATA Section)	7	; Compile with FASM for Menuet (requires .INC files - see DATA Section)
8	;	8	;
9	; Willow - greatly srinked code size by using GIF texture and FPU to calculate sine table	9	; Willow - greatly srinked code size by using GIF texture and FPU to calculate sine table
10	;	10	;
11	; !!!! Don't use GIF_LITE.INC in your apps - it's modified for FREE3D !!!!	11	; !!!! Don't use GIF_LITE.INC in your apps - it's modified for FREE3D !!!!
12	;	12	;
13	; Heavyiron - new 0-function of drawing window from kolibri (do not work correctly with menuet)	13	; Heavyiron - new 0-function of drawing window from kolibri (do not work correctly with menuet)
-		14
14		15
15	TEX_SIZE equ 64644	16	TEX_SIZE equ 64644
16	ceil = sinus+16*1024	17	ceil = sinus+16*1024
17	wall = ceil+TEX_SIZE*1	18	wall = ceil+TEX_SIZE*1
18	wall2 = ceil+TEX_SIZE*2	19	wall2 = ceil+TEX_SIZE*2
19	wall3 = ceil+TEX_SIZE*3	20	wall3 = ceil+TEX_SIZE*3
20	wall4 = ceil+TEX_SIZE*4	21	wall4 = ceil+TEX_SIZE*4
21	wall5 = ceil+TEX_SIZE*5	22	wall5 = ceil+TEX_SIZE*5
22	wall6 = ceil+TEX_SIZE*6	23	wall6 = ceil+TEX_SIZE*6
23	wall7 = ceil+TEX_SIZE*7	24	wall7 = ceil+TEX_SIZE*7
24	APP_MEM equ 0x200000	25	APP_MEM equ 0x200000
25		26
26	use32	27	use32
27		28
28	org 0x0	29	org 0x0
29		30
30	db 'MENUET01' ; 8 byte id	31	db 'MENUET01' ; 8 byte id
31	dd 0x01 ; header version	32	dd 0x01 ; header version
32	dd START ; start of code	33	dd START ; start of code
33	dd I_END ; size of image	34	dd I_END ; size of image
34	dd APP_MEM;0x100000 ; memory for app	35	dd APP_MEM;0x100000 ; memory for app
35	dd APP_MEM;0x100000 ; esp	36	dd APP_MEM;0x100000 ; esp
36	dd 0x0 , 0x0 ; I_Param , I_Icon	37	dd 0x0 , 0x0 ; I_Param , I_Icon
37	include 'lang.inc'	38	include 'lang.inc'
38	include '..\..\..\macros.inc'	39	include '..\..\..\macros.inc'
39	COLOR_ORDER equ OTHER	40	COLOR_ORDER equ OTHER
40	include 'gif_lite.inc'	41	include 'gif_lite.inc'
41		42
42	START: ; start of execution	43	START: ; start of execution
43	mov esi,textures	44	mov esi,textures
44	mov edi,ceil-8	45	mov edi,ceil-8
45	call ReadGIF	46	call ReadGIF
46	mov esi,sinus	47	mov esi,sinus
47	mov ecx,360*10	48	mov ecx,360*10
48	fninit	49	fninit
49	fld [sindegree]	50	fld [sindegree]
50	.sinlp:	51	.sinlp:
51	fst st1	52	fst st1
52	fsin	53	fsin
53	fmul [sindiv]	54	fmul [sindiv]
54	fistp dword[esi]	55	fistp dword[esi]
55	add esi,4	56	add esi,4
56	fadd [sininc]	57	fadd [sininc]
57	loop .sinlp	58	loop .sinlp
58	call draw_window ; at first, draw the window	59	call draw_window ; at first, draw the window
59	call draw_stuff	60	call draw_stuff
60		61
61	gamestart:	62	gamestart:
62	; ***** MOUSE CHECK *****	63	; ***** MOUSE CHECK *****
63	; mov eax,37 ; check mouse (use mouse over window to navigate)	64	; mov eax,37 ; check mouse (use mouse over window to navigate)
64	; mov ebx,2 ; check mousebuttons	65	; mov ebx,2 ; check mousebuttons
65	; mcall	66	; mcall
66	; cmp eax,0 ; only use mouse when button down	67	; cmp eax,0 ; only use mouse when button down
67	; je noneed ; deactivated cause of disappear-bug etc.	68	; je noneed ; deactivated cause of disappear-bug etc.
68	mov eax,37	69	mov eax,37
69	mov ebx,1 ; check mouseposition	70	mov ebx,1 ; check mouseposition
70	mcall	71	mcall
71		72
72	mov ebx,eax	73	mov ebx,eax
73	shr eax,16	74	shr eax,16
74	and eax,0x0000FFFF ; mousex	75	and eax,0x0000FFFF ; mousex
75	and ebx,0x0000FFFF ; mousey	76	and ebx,0x0000FFFF ; mousey
76		77
77	cmp eax,5 ; mouse out of window ?	78	cmp eax,5 ; mouse out of window ?
78	jb check_refresh ; it will prevent an app-crash	79	jb check_refresh ; it will prevent an app-crash
79	cmp ebx,22	80	cmp ebx,22
80	jb check_refresh	81	jb check_refresh
81	cmp eax, 640	82	cmp eax, 640
82	jg check_refresh	83	jg check_refresh
83	cmp ebx,501	84	cmp ebx,501
84	jg check_refresh	85	jg check_refresh
85		86
86	cmp eax,315 ; navigating?	87	cmp eax,315 ; navigating?
87	jb m_left	88	jb m_left
88	cmp eax,325 ;	89	cmp eax,325 ;
89	jg m_right	90	jg m_right
90	continue:	91	continue:
91	cmp ebx,220 ;	92	cmp ebx,220 ;
92	jb s_up	93	jb s_up
93	cmp ebx,260 ;	94	cmp ebx,260 ;
94	jg s_down	95	jg s_down
95	; ***** END OF MOUSE CHECK *****	96	; ***** END OF MOUSE CHECK *****
96	check_refresh:	97	check_refresh:
97		98
98	; mov eax,23 ; wait for system event with 10 ms timeout	99	; mov eax,23 ; wait for system event with 10 ms timeout
99	; mov ebx,1 ; thats max 100 FPS	100	; mov ebx,1 ; thats max 100 FPS
100	mov eax,11 ; ask no wait for full speed	101	mov eax,11 ; ask no wait for full speed
101	mcall	102	mcall
102		103
103	cmp eax,1 ; window redraw request ?	104	cmp eax,1 ; window redraw request ?
104	je red2	105	je red2
105	cmp eax,2 ; key in buffer ?	106	cmp eax,2 ; key in buffer ?
106	je key2	107	je key2
107	cmp eax,3 ; button in buffer ?	108	cmp eax,3 ; button in buffer ?
108	je button2	109	je button2
109		110
110	mov edi,[mouseya] ; check flag if a refresh has to be done	111	mov edi,[mouseya] ; check flag if a refresh has to be done
111	cmp edi,1	112	cmp edi,1
112	jne gamestart	113	jne gamestart
113	mov [mouseya],dword 0	114	mov [mouseya],dword 0
114	call draw_stuff	115	call draw_stuff
115		116
116		117
117	jmp gamestart	118	jmp gamestart
118		119
119	; END OF MAINLOOP	120	; END OF MAINLOOP
120		121
121	red2: ; redraw	122	red2: ; redraw
122	call draw_window	123	call draw_window
123	call draw_stuff	124	call draw_stuff
124	jmp gamestart	125	jmp gamestart
125		126
126	key2: ; key	127	key2: ; key
127	mov eax,2	128	mov eax,2
128	mcall	129	mcall
129	cmp al,1	130	cmp al,1
130	je gamestart ; keybuffer empty	131	je gamestart ; keybuffer empty
131		132
132	cmp ah,27 ; esc=End App	133	cmp ah,27 ; esc=End App
133	je finish	134	je finish
134		135
135	cmp ah,178 ; up	136	cmp ah,178 ; up
136	je s_up	137	je s_up
137	cmp ah,177 ; down	138	cmp ah,177 ; down
138	je s_down	139	je s_down
139	cmp ah,176 ; left	140	cmp ah,176 ; left
140	je s_left	141	je s_left
141	cmp ah,179 ; right	142	cmp ah,179 ; right
142	je s_right	143	je s_right
143		144
144	jmp gamestart ; was any other key	145	jmp gamestart ; was any other key
145		146
146		147
147	s_up: ; walk forward (key or mouse)	148	s_up: ; walk forward (key or mouse)
148	mov eax,[vpx]	149	mov eax,[vpx]
149	mov ebx,[vpy]	150	mov ebx,[vpy]
150		151
151		152
152	mov ecx,[vheading]	153	mov ecx,[vheading]
153	mov edi,[sinus+ecx*4]	154	mov edi,[sinus+ecx*4]
154		155
155	mov edx,[vheading]	156	mov edx,[vheading]
156	; imul edx,4	157	; imul edx,4
157	; add edx,sinus	158	; add edx,sinus
158	; add edx,3600	159	; add edx,3600
159	lea edx, [sinus+3600+edx*4]	160	lea edx, [sinus+3600+edx*4]
160	cmp edx,eosinus ;cosinus taken from (sinus plus 900) mod 3600	161	cmp edx,eosinus ;cosinus taken from (sinus plus 900) mod 3600
161	jb ok200	162	jb ok200
162	sub edx,14400	163	sub edx,14400
163	ok200:	164	ok200:
164	mov esi,[edx]	165	mov esi,[edx]
165	; sal esi,1 ; edit walking speed here	166	; sal esi,1 ; edit walking speed here
166	; sal edi,1	167	; sal edi,1
167		168
168	add eax,edi ; newPx	169	add eax,edi ; newPx
169	add ebx,esi ; newPy	170	add ebx,esi ; newPy
170	mov edi,eax ; newPx / ffff	171	mov edi,eax ; newPx / ffff
171	mov esi,ebx ; newPy / ffff	172	mov esi,ebx ; newPy / ffff
172	sar edi,16	173	sar edi,16
173	sar esi,16	174	sar esi,16
174	mov ecx,esi	175	mov ecx,esi
175	sal ecx,5 ; equal *32	176	sal ecx,5 ; equal *32
176	; add ecx,edi	177	; add ecx,edi
177	; add ecx,grid	178	; add ecx,grid
178	lea ecx, [grid+ecx+edi]	179	lea ecx, [grid+ecx+edi]
179	cmp [ecx],byte 0 ; collision check	180	cmp [ecx],byte 0 ; collision check
180	jne cannotwalk0	181	jne cannotwalk0
181	mov [vpx],eax	182	mov [vpx],eax
182	mov [vpy],ebx	183	mov [vpy],ebx
183	mov [mouseya],dword 1 ; set refresh flag	184	mov [mouseya],dword 1 ; set refresh flag
184	cannotwalk0:	185	cannotwalk0:
185	jmp check_refresh	186	jmp check_refresh
186		187
187	s_down: ; walk backward	188	s_down: ; walk backward
188	mov eax,[vpx]	189	mov eax,[vpx]
189	mov ebx,[vpy]	190	mov ebx,[vpy]
190		191
191	mov ecx,[vheading]	192	mov ecx,[vheading]
192	mov edi,[sinus+ecx*4]	193	mov edi,[sinus+ecx*4]
193		194
194	mov edx,[vheading]	195	mov edx,[vheading]
195	; imul edx,4	196	; imul edx,4
196	; add edx,sinus	197	; add edx,sinus
197	; add edx,3600	198	; add edx,3600
198	lea edx, [sinus+3600+edx*4]	199	lea edx, [sinus+3600+edx*4]
199	cmp edx,eosinus ;cosinus taken from (sinus plus 900) mod 3600	200	cmp edx,eosinus ;cosinus taken from (sinus plus 900) mod 3600
200	jb ok201	201	jb ok201
201	sub edx,14400	202	sub edx,14400
202	ok201:	203	ok201:
203		204
204	mov esi,[edx]	205	mov esi,[edx]
205	; sal esi,1 ; edit walking speed here	206	; sal esi,1 ; edit walking speed here
206	; sal edi,1	207	; sal edi,1
207		208
208	sub eax,edi ; newPx	209	sub eax,edi ; newPx
209	sub ebx,esi ; newPy	210	sub ebx,esi ; newPy
210	mov edi,eax ; newPx / ffff	211	mov edi,eax ; newPx / ffff
211	mov esi,ebx ; newPy / ffff	212	mov esi,ebx ; newPy / ffff
212	sar edi,16	213	sar edi,16
213	sar esi,16	214	sar esi,16
214	mov ecx,esi	215	mov ecx,esi
215	sal ecx,5	216	sal ecx,5
216	; add ecx,edi	217	; add ecx,edi
217	; add ecx,grid	218	; add ecx,grid
218	lea ecx, [grid+ecx+edi]	219	lea ecx, [grid+ecx+edi]
219	cmp [ecx],byte 0	220	cmp [ecx],byte 0
220	jne cannotwalk1	221	jne cannotwalk1
221	mov [vpx],eax	222	mov [vpx],eax
222	mov [vpy],ebx	223	mov [vpy],ebx
223	mov [mouseya],dword 1	224	mov [mouseya],dword 1
224	cannotwalk1:	225	cannotwalk1:
225	jmp check_refresh	226	jmp check_refresh
226		227
227	s_left: ; turn left (key)	228	s_left: ; turn left (key)
228	mov edi,[vheading] ; heading	229	mov edi,[vheading] ; heading
229	add edi,50	230	add edi,50
230	cmp edi,3600	231	cmp edi,3600
231	jb ok_heading0	232	jb ok_heading0
232	sub edi,3600	233	sub edi,3600
233	ok_heading0:	234	ok_heading0:
234	mov [vheading],edi	235	mov [vheading],edi
235	mov [mouseya],dword 1	236	mov [mouseya],dword 1
236	jmp check_refresh	237	jmp check_refresh
237		238
238	s_right: ; turn right	239	s_right: ; turn right
239	mov edi,[vheading]	240	mov edi,[vheading]
240	sub edi,50	241	sub edi,50
241	cmp edi,-1	242	cmp edi,-1
242	jg ok_heading1	243	jg ok_heading1
243	add edi,3600	244	add edi,3600
244	ok_heading1:	245	ok_heading1:
245	mov [vheading],edi	246	mov [vheading],edi
246	mov [mouseya],dword 1	247	mov [mouseya],dword 1
247	jmp check_refresh	248	jmp check_refresh
248		249
249	m_left: ; turn left (mouse)	250	m_left: ; turn left (mouse)
250	mov edi,[vheading] ; heading	251	mov edi,[vheading] ; heading
251	mov ecx,315	252	mov ecx,315
252	sub ecx,eax	253	sub ecx,eax
253	sar ecx,2	254	sar ecx,2
254	add edi,ecx	255	add edi,ecx
255	cmp edi,3600	256	cmp edi,3600
256	jb ok_heading2	257	jb ok_heading2
257	sub edi,3600	258	sub edi,3600
258	ok_heading2:	259	ok_heading2:
259	mov [vheading],edi	260	mov [vheading],edi
260	mov [mouseya],dword 1	261	mov [mouseya],dword 1
261	jmp continue ; allow both: walk and rotate	262	jmp continue ; allow both: walk and rotate
262		263
263	m_right: ; turn right	264	m_right: ; turn right
264	mov edi,[vheading]	265	mov edi,[vheading]
265	sub eax,325	266	sub eax,325
266	sar eax,2	267	sar eax,2
267	sub edi,eax	268	sub edi,eax
268	cmp edi,-1	269	cmp edi,-1
269	jg ok_heading3	270	jg ok_heading3
270	add edi,3600	271	add edi,3600
271	ok_heading3:	272	ok_heading3:
272	mov [vheading],edi	273	mov [vheading],edi
273	mov [mouseya],dword 1	274	mov [mouseya],dword 1
274	jmp continue	275	jmp continue
275		276
276		277
277		278
278	button2: ; button	279	button2: ; button
279	mov eax,17 ; get id	280	mov eax,17 ; get id
280	mcall	281	mcall
281	cmp ah,1 ; button id=1 ?	282	cmp ah,1 ; button id=1 ?
282	jne gamestart	283	jne gamestart
283		284
284	; eo GAME mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm	285	; eo GAME mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm
285	finish:	286	finish:
286	mov eax,-1 ; close this program	287	mov eax,-1 ; close this program
287	mcall	288	mcall
288		289
289		290
290	; *********************************************	291	; *********************************************
291	; ***** WINDOW DEFINITIONS AND DRAW ******	292	; ***** WINDOW DEFINITIONS AND DRAW ******
292	; *********************************************	293	; *********************************************
293		294
294		295
295	draw_window:	296	draw_window:
296		297
297	mov eax,12 ; function 12:tell os about windowdraw	298	mov eax,12 ; function 12:tell os about windowdraw
298	mov ebx,1 ; 1, start of draw	299	mov ebx,1 ; 1, start of draw
299	mcall	300	mcall
300		301
301	; DRAW WINDOW	302	; DRAW WINDOW
302	mov eax,0 ; function 0 : define and draw window	303	mov eax,0 ; function 0 : define and draw window
303	mov ebx,5065536+649 ; [x start] 65536 + [x size]	304	mov ebx,5065536+649 ; [x start] 65536 + [x size]
304	mov ecx,5065536+504 ; [y start] 65536 + [y size]	305	mov ecx,5065536+506 ; [y start] 65536 + [y size]
305	mov edx,0x34ffffff ; color of work area RRGGBB,8->color gl	306	mov edx,0x74ffffff ; color of work area RRGGBB,8->color gl
306	mov edi,title	307	mov edi,title
307	mcall	308	mcall
308		309
309	mov eax,12 ; function 12:tell os about windowdraw	310	mov eax,12 ; function 12:tell os about windowdraw
310	mov ebx,2 ; 2, end of draw	311	mov ebx,2 ; 2, end of draw
311	mcall	312	mcall
312		313
313	ret	314	ret
314		315
315	; *********************************************	316	; *********************************************
316	; ***** COMPUTE 3D-VIEW ******	317	; ***** COMPUTE 3D-VIEW ******
317	; *********************************************	318	; *********************************************
318	draw_stuff:	319	draw_stuff:
319		320
320		321
321	mov [step1],dword 1	322	mov [step1],dword 1
322	;mov [step64],dword 64	323	;mov [step64],dword 64
323	mov esi,[vheading]	324	mov esi,[vheading]
324	add esi,320	325	add esi,320
325	mov [va],esi	326	mov [va],esi
326	mov eax,[vheading]	327	mov eax,[vheading]
327	sub eax,320	328	sub eax,320
328	mov [vacompare],eax	329	mov [vacompare],eax
329	;------------------------------------ CAST 640 PIXEL COLUMNS ---------------	330	;------------------------------------ CAST 640 PIXEL COLUMNS ---------------
330	; FOR A=320+heading to -319+heading step -1 (a is stored in [va])	331	; FOR A=320+heading to -319+heading step -1 (a is stored in [va])
331	;---------------------------------------------------------------------------	332	;---------------------------------------------------------------------------
332	; mov edx,5	333	; mov edx,5
333	mov [vx1],dword 0 ;5 ;edx ; init x1 ... pixelcolumn	334	mov [vx1],dword 0 ;5 ;edx ; init x1 ... pixelcolumn
334	for_a:	335	for_a:
335	mov edx,[vx1]	336	mov edx,[vx1]
336	mov [vx1b],edx	337	mov [vx1b],edx
337	sub [vx1b],dword 320	338	sub [vx1b],dword 320
338	mov edx,[va] ; a2	339	mov edx,[va] ; a2
339	cmp edx,-1 ; a2 is a mod 3600	340	cmp edx,-1 ; a2 is a mod 3600
340	jg ok1	341	jg ok1
341	add edx,3600	342	add edx,3600
342	ok1:	343	ok1:
343	cmp edx,3600	344	cmp edx,3600
344	jb ok2	345	jb ok2
345	sub edx,3600	346	sub edx,3600
346	ok2:	347	ok2:
347		348
348	; get stepx and stepy	349	; get stepx and stepy
349	; mov ecx,edx	350	; mov ecx,edx
350	; imul ecx,4	351	; imul ecx,4
351	; add ecx,sinus ; pointer to stepx	352	; add ecx,sinus ; pointer to stepx
352	lea ecx, [sinus+edx*4]	353	lea ecx, [sinus+edx*4]
353	mov esi,[ecx]	354	mov esi,[ecx]
354	sar esi,4 ; accuracy	355	sar esi,4 ; accuracy
355	mov [vstepx],esi ; store stepx	356	mov [vstepx],esi ; store stepx
356		357
357	; mov esi,edx	358	; mov esi,edx
358	; imul esi,4	359	; imul esi,4
359	; add esi,sinus ; pointer to stepy	360	; add esi,sinus ; pointer to stepy
360	; add esi,3600	361	; add esi,3600
361	lea esi, [sinus+3600+edx*4]	362	lea esi, [sinus+3600+edx*4]
362	cmp esi,eosinus ;cosinus taken from ((sinus plus 900) mod 3600)	363	cmp esi,eosinus ;cosinus taken from ((sinus plus 900) mod 3600)
363	jb ok202	364	jb ok202
364	sub esi,14400	365	sub esi,14400
365	ok202:	366	ok202:
366		367
367	mov ecx,[esi]	368	mov ecx,[esi]
368	sar ecx,4	369	sar ecx,4
369	mov [vstepy],ecx ; store stepy	370	mov [vstepy],ecx ; store stepy
370		371
371		372
372	mov eax,[vpx] ; get Camera Position	373	mov eax,[vpx] ; get Camera Position
373	mov ebx,[vpy]	374	mov ebx,[vpy]
374	mov [vxx],eax ; init caster position	375	mov [vxx],eax ; init caster position
375	mov [vyy],ebx	376	mov [vyy],ebx
376		377
377	mov edi,0 ; init L (number of raycsting-steps)	378	mov edi,0 ; init L (number of raycsting-steps)
378	mov [step1],dword 1 ; init Caster stepwidth for L	379	mov [step1],dword 1 ; init Caster stepwidth for L
379		380
380	; raycast a pixel column.................................	381	; raycast a pixel column.................................
381	raycast:	382	raycast:
382	add edi,[step1] ; count caster steps	383	add edi,[step1] ; count caster steps
383	;jmp nodouble ; use this to prevent blinking/wobbling textures: much slower!	384	;jmp nodouble ; use this to prevent blinking/wobbling textures: much slower!
384		385
385	cmp edi,32	386	cmp edi,32
386	je double	387	je double
387	cmp edi,512	388	cmp edi,512
388	je double	389	je double
389	cmp edi,1024	390	cmp edi,1024
390	je double	391	je double
391	jmp nodouble	392	jmp nodouble
392		393
393	double:	394	double:
394	mov edx,[step1]	395	mov edx,[step1]
395	sal edx,1	396	sal edx,1
396	mov [step1],edx	397	mov [step1],edx
397		398
398	mov edx,[vstepx]	399	mov edx,[vstepx]
399	sal edx,1	400	sal edx,1
400	mov [vstepx],edx	401	mov [vstepx],edx
401		402
402	mov edx,[vstepy]	403	mov edx,[vstepy]
403	sal edx,1	404	sal edx,1
404	mov [vstepy],edx	405	mov [vstepy],edx
405		406
406	nodouble:	407	nodouble:
407		408
408	mov eax,32000 ; 3600 ; determine Floors Height based on distance	409	mov eax,32000 ; 3600 ; determine Floors Height based on distance
409	mov edx,0	410	mov edx,0
410	mov ebx,edi	411	mov ebx,edi
411		412
412	div ebx	413	div ebx
413	mov esi,eax	414	mov esi,eax
414	mov [vdd],esi	415	mov [vdd],esi
415	mov edx,260	416	mov edx,260
416	sub edx,esi	417	sub edx,esi
417	mov [vh],edx	418	mov [vh],edx
418		419
419	cmp edx,22	420	cmp edx,22
420	jb no_nu_pixel	421	jb no_nu_pixel
421	cmp edx,259	422	cmp edx,259
422	jg no_nu_pixel ; draw only new pixels	423	jg no_nu_pixel ; draw only new pixels
423	cmp edx,[h_old]	424	cmp edx,[h_old]
424	je no_nu_pixel	425	je no_nu_pixel
425		426
426	mov eax,[vxx] ; calc floor pixel	427	mov eax,[vxx] ; calc floor pixel
427	mov ebx,[vyy]	428	mov ebx,[vyy]
428		429
429	and eax,0x0000FFFF	430	and eax,0x0000FFFF
430	and ebx,0x0000FFFF	431	and ebx,0x0000FFFF
431		432
432	shr eax,10	433	shr eax,10
433	shr ebx,10 ; pixel coords inside Texture x,y 64*64	434	shr ebx,10 ; pixel coords inside Texture x,y 64*64
434	mov [xfrac],eax	435	mov [xfrac],eax
435	mov [yfrac],ebx	436	mov [yfrac],ebx
436		437
437		438
438		439
439	; plot floor pixel !!!!	440	; plot floor pixel !!!!
440	mov [vl],edi ; save L	441	mov [vl],edi ; save L
441	mov [ytemp],esi ; remember L bzw. H	442	mov [ytemp],esi ; remember L bzw. H
442		443
443	mov edi,[yfrac] ; get pixel color of this floor pixel	444	mov edi,[yfrac] ; get pixel color of this floor pixel
444	sal edi,8	445	sal edi,8
445	mov esi,[xfrac]	446	mov esi,[xfrac]
446	sal esi,2	447	sal esi,2
447	; add edi,esi	448	; add edi,esi
448	; add edi,wall ; in fact its floor, just using the wall texture :)	449	; add edi,wall ; in fact its floor, just using the wall texture :)
449	lea edi, [wall+edi+esi]	450	lea edi, [wall+edi+esi]
450		451
451	mov edx,[edi]	452	mov edx,[edi]
452	mov [remesi],esi	453	mov [remesi],esi
453		454
454	;** calculate pixel adress:**	455	;** calculate pixel adress:**
455	mov esi,[ytemp]	456	mov esi,[ytemp]
456	add esi,240	457	add esi,240
457	imul esi,1920	458	imul esi,1920
458	; add esi,[vx1]	459	; add esi,[vx1]
459	; add esi,[vx1]	460	; add esi,[vx1]
460	; add esi,[vx1]	461	; add esi,[vx1]
461	; add esi,0x80000	462	; add esi,0x80000
462	mov eax, [vx1]	463	mov eax, [vx1]
463	lea eax, [eax+eax*2]	464	lea eax, [eax+eax*2]
464	lea esi, [0x80000+eax+esi]	465	lea esi, [0x80000+eax+esi]
465		466
466	cmp esi,0x80000+1920*480	467	cmp esi,0x80000+1920*480
467	jg foff0	468	jg foff0
468	cmp esi,0x80000	469	cmp esi,0x80000
469	jb foff0	470	jb foff0
470	; now we have the adress of the floor-pixel color in edi	471	; now we have the adress of the floor-pixel color in edi
471	; and the adress of the pixel in the image in esi	472	; and the adress of the pixel in the image in esi
472		473
473	mov edx,[edi]	474	mov edx,[edi]
474	;******************** custom distance DARKEN Floor	475	;******************** custom distance DARKEN Floor
475		476
476	mov eax,[vdd]	477	mov eax,[vdd]
477		478
478	; jmp nodark0 ; use this to deactivate darkening floor (a bit faster)	479	; jmp nodark0 ; use this to deactivate darkening floor (a bit faster)
479		480
480	cmp eax,80	481	cmp eax,80
481	jg nodark0	482	jg nodark0
482	; split rgb	483	; split rgb
483		484
484	mov [blue],edx	485	mov [blue],edx
485	and [blue],dword 255	486	and [blue],dword 255
486		487
487	shr edx,8	488	shr edx,8
488	mov [green],edx	489	mov [green],edx
489	and [green],dword 255	490	and [green],dword 255
490		491
491	shr edx,8	492	shr edx,8
492	mov [red],edx	493	mov [red],edx
493	and [red],dword 255	494	and [red],dword 255
494		495
495	mov eax,81 ; darkness parameter	496	mov eax,81 ; darkness parameter
496	sub eax,[vdd]	497	sub eax,[vdd]
497	sal eax,1	498	sal eax,1
498		499
499	; reduce rgb	500	; reduce rgb

Subversion Repositories Kolibri OS

(root)/programs/demos/free3d04/trunk/free3d04.asm – Rev 552 → 1416