anchor.diff:  (define ApplyGravity (syscall 1111 (cons
      (list type-vptr type-void* type-int+)
      (lambda (body timestep threadIndex)
  -      (NewtonBodySetForce body '(0 -9.8 0 0))
  +      (NewtonBodySetForce body '(0 -4.8 0 0))
   )) #f #f))
   
   
  
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:                0 0 1 0 ; right
  
                 ,(/ (- (rand! 400) 200) 100) ; x
                 ,(+ id 10)                   ; y
                 ,(/ (- (rand! 400) 200) 100) ; z
                 1       ; posit
               ))))
     (iota 20)))
  (for-each (lambda (cube)
     (NewtonBodySetMassProperties cube 1.0 collision)
     (NewtonBodySetForceAndTorqueCallback cube ApplyGravity)
  