mirror of
https://github.com/KolibriOS/kolibrios.git
synced 2024-12-11 17:44:09 +03:00
2bf14704a9
git-svn-id: svn://kolibrios.org@7351 a494cfbc-eb01-0410-851d-a64ba20cac60
2168 lines
56 KiB
NASM
2168 lines
56 KiB
NASM
;MOS3DE V 0.1 - MENUETOS 3D Engine V 0.1
|
|
|
|
; Compile with FASM for MENUET
|
|
|
|
; this is a very early Version: I'm so happy that it runs at all.
|
|
; Of course it's a bad ASM style and it can be optimized a lot.
|
|
|
|
; anyway - I have thought I uploap this so other PPL might optimize it
|
|
; as well or transform it to something completely diffrent.
|
|
|
|
; There are some Mouse- and Keyboardhandling Subs and Constructs. They are here
|
|
; because I will probably use them for the Navigation in a First Person
|
|
; Perspective Game - which is the goal of this project.
|
|
; http://www.melog.ch/mos_pub/ dietermarfurt@angelfire.com
|
|
|
|
; of course you can remove or replace them. It has only linear Texturemapping.
|
|
; Perspective Correction is a future option.
|
|
; a flag for multiple Textures selection should be implemented in the
|
|
; Meshfile Format. As I said - it's a very erarly version.
|
|
|
|
use32
|
|
|
|
org 0x0
|
|
|
|
db 'MENUET01' ; 8 byte id
|
|
dd 0x01 ; header version
|
|
dd START ; start of code
|
|
dd I_END ; size of image
|
|
dd 0x200000 ; memory for app
|
|
dd 0x7fff0 ; esp
|
|
dd 0x0 , 0x0 ; I_Param , I_Icon
|
|
|
|
IMAGE_W = 320
|
|
IMAGE_H = 240
|
|
|
|
START: ; start of execution
|
|
|
|
call init_gfx
|
|
call draw_window ; at first, draw the window
|
|
|
|
gamestart:
|
|
; ******* MOUSE CHECK *******
|
|
mov eax,37
|
|
mov ebx,1 ; check mouseposition
|
|
int 0x40
|
|
|
|
mov ebx,eax
|
|
shr eax,16
|
|
and eax,0x0000FFFF ; mousex
|
|
and ebx,0x0000FFFF ; mousey
|
|
mov [mousex],eax
|
|
mov [mousey],ebx
|
|
cmp eax,5 ; mouse out of window ?
|
|
jb check_refresh ; it will prevent an app-crash
|
|
cmp ebx,22
|
|
jb check_refresh
|
|
cmp eax, IMAGE_W
|
|
jg check_refresh
|
|
cmp ebx,221
|
|
jg check_refresh
|
|
|
|
cmp eax,160 ; navigating?
|
|
jb m_left
|
|
cmp eax,170 ;
|
|
jg m_right
|
|
continue:
|
|
cmp ebx,100 ;
|
|
jb s_up
|
|
cmp ebx,144 ;
|
|
jg s_down
|
|
; ******* END OF MOUSE CHECK *******
|
|
check_refresh:
|
|
|
|
mov eax,23 ; wait for system event with 10 ms timeout
|
|
mov ebx,1 ; wait 10 ms, then continue
|
|
int 0x40
|
|
; mov eax,11 ; or use this for full speed instead
|
|
; 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
|
|
|
|
call clear_screen
|
|
call updateworld
|
|
call put_screen
|
|
;call log ; used for debugging
|
|
|
|
mov edi,[mouseya] ; check flag if a refresh has to be done
|
|
cmp edi,1
|
|
jne gamestart
|
|
mov [mouseya],dword 0
|
|
|
|
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,1800
|
|
jb ok_heading0
|
|
sub edi,1800
|
|
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,1800
|
|
ok_heading1:
|
|
mov [vheading],edi
|
|
mov [mouseya],dword 1
|
|
jmp check_refresh
|
|
|
|
m_left: ; turn left (mouse)
|
|
mov edi,[vheading] ; heading
|
|
mov ecx,160
|
|
sub ecx,eax
|
|
sar ecx,2
|
|
add edi,ecx
|
|
cmp edi,1800
|
|
jb ok_heading2
|
|
sub edi,1800
|
|
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,170
|
|
sar eax,2
|
|
sub edi,eax
|
|
cmp edi,-1
|
|
jg ok_heading3
|
|
add edi,1800
|
|
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; 2 - end
|
|
int 0x40
|
|
|
|
mov eax, 48 ; get skin height
|
|
mov ebx, 4
|
|
int 0x40
|
|
|
|
lea ecx,[eax + (119 shl 16) + IMAGE_H + 4]
|
|
mov ebx,192*65536+IMAGE_W+9 ; [x start] *65536 + [x size]
|
|
mov edx,0x74000000 ; skinned window, not resizable
|
|
mov edi,labelt ; window title
|
|
mov eax,0 ; function 0 : define and draw window
|
|
int 0x40
|
|
|
|
mov eax,12
|
|
mov ebx,2
|
|
int 0x40
|
|
|
|
ret
|
|
|
|
|
|
; ---------------------------------------------------------------------
|
|
init_gfx:
|
|
|
|
; Pwidth = 63 Shl 16 ;original texture width in pixels -1 shl 16
|
|
; Pheight = 63 Shl 16 ;original texture height in pixels -1 shl 16
|
|
|
|
mov [pwidth],dword 63
|
|
shl dword[pwidth],16
|
|
mov [pheight],dword 63
|
|
shl dword[pheight],16
|
|
|
|
;; Read in a mesh
|
|
mov eax,0 ; tex1+4
|
|
mov edi,anz
|
|
add edi,4 ; beginning of mesh data
|
|
|
|
;using a copy will allow inverse kinematic transformations (future option)
|
|
|
|
readmesh:
|
|
mov edx,eax
|
|
add edx,a_xwww ; desti
|
|
mov ecx,[edi] ; value in ecx
|
|
mov [edx],ecx
|
|
add edi,4
|
|
;---
|
|
mov edx,eax
|
|
add edx,a_ywww ; desti
|
|
mov ecx,[edi] ; value in ecx
|
|
mov [edx],ecx
|
|
add edi,4
|
|
;---
|
|
mov edx,eax
|
|
add edx,a_zwww ; desti
|
|
mov ecx,[edi] ; value in ecx
|
|
mov [edx],ecx
|
|
add edi,4
|
|
;---
|
|
|
|
add eax,4
|
|
cmp edi,eo_mesh
|
|
jl readmesh
|
|
|
|
; zoom=-500
|
|
mov [zoom],dword -500
|
|
|
|
ret
|
|
;------------------------------------------------------------------
|
|
|
|
|
|
|
|
log:
|
|
;write some Variable info to screen (used for debugging)
|
|
pusha
|
|
mov edi,wonder ;a_xwww
|
|
;add edi,200
|
|
mov [remecx], dword 24
|
|
print:
|
|
mov eax,47
|
|
mov ebx,0x000f0000
|
|
;mov ebx,0x000f0100 ; hex
|
|
mov ecx,[edi]
|
|
mov edx,[remecx]
|
|
or edx,0x000C0000
|
|
mov esi,0x00ff0000
|
|
int 0x40
|
|
add [remecx],dword 8
|
|
add edi,dword 4
|
|
cmp [remecx], dword 250
|
|
jl print
|
|
popa
|
|
ret
|
|
|
|
|
|
; ---------------------------------------------------------------------
|
|
; UPDATE WORLD
|
|
; ---------------------------------------------------------------------
|
|
|
|
updateworld:
|
|
|
|
mov edx,[a_xw]
|
|
|
|
; Miny% = 32767
|
|
; Maxy% = 0
|
|
mov [miny],dword 32737
|
|
mov [maxy],dword 0
|
|
|
|
; Color 0,0,0 ; clear screen - l8er
|
|
; Rect 0,0,320,240,1
|
|
|
|
; a=a+1.0 ; automatic rotation...
|
|
add [a],dword 10
|
|
cmp [a],dword 3598
|
|
jl ok360
|
|
mov [a],dword 0
|
|
ok360:
|
|
|
|
; If a>359.9 Then a=0
|
|
; alpha=a
|
|
; beta=a
|
|
; gamma=a+a Mod 360
|
|
|
|
mov eax,[a]
|
|
mov [alpha],eax
|
|
mov [beta], eax
|
|
mov [gamma],eax
|
|
add [gamma],eax
|
|
cmp [gamma],dword 3599
|
|
jl ok360_2
|
|
sub [gamma],dword 3600
|
|
ok360_2:
|
|
|
|
; mausy#=0.1+(MouseY()/50.0) ; >>>>>>l8er
|
|
|
|
mov eax,[alpha]
|
|
mov [alphacopy],eax
|
|
mov eax,[beta]
|
|
mov [betacopy],eax
|
|
mov eax,[gamma]
|
|
mov [gammacopy],eax
|
|
|
|
; For i=0 To anz ; do rotation and projection etc
|
|
mov esi,0
|
|
for_i:
|
|
|
|
; *****************************
|
|
; ROTATE pitch jaw roll...
|
|
; *****************************
|
|
|
|
;; xl1#=zwww(i)*Sin(gamma)+xwww(i)*Cos(gamma)
|
|
mov eax,esi
|
|
imul eax,4
|
|
add eax,a_zwww
|
|
mov ebx,[eax]
|
|
mov eax,[gammacopy]
|
|
call get_sinus
|
|
imul ebx,[eax]
|
|
mov [tempdiv],ebx ; is zwww(i)*sin(gamma)
|
|
|
|
mov eax,esi
|
|
imul eax,4
|
|
add eax,a_xwww
|
|
mov ebx,[eax]
|
|
|
|
mov eax,[gammacopy]
|
|
call get_cosinus
|
|
imul ebx,[eax] ; is xwww*cos(gamma
|
|
|
|
add ebx,[tempdiv]
|
|
mov eax,ebx
|
|
;or eax,1
|
|
cdq
|
|
mov ecx,6553
|
|
idiv ecx
|
|
mov [xl1],eax
|
|
|
|
|
|
;; yl1#=ywww(i)
|
|
mov eax,esi
|
|
imul eax,4
|
|
add eax,a_ywww
|
|
mov ebx,[eax]
|
|
mov [yl1],ebx
|
|
|
|
|
|
;; zl1#=zwww(i)*Cos(gamma)-xwww(i)*Sin(gamma)
|
|
mov eax,esi
|
|
imul eax,4
|
|
add eax,a_zwww
|
|
mov ebx,[eax]
|
|
mov eax,[gammacopy]
|
|
call get_cosinus
|
|
imul ebx,[eax]
|
|
mov [tempdiv],ebx ; is zwww(i)*cos(gamma)
|
|
|
|
mov eax,esi
|
|
imul eax,4
|
|
add eax,a_xwww
|
|
mov ebx,[eax]
|
|
|
|
mov eax,[gammacopy]
|
|
call get_sinus
|
|
imul ebx,[eax] ; is xwww*sin(gamma
|
|
|
|
sub [tempdiv],ebx
|
|
mov eax,[tempdiv]
|
|
;or eax,1
|
|
cdq
|
|
mov ecx,6553 ; once 6500
|
|
idiv ecx
|
|
mov [zl1],eax
|
|
|
|
|
|
|
|
;
|
|
;-----------------------------------------------------------------------
|
|
;; xl2#=xl1
|
|
mov eax,[xl1]
|
|
mov [xl2],eax
|
|
|
|
;; yl2#=yl1*Cos(beta)-zl1*Sin(beta)
|
|
mov ebx,[yl1]
|
|
mov eax,[betacopy]
|
|
call get_cosinus
|
|
imul ebx,[eax]
|
|
mov [tempdiv],ebx ; is yl1*cos(beta)
|
|
|
|
mov ebx,[zl1] ; zl1
|
|
|
|
mov eax,[betacopy]
|
|
call get_sinus
|
|
imul ebx,[eax] ; is zl1*sin(beta
|
|
|
|
sub [tempdiv],ebx
|
|
mov eax,[tempdiv]
|
|
;or eax,1
|
|
cdq
|
|
mov ecx,6553
|
|
idiv ecx
|
|
mov [yl2],eax
|
|
|
|
|
|
|
|
;; zl2#=yl1*Sin(beta)+zl1*Cos(beta)
|
|
mov ebx,[yl1]
|
|
mov eax,[betacopy]
|
|
call get_sinus
|
|
imul ebx,[eax]
|
|
mov [tempdiv],ebx ; is yl1*sin(beta)
|
|
|
|
mov ebx,[zl1] ; zl1
|
|
|
|
mov eax,[betacopy]
|
|
call get_cosinus
|
|
imul ebx,[eax] ; is zl1*cos(beta
|
|
|
|
add ebx,[tempdiv]
|
|
mov eax,ebx
|
|
;or eax,1
|
|
cdq
|
|
mov ecx,6553
|
|
idiv ecx
|
|
mov [zl2],eax
|
|
|
|
|
|
;-----------------------------------------------------------------------
|
|
;; xl3#=(yl2*Sin(alpha)+xl2*Cos(alpha))
|
|
mov ebx,[yl2]
|
|
mov eax,[alphacopy]
|
|
call get_sinus
|
|
imul ebx,[eax]
|
|
mov [tempdiv],ebx ; is yl2*sin(alpha)
|
|
|
|
mov ebx,[xl2] ; xl2
|
|
mov eax,[alphacopy]
|
|
call get_cosinus
|
|
imul ebx,[eax] ; is xl2*cos(alpha
|
|
|
|
add ebx,[tempdiv]
|
|
mov eax,ebx
|
|
;or eax,1
|
|
cdq
|
|
mov ecx,6553
|
|
idiv ecx
|
|
mov [xl3],eax
|
|
|
|
|
|
;; yl3#=(yl2*Cos(alpha)-xl2*Sin(alpha))
|
|
mov ebx,[yl2]
|
|
mov eax,[alphacopy]
|
|
call get_cosinus
|
|
imul ebx,[eax]
|
|
mov [tempdiv],ebx ; is yl2*cos(alpha)
|
|
|
|
mov ebx,[xl2] ; xl2
|
|
mov eax,[alphacopy]
|
|
call get_sinus
|
|
imul ebx,[eax] ; is xl2*sin(alpha
|
|
|
|
sub [tempdiv],ebx
|
|
mov eax,[tempdiv]
|
|
;or eax,1
|
|
cdq
|
|
mov ecx,6553
|
|
idiv ecx
|
|
mov [yl3],eax
|
|
|
|
|
|
;; zl3#=(zl2)
|
|
mov eax,[zl2]
|
|
mov [zl3],eax
|
|
|
|
;-----------------------------------------------------------------------
|
|
|
|
; *********************
|
|
; PROJECTING 3D to 2D
|
|
|
|
; If yloc# - Zoom <> 0 Then yloc = Int(yl3 ) * 200 / (zl3 - Zoom)
|
|
;-------
|
|
mov ecx,[zl3]
|
|
sub ecx,[zoom]
|
|
mov eax,[yl3]
|
|
imul eax,200
|
|
or eax,1
|
|
cdq
|
|
idiv ecx
|
|
;mov eax,[yl3] ; no perpective
|
|
mov [yloc],eax
|
|
;------
|
|
|
|
; If xloc# - Zoom <> 0 Then xloc = Int(xl3 ) * 200 / (zl3 - Zoom)
|
|
|
|
;------
|
|
mov ecx,[zl3]
|
|
sub ecx,[zoom]
|
|
mov eax,[xl3]
|
|
imul eax,200
|
|
or eax,1
|
|
cdq
|
|
idiv ecx
|
|
;mov eax,[xl3] ; no perspective
|
|
mov [xloc],eax
|
|
;------
|
|
|
|
; xw(i)=((mausy#)*xloc) +160
|
|
; yw(i)=((mausy#)*yloc) +120
|
|
; zw(i)=(zl3+256)
|
|
|
|
mov eax,[mousey] ; define scaling
|
|
mov [factor],eax
|
|
cmp eax,32000
|
|
jl positivemousey
|
|
mov [factor],dword 10
|
|
jmp less220
|
|
positivemousey:
|
|
cmp eax,10
|
|
jg more20
|
|
mov [factor],dword 10
|
|
jmp less220
|
|
more20:
|
|
cmp eax,220
|
|
jl less220
|
|
mov [factor],dword 220
|
|
less220:
|
|
|
|
mov eax,esi ; i...
|
|
imul eax,4
|
|
|
|
mov ecx,[xloc]
|
|
mov eax,esi
|
|
imul eax,4
|
|
mov ebx,a_xw
|
|
add ebx,eax
|
|
imul ecx,[factor]
|
|
sar ecx,5
|
|
mov [ebx],ecx
|
|
add [ebx],dword 160
|
|
|
|
mov ecx,[yloc]
|
|
; mov eax,esi
|
|
; imul eax,4
|
|
mov ebx,a_yw
|
|
add ebx,eax
|
|
imul ecx,[factor]
|
|
sar ecx,5
|
|
mov [ebx],ecx
|
|
add [ebx],dword 120
|
|
|
|
mov ecx,[zl3] ; used for z sorting
|
|
mov ebx,a_zw
|
|
add ebx,eax
|
|
mov [ebx],ecx
|
|
add [ebx],dword 256
|
|
|
|
; Next
|
|
inc esi
|
|
cmp esi,[anz]
|
|
jle for_i
|
|
;---------------
|
|
|
|
|
|
mov [sorted_quads],dword 0
|
|
|
|
|
|
; ; z-sorting...
|
|
; For i=0 To 10000 ; clear old info
|
|
; zbuffer(i)=-1
|
|
; Next
|
|
mov eax,zbuffer
|
|
mov ebx,eax
|
|
add ebx,40000
|
|
clear_zbuffer:
|
|
mov [eax],dword 1000000
|
|
add eax,4
|
|
cmp eax,ebx
|
|
jle clear_zbuffer
|
|
|
|
|
|
|
|
; For i=0 To anz-3 Step 4
|
|
mov eax,0
|
|
mov ebx,[anz]
|
|
for_i_0_to_anz:
|
|
|
|
; If zw(i)>=0 ; clip Quads behind Camera
|
|
mov ecx,eax
|
|
imul ecx,4
|
|
add ecx,a_zw
|
|
mov edx,[ecx]
|
|
cmp edx,0
|
|
jle behindcamera
|
|
|
|
; zwmax=zw(i)
|
|
mov esi,edx
|
|
|
|
; ;find quads internal most far point
|
|
; If zwmax<zw(i+1) Then zwmax=zw(i+1)
|
|
; If zwmax<zw(i+2) Then zwmax=zw(i+2)
|
|
; If zwmax<zw(i+3) Then zwmax=zw(i+3)
|
|
; skip this for debugging
|
|
; jmp no_internal_sorting
|
|
cmp esi,[ecx+4]
|
|
jge checkmore1
|
|
mov esi,[ecx+4]
|
|
checkmore1:
|
|
|
|
cmp esi,[ecx+8]
|
|
jge checkmore2
|
|
mov esi,[ecx+8]
|
|
checkmore2:
|
|
|
|
cmp esi,[ecx+12]
|
|
jge checkmore3
|
|
mov esi,[ecx+12]
|
|
checkmore3:
|
|
|
|
no_internal_sorting:
|
|
|
|
mov [i],eax ; anz-ID in [i] (not times 4)
|
|
push eax
|
|
push ebx
|
|
|
|
; While zbuffer(zwmax)<>-1 And zwmax<10000
|
|
; zwmax=zwmax+1
|
|
; Wend
|
|
mov eax,esi ; is actual z/poititon of point (used for z-order)
|
|
imul eax,4
|
|
|
|
findslot:
|
|
mov ebx,eax
|
|
add ebx,zbuffer
|
|
cmp [ebx],dword 1000000
|
|
je found_empty_slot
|
|
add eax,4
|
|
cmp eax,40000
|
|
jl findslot
|
|
found_empty_slot:
|
|
|
|
; zbuffer(zwmax)=i
|
|
inc dword[sorted_quads] ; check slot writing
|
|
|
|
mov ecx,[i]
|
|
mov [ebx],ecx
|
|
|
|
pop ebx
|
|
pop eax
|
|
|
|
; EndIf
|
|
behindcamera:
|
|
; Next
|
|
add eax,4
|
|
cmp eax,[anz] ;ebx
|
|
jl for_i_0_to_anz
|
|
;----------------
|
|
|
|
;mov [rendered_quads],dword 0 ; debugging...
|
|
|
|
; For i2=10000 To 0 Step -1 ; reading quads in z-order from far to near
|
|
mov eax,40000
|
|
mov ebx,0
|
|
for_i_0_to_10000:
|
|
|
|
|
|
; i=zbuffer(i2)
|
|
mov edx,eax
|
|
add edx,zbuffer
|
|
mov ecx,[edx] ; i...
|
|
|
|
; If i>-1 And i< anz-2 ; if it isn't -1 then it's a Quad Point 1 ID
|
|
cmp ecx,1000000
|
|
je is_empty_slot
|
|
|
|
;inc dword[rendered_quads] ; used for debugging
|
|
|
|
; ;***Mapping***
|
|
|
|
; ;GetPolygonPoints(i)
|
|
; ;FindSmallLargeY()
|
|
|
|
mov [ilocal],ecx
|
|
call get_polygon_points
|
|
call find_small_large_y
|
|
|
|
; X1% = Polypoints%(0, 0)
|
|
mov edi,[polypoints]
|
|
mov [x1],edi
|
|
; Y1% = Polypoints%(0, 1)
|
|
mov edi,[polypoints+4]
|
|
mov [y1],edi
|
|
; X2% = Polypoints%(1, 0)
|
|
mov edi,[polypoints+8]
|
|
mov [x2],edi
|
|
; Y2% = Polypoints%(1, 1)
|
|
mov edi,[polypoints+12]
|
|
mov [y2],edi
|
|
|
|
; ScanConvert(X1%, Y1%, X2%, Y2%, 1) ;scan top of picture
|
|
mov [pside],dword 1
|
|
call scan_convert
|
|
|
|
; X1% = Polypoints%(1, 0)
|
|
mov edi,[polypoints+8]
|
|
mov [x1],edi
|
|
; Y1% = Polypoints%(1, 1)
|
|
mov edi,[polypoints+12]
|
|
mov [y1],edi
|
|
; X2% = Polypoints%(2, 0)
|
|
mov edi,[polypoints+16]
|
|
mov [x2],edi
|
|
; Y2% = Polypoints%(2, 1)
|
|
mov edi,[polypoints+20]
|
|
mov [y2],edi
|
|
|
|
; ScanConvert(X1%, Y1%, X2%, Y2%, 2) ;scan Right of picture
|
|
mov [pside],dword 2
|
|
call scan_convert
|
|
|
|
; X1% = Polypoints%(2, 0)
|
|
mov edi,[polypoints+16]
|
|
mov [x1],edi
|
|
; Y1% = Polypoints%(2, 1)
|
|
mov edi,[polypoints+20]
|
|
mov [y1],edi
|
|
; X2% = Polypoints%(3, 0)
|
|
mov edi,[polypoints+24]
|
|
mov [x2],edi
|
|
; Y2% = Polypoints%(3, 1)
|
|
mov edi,[polypoints+28]
|
|
mov [y2],edi
|
|
|
|
; ScanConvert(X1%, Y1%, X2%, Y2%, 3) ;scan bottom of picture
|
|
mov [pside],dword 3
|
|
call scan_convert
|
|
|
|
; X1% = Polypoints%(3, 0)
|
|
mov edi,[polypoints+24]
|
|
mov [x1],edi
|
|
; Y1% = Polypoints%(3, 1)
|
|
mov edi,[polypoints+28]
|
|
mov [y1],edi
|
|
; X2% = Polypoints%(0, 0)
|
|
mov edi,[polypoints]
|
|
mov [x2],edi
|
|
; Y2% = Polypoints%(0, 1)
|
|
mov edi,[polypoints+4]
|
|
mov [y2],edi
|
|
|
|
; ScanConvert(X1%, Y1%, X2%, Y2%, 4) ;scan Left of picture
|
|
mov [pside],dword 4
|
|
call scan_convert
|
|
|
|
; TextureMap()
|
|
call texture_map
|
|
|
|
; EndIf
|
|
is_empty_slot:
|
|
|
|
; Next
|
|
sub eax,4
|
|
cmp eax,0 ;ebx
|
|
jge for_i_0_to_10000
|
|
|
|
;Wend
|
|
ret
|
|
|
|
;End
|
|
|
|
|
|
|
|
|
|
; ---------------------------------------------------------------------
|
|
|
|
get_sinus:
|
|
imul eax,4 ; expects degree*10
|
|
add eax,sinus
|
|
ret
|
|
|
|
get_cosinus:
|
|
imul eax,4 ; expects degree*10
|
|
add eax,sinus
|
|
add eax,10804
|
|
cmp eax,eosinus
|
|
jl ok3600sub
|
|
sub eax,14400
|
|
ok3600sub:
|
|
ret
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;; ------------------ texture mapping functions-----------------------------
|
|
|
|
;Function GetPolygonPoints(ilocal%) ; initially read in a rectangle
|
|
get_polygon_points:
|
|
pusha
|
|
; For Count% = 0 To 3
|
|
; Polypoints%(Count%, 0) = xw(ilocal%+Count%)
|
|
; Polypoints%(Count%, 1) = yw(ilocal%+Count%)
|
|
; Next
|
|
mov eax,0
|
|
; ---
|
|
count_0_3:
|
|
|
|
mov ebx,eax
|
|
imul ebx,8 ; count
|
|
add ebx,polypoints ; desti adr
|
|
mov ecx,eax
|
|
add ecx,[ilocal]
|
|
imul ecx,4
|
|
add ecx,a_xw ; src adr
|
|
mov edx,[ecx]
|
|
mov [ebx],edx
|
|
; ----
|
|
add ebx,4 ; desti 2
|
|
mov ecx,eax
|
|
add ecx,[ilocal]
|
|
imul ecx,4
|
|
add ecx,a_yw ; src 2
|
|
mov edx,[ecx]
|
|
mov [ebx],edx
|
|
; ----
|
|
inc eax
|
|
cmp eax,4
|
|
jl count_0_3
|
|
|
|
;End Function
|
|
popa
|
|
ret
|
|
|
|
; -------------------------------------------------------------------------
|
|
|
|
;Function FindSmallLargeY()
|
|
find_small_large_y:
|
|
pusha
|
|
; For Count% = 0 To 3
|
|
mov eax,0
|
|
for03b:
|
|
|
|
; Ycoord% = Polypoints%(Count%, 1)
|
|
mov ebx,eax
|
|
imul ebx,8
|
|
add ebx,4
|
|
add ebx,polypoints
|
|
mov ecx,[ebx]
|
|
|
|
; If Ycoord% < Miny% Then ; is this the New lowest y co-ord?
|
|
; Miny% = Ycoord% ; Yes...
|
|
; End If
|
|
cmp ecx,[miny]
|
|
jge isge0
|
|
mov [miny],ecx
|
|
isge0:
|
|
|
|
; If Ycoord% > Maxy% Then ; is this the New highest y co-ord?
|
|
; Maxy% = Ycoord% ; Yes...
|
|
; End If
|
|
cmp ecx,[maxy]
|
|
jle isge1
|
|
mov [maxy],ecx
|
|
isge1:
|
|
|
|
; Next
|
|
inc eax
|
|
cmp eax,4
|
|
jl for03b
|
|
|
|
;End Function
|
|
popa
|
|
ret
|
|
|
|
; -------------------------------------------------------------------------
|
|
|
|
|
|
;Function ScanConvert (X1%, Y1%, X2%, Y2%, Pside)
|
|
scan_convert:
|
|
pusha
|
|
; If Y2% < Y1% Then
|
|
mov eax,[y1]
|
|
mov ebx,[y2]
|
|
cmp eax,ebx
|
|
jl l_else0
|
|
|
|
; temp%=X1% : X1%=X2% : X2%=temp%
|
|
; temp%=Y1% : Y1%=Y2% : Y2%=temp%
|
|
; Lineheight% = (Y2% - Y1%)
|
|
; ScanLeftSide(X1%, X2%, Y1%, Lineheight%, Pside)
|
|
mov [y1],ebx ; swap y,x
|
|
mov [y2],eax
|
|
mov eax,[x1]
|
|
mov ebx,[x2]
|
|
mov [x1],ebx
|
|
mov [x2],eax
|
|
mov eax,[y1]
|
|
mov ebx,[y2]
|
|
; eo swap
|
|
sub ebx,eax
|
|
mov [lineheight],ebx
|
|
call scan_left_side
|
|
jmp l_endif0
|
|
|
|
; Else
|
|
l_else0:
|
|
|
|
; Lineheight% = (Y2% - Y1%)
|
|
; ScanRightSide(X1%, X2%, Y1%, Lineheight%, Pside)
|
|
sub ebx,eax
|
|
mov [lineheight],ebx
|
|
call scan_right_side
|
|
|
|
; End If
|
|
l_endif0:
|
|
;End Function
|
|
popa
|
|
ret
|
|
; -------------------------------------------------------------------------
|
|
|
|
|
|
;Function ScanLeftSide (X1%, X2%, Ytop%, Lineheight%, Pside)
|
|
scan_left_side:
|
|
pusha
|
|
|
|
mov eax,[y1]
|
|
mov [ytop],eax
|
|
|
|
; Lineheight% = Lineheight% + 1 ; prevent divide by zero
|
|
inc dword[lineheight]
|
|
; Xadd = (X2% - X1%) Shl 16
|
|
mov edi,[x2]
|
|
sub edi,[x1]
|
|
sal edi,16
|
|
|
|
; Xadd = Xadd / Lineheight%
|
|
mov eax,edi ; whole
|
|
cdq
|
|
mov ebx,[lineheight] ; divisor
|
|
; or ebx,1
|
|
idiv ebx ; result now in eax
|
|
mov [v_xadd],eax
|
|
|
|
; ------------
|
|
; If Pside = 1 Then
|
|
cmp [pside],dword 1
|
|
jne psidenot10
|
|
|
|
; Px = Pwidth% - 1
|
|
; Py = 0
|
|
mov edi,[pwidth]
|
|
mov esi,edi
|
|
sub esi,1
|
|
mov [px],esi
|
|
mov [py],dword 0
|
|
; Pxadd = -Pwidth% / Lineheight%
|
|
; Pyadd = 0
|
|
mov eax,0
|
|
sub eax,[pwidth]
|
|
cdq
|
|
mov ebx,[lineheight] ; divisor
|
|
;or ebx,1
|
|
idiv ebx ; result now in eax
|
|
mov [pxadd],eax
|
|
mov [pyadd],dword 0
|
|
; End If
|
|
psidenot10:
|
|
|
|
; ------------
|
|
; If Pside = 2 Then
|
|
cmp [pside],dword 2
|
|
jne psidenot20
|
|
|
|
; Px = Pwidth%
|
|
; Py = Pheight%
|
|
mov edi,[pwidth]
|
|
mov esi,[pheight]
|
|
mov [px],edi
|
|
mov [py],esi
|
|
; Pxadd = 0
|
|
; Pyadd = -Pheight% / Lineheight%
|
|
mov [pxadd],dword 0
|
|
mov eax,0
|
|
sub eax,[pheight]
|
|
cdq
|
|
mov ebx,[lineheight] ; divisor
|
|
;or ebx,1
|
|
idiv ebx ; result now in eax
|
|
mov [pyadd],eax
|
|
; End If
|
|
psidenot20:
|
|
|
|
; ------------
|
|
; If Pside = 3 Then
|
|
cmp [pside],dword 3
|
|
jne psidenot30
|
|
; Px = 0
|
|
; Py = Pheight%
|
|
mov [px],dword 0
|
|
mov edi,[pheight]
|
|
mov [py],edi
|
|
; Pxadd = Pwidth% / Lineheight%
|
|
; Pyadd = 0
|
|
mov eax,[pwidth]
|
|
cdq
|
|
mov ebx,[lineheight] ; divisor
|
|
;or ebx,1
|
|
idiv ebx ; result now in eax
|
|
mov [pxadd],eax
|
|
mov [pyadd],dword 0
|
|
; End If
|
|
psidenot30:
|
|
|
|
; ------------
|
|
; If Pside = 4 Then
|
|
cmp [pside],dword 4
|
|
jne psidenot40 ; jne
|
|
; Px = 0
|
|
; Py = 0
|
|
mov [px],dword 0
|
|
mov [py],dword 0
|
|
; Pxadd = 0
|
|
; Pyadd = Pheight% / Lineheight%
|
|
mov [pxadd],dword 0
|
|
mov eax,[pheight]
|
|
cdq
|
|
mov ebx,[lineheight] ; divisor
|
|
;or ebx,1
|
|
idiv ebx
|
|
mov [pyadd],eax
|
|
; End If
|
|
psidenot40:
|
|
; ------------
|
|
; x = X1% Shl 16
|
|
mov edx,[x1] ; used for x
|
|
mov edi,[px] ; used for px
|
|
mov esi,[py] ; used for py
|
|
sal edx,16
|
|
;mov [x],edx
|
|
;------
|
|
; For y% = 0 To Lineheight%
|
|
mov eax,0
|
|
for0lineheight0:
|
|
|
|
; Ytopy%=Ytop%+y%
|
|
mov ebx,[ytop]
|
|
mov [ytopy],ebx
|
|
add [ytopy],eax
|
|
|
|
; If Ytopy%<0 Then Ytopy%=0 ; prevent read pre array
|
|
cmp [ytopy], dword 0
|
|
jge isnot00
|
|
mov [ytopy],dword 0
|
|
isnot00:
|
|
|
|
; Lefttable(Ytopy%, 0) = x Sar 16 ;polygon x
|
|
mov ecx,[ytopy]
|
|
imul ecx,16
|
|
add ecx,lefttable
|
|
mov [ecx],edx
|
|
sar dword[ecx],16
|
|
|
|
; Lefttable(Ytopy%, 1) = Px ;picture x
|
|
add ecx,4
|
|
mov [ecx],edi
|
|
|
|
; Lefttable(Ytopy%, 2) = Py ;picture y
|
|
add ecx,4
|
|
mov [ecx],esi
|
|
|
|
; x = x + Xadd ;Next polygon x
|
|
; Px = Px + Pxadd ;Next picture x
|
|
; Py = Py + Pyadd ;Next picture y
|
|
add edx,[v_xadd]
|
|
add edi,[pxadd]
|
|
add esi,[pyadd]
|
|
|
|
;------
|
|
; Next
|
|
inc eax
|
|
cmp eax,[lineheight]
|
|
jl for0lineheight0
|
|
|
|
|
|
;End Function
|
|
popa
|
|
ret
|
|
|
|
; -------------------------------------------------------------------------
|
|
|
|
; -------------------------------------------------------------------------
|
|
|
|
;Function ScanRightSide (X1%, X2%, Ytop%, Lineheight%, Pside)
|
|
scan_right_side:
|
|
pusha
|
|
mov eax,[y1]
|
|
mov [ytop],eax
|
|
|
|
; Lineheight% = Lineheight% + 1 ; prevent divide by zero
|
|
inc dword[lineheight]
|
|
|
|
; Xadd = (X2% - X1%) Shl 16
|
|
mov edi,[x2]
|
|
sub edi,[x1]
|
|
sal edi,16
|
|
; Xadd = Xadd / Lineheight%
|
|
mov eax,edi ; whole
|
|
cdq
|
|
mov ebx,[lineheight] ; divisor
|
|
;or ebx,1
|
|
idiv ebx ; result now in eax
|
|
mov [v_xadd],eax
|
|
|
|
|
|
|
|
; ------------
|
|
; If Pside = 1 Then
|
|
cmp [pside],dword 1
|
|
jne psidenot11
|
|
; Px = 0
|
|
; Py = 0
|
|
mov [px],dword 0
|
|
mov [py],dword 0
|
|
; Pxadd = Pwidth% / Lineheight%
|
|
; Pyadd = 0
|
|
mov eax,[pwidth]
|
|
cdq
|
|
mov ebx,[lineheight] ; divisor
|
|
;or ebx,1
|
|
idiv ebx ; result now in eax
|
|
mov [pxadd],eax
|
|
mov [pyadd],dword 0
|
|
; End If
|
|
psidenot11:
|
|
; ------------
|
|
|
|
; If Pside = 2 Then
|
|
cmp [pside],dword 2
|
|
jne psidenot21
|
|
; Px = Pwidth%
|
|
; Py = 0
|
|
mov edi,[pwidth]
|
|
mov [px],edi
|
|
mov [py],dword 0
|
|
; Pxadd = 0
|
|
; Pyadd = Pheight% / Lineheight%
|
|
mov [pxadd],dword 0
|
|
mov eax,[pheight]
|
|
cdq
|
|
mov ebx,[lineheight] ; divisor
|
|
;or ebx,1
|
|
idiv ebx ; result now in eax
|
|
mov [pyadd],eax
|
|
; End If
|
|
psidenot21:
|
|
; ------------
|
|
|
|
; If Pside = 3 Then
|
|
cmp [pside],dword 3
|
|
jne psidenot31
|
|
; Px = Pwidth%
|
|
; Py = Pheight%
|
|
mov edi,[pwidth]
|
|
mov [px],edi
|
|
mov esi,[pheight]
|
|
mov [py],esi
|
|
; Pxadd = -Pwidth% / Lineheight%
|
|
; Pyadd = 0
|
|
mov eax,0
|
|
sub eax,[pwidth]
|
|
cdq
|
|
mov ebx,[lineheight] ; divisor
|
|
;or ebx,3 ; prevent div 0
|
|
idiv ebx ; result now in eax
|
|
mov [pxadd],eax
|
|
mov [pyadd],dword 0
|
|
; End If
|
|
psidenot31:
|
|
|
|
; ------------
|
|
; If Pside = 4 Then
|
|
cmp [pside],dword 4
|
|
jne psidenot41 ; jne
|
|
; Px = 0
|
|
; Py = Pheight%
|
|
mov [px],dword 0
|
|
mov esi,[pheight]
|
|
mov [py],esi
|
|
; Pxadd = 0
|
|
; Pyadd = -Pheight% / Lineheight%
|
|
mov [pxadd],dword 0
|
|
mov eax,0
|
|
sub eax,[pheight]
|
|
cdq
|
|
mov ebx,[lineheight] ; divisor
|
|
;or ebx,1
|
|
idiv ebx
|
|
mov [pyadd],eax
|
|
; End If
|
|
psidenot41:
|
|
push edx
|
|
push edi
|
|
push esi
|
|
; ------------
|
|
; x = X1% Shl 16
|
|
mov edx,[x1] ; used for x
|
|
mov edi,[px] ; used for px
|
|
mov esi,[py] ; used for py
|
|
sal edx,16
|
|
|
|
cmp [lineheight],dword 100 ; lineheight is up to 33 mio ???
|
|
jle okok
|
|
mov eax,[lineheight]
|
|
mov [wonder+4],eax
|
|
okok:
|
|
|
|
;------
|
|
; For y% = 0 To Lineheight%
|
|
mov eax,0
|
|
for0lineheight1b:
|
|
; Ytopy%=Ytop%+y%
|
|
mov ebx,[ytop]
|
|
mov [ytopy],ebx
|
|
add [ytopy],eax
|
|
|
|
; If Ytopy%<0 Then Ytopy%=0 ; prevent read pre array
|
|
cmp [ytopy], dword 0
|
|
jg isnot01
|
|
mov [ytopy],dword 0
|
|
isnot01:
|
|
; righttable(Ytopy%, 0) = x Sar 16 ;polygon x
|
|
mov ecx,[ytopy]
|
|
imul ecx,16
|
|
add ecx,righttable
|
|
mov [ecx],edx
|
|
sar dword[ecx],16
|
|
|
|
; righttable(Ytopy%, 1) = Px ;picture x
|
|
add ecx,4
|
|
mov [ecx],edi
|
|
; righttable(Ytopy%, 2) = Py ;picture y
|
|
add ecx,4
|
|
mov [ecx],esi
|
|
; x = x + Xadd ;Next polygon x
|
|
; Px = Px + Pxadd ;Next picture x
|
|
; Py = Py + Pyadd ;Next picture y
|
|
add edx,[v_xadd]
|
|
add edi,[pxadd]
|
|
add esi,[pyadd]
|
|
;------
|
|
; Next
|
|
inc eax
|
|
cmp eax,[lineheight]
|
|
jl for0lineheight1b
|
|
dbg2:
|
|
pop esi
|
|
pop edi
|
|
pop edx
|
|
|
|
;End Function
|
|
popa
|
|
ret
|
|
|
|
|
|
; -------------------------------------------------------------------------
|
|
|
|
; well I'm shure the following Sub CAN and SHOULD be optimized a LOT.
|
|
|
|
|
|
;Function TextureMap()
|
|
texture_map:
|
|
pusha
|
|
|
|
; For y% = Miny% To Maxy%
|
|
mov eax,[miny]
|
|
for_miny_maxy:
|
|
|
|
; If y>0 And y<=239
|
|
cmp eax,0
|
|
jle clipy
|
|
cmp eax,239
|
|
jg clipy
|
|
|
|
mov [y],eax
|
|
|
|
; Polyx1% = Lefttable((y%), 0)
|
|
mov ebx,eax
|
|
sal ebx,4
|
|
add ebx,lefttable
|
|
mov ecx,[ebx]
|
|
mov [polyx1],ecx
|
|
; Px1 = Lefttable(y%, 1)
|
|
add ebx,4
|
|
mov ecx,[ebx]
|
|
mov [px1],ecx
|
|
; Py1 = Lefttable(y%, 2)
|
|
add ebx,4
|
|
mov ecx,[ebx]
|
|
mov [py1],ecx
|
|
|
|
|
|
; Polyx2% = Righttable((y%), 0)
|
|
mov ebx,eax
|
|
sal ebx,4
|
|
add ebx,righttable
|
|
mov ecx,[ebx]
|
|
mov [polyx2],ecx
|
|
; Px2 = Righttable(y%, 1)
|
|
add ebx,4
|
|
mov ecx,[ebx]
|
|
mov [px2],ecx
|
|
; Py2 = Righttable(y%, 2)
|
|
add ebx,4
|
|
mov ecx,[ebx]
|
|
mov [py2],ecx
|
|
|
|
|
|
; Linewidth% = Polyx2% - Polyx1%
|
|
mov ecx,[polyx2]
|
|
sub ecx,[polyx1]
|
|
|
|
; Linewidth%=Linewidth% Or 1
|
|
or ecx,1
|
|
mov [linewidth],ecx
|
|
|
|
; Pxadd = ((Px2 - Px1)) / Linewidth%
|
|
mov eax,[px2]
|
|
sub eax,[px1]
|
|
cdq
|
|
mov ebx,[linewidth] ; divisor
|
|
or ebx,1
|
|
idiv ebx ; should be idiv ... probs
|
|
mov [pxadd],eax
|
|
|
|
; Pyadd = ((Py2 - Py1)) / Linewidth%
|
|
mov eax,[py2]
|
|
sub eax,[py1]
|
|
cdq
|
|
mov ebx,[linewidth] ; divisor
|
|
or ebx,1
|
|
idiv ebx ; should be idiv ...probs
|
|
mov [pyadd],eax
|
|
|
|
mov edi,[px1]
|
|
mov esi,[py1]
|
|
|
|
|
|
; For x% = Polyx1% To Polyx2%
|
|
mov eax,[polyx1]
|
|
cmp eax,[polyx2]
|
|
jge clipxfully
|
|
for_polyx1_polyx2:
|
|
|
|
; If x>0 And x<=319
|
|
cmp eax,0
|
|
jl clipx
|
|
cmp eax,319
|
|
jg clipx
|
|
|
|
; Col%=ReadPixelFast((Px1 Shr 16),(Py1 Shr 16),imgtxt)
|
|
|
|
mov ebx,edi
|
|
sar ebx,16 ; is eq (px1 shr 16)*64
|
|
and ebx,63
|
|
sal ebx,2 ; is x
|
|
|
|
mov ecx,esi
|
|
sar ecx,16
|
|
and ecx,63
|
|
sal ecx,8 ; y
|
|
add ecx,ebx
|
|
add ecx,tex1 ; adr of texturepixel now in ecx
|
|
|
|
mov edx,[ecx]; rgb now in edx
|
|
|
|
; WritePixelFast x%,y%,Col%
|
|
mov ebx,[y]
|
|
mov [tempdiv],ebx
|
|
shl dword [tempdiv],6
|
|
shl ebx,10
|
|
sub ebx,[tempdiv]
|
|
;this was imul ebx,960 ; *1024 - *64
|
|
add ebx,eax
|
|
add ebx,eax
|
|
add ebx,eax
|
|
add ebx,0x80000
|
|
or [ebx],edx
|
|
; EndIf
|
|
clipx:
|
|
|
|
; Px1 = Px1 + Pxadd
|
|
; Py1 = Py1 + Pyadd
|
|
add edi,dword [pxadd]
|
|
add esi,dword [pyadd]
|
|
|
|
; Next x
|
|
inc eax
|
|
cmp eax,[polyx2]
|
|
jl for_polyx1_polyx2
|
|
clipxfully:
|
|
mov eax,[y]
|
|
|
|
; EndIf
|
|
clipy:
|
|
; Next y
|
|
inc eax
|
|
cmp eax,[maxy]
|
|
jl for_miny_maxy
|
|
|
|
;End Function
|
|
|
|
|
|
popa
|
|
ret
|
|
; -------------------------------------------------------------------------
|
|
|
|
|
|
|
|
put_screen:
|
|
pusha
|
|
mov eax,7
|
|
mov ebx,0x80000
|
|
mov ecx,IMAGE_W*65536+IMAGE_H
|
|
mov edx,0
|
|
int 0x40
|
|
popa
|
|
ret
|
|
|
|
|
|
clear_screen:
|
|
push ebx
|
|
mov ebx,0x80000
|
|
cls:
|
|
mov [ebx],dword 0
|
|
add ebx,4
|
|
cmp ebx,0x80000+(IMAGE_W*IMAGE_H*3)
|
|
jl cls
|
|
pop ebx
|
|
ret
|
|
|
|
; -------------------------------------------------------------------------
|
|
|
|
; DATA AREA
|
|
|
|
|
|
; cube.inc includes the mesh 3D Data, in this case a simple cube. Any Model
|
|
; is theoreticly possible. Check the File, the Format is trivial.
|
|
; The Quads should not intersect for a bearable z-sorting. The Quads must be
|
|
; clockwise.
|
|
|
|
include "cube.inc"
|
|
|
|
;;------------------------------
|
|
|
|
grid: ; 32*32 Blocks, Map: 0 = Air, 1 to 5 = Wall
|
|
; this is a relict from an other program. I leave it here to keep
|
|
; the Navigation Subs compatible (planning to recycle them)
|
|
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
|
|
|
|
sinus:
|
|
dd 0,11,22,34,45,57,68,80,91,102
|
|
dd 114,125,137,148,160,171,182,194,205,217
|
|
dd 228,240,251,263,274,285,297,308,320,331
|
|
dd 342,354,365,377,388,400,411,422,434,445
|
|
dd 457,468,479,491,502,514,525,536,548,559
|
|
dd 571,582,593,605,616,628,639,650,662,673
|
|
dd 685,696,707,719,730,741,753,764,775,787
|
|
dd 798,810,821,832,844,855,866,878,889,900
|
|
dd 912,923,934,946,957,968,979,991,1002,1013
|
|
dd 1025,1036,1047,1059,1070,1081,1092,1104,1115,1126
|
|
dd 1138,1149,1160,1171,1183,1194,1205,1216,1228,1239
|
|
dd 1250,1261,1272,1284,1295,1306,1317,1328,1340,1351
|
|
dd 1362,1373,1384,1396,1407,1418,1429,1440,1451,1463
|
|
dd 1474,1485,1496,1507,1518,1529,1541,1552,1563,1574
|
|
dd 1585,1596,1607,1618,1629,1640,1651,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,1926,1937,1948,1959,1970,1981,1992,2003,2014
|
|
dd 2025,2036,2046,2057,2068,2079,2090,2101,2111,2122
|
|
dd 2133,2144,2155,2166,2176,2187,2198,2209,2219,2230
|
|
dd 2241,2252,2262,2273,2284,2295,2305,2316,2327,2337
|
|
dd 2348,2359,2369,2380,2391,2401,2412,2423,2433,2444
|
|
dd 2454,2465,2476,2486,2497,2507,2518,2529,2539,2550
|
|
dd 2560,2571,2581,2592,2602,2613,2623,2634,2644,2655
|
|
dd 2665,2675,2686,2696,2707,2717,2728,2738,2748,2759
|
|
dd 2769,2779,2790,2800,2811,2821,2831,2841,2852,2862
|
|
dd 2872,2883,2893,2903,2913,2924,2934,2944,2954,2965
|
|
dd 2975,2985,2995,3005,3015,3026,3036,3046,3056,3066
|
|
dd 3076,3086,3096,3106,3117,3127,3137,3147,3157,3167
|
|
dd 3177,3187,3197,3207,3217,3227,3237,3246,3256,3266
|
|
dd 3276,3286,3296,3306,3316,3326,3336,3345,3355,3365
|
|
dd 3375,3385,3394,3404,3414,3424,3433,3443,3453,3463
|
|
dd 3472,3482,3492,3501,3511,3521,3530,3540,3550,3559
|
|
dd 3569,3578,3588,3598,3607,3617,3626,3636,3645,3655
|
|
dd 3664,3674,3683,3693,3702,3711,3721,3730,3740,3749
|
|
dd 3758,3768,3777,3786,3796,3805,3814,3824,3833,3842
|
|
dd 3852,3861,3870,3879,3888,3898,3907,3916,3925,3934
|
|
dd 3943,3953,3962,3971,3980,3989,3998,4007,4016,4025
|
|
dd 4034,4043,4052,4061,4070,4079,4088,4097,4106,4115
|
|
dd 4124,4133,4142,4150,4159,4168,4177,4186,4194,4203
|
|
dd 4212,4221,4230,4238,4247,4256,4264,4273,4282,4290
|
|
dd 4299,4308,4316,4325,4333,4342,4351,4359,4368,4376
|
|
dd 4385,4393,4402,4410,4419,4427,4435,4444,4452,4461
|
|
dd 4469,4477,4486,4494,4502,4511,4519,4527,4535,4544
|
|
dd 4552,4560,4568,4577,4585,4593,4601,4609,4617,4625
|
|
dd 4634,4642,4650,4658,4666,4674,4682,4690,4698,4706
|
|
dd 4714,4722,4730,4737,4745,4753,4761,4769,4777,4785
|
|
dd 4792,4800,4808,4816,4824,4831,4839,4847,4854,4862
|
|
dd 4870,4877,4885,4893,4900,4908,4915,4923,4930,4938
|
|
dd 4945,4953,4960,4968,4975,4983,4990,4998,5005,5012
|
|
dd 5020,5027,5034,5042,5049,5056,5064,5071,5078,5085
|
|
dd 5093,5100,5107,5114,5121,5128,5135,5143,5150,5157
|
|
dd 5164,5171,5178,5185,5192,5199,5206,5213,5220,5226
|
|
dd 5233,5240,5247,5254,5261,5268,5274,5281,5288,5295
|
|
dd 5301,5308,5315,5321,5328,5335,5341,5348,5355,5361
|
|
dd 5368,5374,5381,5387,5394,5400,5407,5413,5420,5426
|
|
dd 5433,5439,5445,5452,5458,5464,5471,5477,5483,5489
|
|
dd 5496,5502,5508,5514,5521,5527,5533,5539,5545,5551
|
|
dd 5557,5563,5569,5575,5581,5587,5593,5599,5605,5611
|
|
dd 5617,5623,5629,5635,5640,5646,5652,5658,5664,5669
|
|
dd 5675,5681,5686,5692,5698,5703,5709,5715,5720,5726
|
|
dd 5731,5737,5742,5748,5753,5759,5764,5770,5775,5781
|
|
dd 5786,5791,5797,5802,5807,5813,5818,5823,5828,5834
|
|
dd 5839,5844,5849,5854,5859,5864,5870,5875,5880,5885
|
|
dd 5890,5895,5900,5905,5910,5915,5920,5924,5929,5934
|
|
dd 5939,5944,5949,5953,5958,5963,5968,5972,5977,5982
|
|
dd 5986,5991,5996,6000,6005,6009,6014,6019,6023,6028
|
|
dd 6032,6036,6041,6045,6050,6054,6059,6063,6067,6072
|
|
dd 6076,6080,6084,6089,6093,6097,6101,6105,6109,6114
|
|
dd 6118,6122,6126,6130,6134,6138,6142,6146,6150,6154
|
|
dd 6158,6162,6166,6169,6173,6177,6181,6185,6188,6192
|
|
dd 6196,6200,6203,6207,6211,6214,6218,6222,6225,6229
|
|
dd 6232,6236,6239,6243,6246,6250,6253,6257,6260,6263
|
|
dd 6267,6270,6273,6277,6280,6283,6286,6290,6293,6296
|
|
dd 6299,6302,6305,6309,6312,6315,6318,6321,6324,6327
|
|
dd 6330,6333,6336,6338,6341,6344,6347,6350,6353,6356
|
|
dd 6358,6361,6364,6367,6369,6372,6375,6377,6380,6382
|
|
dd 6385,6388,6390,6393,6395,6398,6400,6403,6405,6407
|
|
dd 6410,6412,6415,6417,6419,6421,6424,6426,6428,6430
|
|
dd 6433,6435,6437,6439,6441,6443,6445,6447,6449,6451
|
|
dd 6453,6455,6457,6459,6461,6463,6465,6467,6469,6471
|
|
dd 6472,6474,6476,6478,6479,6481,6483,6484,6486,6488
|
|
dd 6489,6491,6492,6494,6495,6497,6498,6500,6501,6503
|
|
dd 6504,6506,6507,6508,6510,6511,6512,6513,6515,6516
|
|
dd 6517,6518,6519,6521,6522,6523,6524,6525,6526,6527
|
|
dd 6528,6529,6530,6531,6532,6533,6534,6535,6535,6536
|
|
dd 6537,6538,6539,6539,6540,6541,6541,6542,6543,6543
|
|
dd 6544,6545,6545,6546,6546,6547,6547,6548,6548,6549
|
|
dd 6549,6549,6550,6550,6550,6551,6551,6551,6552,6552
|
|
dd 6552,6552,6552,6553,6553,6553,6553,6553,6553,6553
|
|
dd 6553,6553,6553,6553,6553,6553,6553,6553,6552,6552
|
|
dd 6552,6552,6552,6551,6551,6551,6550,6550,6550,6549
|
|
dd 6549,6549,6548,6548,6547,6547,6546,6546,6545,6545
|
|
dd 6544,6543,6543,6542,6541,6541,6540,6539,6539,6538
|
|
dd 6537,6536,6535,6535,6534,6533,6532,6531,6530,6529
|
|
dd 6528,6527,6526,6525,6524,6523,6522,6521,6519,6518
|
|
dd 6517,6516,6515,6513,6512,6511,6510,6508,6507,6506
|
|
dd 6504,6503,6501,6500,6498,6497,6495,6494,6492,6491
|
|
dd 6489,6488,6486,6484,6483,6481,6479,6478,6476,6474
|
|
dd 6472,6471,6469,6467,6465,6463,6461,6459,6457,6455
|
|
dd 6453,6451,6449,6447,6445,6443,6441,6439,6437,6435
|
|
dd 6433,6430,6428,6426,6424,6421,6419,6417,6415,6412
|
|
dd 6410,6407,6405,6403,6400,6398,6395,6393,6390,6388
|
|
dd 6385,6382,6380,6377,6375,6372,6369,6367,6364,6361
|
|
dd 6358,6356,6353,6350,6347,6344,6341,6338,6336,6333
|
|
dd 6330,6327,6324,6321,6318,6315,6312,6309,6305,6302
|
|
dd 6299,6296,6293,6290,6286,6283,6280,6277,6273,6270
|
|
dd 6267,6263,6260,6257,6253,6250,6246,6243,6239,6236
|
|
dd 6232,6229,6225,6222,6218,6214,6211,6207,6203,6200
|
|
dd 6196,6192,6188,6185,6181,6177,6173,6169,6166,6162
|
|
dd 6158,6154,6150,6146,6142,6138,6134,6130,6126,6122
|
|
dd 6118,6114,6109,6105,6101,6097,6093,6089,6084,6080
|
|
dd 6076,6072,6067,6063,6059,6054,6050,6045,6041,6036
|
|
dd 6032,6028,6023,6019,6014,6009,6005,6000,5996,5991
|
|
dd 5986,5982,5977,5972,5968,5963,5958,5953,5949,5944
|
|
dd 5939,5934,5929,5924,5920,5915,5910,5905,5900,5895
|
|
dd 5890,5885,5880,5875,5870,5864,5859,5854,5849,5844
|
|
dd 5839,5834,5828,5823,5818,5813,5807,5802,5797,5791
|
|
dd 5786,5781,5775,5770,5764,5759,5753,5748,5742,5737
|
|
dd 5731,5726,5720,5715,5709,5703,5698,5692,5686,5681
|
|
dd 5675,5669,5664,5658,5652,5646,5640,5635,5629,5623
|
|
dd 5617,5611,5605,5599,5593,5587,5581,5575,5569,5563
|
|
dd 5557,5551,5545,5539,5533,5527,5521,5514,5508,5502
|
|
dd 5496,5489,5483,5477,5471,5464,5458,5452,5445,5439
|
|
dd 5433,5426,5420,5413,5407,5400,5394,5387,5381,5374
|
|
dd 5368,5361,5355,5348,5341,5335,5328,5321,5315,5308
|
|
dd 5301,5295,5288,5281,5274,5268,5261,5254,5247,5240
|
|
dd 5233,5226,5220,5213,5206,5199,5192,5185,5178,5171
|
|
dd 5164,5157,5150,5143,5135,5128,5121,5114,5107,5100
|
|
dd 5093,5085,5078,5071,5064,5056,5049,5042,5034,5027
|
|
dd 5020,5012,5005,4998,4990,4983,4975,4968,4960,4953
|
|
dd 4945,4938,4930,4923,4915,4908,4900,4893,4885,4877
|
|
dd 4870,4862,4854,4847,4839,4831,4824,4816,4808,4800
|
|
dd 4792,4785,4777,4769,4761,4753,4745,4737,4730,4722
|
|
dd 4714,4706,4698,4690,4682,4674,4666,4658,4650,4642
|
|
dd 4634,4625,4617,4609,4601,4593,4585,4577,4568,4560
|
|
dd 4552,4544,4535,4527,4519,4511,4502,4494,4486,4477
|
|
dd 4469,4461,4452,4444,4435,4427,4419,4410,4402,4393
|
|
dd 4385,4376,4368,4359,4351,4342,4333,4325,4316,4308
|
|
dd 4299,4290,4282,4273,4264,4256,4247,4238,4230,4221
|
|
dd 4212,4203,4194,4186,4177,4168,4159,4150,4142,4133
|
|
dd 4124,4115,4106,4097,4088,4079,4070,4061,4052,4043
|
|
dd 4034,4025,4016,4007,3998,3989,3980,3971,3962,3953
|
|
dd 3943,3934,3925,3916,3907,3898,3888,3879,3870,3861
|
|
dd 3852,3842,3833,3824,3814,3805,3796,3786,3777,3768
|
|
dd 3758,3749,3740,3730,3721,3711,3702,3693,3683,3674
|
|
dd 3664,3655,3645,3636,3626,3617,3607,3598,3588,3578
|
|
dd 3569,3559,3550,3540,3530,3521,3511,3501,3492,3482
|
|
dd 3472,3463,3453,3443,3433,3424,3414,3404,3394,3385
|
|
dd 3375,3365,3355,3345,3336,3326,3316,3306,3296,3286
|
|
dd 3276,3266,3256,3246,3237,3227,3217,3207,3197,3187
|
|
dd 3177,3167,3157,3147,3137,3127,3117,3106,3096,3086
|
|
dd 3076,3066,3056,3046,3036,3026,3015,3005,2995,2985
|
|
dd 2975,2965,2954,2944,2934,2924,2913,2903,2893,2883
|
|
dd 2872,2862,2852,2841,2831,2821,2811,2800,2790,2779
|
|
dd 2769,2759,2748,2738,2728,2717,2707,2696,2686,2675
|
|
dd 2665,2655,2644,2634,2623,2613,2602,2592,2581,2571
|
|
dd 2560,2550,2539,2529,2518,2507,2497,2486,2476,2465
|
|
dd 2454,2444,2433,2423,2412,2401,2391,2380,2369,2359
|
|
dd 2348,2337,2327,2316,2305,2295,2284,2273,2262,2252
|
|
dd 2241,2230,2219,2209,2198,2187,2176,2166,2155,2144
|
|
dd 2133,2122,2111,2101,2090,2079,2068,2057,2046,2036
|
|
dd 2025,2014,2003,1992,1981,1970,1959,1948,1937,1926
|
|
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,1651,1640,1629,1618,1607,1596
|
|
dd 1585,1574,1563,1552,1541,1529,1518,1507,1496,1485
|
|
dd 1474,1463,1451,1440,1429,1418,1407,1396,1384,1373
|
|
dd 1362,1351,1340,1328,1317,1306,1295,1284,1272,1261
|
|
dd 1250,1239,1228,1216,1205,1194,1183,1171,1160,1149
|
|
dd 1138,1126,1115,1104,1092,1081,1070,1059,1047,1036
|
|
dd 1025,1013,1002,991,979,968,957,946,934,923
|
|
dd 912,900,889,878,866,855,844,832,821,810
|
|
dd 798,787,775,764,753,741,730,719,707,696
|
|
dd 685,673,662,650,639,628,616,605,593,582
|
|
dd 571,559,548,536,525,514,502,491,479,468
|
|
dd 457,445,434,422,411,400,388,377,365,354
|
|
dd 342,331,320,308,297,285,274,263,251,240
|
|
dd 228,217,205,194,182,171,160,148,137,125
|
|
dd 114,102,91,80,68,57,45,34,22,11
|
|
dd 0,-12,-23,-35,-46,-58,-69,-81,-92,-103
|
|
dd -115,-126,-138,-149,-161,-172,-183,-195,-206,-218
|
|
dd -229,-241,-252,-264,-275,-286,-298,-309,-321,-332
|
|
dd -343,-355,-366,-378,-389,-401,-412,-423,-435,-446
|
|
dd -458,-469,-480,-492,-503,-515,-526,-537,-549,-560
|
|
dd -572,-583,-594,-606,-617,-629,-640,-651,-663,-674
|
|
dd -686,-697,-708,-720,-731,-742,-754,-765,-776,-788
|
|
dd -799,-811,-822,-833,-845,-856,-867,-879,-890,-901
|
|
dd -913,-924,-935,-947,-958,-969,-980,-992,-1003,-1014
|
|
dd -1026,-1037,-1048,-1060,-1071,-1082,-1093,-1105,-1116,-1127
|
|
dd -1139,-1150,-1161,-1172,-1184,-1195,-1206,-1217,-1229,-1240
|
|
dd -1251,-1262,-1273,-1285,-1296,-1307,-1318,-1329,-1341,-1352
|
|
dd -1363,-1374,-1385,-1397,-1408,-1419,-1430,-1441,-1452,-1464
|
|
dd -1475,-1486,-1497,-1508,-1519,-1530,-1542,-1553,-1564,-1575
|
|
dd -1586,-1597,-1608,-1619,-1630,-1641,-1652,-1664,-1675,-1686
|
|
dd -1697,-1708,-1719,-1730,-1741,-1752,-1763,-1774,-1785,-1796
|
|
dd -1807,-1818,-1829,-1840,-1851,-1862,-1873,-1884,-1895,-1906
|
|
dd -1917,-1927,-1938,-1949,-1960,-1971,-1982,-1993,-2004,-2015
|
|
dd -2026,-2037,-2047,-2058,-2069,-2080,-2091,-2102,-2112,-2123
|
|
dd -2134,-2145,-2156,-2167,-2177,-2188,-2199,-2210,-2220,-2231
|
|
dd -2242,-2253,-2263,-2274,-2285,-2296,-2306,-2317,-2328,-2338
|
|
dd -2349,-2360,-2370,-2381,-2392,-2402,-2413,-2424,-2434,-2445
|
|
dd -2455,-2466,-2477,-2487,-2498,-2508,-2519,-2530,-2540,-2551
|
|
dd -2561,-2572,-2582,-2593,-2603,-2614,-2624,-2635,-2645,-2656
|
|
dd -2666,-2676,-2687,-2697,-2708,-2718,-2729,-2739,-2749,-2760
|
|
dd -2770,-2780,-2791,-2801,-2812,-2822,-2832,-2842,-2853,-2863
|
|
dd -2873,-2884,-2894,-2904,-2914,-2925,-2935,-2945,-2955,-2966
|
|
dd -2976,-2986,-2996,-3006,-3016,-3027,-3037,-3047,-3057,-3067
|
|
dd -3077,-3087,-3097,-3107,-3118,-3128,-3138,-3148,-3158,-3168
|
|
dd -3178,-3188,-3198,-3208,-3218,-3228,-3238,-3247,-3257,-3267
|
|
dd -3277,-3287,-3297,-3307,-3317,-3327,-3337,-3346,-3356,-3366
|
|
dd -3376,-3386,-3395,-3405,-3415,-3425,-3434,-3444,-3454,-3464
|
|
dd -3473,-3483,-3493,-3502,-3512,-3522,-3531,-3541,-3551,-3560
|
|
dd -3570,-3579,-3589,-3599,-3608,-3618,-3627,-3637,-3646,-3656
|
|
dd -3665,-3675,-3684,-3694,-3703,-3712,-3722,-3731,-3741,-3750
|
|
dd -3759,-3769,-3778,-3787,-3797,-3806,-3815,-3825,-3834,-3843
|
|
dd -3853,-3862,-3871,-3880,-3889,-3899,-3908,-3917,-3926,-3935
|
|
dd -3944,-3954,-3963,-3972,-3981,-3990,-3999,-4008,-4017,-4026
|
|
dd -4035,-4044,-4053,-4062,-4071,-4080,-4089,-4098,-4107,-4116
|
|
dd -4125,-4134,-4143,-4151,-4160,-4169,-4178,-4187,-4195,-4204
|
|
dd -4213,-4222,-4231,-4239,-4248,-4257,-4265,-4274,-4283,-4291
|
|
dd -4300,-4309,-4317,-4326,-4334,-4343,-4352,-4360,-4369,-4377
|
|
dd -4386,-4394,-4403,-4411,-4420,-4428,-4436,-4445,-4453,-4462
|
|
dd -4470,-4478,-4487,-4495,-4503,-4512,-4520,-4528,-4536,-4545
|
|
dd -4553,-4561,-4569,-4578,-4586,-4594,-4602,-4610,-4618,-4626
|
|
dd -4635,-4643,-4651,-4659,-4667,-4675,-4683,-4691,-4699,-4707
|
|
dd -4715,-4723,-4731,-4738,-4746,-4754,-4762,-4770,-4778,-4786
|
|
dd -4793,-4801,-4809,-4817,-4825,-4832,-4840,-4848,-4855,-4863
|
|
dd -4871,-4878,-4886,-4894,-4901,-4909,-4916,-4924,-4931,-4939
|
|
dd -4946,-4954,-4961,-4969,-4976,-4984,-4991,-4999,-5006,-5013
|
|
dd -5021,-5028,-5035,-5043,-5050,-5057,-5065,-5072,-5079,-5086
|
|
dd -5094,-5101,-5108,-5115,-5122,-5129,-5136,-5144,-5151,-5158
|
|
dd -5165,-5172,-5179,-5186,-5193,-5200,-5207,-5214,-5221,-5227
|
|
dd -5234,-5241,-5248,-5255,-5262,-5269,-5275,-5282,-5289,-5296
|
|
dd -5302,-5309,-5316,-5322,-5329,-5336,-5342,-5349,-5356,-5362
|
|
dd -5369,-5375,-5382,-5388,-5395,-5401,-5408,-5414,-5421,-5427
|
|
dd -5434,-5440,-5446,-5453,-5459,-5465,-5472,-5478,-5484,-5490
|
|
dd -5497,-5503,-5509,-5515,-5522,-5528,-5534,-5540,-5546,-5552
|
|
dd -5558,-5564,-5570,-5576,-5582,-5588,-5594,-5600,-5606,-5612
|
|
dd -5618,-5624,-5630,-5636,-5641,-5647,-5653,-5659,-5665,-5670
|
|
dd -5676,-5682,-5687,-5693,-5699,-5704,-5710,-5716,-5721,-5727
|
|
dd -5732,-5738,-5743,-5749,-5754,-5760,-5765,-5771,-5776,-5782
|
|
dd -5787,-5792,-5798,-5803,-5808,-5814,-5819,-5824,-5829,-5835
|
|
dd -5840,-5845,-5850,-5855,-5860,-5865,-5871,-5876,-5881,-5886
|
|
dd -5891,-5896,-5901,-5906,-5911,-5916,-5921,-5925,-5930,-5935
|
|
dd -5940,-5945,-5950,-5954,-5959,-5964,-5969,-5973,-5978,-5983
|
|
dd -5987,-5992,-5997,-6001,-6006,-6010,-6015,-6020,-6024,-6029
|
|
dd -6033,-6037,-6042,-6046,-6051,-6055,-6060,-6064,-6068,-6073
|
|
dd -6077,-6081,-6085,-6090,-6094,-6098,-6102,-6106,-6110,-6115
|
|
dd -6119,-6123,-6127,-6131,-6135,-6139,-6143,-6147,-6151,-6155
|
|
dd -6159,-6163,-6167,-6170,-6174,-6178,-6182,-6186,-6189,-6193
|
|
dd -6197,-6201,-6204,-6208,-6212,-6215,-6219,-6223,-6226,-6230
|
|
dd -6233,-6237,-6240,-6244,-6247,-6251,-6254,-6258,-6261,-6264
|
|
dd -6268,-6271,-6274,-6278,-6281,-6284,-6287,-6291,-6294,-6297
|
|
dd -6300,-6303,-6306,-6310,-6313,-6316,-6319,-6322,-6325,-6328
|
|
dd -6331,-6334,-6337,-6339,-6342,-6345,-6348,-6351,-6354,-6357
|
|
dd -6359,-6362,-6365,-6368,-6370,-6373,-6376,-6378,-6381,-6383
|
|
dd -6386,-6389,-6391,-6394,-6396,-6399,-6401,-6404,-6406,-6408
|
|
dd -6411,-6413,-6416,-6418,-6420,-6422,-6425,-6427,-6429,-6431
|
|
dd -6434,-6436,-6438,-6440,-6442,-6444,-6446,-6448,-6450,-6452
|
|
dd -6454,-6456,-6458,-6460,-6462,-6464,-6466,-6468,-6470,-6472
|
|
dd -6473,-6475,-6477,-6479,-6480,-6482,-6484,-6485,-6487,-6489
|
|
dd -6490,-6492,-6493,-6495,-6496,-6498,-6499,-6501,-6502,-6504
|
|
dd -6505,-6507,-6508,-6509,-6511,-6512,-6513,-6514,-6516,-6517
|
|
dd -6518,-6519,-6520,-6522,-6523,-6524,-6525,-6526,-6527,-6528
|
|
dd -6529,-6530,-6531,-6532,-6533,-6534,-6535,-6536,-6536,-6537
|
|
dd -6538,-6539,-6540,-6540,-6541,-6542,-6542,-6543,-6544,-6544
|
|
dd -6545,-6546,-6546,-6547,-6547,-6548,-6548,-6549,-6549,-6550
|
|
dd -6550,-6550,-6551,-6551,-6551,-6552,-6552,-6552,-6553,-6553
|
|
dd -6553,-6553,-6553,-6554,-6554,-6554,-6554,-6554,-6554,-6554
|
|
dd -6554,-6554,-6554,-6554,-6554,-6554,-6554,-6554,-6553,-6553
|
|
dd -6553,-6553,-6553,-6552,-6552,-6552,-6551,-6551,-6551,-6550
|
|
dd -6550,-6550,-6549,-6549,-6548,-6548,-6547,-6547,-6546,-6546
|
|
dd -6545,-6544,-6544,-6543,-6542,-6542,-6541,-6540,-6540,-6539
|
|
dd -6538,-6537,-6536,-6536,-6535,-6534,-6533,-6532,-6531,-6530
|
|
dd -6529,-6528,-6527,-6526,-6525,-6524,-6523,-6522,-6520,-6519
|
|
dd -6518,-6517,-6516,-6514,-6513,-6512,-6511,-6509,-6508,-6507
|
|
dd -6505,-6504,-6502,-6501,-6499,-6498,-6496,-6495,-6493,-6492
|
|
dd -6490,-6489,-6487,-6485,-6484,-6482,-6480,-6479,-6477,-6475
|
|
dd -6473,-6472,-6470,-6468,-6466,-6464,-6462,-6460,-6458,-6456
|
|
dd -6454,-6452,-6450,-6448,-6446,-6444,-6442,-6440,-6438,-6436
|
|
dd -6434,-6431,-6429,-6427,-6425,-6422,-6420,-6418,-6416,-6413
|
|
dd -6411,-6408,-6406,-6404,-6401,-6399,-6396,-6394,-6391,-6389
|
|
dd -6386,-6383,-6381,-6378,-6376,-6373,-6370,-6368,-6365,-6362
|
|
dd -6359,-6357,-6354,-6351,-6348,-6345,-6342,-6339,-6337,-6334
|
|
dd -6331,-6328,-6325,-6322,-6319,-6316,-6313,-6309,-6306,-6303
|
|
dd -6300,-6297,-6294,-6291,-6287,-6284,-6281,-6278,-6274,-6271
|
|
dd -6268,-6264,-6261,-6258,-6254,-6251,-6247,-6244,-6240,-6237
|
|
dd -6233,-6230,-6226,-6223,-6219,-6215,-6212,-6208,-6204,-6201
|
|
dd -6197,-6193,-6189,-6186,-6182,-6178,-6174,-6170,-6167,-6163
|
|
dd -6159,-6155,-6151,-6147,-6143,-6139,-6135,-6131,-6127,-6123
|
|
dd -6119,-6115,-6110,-6106,-6102,-6098,-6094,-6090,-6085,-6081
|
|
dd -6077,-6073,-6068,-6064,-6060,-6055,-6051,-6046,-6042,-6037
|
|
dd -6033,-6029,-6024,-6020,-6015,-6010,-6006,-6001,-5997,-5992
|
|
dd -5987,-5983,-5978,-5973,-5969,-5964,-5959,-5954,-5950,-5945
|
|
dd -5940,-5935,-5930,-5925,-5921,-5916,-5911,-5906,-5901,-5896
|
|
dd -5891,-5886,-5881,-5876,-5871,-5865,-5860,-5855,-5850,-5845
|
|
dd -5840,-5835,-5829,-5824,-5819,-5814,-5808,-5803,-5798,-5792
|
|
dd -5787,-5782,-5776,-5771,-5765,-5760,-5754,-5749,-5743,-5738
|
|
dd -5732,-5727,-5721,-5716,-5710,-5704,-5699,-5693,-5687,-5682
|
|
dd -5676,-5670,-5665,-5659,-5653,-5647,-5641,-5636,-5630,-5624
|
|
dd -5618,-5612,-5606,-5600,-5594,-5588,-5582,-5576,-5570,-5564
|
|
dd -5558,-5552,-5546,-5540,-5534,-5528,-5522,-5515,-5509,-5503
|
|
dd -5497,-5490,-5484,-5478,-5472,-5465,-5459,-5453,-5446,-5440
|
|
dd -5434,-5427,-5421,-5414,-5408,-5401,-5395,-5388,-5382,-5375
|
|
dd -5369,-5362,-5356,-5349,-5342,-5336,-5329,-5322,-5316,-5309
|
|
dd -5302,-5296,-5289,-5282,-5275,-5269,-5262,-5255,-5248,-5241
|
|
dd -5234,-5227,-5221,-5214,-5207,-5200,-5193,-5186,-5179,-5172
|
|
dd -5165,-5158,-5151,-5144,-5136,-5129,-5122,-5115,-5108,-5101
|
|
dd -5094,-5086,-5079,-5072,-5065,-5057,-5050,-5043,-5035,-5028
|
|
dd -5021,-5013,-5006,-4999,-4991,-4984,-4976,-4969,-4961,-4954
|
|
dd -4946,-4939,-4931,-4924,-4916,-4909,-4901,-4894,-4886,-4878
|
|
dd -4871,-4863,-4855,-4848,-4840,-4832,-4825,-4817,-4809,-4801
|
|
dd -4793,-4786,-4778,-4770,-4762,-4754,-4746,-4738,-4731,-4723
|
|
dd -4715,-4707,-4699,-4691,-4683,-4675,-4667,-4659,-4651,-4643
|
|
dd -4635,-4626,-4618,-4610,-4602,-4594,-4586,-4578,-4569,-4561
|
|
dd -4553,-4545,-4536,-4528,-4520,-4512,-4503,-4495,-4487,-4478
|
|
dd -4470,-4462,-4453,-4445,-4436,-4428,-4420,-4411,-4403,-4394
|
|
dd -4386,-4377,-4369,-4360,-4352,-4343,-4334,-4326,-4317,-4309
|
|
dd -4300,-4291,-4283,-4274,-4265,-4257,-4248,-4239,-4231,-4222
|
|
dd -4213,-4204,-4195,-4187,-4178,-4169,-4160,-4151,-4143,-4134
|
|
dd -4125,-4116,-4107,-4098,-4089,-4080,-4071,-4062,-4053,-4044
|
|
dd -4035,-4026,-4017,-4008,-3999,-3990,-3981,-3972,-3963,-3954
|
|
dd -3944,-3935,-3926,-3917,-3908,-3899,-3889,-3880,-3871,-3862
|
|
dd -3853,-3843,-3834,-3825,-3815,-3806,-3797,-3787,-3778,-3769
|
|
dd -3759,-3750,-3741,-3731,-3722,-3712,-3703,-3694,-3684,-3675
|
|
dd -3665,-3656,-3646,-3637,-3627,-3618,-3608,-3599,-3589,-3579
|
|
dd -3570,-3560,-3551,-3541,-3531,-3522,-3512,-3502,-3493,-3483
|
|
dd -3473,-3464,-3454,-3444,-3434,-3425,-3415,-3405,-3395,-3386
|
|
dd -3376,-3366,-3356,-3346,-3337,-3327,-3317,-3307,-3297,-3287
|
|
dd -3277,-3267,-3257,-3247,-3238,-3228,-3218,-3208,-3198,-3188
|
|
dd -3178,-3168,-3158,-3148,-3138,-3128,-3118,-3107,-3097,-3087
|
|
dd -3077,-3067,-3057,-3047,-3037,-3027,-3016,-3006,-2996,-2986
|
|
dd -2976,-2966,-2955,-2945,-2935,-2925,-2914,-2904,-2894,-2884
|
|
dd -2873,-2863,-2853,-2842,-2832,-2822,-2812,-2801,-2791,-2780
|
|
dd -2770,-2760,-2749,-2739,-2729,-2718,-2708,-2697,-2687,-2676
|
|
dd -2666,-2656,-2645,-2635,-2624,-2614,-2603,-2593,-2582,-2572
|
|
dd -2561,-2551,-2540,-2530,-2519,-2508,-2498,-2487,-2477,-2466
|
|
dd -2455,-2445,-2434,-2424,-2413,-2402,-2392,-2381,-2370,-2360
|
|
dd -2349,-2338,-2328,-2317,-2306,-2296,-2285,-2274,-2263,-2253
|
|
dd -2242,-2231,-2220,-2210,-2199,-2188,-2177,-2167,-2156,-2145
|
|
dd -2134,-2123,-2112,-2102,-2091,-2080,-2069,-2058,-2047,-2037
|
|
dd -2026,-2015,-2004,-1993,-1982,-1971,-1960,-1949,-1938,-1927
|
|
dd -1917,-1906,-1895,-1884,-1873,-1862,-1851,-1840,-1829,-1818
|
|
dd -1807,-1796,-1785,-1774,-1763,-1752,-1741,-1730,-1719,-1708
|
|
dd -1697,-1686,-1675,-1664,-1652,-1641,-1630,-1619,-1608,-1597
|
|
dd -1586,-1575,-1564,-1553,-1542,-1530,-1519,-1508,-1497,-1486
|
|
dd -1475,-1464,-1452,-1441,-1430,-1419,-1408,-1397,-1385,-1374
|
|
dd -1363,-1352,-1341,-1329,-1318,-1307,-1296,-1285,-1273,-1262
|
|
dd -1251,-1240,-1229,-1217,-1206,-1195,-1184,-1172,-1161,-1150
|
|
dd -1139,-1127,-1116,-1105,-1093,-1082,-1071,-1060,-1048,-1037
|
|
dd -1026,-1014,-1003,-992,-980,-969,-958,-947,-935,-924
|
|
dd -913,-901,-890,-879,-867,-856,-845,-833,-822,-811
|
|
dd -799,-788,-776,-765,-754,-742,-731,-720,-708,-697
|
|
dd -686,-674,-663,-651,-640,-629,-617,-606,-594,-583
|
|
dd -572,-560,-549,-537,-526,-515,-503,-492,-480,-469
|
|
dd -458,-446,-435,-423,-412,-401,-389,-378,-366,-355
|
|
dd -343,-332,-321,-309,-298,-286,-275,-264,-252,-241
|
|
dd -229,-218,-206,-195,-183,-172,-161,-149,-138,-126
|
|
dd -115,-103,-92,-81,-69,-58,-46,-35,-23,-12
|
|
|
|
eosinus:
|
|
|
|
; misc vars for mouse / keys:
|
|
wonder:
|
|
dd 7777
|
|
dududu:
|
|
dd 0
|
|
rendered_quads:
|
|
dd 0
|
|
sorted_quads:
|
|
dd 0
|
|
vxx:
|
|
dd 0
|
|
mouseya:
|
|
dd 0
|
|
vpx:
|
|
dd 0
|
|
vpy:
|
|
dd 0
|
|
vheading:
|
|
dd 0
|
|
|
|
wtolong:
|
|
dw 0,0
|
|
|
|
; misc Engine Vars --------------------------
|
|
imgtxt:
|
|
dd 0
|
|
mousex:
|
|
dd 0
|
|
mousey:
|
|
dd 0
|
|
factor:
|
|
dd 0
|
|
i:
|
|
dd 0
|
|
miny:
|
|
dd 0
|
|
maxy:
|
|
dd 0
|
|
pwidth:
|
|
dd 0
|
|
pheight:
|
|
dd 0
|
|
;anz:
|
|
; dd 0
|
|
a:
|
|
dd 0
|
|
alpha:
|
|
dd 0
|
|
beta:
|
|
dd 0
|
|
gamma:
|
|
dd 0
|
|
zoom:
|
|
dd 0
|
|
zwmax:
|
|
dd 0
|
|
i2:
|
|
dd 0
|
|
x1:
|
|
dd 0
|
|
y1:
|
|
dd 0
|
|
x2:
|
|
dd 0
|
|
y2:
|
|
dd 0
|
|
|
|
count:
|
|
dd 0
|
|
ilocal:
|
|
dd 0
|
|
ycoord:
|
|
dd 0
|
|
pside:
|
|
dd 0
|
|
temp:
|
|
dd 0
|
|
lineheight:
|
|
dd 0
|
|
linewidth:
|
|
dd 0
|
|
v_xadd:
|
|
dd 0
|
|
pxadd:
|
|
dd 0
|
|
pyadd:
|
|
dd 0
|
|
ytop:
|
|
dd 0
|
|
ytopy:
|
|
dd 0
|
|
px:
|
|
dd 0
|
|
py:
|
|
dd 0
|
|
x:
|
|
dd 0
|
|
y:
|
|
dd 0
|
|
polyx1:
|
|
dd 0
|
|
polyx2:
|
|
dd 0
|
|
px1:
|
|
dd 0
|
|
py1:
|
|
dd 0
|
|
px2:
|
|
dd 0
|
|
py2:
|
|
dd 0
|
|
remeax:
|
|
dd 0
|
|
remebx:
|
|
dd 0
|
|
remecx:
|
|
dd 0
|
|
remedx:
|
|
dd 0
|
|
remedi:
|
|
dd 0
|
|
remesi:
|
|
dd 0
|
|
singamma:
|
|
dd 0
|
|
sinbeta:
|
|
dd 0
|
|
sinalpha:
|
|
dd 0
|
|
alphacopy:
|
|
dd 0
|
|
betacopy:
|
|
dd 0
|
|
gammacopy:
|
|
dd 0
|
|
|
|
|
|
;;fixed size arrays --------------------
|
|
lefttable:
|
|
times 1920*2 dd 0 ; 1440
|
|
righttable:
|
|
times 1920*2 dd 0
|
|
polypoints:
|
|
times 12 dd 0 ; 8
|
|
zbuffer:
|
|
times 10010 dd 0 ; 10000
|
|
|
|
; floating vars ------------------------
|
|
|
|
twohundred:
|
|
dd 200
|
|
mausy:
|
|
dd 0
|
|
|
|
xl1:
|
|
dd 0
|
|
yl1:
|
|
dd 0
|
|
zl1:
|
|
dd 0
|
|
|
|
xl2:
|
|
dd 0
|
|
yl2:
|
|
dd 0
|
|
zl2:
|
|
dd 0
|
|
|
|
xl3:
|
|
dd 0
|
|
yl3:
|
|
dd 0
|
|
zl3:
|
|
dd 0
|
|
|
|
xloc:
|
|
dd 0
|
|
yloc:
|
|
dd 0
|
|
|
|
tempdiv:
|
|
dd 0
|
|
|
|
|
|
tex1:
|
|
; the texture ( dd 0xRRGGBB,0xRRGGBB... 64*64*32 Bit)
|
|
include "wall3.inc"
|
|
|
|
|
|
labelt:
|
|
db 'MOS3DE',0
|
|
|
|
labellen:
|
|
|
|
I_END:
|
|
|
|
|
|
|
|
|