anchor.diff:            (bottom (SFBool bottom))
             (top (SFBool top))
             (solid (SFBool solid)))
  +        (gl:with-pushed-matrix
         (gl:rotate -90 1 0 0)
         (gl:translate 0 0 (- (/ height 2)))
  -      (glut:solid-cylinder radius height 20 1))))
  +      (glut:solid-cylinder radius height 20 1)))))
   
   
   ;; ......................................................................Sphere
  
positive.code:             (R (apply #'sb-cga:rotate-around orientation))
              (Tx (sb-cga:translate position)))
      (let ((-C (sb-cga:inverse-matrix C)))
        (sb-cga:inverse-matrix (sb-cga:matrix* Tx R))))))) ;; this is the LOOKAT configuration
  
  ;; ----------------------------------------------------------------------------
  (defmethod get-projection ((self viewpoint) aspect near far)
  
negative.code:   ""
    (format t "Shape~%")
    (with-slots (containerField) self
      (let ((1st (first containerField))
            (2nd (second containerField)))
        (if (typep 1st (class-of (make-instance 'appearance)))
            (progn (run 1st) (run 2nd))
            (progn (run 2nd) (run 1st))))))
  
  ;; ------------------------------------------------------------------appearance
  (defmethod run ((self appearance))
  