(bind-func distribute_particles
"randomly initialise the particles_verts to "
(lambda (np)
(doloop (i np)
(pset! particles_verts (+ (* i 4) 0) (random -1. 1.))
(pset! particles_verts (+ (* i 4) 1) (random -1. 1.))
(pset! particles_verts (+ (* i 4) 2) (random -1. 1.))
(pset! particles_verts (+ (* i 4) 3) (random -1. 1.)))))