hovercraft erase optymiz

This commit is contained in:
2022-08-20 12:22:49 -04:00
parent 1ad9b6760d
commit 9108c7c857
2 changed files with 26 additions and 18 deletions
BIN
View File
Binary file not shown.
+26 -18
View File
@@ -2629,25 +2629,33 @@ TankOnRightSide
TankOnLeftSide TankOnLeftSide
sty FloatingAlt ; I know, not elegant byt this variable it's free now (0 go right, $ff go left) sty FloatingAlt ; I know, not elegant byt this variable it's free now (0 go right, $ff go left)
; now we have direction of bypassing tanks on screen ; now we have direction of bypassing tanks on screen
; clear "engine pixels" under tank ; clear "engine pixels" under tank
lda XtankstableL,x mva #1 erase
sta xdraw jsr drawTankNr
lda XtankstableH,x inc ytanksTable,x
sta xdraw+1 mva #0 erase
clc jsr drawTankNr
lda Ytankstable,x
adc #1
sta ydraw ; lda XtankstableL,x
mva #0 ydraw+1 ; sta xdraw
sta color ; lda XtankstableH,x
; draw horizontal line ; sta xdraw+1
mva #8 temp ; clc
@ ; lda Ytankstable,x
jsr plot ; adc #1
inw xdraw ; sta ydraw
dec temp ; mva #0 ydraw+1
bne @- ; sta color
ldx TankNr ; ; draw horizontal line
; mva #8 temp
;@
; jsr plot
; inw xdraw
; dec temp
; bne @-
; ldx TankNr
; first check if we over any tank ; first check if we over any tank
; Warning! in xdraw wird we have position of floating tank (after DrawTankNr) ; Warning! in xdraw wird we have position of floating tank (after DrawTankNr)
CheckForTanksBelow CheckForTanksBelow