Apple-2gs-SW/GSCats
1
0
Fork 0
mirror of https://github.com/blondie7575/GSCats.git synced 2024-11-05 02:08:21 +00:00
Code Issues Projects Releases Wiki Activity

Partial clipping working in merged renderer

Browse Source
This commit is contained in:
blondie7575 2018-01-21 15:41:29 -08:00
parent 82f829befc
commit 3292511ba8
2 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
gscats.2mg
View File

Binary file not shown.

23
terrain.s
View File

@ -135,14 +135,14 @@ clipTerrain:
lda #COMPILEDTERRAINROW*MAXTERRAINHEIGHT-3
sbc mapScrollPos
tay
ldx #MAXTERRAINHEIGHT
ldx #0
clipTerrainLoop:
clc ; Compute buffer to for saved data
clc ; Compute buffer to use for saved data
txa
asl
asl
adc #clippedTerrainData-4
adc #clippedTerrainData;-4
sta PARAML0
lda compiledTerrain,y
@ -152,6 +152,7 @@ clipTerrainLoop:
and #$ff00
ora #$004c ; jmp in low byte
sta compiledTerrain,y
iny
@ -166,8 +167,10 @@ clipTerrainLoop:
sbc #COMPILEDTERRAINROW+1
tay
dex
bne clipTerrainLoop
inx
cpx lastCompiledTerrainY
bcc clipTerrainLoop
beq clipTerrainLoop
RESTORE_AXY
rts
@ -184,14 +187,14 @@ unclipTerrain:
lda #COMPILEDTERRAINROW*MAXTERRAINHEIGHT-3
sbc mapScrollPos
tay
ldx #MAXTERRAINHEIGHT
ldx #0
unclipTerrainLoop:
clc ; Compute buffer that saved data is in
txa
asl
asl
adc #clippedTerrainData-4
adc #clippedTerrainData;-4
sta PARAML0
lda (PARAML0)
@ -208,8 +211,10 @@ unclipTerrainLoop:
sbc #COMPILEDTERRAINROW+1
tay
dex
bne unclipTerrainLoop
inx
cpx lastCompiledTerrainY
bcc unclipTerrainLoop
beq unclipTerrainLoop
RESTORE_AXY
rts