anchor.diff:  
   (define (gettimeofday) (syscall 96 #f #f #f))
   
  +(define Context (gl:Create "7. Newton"))
  +
  +
  +
  +
   (define $ (or
   ;   (dlopen "/home/uri/Desktop/Otus Lisp/src/tutorial/newton-dynamics/coreLibrary_300/projects/posix64/libNewton.so")
      (dlopen "newton")
  
positive.code: ;(NewtonBodySetForceAndTorqueCallback rigidBody2 ApplyGravity)
  ;(print "To rigid body added callback")
  
  (NewtonDestroyCollision collision)
  (print "3.NewtonGetMemoryUsed = " (NewtonGetMemoryUsed))
  
  (define (glCube)
  
negative.code:                0 0 1 0 ; right
  
                 ,(/ (- (rand! 400) 200) 100) ; x
                 ,(+ id 12)                   ; y
                 ,(/ (- (rand! 400) 200) 100) ; z
                 1       ; posit
               ))))
     (iota 10)))
  (for-each (lambda (cube)
     (NewtonBodySetMassProperties cube 1.0 collision)
     (NewtonBodySetForceAndTorqueCallback cube ApplyGravity)
  ) cubes)
  (NewtonDestroyCollision collision)
  
  
  (define collision (or
     (NewtonCreateSphere world  0.5  0  #f)
     (runtime-error "Can't create box" #f)))
  
  (define spheres (map
     (lambda (id)
        (let ((x (* id 0.7))
              (y (* id 1)))
           (NewtonCreateDynamicBody world collision
              `(;x y z w
                 1 0 0 0 ; front
                 0 1 0 0 ; up
                 0 0 1 0 ; right
  
                 ,(/ (- (rand! 400) 200) 100) ; x
                 ,(+ id 1)                    ; y
                 ,(/ (- (rand! 400) 200) 100) ; z
                 1       ; posit
               ))))
     (iota 10)))
  (for-each (lambda (sphere)
     (NewtonBodySetMassProperties sphere 1.0 collision)
     (NewtonBodySetForceAndTorqueCallback sphere ApplyGravity)
  ) spheres)
  (NewtonDestroyCollision collision)
  
  
  ;
  ;
  ;(define rigidBody (or
  