anchor.diff:                 0 0 1 0 ; right
   
                  ,(/ (- (rand! 400) 200) 100) ; x
  -               ,(+ id 1)                    ; y
  +               ,(+ (/ id 10) 1)                    ; y
                  ,(/ (- (rand! 400) 200) 100) ; z
                  1       ; posit
                ))))
  -   (iota 75)))
  +   (iota 50)))
   (for-each (lambda (sphere)
      (NewtonBodySetMassProperties sphere 1.0 collision)
      (NewtonBodySetForceAndTorqueCallback sphere ApplyGravity)
  
positive.code:       0 1 0)
  
     ; платформа
  ;;   (glBegin GL_LINE_STRIP)
  ;;   (glBegin GL_QUADS)
  ;   (glColor3f 0.4 0.4 0.4)
  ;   (glVertex3f -100 0  100)
  ;   (glVertex3f  100 0  100)
  ;   (glVertex3f  100 0 -100)
  ;   (glVertex3f -100 0 -100)
  ;;   (glVertex3f -100 0  100)
     (glEnd)
  
  
  
negative.code: (define ApplyGravity (syscall 1111 (cons
     (list type-vptr type-void* type-int+)
     (lambda (body timestep threadIndex)
        (NewtonBodySetForce body '(0 -4.8 0 0))
  )) #f #f))
  
  
  