rects.thump

#l 2 4 img/cat_big.png

pi $0, si 0
pi $1, si 1
pi $2, si 2
pi $3, si 3
pi $4, si 4
pi $8, si 8
pi $13, si 13
pi $14, si 14
pi $15, si 15
pi $16, si 16
pi $64, si 64
pi $254, si 254
pi $255, si 255

pi $rnd, s $0

pi $r, rnd $rnd
pi $g, rnd $rnd
pi $b, rnd $rnd
pi $a, rnd $64

l $a

pi $y, si 1
@yloop
pi $x, si 1
@xloop
pi $ry, s $y
pi $ty, s $y, add $16
@rectloop
x $x, y $y, zi 8, s $r, sf $14
x $x, y $y, zi 9, s $g, sf $14
x $x, y $y, zi 10, s $b, sf $14
x $x, y $y, zi 11, s $a, sf $14
pi $y, add $1, seq $ty, j @rectloop
pi $x, add $16, seq $1, j @xloop
pi $rnd1, rnd $3, add $4
zi 5, cpa $8
w $16
l $y

pi $x, si 0, rnd $x // $x = random()
pi $gy, si 4, rnd $gy // $y = random() (in range of 0 - 3)
pi $v, si 0, rnd $v // $v = random()
x $x, y $gy, zi 1, s $v // GLITCH!!

pi $y, add $16, seq $1, j @yloop