anchor.diff:    (format stream "~F"
             (pov-float-value object)))
   
  +(defun float-string (f)
  +  (declare (type double-float f))
  +  (format nil "~F" f))
  +
  +(defun int-string (i)
  +  (declare (type fixnum i))
  +  (format nil "~D" i))
  +
  +(defmethod object-rope  ((object pov-float))
  +  (rope (float-string (pov-float-value object))))
  +
   (defstruct (pov-float-vector (:constructor %pov-float-vector (x y z)))
     "Type for a povray vector."
     (x 0d0 :type double-float)
  
positive.code:             (pov-block-name object)
              (pov-block-list object)
              old-indent)))
  
  (defstruct (pov-list (:constructor %pov-list (name list length)))
    name
  
negative.code:           (pov-uv-vector-u object)
            (pov-uv-vector-v object)))
  
  (defmethod object-rope ((object pov-uv-vector))
    (rope '|<|
          (float-string (pov-uv-vector-u object))
          '|, |
          (float-string (pov-uv-vector-v object))
          '|>|))
  
  (defstruct pov-matrix
    elements)
  