WebSVN – Kolibri OS – Diff – /programs/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     0x300000                ; memory for app
+               dd     APP_MEM;0x300000                ; memory for app
-               dd     0x7fff0                 ; esp
+               dd     APP_MEM;0x300000                ; esp
                dd     0x0 , 0x0               ; I_Param , I_Icon
 include 'lang.inc'
-START:                          ; start of execution
+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
     mov edi,[ecx]
     mov edx,[vheading]
     imul edx,4
     add edx,sinus
     add edx,3600
     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
     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
     mov edi,[ecx]
     mov edx,[vheading]
     imul edx,4
     add edx,sinus
     add edx,3600
     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
     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
     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
     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 :)
     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
     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
     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 edx,ecx
     add ecx,eax
     add edx,ebx
     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]
     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
     imul eax,1920
     add eax,[vx1]
     add eax,[vx1]
     add eax,[vx1]
     add eax,0x80000
     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 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
-sinus:
-dd 0,11,23,34,46,57,69,80,92,103
-dd 114,126,137,149,160,172,183,194,206,217
-dd 229,240,252,263,274,286,297,309,320,332
-dd 343,354,366,377,389,400,411,423,434,446
-dd 457,469,480,491,503,514,526,537,548,560
-dd 571,583,594,605,617,628,640,651,662,674
-dd 685,696,708,719,731,742,753,765,776,787
-dd 799,810,821,833,844,855,867,878,889,901
-dd 912,923,935,946,957,969,980,991,1003,1014
-dd 1025,1036,1048,1059,1070,1082,1093,1104,1115,1127
-dd 1138,1149,1161,1172,1183,1194,1206,1217,1228,1239
-dd 1250,1262,1273,1284,1295,1307,1318,1329,1340,1351
-dd 1363,1374,1385,1396,1407,1418,1430,1441,1452,1463
-dd 1474,1485,1496,1508,1519,1530,1541,1552,1563,1574
-dd 1585,1597,1608,1619,1630,1641,1652,1663,1674,1685
-dd 1696,1707,1718,1729,1740,1751,1762,1773,1784,1795
-dd 1806,1817,1828,1839,1850,1861,1872,1883,1894,1905
-dd 1916,1927,1938,1949,1960,1971,1982,1992,2003,2014
-dd 2025,2036,2047,2058,2069,2079,2090,2101,2112,2123
-dd 2134,2144,2155,2166,2177,2188,2198,2209,2220,2231
-dd 2241,2252,2263,2274,2284,2295,2306,2316,2327,2338
-dd 2349,2359,2370,2381,2391,2402,2413,2423,2434,2444
-dd 2455,2466,2476,2487,2497,2508,2518,2529,2540,2550
-dd 2561,2571,2582,2592,2603,2613,2624,2634,2645,2655
-dd 2666,2676,2686,2697,2707,2718,2728,2738,2749,2759
-dd 2770,2780,2790,2801,2811,2821,2832,2842,2852,2863
-dd 2873,2883,2893,2904,2914,2924,2934,2945,2955,2965
-dd 2975,2985,2996,3006,3016,3026,3036,3046,3056,3067
-dd 3077,3087,3097,3107,3117,3127,3137,3147,3157,3167
-dd 3177,3187,3197,3207,3217,3227,3237,3247,3257,3267
-dd 3277,3287,3297,3306,3316,3326,3336,3346,3356,3365
-dd 3375,3385,3395,3405,3414,3424,3434,3444,3453,3463
-dd 3473,3483,3492,3502,3512,3521,3531,3540,3550,3560
-dd 3569,3579,3588,3598,3608,3617,3627,3636,3646,3655
-dd 3665,3674,3684,3693,3703,3712,3721,3731,3740,3750
-dd 3759,3768,3778,3787,3796,3806,3815,3824,3834,3843
-dd 3852,3861,3871,3880,3889,3898,3907,3917,3926,3935
-dd 3944,3953,3962,3971,3980,3990,3999,4008,4017,4026
-dd 4035,4044,4053,4062,4071,4080,4089,4098,4106,4115
-dd 4124,4133,4142,4151,4160,4169,4177,4186,4195,4204
-dd 4213,4221,4230,4239,4247,4256,4265,4274,4282,4291
-dd 4299,4308,4317,4325,4334,4342,4351,4360,4368,4377
-dd 4385,4394,4402,4411,4419,4427,4436,4444,4453,4461
-dd 4469,4478,4486,4495,4503,4511,4519,4528,4536,4544
-dd 4552,4561,4569,4577,4585,4593,4602,4610,4618,4626
-dd 4634,4642,4650,4658,4666,4674,4682,4690,4698,4706
-dd 4714,4722,4730,4738,4746,4754,4762,4769,4777,4785
-dd 4793,4801,4808,4816,4824,4832,4839,4847,4855,4863
-dd 4870,4878,4885,4893,4901,4908,4916,4923,4931,4938
-dd 4946,4953,4961,4968,4976,4983,4991,4998,5006,5013
-dd 5020,5028,5035,5042,5050,5057,5064,5071,5079,5086
-dd 5093,5100,5107,5115,5122,5129,5136,5143,5150,5157
-dd 5164,5171,5178,5185,5192,5199,5206,5213,5220,5227
-dd 5234,5241,5248,5254,5261,5268,5275,5282,5288,5295
-dd 5302,5309,5315,5322,5329,5335,5342,5349,5355,5362
-dd 5368,5375,5381,5388,5394,5401,5407,5414,5420,5427
-dd 5433,5439,5446,5452,5459,5465,5471,5477,5484,5490
-dd 5496,5502,5509,5515,5521,5527,5533,5539,5546,5552
-dd 5558,5564,5570,5576,5582,5588,5594,5600,5606,5612
-dd 5617,5623,5629,5635,5641,5647,5652,5658,5664,5670
-dd 5675,5681,5687,5693,5698,5704,5709,5715,5721,5726
-dd 5732,5737,5743,5748,5754,5759,5765,5770,5776,5781
-dd 5786,5792,5797,5802,5808,5813,5818,5824,5829,5834
-dd 5839,5844,5850,5855,5860,5865,5870,5875,5880,5885
-dd 5890,5895,5900,5905,5910,5915,5920,5925,5930,5935
-dd 5939,5944,5949,5954,5959,5963,5968,5973,5978,5982
-dd 5987,5992,5996,6001,6005,6010,6015,6019,6024,6028
-dd 6033,6037,6041,6046,6050,6055,6059,6063,6068,6072
-dd 6076,6081,6085,6089,6093,6097,6102,6106,6110,6114
-dd 6118,6122,6126,6130,6134,6138,6142,6146,6150,6154
-dd 6158,6162,6166,6170,6174,6178,6181,6185,6189,6193
-dd 6196,6200,6204,6208,6211,6215,6218,6222,6226,6229
-dd 6233,6236,6240,6243,6247,6250,6254,6257,6260,6264
-dd 6267,6270,6274,6277,6280,6284,6287,6290,6293,6296
-dd 6300,6303,6306,6309,6312,6315,6318,6321,6324,6327
-dd 6330,6333,6336,6339,6342,6345,6348,6350,6353,6356
-dd 6359,6362,6364,6367,6370,6372,6375,6378,6380,6383
-dd 6386,6388,6391,6393,6396,6398,6401,6403,6405,6408
-dd 6410,6413,6415,6417,6420,6422,6424,6426,6429,6431
-dd 6433,6435,6437,6440,6442,6444,6446,6448,6450,6452
-dd 6454,6456,6458,6460,6462,6464,6466,6467,6469,6471
-dd 6473,6475,6476,6478,6480,6482,6483,6485,6486,6488
-dd 6490,6491,6493,6494,6496,6497,6499,6500,6502,6503
-dd 6505,6506,6507,6509,6510,6511,6513,6514,6515,6516
-dd 6518,6519,6520,6521,6522,6523,6524,6525,6527,6528
-dd 6529,6530,6531,6531,6532,6533,6534,6535,6536,6537
-dd 6538,6538,6539,6540,6541,6541,6542,6543,6543,6544
-dd 6545,6545,6546,6546,6547,6547,6548,6548,6549,6549
-dd 6550,6550,6550,6551,6551,6551,6552,6552,6552,6552
-dd 6553,6553,6553,6553,6553,6553,6553,6553,6553,6553
-dd 6554,6553,6553,6553,6553,6553,6553,6553,6553,6553
-dd 6553,6552,6552,6552,6552,6551,6551,6551,6550,6550
-dd 6550,6549,6549,6548,6548,6547,6547,6546,6546,6545
-dd 6545,6544,6543,6543,6542,6541,6541,6540,6539,6538
-dd 6538,6537,6536,6535,6534,6533,6532,6531,6531,6530
-dd 6529,6528,6527,6525,6524,6523,6522,6521,6520,6519
-dd 6518,6516,6515,6514,6513,6511,6510,6509,6507,6506
-dd 6505,6503,6502,6500,6499,6497,6496,6494,6493,6491
-dd 6490,6488,6486,6485,6483,6482,6480,6478,6476,6475
-dd 6473,6471,6469,6467,6466,6464,6462,6460,6458,6456
-dd 6454,6452,6450,6448,6446,6444,6442,6440,6437,6435
-dd 6433,6431,6429,6426,6424,6422,6420,6417,6415,6413
-dd 6410,6408,6405,6403,6401,6398,6396,6393,6391,6388
-dd 6386,6383,6380,6378,6375,6372,6370,6367,6364,6362
-dd 6359,6356,6353,6350,6348,6345,6342,6339,6336,6333
-dd 6330,6327,6324,6321,6318,6315,6312,6309,6306,6303
-dd 6300,6296,6293,6290,6287,6284,6280,6277,6274,6270
-dd 6267,6264,6260,6257,6254,6250,6247,6243,6240,6236
-dd 6233,6229,6226,6222,6218,6215,6211,6208,6204,6200
-dd 6196,6193,6189,6185,6181,6178,6174,6170,6166,6162
-dd 6158,6154,6150,6146,6142,6138,6134,6130,6126,6122
-dd 6118,6114,6110,6106,6102,6097,6093,6089,6085,6081
-dd 6076,6072,6068,6063,6059,6055,6050,6046,6041,6037
-dd 6033,6028,6024,6019,6015,6010,6005,6001,5996,5992
-dd 5987,5982,5978,5973,5968,5963,5959,5954,5949,5944
-dd 5939,5935,5930,5925,5920,5915,5910,5905,5900,5895
-dd 5890,5885,5880,5875,5870,5865,5860,5855,5850,5844
-dd 5839,5834,5829,5824,5818,5813,5808,5802,5797,5792
-dd 5786,5781,5776,5770,5765,5759,5754,5748,5743,5737
-dd 5732,5726,5721,5715,5709,5704,5698,5693,5687,5681
-dd 5675,5670,5664,5658,5652,5647,5641,5635,5629,5623
-dd 5617,5612,5606,5600,5594,5588,5582,5576,5570,5564
-dd 5558,5552,5546,5539,5533,5527,5521,5515,5509,5502
-dd 5496,5490,5484,5477,5471,5465,5459,5452,5446,5439
-dd 5433,5427,5420,5414,5407,5401,5394,5388,5381,5375
-dd 5368,5362,5355,5349,5342,5335,5329,5322,5315,5309
-dd 5302,5295,5288,5282,5275,5268,5261,5254,5248,5241
-dd 5234,5227,5220,5213,5206,5199,5192,5185,5178,5171
-dd 5164,5157,5150,5143,5136,5129,5122,5115,5107,5100
-dd 5093,5086,5079,5071,5064,5057,5050,5042,5035,5028
-dd 5020,5013,5006,4998,4991,4983,4976,4968,4961,4953
-dd 4946,4938,4931,4923,4916,4908,4901,4893,4885,4878
-dd 4870,4863,4855,4847,4839,4832,4824,4816,4808,4801
-dd 4793,4785,4777,4769,4762,4754,4746,4738,4730,4722
-dd 4714,4706,4698,4690,4682,4674,4666,4658,4650,4642
-dd 4634,4626,4618,4610,4602,4593,4585,4577,4569,4561
-dd 4552,4544,4536,4528,4519,4511,4503,4495,4486,4478
-dd 4469,4461,4453,4444,4436,4427,4419,4411,4402,4394
-dd 4385,4377,4368,4360,4351,4342,4334,4325,4317,4308
-dd 4299,4291,4282,4274,4265,4256,4247,4239,4230,4221
-dd 4213,4204,4195,4186,4177,4169,4160,4151,4142,4133
-dd 4124,4115,4106,4098,4089,4080,4071,4062,4053,4044
-dd 4035,4026,4017,4008,3999,3990,3980,3971,3962,3953
-dd 3944,3935,3926,3917,3907,3898,3889,3880,3871,3861
-dd 3852,3843,3834,3824,3815,3806,3796,3787,3778,3768
-dd 3759,3750,3740,3731,3721,3712,3703,3693,3684,3674
-dd 3665,3655,3646,3636,3627,3617,3608,3598,3588,3579
-dd 3569,3560,3550,3540,3531,3521,3512,3502,3492,3483
-dd 3473,3463,3453,3444,3434,3424,3414,3405,3395,3385
-dd 3375,3365,3356,3346,3336,3326,3316,3306,3297,3287
-dd 3277,3267,3257,3247,3237,3227,3217,3207,3197,3187
-dd 3177,3167,3157,3147,3137,3127,3117,3107,3097,3087
-dd 3077,3067,3056,3046,3036,3026,3016,3006,2996,2985
-dd 2975,2965,2955,2945,2934,2924,2914,2904,2893,2883
-dd 2873,2863,2852,2842,2832,2821,2811,2801,2790,2780
-dd 2770,2759,2749,2738,2728,2718,2707,2697,2686,2676
-dd 2666,2655,2645,2634,2624,2613,2603,2592,2582,2571
-dd 2561,2550,2540,2529,2518,2508,2497,2487,2476,2466
-dd 2455,2444,2434,2423,2413,2402,2391,2381,2370,2359
-dd 2349,2338,2327,2316,2306,2295,2284,2274,2263,2252
-dd 2241,2231,2220,2209,2198,2188,2177,2166,2155,2144
-dd 2134,2123,2112,2101,2090,2079,2069,2058,2047,2036
-dd 2025,2014,2003,1992,1982,1971,1960,1949,1938,1927
-dd 1916,1905,1894,1883,1872,1861,1850,1839,1828,1817
-dd 1806,1795,1784,1773,1762,1751,1740,1729,1718,1707
-dd 1696,1685,1674,1663,1652,1641,1630,1619,1608,1597
-dd 1585,1574,1563,1552,1541,1530,1519,1508,1496,1485
-dd 1474,1463,1452,1441,1430,1418,1407,1396,1385,1374
-dd 1363,1351,1340,1329,1318,1307,1295,1284,1273,1262
-dd 1250,1239,1228,1217,1206,1194,1183,1172,1161,1149
-dd 1138,1127,1115,1104,1093,1082,1070,1059,1048,1036
-dd 1025,1014,1003,991,980,969,957,946,935,923
-dd 912,901,889,878,867,855,844,833,821,810
-dd 799,787,776,765,753,742,731,719,708,696
-dd 685,674,662,651,640,628,617,605,594,583
-dd 571,560,548,537,526,514,503,491,480,469
-dd 457,446,434,423,411,400,389,377,366,354
-dd 343,332,320,309,297,286,274,263,252,240
-dd 229,217,206,194,183,172,160,149,137,126
-dd 114,103,92,80,69,57,46,34,23,11
-dd 0,-11,-23,-34,-46,-57,-69,-80,-92,-103
-dd -114,-126,-137,-149,-160,-172,-183,-194,-206,-217
-dd -229,-240,-252,-263,-274,-286,-297,-309,-320,-332
-dd -343,-354,-366,-377,-389,-400,-411,-423,-434,-446
-dd -457,-469,-480,-491,-503,-514,-526,-537,-548,-560
-dd -571,-583,-594,-605,-617,-628,-640,-651,-662,-674
-dd -685,-696,-708,-719,-731,-742,-753,-765,-776,-787
-dd -799,-810,-821,-833,-844,-855,-867,-878,-889,-901
-dd -912,-923,-935,-946,-957,-969,-980,-991,-1003,-1014
-dd -1025,-1036,-1048,-1059,-1070,-1082,-1093,-1104,-1115,-1127
-dd -1138,-1149,-1161,-1172,-1183,-1194,-1206,-1217,-1228,-1239
-dd -1250,-1262,-1273,-1284,-1295,-1307,-1318,-1329,-1340,-1351
-dd -1363,-1374,-1385,-1396,-1407,-1418,-1430,-1441,-1452,-1463
-dd -1474,-1485,-1496,-1508,-1519,-1530,-1541,-1552,-1563,-1574
-dd -1585,-1597,-1608,-1619,-1630,-1641,-1652,-1663,-1674,-1685
-dd -1696,-1707,-1718,-1729,-1740,-1751,-1762,-1773,-1784,-1795
-dd -1806,-1817,-1828,-1839,-1850,-1861,-1872,-1883,-1894,-1905
-dd -1916,-1927,-1938,-1949,-1960,-1971,-1982,-1992,-2003,-2014
-dd -2025,-2036,-2047,-2058,-2069,-2079,-2090,-2101,-2112,-2123
-dd -2134,-2144,-2155,-2166,-2177,-2188,-2198,-2209,-2220,-2231
-dd -2241,-2252,-2263,-2274,-2284,-2295,-2306,-2316,-2327,-2338
-dd -2349,-2359,-2370,-2381,-2391,-2402,-2413,-2423,-2434,-2444
-dd -2455,-2466,-2476,-2487,-2497,-2508,-2518,-2529,-2540,-2550
-dd -2561,-2571,-2582,-2592,-2603,-2613,-2624,-2634,-2645,-2655
-dd -2666,-2676,-2686,-2697,-2707,-2718,-2728,-2738,-2749,-2759
-dd -2770,-2780,-2790,-2801,-2811,-2821,-2832,-2842,-2852,-2863
-dd -2873,-2883,-2893,-2904,-2914,-2924,-2934,-2945,-2955,-2965
-dd -2975,-2985,-2996,-3006,-3016,-3026,-3036,-3046,-3056,-3067
-dd -3077,-3087,-3097,-3107,-3117,-3127,-3137,-3147,-3157,-3167
-dd -3177,-3187,-3197,-3207,-3217,-3227,-3237,-3247,-3257,-3267
-dd -3277,-3287,-3297,-3306,-3316,-3326,-3336,-3346,-3356,-3365
-dd -3375,-3385,-3395,-3405,-3414,-3424,-3434,-3444,-3453,-3463
-dd -3473,-3483,-3492,-3502,-3512,-3521,-3531,-3540,-3550,-3560
-dd -3569,-3579,-3588,-3598,-3608,-3617,-3627,-3636,-3646,-3655
-dd -3665,-3674,-3684,-3693,-3703,-3712,-3721,-3731,-3740,-3750
-dd -3759,-3768,-3778,-3787,-3796,-3806,-3815,-3824,-3834,-3843
-dd -3852,-3861,-3871,-3880,-3889,-3898,-3907,-3917,-3926,-3935
-dd -3944,-3953,-3962,-3971,-3980,-3990,-3999,-4008,-4017,-4026
-dd -4035,-4044,-4053,-4062,-4071,-4080,-4089,-4098,-4106,-4115
-dd -4124,-4133,-4142,-4151,-4160,-4169,-4177,-4186,-4195,-4204
-dd -4213,-4221,-4230,-4239,-4247,-4256,-4265,-4274,-4282,-4291
-dd -4299,-4308,-4317,-4325,-4334,-4342,-4351,-4360,-4368,-4377
-dd -4385,-4394,-4402,-4411,-4419,-4427,-4436,-4444,-4453,-4461
-dd -4469,-4478,-4486,-4495,-4503,-4511,-4519,-4528,-4536,-4544
-dd -4552,-4561,-4569,-4577,-4585,-4593,-4602,-4610,-4618,-4626
-dd -4634,-4642,-4650,-4658,-4666,-4674,-4682,-4690,-4698,-4706
-dd -4714,-4722,-4730,-4738,-4746,-4754,-4762,-4769,-4777,-4785
-dd -4793,-4801,-4808,-4816,-4824,-4832,-4839,-4847,-4855,-4863
-dd -4870,-4878,-4885,-4893,-4901,-4908,-4916,-4923,-4931,-4938
-dd -4946,-4953,-4961,-4968,-4976,-4983,-4991,-4998,-5006,-5013
-dd -5020,-5028,-5035,-5042,-5050,-5057,-5064,-5071,-5079,-5086
-dd -5093,-5100,-5107,-5115,-5122,-5129,-5136,-5143,-5150,-5157
-dd -5164,-5171,-5178,-5185,-5192,-5199,-5206,-5213,-5220,-5227
-dd -5234,-5241,-5248,-5254,-5261,-5268,-5275,-5282,-5288,-5295
-dd -5302,-5309,-5315,-5322,-5329,-5335,-5342,-5349,-5355,-5362
-dd -5368,-5375,-5381,-5388,-5394,-5401,-5407,-5414,-5420,-5427
-dd -5433,-5439,-5446,-5452,-5459,-5465,-5471,-5477,-5484,-5490
-dd -5496,-5502,-5509,-5515,-5521,-5527,-5533,-5539,-5546,-5552
-dd -5558,-5564,-5570,-5576,-5582,-5588,-5594,-5600,-5606,-5612
-dd -5617,-5623,-5629,-5635,-5641,-5647,-5652,-5658,-5664,-5670
-dd -5675,-5681,-5687,-5693,-5698,-5704,-5709,-5715,-5721,-5726
-dd -5732,-5737,-5743,-5748,-5754,-5759,-5765,-5770,-5776,-5781
-dd -5786,-5792,-5797,-5802,-5808,-5813,-5818,-5824,-5829,-5834
-dd -5839,-5844,-5850,-5855,-5860,-5865,-5870,-5875,-5880,-5885
-dd -5890,-5895,-5900,-5905,-5910,-5915,-5920,-5925,-5930,-5935
-dd -5939,-5944,-5949,-5954,-5959,-5963,-5968,-5973,-5978,-5982
-dd -5987,-5992,-5996,-6001,-6005,-6010,-6015,-6019,-6024,-6028
-dd -6033,-6037,-6041,-6046,-6050,-6055,-6059,-6063,-6068,-6072
-dd -6076,-6081,-6085,-6089,-6093,-6097,-6102,-6106,-6110,-6114
-dd -6118,-6122,-6126,-6130,-6134,-6138,-6142,-6146,-6150,-6154
-dd -6158,-6162,-6166,-6170,-6174,-6178,-6181,-6185,-6189,-6193
-dd -6196,-6200,-6204,-6208,-6211,-6215,-6218,-6222,-6226,-6229
-dd -6233,-6236,-6240,-6243,-6247,-6250,-6254,-6257,-6260,-6264
-dd -6267,-6270,-6274,-6277,-6280,-6284,-6287,-6290,-6293,-6296
-dd -6300,-6303,-6306,-6309,-6312,-6315,-6318,-6321,-6324,-6327
-dd -6330,-6333,-6336,-6339,-6342,-6345,-6348,-6350,-6353,-6356
-dd -6359,-6362,-6364,-6367,-6370,-6372,-6375,-6378,-6380,-6383
-dd -6386,-6388,-6391,-6393,-6396,-6398,-6401,-6403,-6405,-6408
-dd -6410,-6413,-6415,-6417,-6420,-6422,-6424,-6426,-6429,-6431
-dd -6433,-6435,-6437,-6440,-6442,-6444,-6446,-6448,-6450,-6452
-dd -6454,-6456,-6458,-6460,-6462,-6464,-6466,-6467,-6469,-6471
-dd -6473,-6475,-6476,-6478,-6480,-6482,-6483,-6485,-6486,-6488
-dd -6490,-6491,-6493,-6494,-6496,-6497,-6499,-6500,-6502,-6503
-dd -6505,-6506,-6507,-6509,-6510,-6511,-6513,-6514,-6515,-6516
-dd -6518,-6519,-6520,-6521,-6522,-6523,-6524,-6525,-6527,-6528
-dd -6529,-6530,-6531,-6531,-6532,-6533,-6534,-6535,-6536,-6537
-dd -6538,-6538,-6539,-6540,-6541,-6541,-6542,-6543,-6543,-6544
-dd -6545,-6545,-6546,-6546,-6547,-6547,-6548,-6548,-6549,-6549
-dd -6550,-6550,-6550,-6551,-6551,-6551,-6552,-6552,-6552,-6552
-dd -6553,-6553,-6553,-6553,-6553,-6553,-6553,-6553,-6553,-6553
-dd -6554,-6553,-6553,-6553,-6553,-6553,-6553,-6553,-6553,-6553
-dd -6553,-6552,-6552,-6552,-6552,-6551,-6551,-6551,-6550,-6550
-dd -6550,-6549,-6549,-6548,-6548,-6547,-6547,-6546,-6546,-6545
-dd -6545,-6544,-6543,-6543,-6542,-6541,-6541,-6540,-6539,-6538
-dd -6538,-6537,-6536,-6535,-6534,-6533,-6532,-6531,-6531,-6530
-dd -6529,-6528,-6527,-6525,-6524,-6523,-6522,-6521,-6520,-6519
-dd -6518,-6516,-6515,-6514,-6513,-6511,-6510,-6509,-6507,-6506
-dd -6505,-6503,-6502,-6500,-6499,-6497,-6496,-6494,-6493,-6491
-dd -6490,-6488,-6486,-6485,-6483,-6482,-6480,-6478,-6476,-6475
-dd -6473,-6471,-6469,-6467,-6466,-6464,-6462,-6460,-6458,-6456
-dd -6454,-6452,-6450,-6448,-6446,-6444,-6442,-6440,-6437,-6435
-dd -6433,-6431,-6429,-6426,-6424,-6422,-6420,-6417,-6415,-6413
-dd -6410,-6408,-6405,-6403,-6401,-6398,-6396,-6393,-6391,-6388
-dd -6386,-6383,-6380,-6378,-6375,-6372,-6370,-6367,-6364,-6362
-dd -6359,-6356,-6353,-6350,-6348,-6345,-6342,-6339,-6336,-6333
-dd -6330,-6327,-6324,-6321,-6318,-6315,-6312,-6309,-6306,-6303
-dd -6300,-6296,-6293,-6290,-6287,-6284,-6280,-6277,-6274,-6270
-dd -6267,-6264,-6260,-6257,-6254,-6250,-6247,-6243,-6240,-6236
-dd -6233,-6229,-6226,-6222,-6218,-6215,-6211,-6208,-6204,-6200
-dd -6196,-6193,-6189,-6185,-6181,-6178,-6174,-6170,-6166,-6162
-dd -6158,-6154,-6150,-6146,-6142,-6138,-6134,-6130,-6126,-6122
-dd -6118,-6114,-6110,-6106,-6102,-6097,-6093,-6089,-6085,-6081
-dd -6076,-6072,-6068,-6063,-6059,-6055,-6050,-6046,-6041,-6037
-dd -6033,-6028,-6024,-6019,-6015,-6010,-6005,-6001,-5996,-5992
-dd -5987,-5982,-5978,-5973,-5968,-5963,-5959,-5954,-5949,-5944
-dd -5939,-5935,-5930,-5925,-5920,-5915,-5910,-5905,-5900,-5895
-dd -5890,-5885,-5880,-5875,-5870,-5865,-5860,-5855,-5850,-5844
-dd -5839,-5834,-5829,-5824,-5818,-5813,-5808,-5802,-5797,-5792
-dd -5786,-5781,-5776,-5770,-5765,-5759,-5754,-5748,-5743,-5737
-dd -5732,-5726,-5721,-5715,-5709,-5704,-5698,-5693,-5687,-5681
-dd -5675,-5670,-5664,-5658,-5652,-5647,-5641,-5635,-5629,-5623
-dd -5617,-5612,-5606,-5600,-5594,-5588,-5582,-5576,-5570,-5564
-dd -5558,-5552,-5546,-5539,-5533,-5527,-5521,-5515,-5509,-5502
-dd -5496,-5490,-5484,-5477,-5471,-5465,-5459,-5452,-5446,-5439
-dd -5433,-5427,-5420,-5414,-5407,-5401,-5394,-5388,-5381,-5375
-dd -5368,-5362,-5355,-5349,-5342,-5335,-5329,-5322,-5315,-5309
-dd -5302,-5295,-5288,-5282,-5275,-5268,-5261,-5254,-5248,-5241
-dd -5234,-5227,-5220,-5213,-5206,-5199,-5192,-5185,-5178,-5171
-dd -5164,-5157,-5150,-5143,-5136,-5129,-5122,-5115,-5107,-5100
-dd -5093,-5086,-5079,-5071,-5064,-5057,-5050,-5042,-5035,-5028
-dd -5020,-5013,-5006,-4998,-4991,-4983,-4976,-4968,-4961,-4953
-dd -4946,-4938,-4931,-4923,-4916,-4908,-4901,-4893,-4885,-4878
-dd -4870,-4863,-4855,-4847,-4839,-4832,-4824,-4816,-4808,-4801
-dd -4793,-4785,-4777,-4769,-4762,-4754,-4746,-4738,-4730,-4722
-dd -4714,-4706,-4698,-4690,-4682,-4674,-4666,-4658,-4650,-4642
-dd -4634,-4626,-4618,-4610,-4602,-4593,-4585,-4577,-4569,-4561
-dd -4552,-4544,-4536,-4528,-4519,-4511,-4503,-4495,-4486,-4478
-dd -4469,-4461,-4453,-4444,-4436,-4427,-4419,-4411,-4402,-4394
-dd -4385,-4377,-4368,-4360,-4351,-4342,-4334,-4325,-4317,-4308
-dd -4299,-4291,-4282,-4274,-4265,-4256,-4247,-4239,-4230,-4221
-dd -4213,-4204,-4195,-4186,-4177,-4169,-4160,-4151,-4142,-4133
-dd -4124,-4115,-4106,-4098,-4089,-4080,-4071,-4062,-4053,-4044
-dd -4035,-4026,-4017,-4008,-3999,-3990,-3980,-3971,-3962,-3953
-dd -3944,-3935,-3926,-3917,-3907,-3898,-3889,-3880,-3871,-3861
-dd -3852,-3843,-3834,-3824,-3815,-3806,-3796,-3787,-3778,-3768
-dd -3759,-3750,-3740,-3731,-3721,-3712,-3703,-3693,-3684,-3674
-dd -3665,-3655,-3646,-3636,-3627,-3617,-3608,-3598,-3588,-3579
-dd -3569,-3560,-3550,-3540,-3531,-3521,-3512,-3502,-3492,-3483
-dd -3473,-3463,-3453,-3444,-3434,-3424,-3414,-3405,-3395,-3385
-dd -3375,-3365,-3356,-3346,-3336,-3326,-3316,-3306,-3297,-3287
-dd -3277,-3267,-3257,-3247,-3237,-3227,-3217,-3207,-3197,-3187
-dd -3177,-3167,-3157,-3147,-3137,-3127,-3117,-3107,-3097,-3087
-dd -3077,-3067,-3056,-3046,-3036,-3026,-3016,-3006,-2996,-2985
-dd -2975,-2965,-2955,-2945,-2934,-2924,-2914,-2904,-2893,-2883
-dd -2873,-2863,-2852,-2842,-2832,-2821,-2811,-2801,-2790,-2780
-dd -2770,-2759,-2749,-2738,-2728,-2718,-2707,-2697,-2686,-2676
-dd -2666,-2655,-2645,-2634,-2624,-2613,-2603,-2592,-2582,-2571
-dd -2561,-2550,-2540,-2529,-2518,-2508,-2497,-2487,-2476,-2466
-dd -2455,-2444,-2434,-2423,-2413,-2402,-2391,-2381,-2370,-2359
-dd -2349,-2338,-2327,-2316,-2306,-2295,-2284,-2274,-2263,-2252
-dd -2241,-2231,-2220,-2209,-2198,-2188,-2177,-2166,-2155,-2144
-dd -2134,-2123,-2112,-2101,-2090,-2079,-2069,-2058,-2047,-2036
-dd -2025,-2014,-2003,-1992,-1982,-1971,-1960,-1949,-1938,-1927
-dd -1916,-1905,-1894,-1883,-1872,-1861,-1850,-1839,-1828,-1817
-dd -1806,-1795,-1784,-1773,-1762,-1751,-1740,-1729,-1718,-1707
-dd -1696,-1685,-1674,-1663,-1652,-1641,-1630,-1619,-1608,-1597
-dd -1585,-1574,-1563,-1552,-1541,-1530,-1519,-1508,-1496,-1485
-dd -1474,-1463,-1452,-1441,-1430,-1418,-1407,-1396,-1385,-1374
-dd -1363,-1351,-1340,-1329,-1318,-1307,-1295,-1284,-1273,-1262
-dd -1250,-1239,-1228,-1217,-1206,-1194,-1183,-1172,-1161,-1149
-dd -1138,-1127,-1115,-1104,-1093,-1082,-1070,-1059,-1048,-1036
-dd -1025,-1014,-1003,-991,-980,-969,-957,-946,-935,-923
-dd -912,-901,-889,-878,-867,-855,-844,-833,-821,-810
-dd -799,-787,-776,-765,-753,-742,-731,-719,-708,-696
-dd -685,-674,-662,-651,-640,-628,-617,-605,-594,-583
-dd -571,-560,-548,-537,-526,-514,-503,-491,-480,-469
-dd -457,-446,-434,-423,-411,-400,-389,-377,-366,-354
-dd -343,-332,-320,-309,-297,-286,-274,-263,-252,-240
+labelt:
+      db   'FISHEYE RAYCASTING ENGINE ETC. FREE3D'
+labellen:
-dd -229,-217,-206,-194,-183,-172,-160,-149,-137,-126
+sindegree dd 0.0
+sininc    dd 0.0017453292519943295769236907684886
+sindiv    dd 6553.5
-dd -114,-103,-92,-80,-69,-57,-46,-34,-23,-11
+textures:
+	file 'texture.gif'
-eosinus:
+I_END:
 col1:
