Pecus/scorch_src
1
0
Fork 0
mirror of https://github.com/Pecusx/scorch_src.git synced 2026-05-21 14:49:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

Two sets of "gradient" selectable.

Browse Source
This commit is contained in:
Pecusx
2022-12-23 14:07:22 +01:00
parent d420ce06ca
commit 3936b2bf8c
7 changed files with 50 additions and 88 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scorch.asm
+9 -2
View File
@@ -26,9 +26,11 @@
;---------------------------------------------------
icl 'definitions.asm'
;---------------------------------------------------
FirstZpageVariable = $5E
FirstZpageVariable = $5B
.zpvar DliColorBack .byte = FirstZpageVariable
.zpvar Gradient .byte
.zpvar GradientNr .byte
.zpvar GradientColors .word
.zpvar JoystickNumber .byte
.zpvar xdraw .word ;= $64 ;variable X for plot
.zpvar ydraw .word ;variable Y for plot (like in Atari Basic - Y=0 in upper right corner of the screen)
@@ -250,6 +252,11 @@ FirstSTART
dey
bpl @-
; initialize one Variable in zero page :)
lda #<dliColorsFore
sta GradientColors
lda #>dliColorsFore
sta GradientColors+1
; generate linetables
mwa #display temp
@@ -1196,7 +1203,7 @@ GoGradient
; nop
.ENDIF
sta COLPF1
lda dliColorsFore,y ; mountains colors array
lda (GradientColors),y ; mountains colors array
; lda dliColorsFore ; one mauntain color
sta COLPF2
inc dliCounter