Apple-2gs-SW/GSCats
1
0
Fork 0
mirror of https://github.com/blondie7575/GSCats.git synced 2024-11-22 06:31:48 +00:00
Code Issues Projects Releases Wiki Activity

Basic sine wave terrain test

Browse Source
This commit is contained in:
blondie7575 2017-07-30 12:16:19 -07:00
parent b60043e4b2
commit e7f4a0b256
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
gscats.2mg
View File

Binary file not shown.

11
terrain.s
View File

@ -33,6 +33,7 @@ renderTerrainColumn:
lda terrainData,y
and #$00ff
tax
inx ; Prevent x from going negative upon entry to loop
renderTerrainColumnLoop:
dex
@ -86,9 +87,17 @@ generateTerrain:
ldy #0
lda #terrainData
sta SCRATCHL
lda #MAXTERRAINHEIGHT
generateTerrainLoop:
phy
tya ; Pull an interesting value out of the sine table
and #$00ff
tay
lda sineTable,y
and #$7f7f
ply
sta (SCRATCHL),y
iny
cpy #TERRAINWIDTH/4