anchor.diff:  
   (defmethod object-rope ((object pov-sequence))
     (pov-rope-reduce (pov-sequence-statements object)
  -                   +rope-newline+))
  +                   #\Newline))
   
   (defun pov-quality (float-quality)
     "Return numeric povray quality for proportional to RATIO.
  
positive.code: (defparameter *pov-handedness* :left)
  
  (defparameter *pov-indent* "")
  (defparameter *pov-newline-indent* +rope-newline+)
  (defparameter *pov-indent-width* 3) ;; as used in povray.org docs
  
  (defun pov-print (object stream)
  
negative.code: (defmacro with-pov-indent (&body body)
    `(let* ((*pov-indent* (make-string (+ *pov-indent-width* (length *pov-indent*))
                                       :initial-element #\Space))
            (*pov-newline-indent* (rope #\Newline *pov-indent*)))
       ,@body))
  
  (defstruct (pov-float (:constructor %pov-float (value)))
  