anchor.diff:           (glVertex3f 0 1 19)
      (glEnd)
   
  +;  (glMaterialfv GL_FRONT GL_DIFFUSE '(1 0 0 1))
      (let ((matrix '(0.1 0.1 0.1 0.1  0.1 0.1 0.1 0.1  0.1 0.1 0.1 0.1  0.1 0.1 0.1 0.1)))
         (for-each (lambda (cube)
            (NewtonBodyGetMatrix cube matrix)
  
positive.code: 
     (glEnable GL_DEPTH_TEST)
  
     (NewtonInvalidateCache world)
  
     ; return parameter list:
     (let ((oldtime (gettimeofday)))
     (list oldtime)))
  
  ; draw
  (lambda (oldtime)
  (let ((newtime (gettimeofday)))
     ; обновим мир
     (NewtonUpdate world (* (+ (- (car newtime) (car oldtime)) (/ (- (cdr newtime) (cdr oldtime)) 1000000)) 2))
  
     ; и нарисуем его
     (glClear (vm:or GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT))
  
     (glMatrixMode GL_MODELVIEW)
     (glLoadIdentity)
  
negative.code:       0 0 0
        0 1 0)
  
     (glLightfv GL_LIGHT0 GL_POSITION (list 10 5 2 1))
     ; colors in opengl when lighting use: http://stackoverflow.com/questions/8494942/why-does-my-color-go-away-when-i-enable-lighting-in-opengl
     (glColorMaterial GL_FRONT GL_DIFFUSE)
  
  ;   (glLightfv GL_LIGHT0 GL_POSITION (list 7 3.0 3.0 0.0))
  
     ; платформа
  ;  (glBegin GL_LINE_STRIP)
     (glPushMatrix)
     (glScalef 18 0.2 18)
     (glCube)
     (glPopMatrix)
  
     (glPushMatrix)
     (glScalef 8 1.2 8)
     (glCube)
     (glPopMatrix)
     
     (glPushMatrix)
     (glScalef 4 2.4 4)
     (glCube)
     (glPopMatrix)
  
  
     (glBegin GL_LINES)
  