6502/millfork
1
0
Fork 0
mirror of https://github.com/KarolS/millfork.git synced 2025-08-09 10:24:57 +00:00
Code Issues Projects Releases Wiki Activity

Quatari Landscape refactor

Browse Source
This commit is contained in:
zbyti
2020-09-25 11:20:16 +02:00
parent 560ed09439
commit 3364f8ab10
1 changed files with 3 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
examples/a8/landscape.mfk
View File

@@ -7,7 +7,7 @@ alias prev_y = os_OLDROW
alias cursor_y = os_ROWCRS alias cursor_y = os_ROWCRS
alias color = os_ATACHR alias color = os_ATACHR
byte tmp, i byte i
array(byte) color_height = [ array(byte) color_height = [
170,150,144,144,122,122,110,110,94,94,86,86,82,80 170,150,144,144,122,122,110,110,94,94,86,86,82,80
@@ -28,17 +28,13 @@ void main(){
while color != $ff { while color != $ff {
cursor_y = color_height[color] cursor_y = color_height[color]
tmp = color_height[color]
if (pokey_random & 1) != 0 { if (pokey_random & 1) != 0 {
tmp += 1 color_height[color] += 1
} else { } else {
if (pokey_random & 1) != 0 { if (pokey_random & 1) != 0 {
tmp -= 1 color_height[color] -= 1
} }
} }
color_height[color] = tmp
drawto() drawto()
color -= 1 color -= 1
} }