anchor.diff:  (defparameter *pov-handedness* :left)
   
   (defparameter *pov-indent* "")
  -(defparameter *pov-newline-indent* +rope-newline+)
  +(defparameter *pov-newline-indent* #\Newline)
   (defparameter *pov-indent-width* 3) ;; as used in povray.org docs
   
   (defun pov-print (object stream)
  
positive.code: 
  (defmethod object-rope ((object pov-sequence))
    (pov-rope-reduce (pov-sequence-statements object)
                     +rope-newline+))
  
  (defun pov-quality (float-quality)
    "Return numeric povray quality for proportional to RATIO.
  
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)))
  