(bind-func init_burners
(lambda ()
(set! NumBurners 0)
(let ((tex Swoosh)
(dat (data tex))
(w (width tex))
(h (height tex))
(jj 0)
(t:<i64,i64>* null)
(i 0) (j 0))
(dotimes (i w)
(dotimes (jj h)
(set! j (- h jj))
(if (> (i8toui32 (pref dat (+ (* 4 i) (* j 4 w)))) 230)
(begin
;; (set! t (aref-ptr BurnerPositions NumBurners))
;; (tfill! t (i32toi64 i) (i32toi64 j))
(aset! BurnerPositions NumBurners (tuple (i32toi64 i) (i32toi64 j)))
(set! NumBurners (+ NumBurners 1))))))
(println "Total Burners:" NumBurners)
(dotimes (i (i64toi32 NumBurners))
(println "burn:" i
(tref (aref BurnerPositions i) 0)
(tref (aref BurnerPositions i) 1)))
void)))