hovercraft erase optymiz
This commit is contained in:
BIN
Binary file not shown.
+26
-18
@@ -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
|
||||||
|
|||||||
Reference in New Issue
Block a user