Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-07-09 17:29:46 +00:00
Code Issues Projects Releases Wiki Activity

changed to fixed point math to always generate bars of 32 lines height

Browse Source
This commit is contained in:
Irmen de Jong 2021-09-28 23:12:16 +02:00
parent 8388adcd1d
commit 9acec4d952
1 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
examples/cx16/colorbars.p8
View File

@ -1,6 +1,5 @@
%import gfx2
%import palette
%import textio
; TODO WORK IN PROGRESS...
@ -9,23 +8,25 @@
main {
sub start() {
palette.set_all_black()
;palette.set_all_black()
gfx2.screen_mode(4)
ubyte yy
for yy in 0 to 239
gfx2.horizontal_line(0, yy, 320, yy & 31)
gfx2.horizontal_line(0, yy, 320, yy)
repeat {
colors.random_half_bar()
colors.mirror_bar()
colors.set_palette()
repeat 20
yy = 0
repeat 8 {
colors.random_half_bar()
colors.mirror_bar()
colors.set_palette(yy)
yy+=32
}
repeat 10
sys.waitvsync()
}
repeat {
}
}
}
@ -107,11 +108,11 @@ colors {
}
}
sub set_palette() {
sub set_palette(ubyte offset) {
ubyte ix
for ix in 0 to 31 {
uword color = mkword(reds[ix], (greens[ix] << 4) | blues[ix] )
palette.set_color(ix, color)
palette.set_color(ix+offset, color)
}
}
}