anchor.diff:                      y (* y radial-factor)))))
       (gl:end)))
   
  -(defun draw-circle (radius)
  -  (declare (single-float radius))
  -  (gl:with-primitive :line-strip
  -    (do* ((i 0 (1+ i))
  -          (the-angle 0 (* *dev-pi* i)))
  -         ((> i 360))
  -      (gl:vertex (* (cos the-angle) radius)
  -                 (* (sin the-angle) radius)))
  -    #++(loop for i below 360
  -          for the-angle = (* i *dev-pi*)
  -          do (gl:vertex (* (cos the-angle) radius)
  -                        (* (sin the-angle) radius)))))
  -
   (defclass cube-window (glut:window)
     ()
  -  (:default-initargs :width 500 :height 500 :title "add - glthing"
  +  (:default-initargs :width 500 :height 500 :title "add - glthing v.2 (wip)"
                        :mode '(:double :rgb)))
   
   (defmethod glut:display-window :before ((w cube-window))
  
positive.code:   (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)
      (gl:rotate (* i 1) 1.0 -1.0 1.0)
      ;;(draw-circle 5.0)
      (new-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)
    (glut:swap-buffers))
  
  (defmethod glut:idle ((w cube-window))
    (glut:post-redisplay)
    (sleep 0.02))
  
  (defmethod glut:reshape ((w cube-window) width height)
    (gl:viewport 0 0 width height)
  
negative.code:       (setf *angle* 0)
        (incf *angle* 0.02)))
  
  (defun draw-circle (cx cy radius nr-segments)
    (declare (single-float cx)
             (single-float cy)
             (single-float radius)
             (integer nr-segments))
    (let* ((new-theta (/ (* 2 3.1415926) nr-segments))
           (tangetial-factor (tan new-theta))
           (radial-factor (cos new-theta))
           (x radius)
           (y 0))
      (gl:begin :LINE-LOOP)
      (loop for ii below nr-segments
         do (progn
              (gl:vertex (+ x cx) (+ y cy))
              (let ((tx (- y))
  