Apple-2gs-SW/GSCats
1
0
Fork 0
mirror of https://github.com/blondie7575/GSCats.git synced 2024-06-13 14:29:27 +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 lda #COMPILEDTERRAINROW*MAXTERRAINHEIGHT-3
sbc mapScrollPos sbc mapScrollPos
tay tay
ldx #MAXTERRAINHEIGHT ldx #0
clipTerrainLoop: clipTerrainLoop:
clc ; Compute buffer to for saved data clc ; Compute buffer to use for saved data
txa txa
asl asl
asl asl
adc #clippedTerrainData-4 adc #clippedTerrainData;-4
sta PARAML0 sta PARAML0
lda compiledTerrain,y lda compiledTerrain,y
@ -152,6 +152,7 @@ clipTerrainLoop:
and #$ff00 and #$ff00
ora #$004c ; jmp in low byte ora #$004c ; jmp in low byte
sta compiledTerrain,y sta compiledTerrain,y
iny iny
@ -166,8 +167,10 @@ clipTerrainLoop:
sbc #COMPILEDTERRAINROW+1 sbc #COMPILEDTERRAINROW+1
tay tay
dex inx
bne clipTerrainLoop cpx lastCompiledTerrainY
bcc clipTerrainLoop
beq clipTerrainLoop
RESTORE_AXY RESTORE_AXY
rts rts
@ -184,14 +187,14 @@ unclipTerrain:
lda #COMPILEDTERRAINROW*MAXTERRAINHEIGHT-3 lda #COMPILEDTERRAINROW*MAXTERRAINHEIGHT-3
sbc mapScrollPos sbc mapScrollPos
tay tay
ldx #MAXTERRAINHEIGHT ldx #0
unclipTerrainLoop: unclipTerrainLoop:
clc ; Compute buffer that saved data is in clc ; Compute buffer that saved data is in
txa txa
asl asl
asl asl
adc #clippedTerrainData-4 adc #clippedTerrainData;-4
sta PARAML0 sta PARAML0
lda (PARAML0) lda (PARAML0)
@ -208,8 +211,10 @@ unclipTerrainLoop:
sbc #COMPILEDTERRAINROW+1 sbc #COMPILEDTERRAINROW+1
tay tay
dex inx
bne unclipTerrainLoop cpx lastCompiledTerrainY
bcc unclipTerrainLoop
beq unclipTerrainLoop
RESTORE_AXY RESTORE_AXY
rts rts