Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2025-01-12 04:30:03 +00:00
Code Issues Projects Releases Wiki Activity

improved horizontal_line in highres 4c

Browse Source
This commit is contained in:
Irmen de Jong 2021-04-28 02:55:49 +02:00
parent 2575263438
commit 81a91d62cb
2 changed files with 8 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/res/prog8lib/cx16/gfx2.p8
View File

@ -277,9 +277,9 @@ _done
ora colorbits,y
sta cx16.VERA_DATA0
cpy #%00000011 ; next vera byte?
bne + ; TODO should be ++?
bne ++
inc cx16.VERA_ADDR_L
bne + ; TODO should be ++?
bne ++
inc cx16.VERA_ADDR_M
+ bne +
inc cx16.VERA_ADDR_H

28
examples/test.p8
View File

@ -11,28 +11,12 @@ main {
c64.SETTIM(0,0,0)
ubyte yy
uword rw
repeat 20000 {
rw = rndw()
yy = (lsb(rw) & 127) + 20
gfx2.plot(msb(rw), yy, 1)
}
repeat 20000 {
rw = rndw()
yy = (lsb(rw) & 127) + 20
gfx2.plot(msb(rw), yy, 2)
}
repeat 20000 {
rw = rndw()
yy = (lsb(rw) & 127) + 20
gfx2.plot(msb(rw), yy, 3)
}
repeat 50000 {
rw = rndw()
yy = (lsb(rw) & 127) + 20
gfx2.plot(msb(rw), yy, 0)
ubyte rr
for rr in 0 to 2 {
uword yy
for yy in 20 to 420 {
gfx2.horizontal_line(10, yy, 610, (lsb(yy>>3) + rr) & 3)
}
}
uword time = c64.RDTIM16()