- dd 0
+ dd ?;-
 ; misc raycaster vars:
 vxx:
- dd 0
+ dd ?;-
-vyy:
- dd 0
-vl:
- dd 0
-vpx:
+vyy:
-dd 0x0001FFFF ; initial player position * 0xFFFF
+ dd ?;-
- vpy:
+vl:
-dd 0x0001FFFF
+ dd ?;-
 vstepx:
- dd 0
+ dd ?;-
 vstepy:
- dd 0
+ dd ?;-
 vxxint:
- dd 0
+ dd ?;-
 vyyint:
- dd 0
+ dd ?;-
 vk:
- dd 0
+ dd ?;-
 va:
- dd 0
+ dd ?;-
 va2:
- dd 0
+ dd ?;-
 vdd:
- dd 0
+ dd ?;-
 vx1:
- dd 0
+ dd ?;-
 vx1b:
- dd 0
+ dd ?;-
 vh:
- dd 0
+ dd ?;-
 vdt:
- dd 0
+ dd ?;-
 vheading: ; initial heading: 0 to 3599
- dd 0
+ dd ?;-
 vacompare:
- dd 0
+ dd ?;-
 vpxi:
- dd 0
+ dd ?;-
 vpyi:
- dd 0
+ dd ?;-
 wtolong:
