20170512 - cand2

#l 1 8 0
#l 1 9 img/msgothic_16x16p.png

pi $0, si 0
pi $1, si 1
pi $2, si 2
pi $4, si 4
pi $8, si 8
pi $9, si 9
pi $16, si 16
pi $32, si 32
pi $64, si 64
pi $96, si 96
pi $128, si 128
pi $160, si 160

// === setup ===

pi $y, si 0
@setup

pi $ph, rnd $0
pi $c, s $y, div $2, sub $64, sin $c
xi 0, y $y, zi 4, s $c, sf $0
pi $c, s $y, sub $64, sin $c, div $2, add $64
xi 0, y $y, zi 5, s $c, sf $0
pi $c, s $y, sub $32, sin $c, div $2, add $64
xi 0, y $y, zi 6, s $c, sf $0

pi $y, add $1, seq $0, j @setup

// === update ===

@update

pi $i0, si 0
pi $i1, si 0
@circloop

//zi 4, jpg $64

pi $x, si 0, rnd $0
pi $y, si 0, rnd $0

x $x, y $y, zi 4, g $cr
x $x, y $y, zi 5, g $cg
x $x, y $y, zi 6, g $cb

pi $ii, si 0
@putloop

pi $tf, rnd $4, add $1
pi $ts, rnd $4, add $4
pi $tx, rnd $ts, add $x
pi $ty, rnd $ts, add $y
x $tx, y $ty, zi 6, s $cb, sf $tf
zi 5, s $cg, sf $tf
zi 4, s $cr, sf $tf

pi $ii, add $1, seq $8, j @putloop, si 0

pi $i0, add $1, seq $0, j @circloop
pi $i1, add $1, seq $4, j @circloop

// === image ===

zi 4, cp8 $8

// === sprite ===

pi $x, s $96
pi $y, s $96
spt $9
@sprloop

pi $s, rnd $0
x $x, y $y, zi 4, sp8 $s

pi $x, add $16, seq $160, j @sprloop, s $96
pi $y, add $16, seq $160, j @sprloop, s $96

// === glitch ===

pi $x, si 0, rnd $x
pi $y, si 8, rnd $y
pi $z, si 2, rnd $z
pi $v, si 0, rnd $v
x $x, y $y, z $z, s $v // GLITCH!!

pi $_, si 10, w $_
j @update