mirror of https://github.com/nmlgc/ReC98.git
[Reverse-engineering] [th05] Rendering and hit testing for a single laser
What the hell. Funded by zorg.
This commit is contained in:
nmlgc
parent
9d79c1413c
commit
b3c5e4dcfe
|
|
@ -0,0 +1,174 @@
|
||||||
|
; Returns the Y coordinate in AX.
|
||||||
|
|
||||||
|
; int __usercall near vector2_at_opt(int angle<cx>, int length<bx>, Point origin<ss:bp>, Point near *ret<ss:di>)
|
||||||
|
vector2_at_opt proc near
|
||||||
|
push si
|
||||||
|
mov si, cx
|
||||||
|
add si, si
|
||||||
|
movsx eax, bx
|
||||||
|
movsx edx, _CosTable8[si]
|
||||||
|
imul eax, edx
|
||||||
|
sar eax, 8
|
||||||
|
add ax, [bp+Point.x]
|
||||||
|
mov ss:[di+Point.x], ax
|
||||||
|
movsx eax, bx
|
||||||
|
movsx edx, _SinTable8[si]
|
||||||
|
imul eax, edx
|
||||||
|
sar eax, 8
|
||||||
|
add ax, [bp+Point.y]
|
||||||
|
mov ss:[di+Point.y], ax
|
||||||
|
pop si
|
||||||
|
retn
|
||||||
|
vector2_at_opt endp
|
||||||
|
|
||||||
|
|
||||||
|
; Builds a line starting at [s], with [t] being [edgelength] 1/16th pixel
|
||||||
|
; units away from [s]. [s] and [t] are returned in pixel units.
|
||||||
|
|
||||||
|
; void __usercall build_line_in_pixels(
|
||||||
|
; Point *s<ss:di> /* (inout) */,
|
||||||
|
; Point *t<ss:bx> /* (out) */,
|
||||||
|
; const Point *edgelength<ss:bp-4> /* (out) */
|
||||||
|
; )
|
||||||
|
build_line_in_pixels proc near
|
||||||
|
mov ax, [bp+size Point+Point.x]
|
||||||
|
mov dx, ss:[di+Point.x]
|
||||||
|
add ax, dx
|
||||||
|
sar ax, 4
|
||||||
|
sar dx, 4
|
||||||
|
mov ss:[bx+Point.x], ax
|
||||||
|
mov ss:[di+Point.x], dx
|
||||||
|
mov ax, [bp+size Point+Point.y]
|
||||||
|
mov dx, ss:[di+Point.y]
|
||||||
|
add ax, dx
|
||||||
|
sar ax, 4
|
||||||
|
sar dx, 4
|
||||||
|
mov ss:[bx+Point.y], ax
|
||||||
|
mov ss:[di+Point.y], dx
|
||||||
|
retn
|
||||||
|
build_line_in_pixels endp
|
||||||
|
|
||||||
|
|
||||||
|
; Returns 1 if the laser is entirely off-screen.
|
||||||
|
|
||||||
|
; int pascal laser_render_ray(laser_coords_t near *coords)
|
||||||
|
public laser_render_ray
|
||||||
|
laser_render_ray proc near
|
||||||
|
point0 = Point ptr -20h
|
||||||
|
point1 = Point ptr -1Ch
|
||||||
|
point2 = Point ptr -18h
|
||||||
|
point3 = Point ptr -14h
|
||||||
|
point4 = Point ptr -10h
|
||||||
|
point5 = Point ptr -0Ch
|
||||||
|
point6 = Point ptr -8
|
||||||
|
point7 = Point ptr -4
|
||||||
|
@@coords = word ptr 4
|
||||||
|
|
||||||
|
enter 20h, 0
|
||||||
|
push si
|
||||||
|
push di
|
||||||
|
mov si, [bp+@@coords]
|
||||||
|
mov bl, [si+laser_coords_t.LASER_width]
|
||||||
|
mov bh, 0
|
||||||
|
shl bx, 3
|
||||||
|
mov ax, [si.laser_coords_t.origin.x]
|
||||||
|
add ax, (32 shl 4) ; Translate playfield space to screen space (X)
|
||||||
|
mov [bp+point7.x], ax
|
||||||
|
mov ax, [si+laser_coords_t.origin.y]
|
||||||
|
add ax, (16 shl 4) ; Translate playfield space to screen space (Y)
|
||||||
|
mov [bp+point7.y], ax
|
||||||
|
mov cl, [si+laser_coords_t.angle]
|
||||||
|
add cl, 64
|
||||||
|
mov ch, 0
|
||||||
|
lea di, [bp+point6]
|
||||||
|
sub bp, size Point ; bp = point7
|
||||||
|
call vector2_at_opt
|
||||||
|
add cl, 128
|
||||||
|
sub di, 4 ; di = point5
|
||||||
|
call vector2_at_opt
|
||||||
|
sub [bp-(size Point)+Point.y], ax ; bp = line edge length (Y)
|
||||||
|
mov ax, [bp-(size Point * 2).Point.x]
|
||||||
|
sub [bp-(size Point)+Point.x], ax ; bp = line edge length (X)
|
||||||
|
mov cl, [si+laser_coords_t.angle]
|
||||||
|
mov bx, [si+laser_coords_t.starts_at_distance]
|
||||||
|
sub di, size Point * 5 ; di = point0
|
||||||
|
sub bp, size Point * 2 ; bp = point5
|
||||||
|
call vector2_at_opt
|
||||||
|
mov bx, [si+laser_coords_t.ends_at_distance]
|
||||||
|
add di, size Point * 3 ; di = point3
|
||||||
|
call vector2_at_opt
|
||||||
|
lea di, [bp-(size Point * 5)] ; di = point0
|
||||||
|
lea bx, [bp-(size Point * 4)] ; bx = point1
|
||||||
|
call build_line_in_pixels
|
||||||
|
add di, size Point * 3 ; di = point3
|
||||||
|
add bx, size Point ; bx = point2
|
||||||
|
call build_line_in_pixels
|
||||||
|
add bp, size Point * 3 ; bp = (what you'd actually expect it to be)
|
||||||
|
lea di, [bp+point0]
|
||||||
|
call grc_clip_polygon_n pascal, ss, di, 8, ss, di, 4
|
||||||
|
or ax, ax
|
||||||
|
jz short @@offscreen
|
||||||
|
jge short @@draw
|
||||||
|
mov ax, 4
|
||||||
|
|
||||||
|
@@draw:
|
||||||
|
call grcg_polygon_cx pascal, ss, di, ax
|
||||||
|
xor ax, ax
|
||||||
|
jmp short @@ret
|
||||||
|
|
||||||
|
@@offscreen:
|
||||||
|
mov ax, 1
|
||||||
|
|
||||||
|
@@ret:
|
||||||
|
pop di
|
||||||
|
pop si
|
||||||
|
leave
|
||||||
|
retn 2
|
||||||
|
laser_render_ray endp
|
||||||
|
|
||||||
|
|
||||||
|
; void pascal laser_hittest(laser_t near *laser);
|
||||||
|
public laser_hittest
|
||||||
|
laser_hittest proc near
|
||||||
|
testrect_center = byte ptr -4
|
||||||
|
laser = word ptr 4
|
||||||
|
|
||||||
|
enter 8, 0
|
||||||
|
push di
|
||||||
|
push si
|
||||||
|
mov di, [bp+laser]
|
||||||
|
mov bx, [di+laser_t.coords.ends_at_distance]
|
||||||
|
mov si, [di+laser_t.coords.starts_at_distance]
|
||||||
|
sub bp, size Point
|
||||||
|
mov eax, dword ptr [di+laser_t.coords.origin]
|
||||||
|
mov [bp+0], eax
|
||||||
|
mov cl, [di+laser_t.coords.angle]
|
||||||
|
xor ch, ch
|
||||||
|
lea di, [bp+testrect_center]
|
||||||
|
|
||||||
|
@@loop:
|
||||||
|
call vector2_at_opt
|
||||||
|
add ax, (6 shl 4)
|
||||||
|
sub ax, player_pos.cur.y
|
||||||
|
cmp ax, (12 shl 4)
|
||||||
|
jnb short @@testrect_move_up
|
||||||
|
mov ax, ss:[di+Point.x]
|
||||||
|
add ax, (6 shl 4)
|
||||||
|
sub ax, player_pos.cur.x
|
||||||
|
cmp ax, (12 shl 4)
|
||||||
|
jnb short @@testrect_move_up
|
||||||
|
mov _player_is_hit, 1
|
||||||
|
jmp short @@ret
|
||||||
|
|
||||||
|
@@testrect_move_up:
|
||||||
|
sub bx, (16 shl 4)
|
||||||
|
cmp bx, si
|
||||||
|
jge short @@loop
|
||||||
|
|
||||||
|
@@ret:
|
||||||
|
add bp, 4
|
||||||
|
pop si
|
||||||
|
pop di
|
||||||
|
leave
|
||||||
|
ret 2
|
||||||
|
laser_hittest endp
|
||||||
197
th05_main.asm
197
th05_main.asm
|
|
@ -8232,190 +8232,7 @@ sub_E950 proc near
|
||||||
retn
|
retn
|
||||||
sub_E950 endp
|
sub_E950 endp
|
||||||
|
|
||||||
|
include th05/laser_render_hittest.asm
|
||||||
; =============== S U B R O U T I N E =======================================
|
|
||||||
|
|
||||||
|
|
||||||
vector2_at_opt proc near
|
|
||||||
push si
|
|
||||||
mov si, cx
|
|
||||||
add si, si
|
|
||||||
movsx eax, bx
|
|
||||||
movsx edx, _CosTable8[si]
|
|
||||||
imul eax, edx
|
|
||||||
sar eax, 8
|
|
||||||
add ax, [bp+0]
|
|
||||||
mov ss:[di], ax
|
|
||||||
movsx eax, bx
|
|
||||||
movsx edx, _SinTable8[si]
|
|
||||||
imul eax, edx
|
|
||||||
sar eax, 8
|
|
||||||
add ax, [bp+2]
|
|
||||||
mov ss:[di+2], ax
|
|
||||||
pop si
|
|
||||||
retn
|
|
||||||
vector2_at_opt endp
|
|
||||||
|
|
||||||
|
|
||||||
; =============== S U B R O U T I N E =======================================
|
|
||||||
|
|
||||||
|
|
||||||
sub_E9AA proc near
|
|
||||||
mov ax, [bp+4]
|
|
||||||
mov dx, ss:[di]
|
|
||||||
add ax, dx
|
|
||||||
sar ax, 4
|
|
||||||
sar dx, 4
|
|
||||||
mov ss:[bx], ax
|
|
||||||
mov ss:[di], dx
|
|
||||||
mov ax, [bp+6]
|
|
||||||
mov dx, ss:[di+2]
|
|
||||||
add ax, dx
|
|
||||||
sar ax, 4
|
|
||||||
sar dx, 4
|
|
||||||
mov ss:[bx+2], ax
|
|
||||||
mov ss:[di+2], dx
|
|
||||||
retn
|
|
||||||
sub_E9AA endp
|
|
||||||
|
|
||||||
|
|
||||||
; =============== S U B R O U T I N E =======================================
|
|
||||||
|
|
||||||
; Attributes: bp-based frame
|
|
||||||
|
|
||||||
sub_E9D6 proc near
|
|
||||||
|
|
||||||
var_20 = byte ptr -20h
|
|
||||||
var_14 = byte ptr -14h
|
|
||||||
var_10 = byte ptr -10h
|
|
||||||
var_8 = word ptr -8
|
|
||||||
var_4 = word ptr -4
|
|
||||||
var_2 = word ptr -2
|
|
||||||
arg_0 = word ptr 4
|
|
||||||
|
|
||||||
enter 20h, 0
|
|
||||||
push si
|
|
||||||
push di
|
|
||||||
mov si, [bp+arg_0]
|
|
||||||
mov bl, [si+9]
|
|
||||||
mov bh, 0
|
|
||||||
shl bx, 3
|
|
||||||
mov ax, [si]
|
|
||||||
add ax, 200h
|
|
||||||
mov [bp+var_4], ax
|
|
||||||
mov ax, [si+2]
|
|
||||||
add ax, 100h
|
|
||||||
mov [bp+var_2], ax
|
|
||||||
mov cl, [si+8]
|
|
||||||
add cl, 40h
|
|
||||||
mov ch, 0
|
|
||||||
lea di, [bp+var_8]
|
|
||||||
sub bp, 4
|
|
||||||
call vector2_at_opt
|
|
||||||
add cl, 80h
|
|
||||||
sub di, 4
|
|
||||||
call vector2_at_opt
|
|
||||||
sub [bp+var_2], ax
|
|
||||||
mov ax, [bp+var_8]
|
|
||||||
sub [bp+var_4], ax
|
|
||||||
mov cl, [si+8]
|
|
||||||
mov bx, [si+4]
|
|
||||||
sub di, 14h
|
|
||||||
sub bp, 8
|
|
||||||
call vector2_at_opt
|
|
||||||
mov bx, [si+6]
|
|
||||||
add di, 0Ch
|
|
||||||
call vector2_at_opt
|
|
||||||
lea di, [bp+var_14]
|
|
||||||
lea bx, [bp+var_10]
|
|
||||||
call sub_E9AA
|
|
||||||
add di, 0Ch
|
|
||||||
add bx, 4
|
|
||||||
call sub_E9AA
|
|
||||||
add bp, 0Ch
|
|
||||||
lea di, [bp+var_20]
|
|
||||||
push ss
|
|
||||||
push di
|
|
||||||
push 8
|
|
||||||
push ss
|
|
||||||
push di
|
|
||||||
push 4
|
|
||||||
call grc_clip_polygon_n
|
|
||||||
or ax, ax
|
|
||||||
jz short loc_EA6D
|
|
||||||
jge short loc_EA61
|
|
||||||
mov ax, 4
|
|
||||||
|
|
||||||
loc_EA61:
|
|
||||||
push ss
|
|
||||||
push di
|
|
||||||
push ax
|
|
||||||
call grcg_polygon_cx
|
|
||||||
xor ax, ax
|
|
||||||
jmp short loc_EA70
|
|
||||||
; ---------------------------------------------------------------------------
|
|
||||||
|
|
||||||
loc_EA6D:
|
|
||||||
mov ax, 1
|
|
||||||
|
|
||||||
loc_EA70:
|
|
||||||
pop di
|
|
||||||
pop si
|
|
||||||
leave
|
|
||||||
retn 2
|
|
||||||
sub_E9D6 endp
|
|
||||||
|
|
||||||
|
|
||||||
; =============== S U B R O U T I N E =======================================
|
|
||||||
|
|
||||||
; Attributes: bp-based frame
|
|
||||||
|
|
||||||
sub_EA76 proc near
|
|
||||||
|
|
||||||
var_4 = byte ptr -4
|
|
||||||
arg_0 = word ptr 4
|
|
||||||
|
|
||||||
enter 8, 0
|
|
||||||
push di
|
|
||||||
push si
|
|
||||||
mov di, [bp+arg_0]
|
|
||||||
mov bx, [di+8]
|
|
||||||
mov si, [di+6]
|
|
||||||
sub bp, 4
|
|
||||||
mov eax, [di+2]
|
|
||||||
mov [bp+0], eax
|
|
||||||
mov cl, [di+0Ah]
|
|
||||||
xor ch, ch
|
|
||||||
lea di, [bp+var_4]
|
|
||||||
|
|
||||||
loc_EA98:
|
|
||||||
call vector2_at_opt
|
|
||||||
add ax, 60h
|
|
||||||
sub ax, player_pos.cur.y
|
|
||||||
cmp ax, 0C0h
|
|
||||||
jnb short loc_EABD
|
|
||||||
mov ax, ss:[di]
|
|
||||||
add ax, 60h
|
|
||||||
sub ax, player_pos.cur.x
|
|
||||||
cmp ax, 0C0h
|
|
||||||
jnb short loc_EABD
|
|
||||||
mov _player_is_hit, 1
|
|
||||||
jmp short loc_EAC5
|
|
||||||
; ---------------------------------------------------------------------------
|
|
||||||
|
|
||||||
loc_EABD:
|
|
||||||
sub bx, 100h
|
|
||||||
cmp bx, si
|
|
||||||
jge short loc_EA98
|
|
||||||
|
|
||||||
loc_EAC5:
|
|
||||||
add bp, 4
|
|
||||||
pop si
|
|
||||||
pop di
|
|
||||||
leave
|
|
||||||
retn 2
|
|
||||||
sub_EA76 endp
|
|
||||||
|
|
||||||
|
|
||||||
; =============== S U B R O U T I N E =======================================
|
; =============== S U B R O U T I N E =======================================
|
||||||
|
|
||||||
|
|
@ -10471,8 +10288,7 @@ loc_FC52:
|
||||||
add [si+6], ax
|
add [si+6], ax
|
||||||
|
|
||||||
loc_FC60:
|
loc_FC60:
|
||||||
push si
|
call laser_hittest pascal, si
|
||||||
call sub_EA76
|
|
||||||
jmp loc_FD13
|
jmp loc_FD13
|
||||||
; ---------------------------------------------------------------------------
|
; ---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
@ -10502,8 +10318,7 @@ loc_FC93:
|
||||||
; ---------------------------------------------------------------------------
|
; ---------------------------------------------------------------------------
|
||||||
|
|
||||||
loc_FC9D:
|
loc_FC9D:
|
||||||
push si
|
call laser_hittest pascal, si
|
||||||
call sub_EA76
|
|
||||||
cmp word ptr [si+12h], 0
|
cmp word ptr [si+12h], 0
|
||||||
jle short loc_FD13
|
jle short loc_FD13
|
||||||
mov ax, [si+0Eh]
|
mov ax, [si+0Eh]
|
||||||
|
|
@ -10666,8 +10481,7 @@ loc_FDC2:
|
||||||
mov [bp+var_8], ax
|
mov [bp+var_8], ax
|
||||||
sub word ptr [si+8], 20h ; ' '
|
sub word ptr [si+8], 20h ; ' '
|
||||||
lea ax, [si+2]
|
lea ax, [si+2]
|
||||||
push ax
|
call laser_render_ray pascal, ax
|
||||||
call sub_E9D6
|
|
||||||
mov ax, [bp+var_8]
|
mov ax, [bp+var_8]
|
||||||
mov [si+8], ax
|
mov [si+8], ax
|
||||||
|
|
||||||
|
|
@ -10743,8 +10557,7 @@ loc_FE11:
|
||||||
|
|
||||||
loc_FE8A:
|
loc_FE8A:
|
||||||
lea ax, [si+2]
|
lea ax, [si+2]
|
||||||
push ax
|
call laser_render_ray pascal, ax
|
||||||
call sub_E9D6
|
|
||||||
or ax, ax
|
or ax, ax
|
||||||
jz loc_FF61
|
jz loc_FF61
|
||||||
mov byte ptr [si], 0
|
mov byte ptr [si], 0
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue