snowflakes.thump

#l 2 8 img/msgothic_16x16pn.png

pi $0, si 0
pi $1, si 1
pi $2, si 2
pi $16, si 16
pi $255, si 255

pi $l, si 0
pi $colorsinoffset, si 40
@mainloop

pi $colori, si 0
@colorloop
pi $sinv, s $colorsinoffset, add $colori
pi $sf, sin $sinv
xi 0, y $colori, zi 4, si 255, sf $sf
pi $colorsinoffset, add $1
pi $colori, add $1, seq $255, j @colorloop

pi $_, si 0, pi $offset, rnd $_
pi $x, rnd $_
x $c, yi 0, zi 12
s $offset
x $c, yi 0, zi 13
s $x
pi $sinoffset, rnd $_
x $c, yi 0, zi 14
s $sinoffset

pi $i, si 0
pi $y, s $c
@flakes
x $i, yi 0, zi 12
g $offset
x $i, yi 0, zi 13
g $x
x $i, yi 0, zi 14
g $sinoffset
pi $sinv, s $y, add $sinoffset
pi $sin, sin $sinv, div $16
pi $x, add $sin

pi $_, si 8, spt $_ // set sprite table (word)
x $x, y $y, zi 4, spa $offset // draw sprite

pi $y, add $1
pi $i, add $1, seq $255, j @flakes

pi $c, add $1

w $1
pi $l, add $1
pi $mod, s $l, mod $16
pi $mod, seq $0, j @mainloop

l $l

pi $_, si 0, pi $x, rnd $_
pi $_, si 4, pi $y, rnd $_
pi $z, si 1
pi $_, si 0, pi $v, rnd $_
x $x, y $y, z $z, s $v // poke
j @mainloop