anchor.diff:                       (vec-y elements)
                        (vec-z elements)))
   
  -
  -(defmethod pov-object ((object vec3))
  -  (with-vec3 (x y z) object
  -    (%pov-float-vector x z y)))
  -
   (defun pov-float-vector-right (elements)
  -  (pov-object (vec3* (vec-x elements)
  -                     (vec-y elements)
  -                     (vec-z elements))))
  -
  +  (%pov-float-vector (vec-x elements)
  +                     (vec-z elements)
  +                     (vec-y elements)))
   
   (defun pov-integer-vector (elements)
  -  (apply #'%pov-integer-vector elements))
  +  (%pov-integer-vector (vec-x elements)
  +                       (vec-y elements)
  +                       (vec-z elements)))
   
   (defmethod print-object ((object pov-float-vector) stream)
     (format stream "~&~A<~F, ~F, ~F>"
  
positive.code:   (loop for x in (pov-sequence-statements object)
       do (print-object x stream)))
  
  ;; (defun print-vector-handed (vector &optional (output *pov-output*))
  ;;   (ecase *pov-handedness*
  ;;     (:left
  ;;      (print-vector-xyz (vec-x vector) (vec-z vector) (vec-y vector)
  ;;                        output))
  ;;     (:right
  ;;      (print-vector-xyz (vec-x vector) (vec-y vector) (vec-z vector)
  ;;                        output))))
  
  ;(defun print-mesh2 (vertex-vectors normal-vectors
  
negative.code: (defparameter *pov-indent-width* 3) ;; as used in povray.org docs
  
  ;; Convert something to a POV-ray object
  
  (defmacro with-pov-indent (old-indent &body body)
    `(let* ((,old-indent *pov-indent*)
  