(bind-func wind (lambda () (let ((i 0)) (dotimes (i 12) ;(add-density-1 (* i 30) 20 300.0) (add-velocity-1 (* i 30) 10 0.0 0.0) ) void)))