Better? "drawmountains"

Mountains are drawn only by the plot procedure.
Easier for the C64?
This commit is contained in:
Pecusx
2023-04-05 12:30:47 +02:00
parent 16fc84aa6f
commit f2de25a769
3 changed files with 5 additions and 12 deletions
+5 -12
View File
@@ -1295,22 +1295,15 @@ drawmountainsloop
sty ydraw+1
; jsr DrawLine
; there was Drawline proc
lda #screenheight
sec
sbc ydraw
sta tempbyte01
drawline
jsr plot.MakePlot
; after plot we have: (xbyte),y - addres of screen byte; X - index in bittable (number of bit)
; jmp IntoDraw ; jumps inside Draw routine
; because one pixel is already plotted (and who cares? :) )
@
lda (xbyte),y
and bittable2,x
sta (xbyte),y
;IntoDraw
adw xbyte #screenBytes
dec tempbyte01
bne @-
inc ydraw
lda ydraw
cmp #screenheight
bne drawline
; end of Drawline proc
NoMountain
inw modify
BIN
View File
Binary file not shown.
BIN
View File
Binary file not shown.