anchor.diff:    (gl:line-width 1.5)
     (gl:blend-func :src-alpha :one)
     (dotimes (i 255)
  -    #++(gl:color (random 1.0) (random 1.0) (random 1.0) (/ i 200.0))
       (gl:color (/ i 32.0) (/ i 512.0) (/ i 512.0) (/ i 255.0))
       (gl:load-identity)                       ;; clear the matrix
       (glu:look-at (* i 0.15) 3 5 0 0 0 0 1 0) ;; viewing transformation
       (gl:rotate (theta) -1.0 1.0 1.0)
  -    #++(gl:with-pushed-matrix* (:modelview)
  -         (gl:scale 1 2 3)                       ;; modeling transformation
  -         (glut:wire-cube 2.0))
       (gl:rotate (* i 2) 1.0 -1.0 1.0)
  -    ;;(draw-circle 5.0)
  -    (new-draw-circle 5.0 5.0 5.0 20)
  +    (draw-circle 5.0 5.0 5.0 20)
       (gl:rotate (* i 1) 1.0 -1.0 1.0)
  -    ;;(draw-circle 5.0)
  -    (new-draw-circle 5.0 5.0 5.0 20)
  +    (draw-circle 5.0 5.0 5.0 20)
       (gl:color (/ i 512.0) (/ i 512.0) (/ i 64.0) (/ i 255.0))
       (gl:scale 0.8 0.8 0.8)
       (gl:rotate (* i 1) 1.0 1.0 -1.0)
  -    ;;(draw-circle 5.0)
  -    (new-draw-circle 5.0 5.0 5.0 20)
  -    )
  -  #++(opengl-test 70.0)
  +    (draw-circle 5.0 5.0 5.0 20))
     (glut:swap-buffers))
   
   (defmethod glut:idle ((w cube-window))
     (glut:post-redisplay)
  -  (sleep 0.02))
  +  (sleep 5))
   
   (defmethod glut:reshape ((w cube-window) width height)
     (gl:viewport 0 0 width height)
  
positive.code:       (setf *angle* 0)
        (incf *angle* 0.02)))
  
  (defun new-draw-circle (cx cy radius num-segments)
    (declare (single-float cx)
             (single-float cy)
             (single-float radius)
             (integer num-segments))
    (let* ((new-theta (/ (* 2 3.1415926) num-segments))
           (tangetial-factor (tan new-theta))
           (radial-factor (cos new-theta))
           (x radius)
           (y 0))
      (gl:begin :LINE-LOOP)
      (loop for ii below num-segments
         do (progn
              (gl:vertex (+ x cx) (+ y cy))
              (let ((tx (- y))
  
negative.code: (defun rb-cube ()
    (glut:display-window (make-instance 'cube-window)))
  
  (defun run-stuff ()
    (setf *gl-thread* (bt:make-thread
                       (lambda ()
  