anchor.diff:    ""
     (format t "Shape~%")
     (with-slots (containerField) self
  -    (dolist (element containerField)
  -      (run element))))
  +    (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))
  
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:       (let ((x (elt size 0))
              (y (elt size 1))
              (z (elt size 2)))
          (gl:with-pushed-matrix
            (gl:scale x y z)                      ; model transform
            (if solid
                (glut:solid-cube 1)                   ; shape
                (glut:wire-cube 1)))))))
  
  ;; ........................................................................Cone
  (defmethod run ((self cone))
  