burners   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/examples/contrib/fluids_2d.xtm

Implementation

(bind-func burners
  (let ((rnds:double* (alloc 10000)) (k 0))
    (dotimes (k 10000) (pset! rnds k (random)))
    (lambda (time:double)
      (let ((i 0) (j 0) (k 0) (tup (tuple 0:i64 0:i64))
            (offx 100) (offy 0))
        (dotimes (k NumBurners)
          (set! tup (aref BurnerPositions k))
          (set! i (clamp (tref tup 0) 2 (- CUBE_W 2)))
          (set! j (clamp (tref tup 1) 2 (- CUBE_H 2)))
          (add_density (+ offx (* i 1)) (+ offy (* j 1)) (* 2.0 (random)))
          (if (= k (% (dtoi64 time) NumBurners)) ; (> (random) 0.99:double)
              (add_velocity (+ offx (* i 1)) (+ offy (* j 1))
                            (* 5.1 (cos (* time (convert i) (pref rnds k) .01 .0027)))
                            (* 5.1 (sin (* time (convert j) (pref rnds k) .01 .0013)))))
          void)
        ;; (add_velocity 200 (- CUBE_H 20)
        ;;               (* 1.5 (cos (* time .001)))
        ;;               (* 1.5 (sin (* time .0001))))
        ;; (add_velocity 200 20
        ;;               (* 0.5 (cos (* time .0027)))
        ;;               (* 0.5 (sin (* time .013))))
        void))))


Back to Index

Similar Entries

  • init_burners    xtlang