anchor.diff:                            frame-max
                             configuration-max
                             dot-file
  +                          normalize
                             (relative-function "rel_tf")
                             (absolute-function "abs_tf")
                             (parents-array "parents"))
  
positive.code:     (format f "~{~&#include \"~A\"~}" headers)
      (emit-rel-fun relative-function frames :stream f)
      (emit-parents-array parents-array frames :stream f)
      (emit-abs-fun absolute-function frames :stream f)
      )
    ;; dot
    (when dot-file
  
negative.code:   (format stream "~&}"))
  
  
  (defun emit-abs-fun (name frames &key normalize (stream t))
    (format stream "~&void ~A~&( const double * restrict rel, double * restrict abs ) ~&{~&" name)
    (loop
       for f in frames
  