- dw 0,0
+ dw ?,?;-,?;-
 xtemp:
- dd 0
+ dd ?;-
 ytemp:
- dd 0
+ dd ?;-
 xfrac:
- dd 0
+ dd ?;-
 yfrac:
- dd 0
+ dd ?;-
 h_old:
- dd 0
+ dd ?;-
 vbottom:
- dd 0
+ dd ?;-
 mouseya:
- dd 0
+ dd ?;-
 remeax:
- dd 0
+ dd ?;-
 remebx:
- dd 0
+ dd ?;-
 remecx:
- dd 0
+ dd ?;-
 remedx:
- dd 0
+ dd ?;-
 remedi:
- dd 0
+ dd ?;-
 remesi:
- dd 0
+ dd ?;-
 red:
- dd 0
+ dd ?;-
 green:
- dd 0
+ dd ?;-
 blue:
- dd 0
+ dd ?;-
 pseudo:
- dd 0
+ dd ?;-
 step1:
- dd 0
-step64:
- dd 0
-lasty:
- dd 0
-ceil:
-include "ceil.inc"
-wall:
-include "wall.inc"
-wall2:
-include "wall2.inc"
-wall3:
-include "wall3.inc"
-wall4:
-include "wall4.inc"
-wall5:
-include "wall5.inc"
-wall6:
-include "wall6.inc"
-wall7:
-include "wall7.inc"
-labelt:
-      db   'FISHEYE RAYCASTING ENGINE ETC. FREE3D'
-labellen:
-I_END:
+ dd ?;-
+step64:
+ dd ?;-
 lasty:
  dd ?;-
--
 sinus rd 360*10
 eosinus:

Subversion Repositories Kolibri OS

(root)/programs/free3d04/trunk/free3d04.asm – Rev 31 → 37