hgr_d2: add some comments on functions being plotted

This commit is contained in:
Vince Weaver 2021-11-14 17:15:03 -05:00
parent 33a5c7a569
commit 1ea6c775bd
2 changed files with 18 additions and 10 deletions

View File

@ -1,6 +1,11 @@
; Moving ; Moving
; moving, orange and green ; moving, orange and green
; this is plotting
; sin(y/4-FRAME) + sin(x) + sin(x+frame)
; or at least I think so. Comment your code!
;================================ ;================================
; Clear screen and setup graphics ; Clear screen and setup graphics
;================================ ;================================
@ -28,16 +33,16 @@ create_yloop:
; restore values ; restore values
lda HGR_Y ; YY lda HGR_Y ; YY in X
tax tax
calcsine_div4: calcsine_div4:
lsr lsr ; YY/4
lsr ; 2 lsr ; 2
sec sec
sbc FRAME sbc FRAME ; YY/4-FRAME
tay tay
lda sinetable,y lda sinetable,y ; A=SIN(YY/4-FRAME)
sta row_sum_smc+1 sta row_sum_smc+1
; ldx HGR_Y ; YY ; ldx HGR_Y ; YY
@ -51,14 +56,15 @@ create_xloop:
;===================== ;=====================
clc clc
tya tya ; XX
adc FRAME adc FRAME ; XX+FRAME
tax tax
lda sinetable,X lda sinetable,X ; SIN(XX+FRAME)
adc sinetable,Y ; 4+ adc sinetable,Y ; SIN(XX)+SIN(XX+FRAME) ; 4+
row_sum_smc: row_sum_smc:
adc #$dd ; row base value ; 2 adc #$dd ; row base value ; 2
; this is SIN(YY/4-FRAME)
lsr ; double colors ; 2 lsr ; double colors ; 2
; also puts bit in carry ; also puts bit in carry

View File

@ -1,5 +1,7 @@
; Ovals ; Ovals
; plots SIN(X)+FRAME+SIN(Y/2) (I think?)
; zero page ; zero page
;GBASL = $26 ;GBASL = $26
;GBASH = $27 ;GBASH = $27
@ -59,11 +61,11 @@ oval_yloop:
lda HGR_Y ; YY lda HGR_Y ; YY
calcsine_div2: calcsine_div2:
lsr ; 2 lsr ; YY/2 ; 2
tax tax
clc clc
lda sinetable,X lda sinetable,X
adc FRAME adc FRAME ; FRAME+SIN(YY/2)
sta oval_row_sum_smc+1 sta oval_row_sum_smc+1
ldx HGR_Y ; YY ldx HGR_Y ; YY