Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-12-27 17:29:49 +00:00
Code Issues Projects Releases Wiki Activity

rotoplasma: some optimization

Browse Source
This commit is contained in:
Vince Weaver 2021-01-11 11:02:13 -05:00
parent 70c9c75f01
commit 926d5db11b
2 changed files with 34 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
graphics/gr/rotozoom/plasma.s
View File

@ -41,6 +41,11 @@ cycle_colors:
ldx #0
cycle_loop:
inc lookup,X
lda lookup,X ; slow here but faster than doing it
and #$f ; in the draw routine
sta lookup,X
inx
bne cycle_loop
@ -121,7 +126,9 @@ plot_lookup_smc:
which_color: .byte $0
colorlookup:
.word blue_lookup,red_lookup,green_lookup,yellow_lookup
.word green_lookup,yellow_lookup,blue_lookup,red_lookup
; blue
blue_lookup:

46
graphics/gr/rotozoom/rotozoom_texture.s
View File

@ -9,6 +9,10 @@
; ANGLE in our case is 0..31
; SCALE_I/SCALE_F is 8.8 fixed point scale multiplier
; $2E7CF = 190,415 = 5.25fps first merging
; $2D8CF = 186,575 = 5.35fps move mask to rotate not draw
CAL = $B0
CAH = $B1
SAL = $B2
@ -204,27 +208,29 @@ rotozoom_xloop:
;===================================================================
lda XPH
and #$f
sta CTEMP
lda XPH ; 3
and #$f ; 2
sta CTEMP ; 3
lda YPH
asl
asl
asl
asl
clc
adc CTEMP
tay
lda YPH ; 3
asl ; 2
asl ; 2
asl ; 2
asl ; 2
clc ; 2
adc CTEMP ; 3
tay ; 2
lda lookup,Y ; 4
; and #$f ; 2
lsr ; 2
tay ; 2
lda lookup,Y
and #$f
lsr
tay
colorlookup2_smc:
lda blue_lookup,Y
and #$0f
lda green_lookup,Y ; 4
and #$0f ; 2
;============
; 40
rscrn_done:
@ -380,11 +386,11 @@ rotozoom_xloop2:
tay
lda lookup,Y
and #$f
; and #$f
lsr
tay
colorlookup_smc:
lda blue_lookup,Y
lda green_lookup,Y
and #$f0
;=============================================