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.INC in your apps - it's modified for FREE3D !!!!
 
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;0x300000                ; memory for app
               dd     APP_MEM;0x300000                ; esp
               dd     0x0 , 0x0               ; I_Param , I_Icon
include 'lang.inc'
include 'macros.inc'
COLOR_ORDER equ OTHER
include 'gif.inc'
 
START:                          ; start of execution
		mov  esi,textures
		mov  edi,ceil
		mov  eax,sinus
		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
;    int 0x40
;    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
    int 0x40
 
    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
    int  0x40
 
    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
    int  0x40
    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]
;    imul ecx,4
;    add ecx,sinus
    lea ecx, [sinus+ecx*4]
    mov edi,[ecx]
 
    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]
;    imul ecx,4
;    add ecx,sinus
    lea ecx, [sinus+ecx*4]
    mov edi,[ecx]
 
    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
    int  0x40
    cmp  ah,1                   ; button id=1 ?
    jne  gamestart
 
; eo GAME mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm
 finish:
    mov  eax,-1                 ; close this program
    int  0x40
 
 
;   *********************************************
;   *******  WINDOW DEFINITIONS AND DRAW ********
;   *********************************************
 
 
draw_window:
 
    mov  eax,12                    ; function 12:tell os about windowdraw
    mov  ebx,1                     ; 1, start of draw
    int  0x40
 
                                   ; 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+504         ; [y start] *65536 + [y size]
    mov  edx,0x02ffffff            ; color of work area RRGGBB,8->color gl
    mov  esi,0x80777777            ; color of grab bar  RRGGBB,8->color gl
    mov  edi,0x00777777            ; color of frames    RRGGBB
    int  0x40
 
                                   ; WINDOW LABEL
    mov  eax,4                     ; function 4 : write text to window
    mov  ebx,8*65536+8             ; [x start] *65536 + [y start]
    mov  ecx,0x00ddeeff            ; color of text RRGGBB
    mov  edx,labelt                ; pointer to text beginning
    mov  esi,labellen-labelt       ; text length
    int  0x40
 
                                   ; CLOSE BUTTON
    mov  eax,8                     ; function 8 : define and draw button
    mov  ebx,(649-19)*65536+12     ; [x start] *65536 + [x size]
    mov  ecx,5*65536+12            ; [y start] *65536 + [y size]
    mov  edx,1                     ; button id
    mov  esi,0x777777              ; button color RRGGBB
    int  0x40
 
 
    mov  eax,12                    ; function 12:tell os about windowdraw
    mov  ebx,2                     ; 2, end of draw
    int  0x40
 
    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
    mov edx,5*65536+20
    int 0x40
 
    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
 
labelt:
      db   'FISHEYE RAYCASTING ENGINE ETC. FREE3D'
 
labellen:
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:
sinus rd 360*10
eosinus:

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

Subversion Repositories Kolibri OS

(root)/programs/demos/free3d04/trunk/free3d04.asm – Rev 109 → 272