;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-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: