cursed cube clump

gistfile1.clj

(defscn cursed-cube-clump
  (let [cc (GameObject. "cursed-cube-clump")
        n 1000
        w 60]
    (dotimes [i n]
      (let [c (hydrate cubespec)]
        (set! (.parent (transform c)) (transform cc))
        (set! (.localScale (transform c))
          (v3 1 1 (+ (/ i w) (mod i w))))
        (set! (.localPosition (transform c))
          (v3
            (int (/ i w))
            (mod i w)
            0))))
    cc))