anchor.diff:                                     :axis axis
                                      :translation  (g+ (g* axis start-arrow-length)
                                                                translation))))
  -           (list (item-cylinder-axis parent (draw-subframe name "body")
  -                                     :options options
  -                                     :height body-length :radius (/ width 2)
  -                                     :axis axis
  -                                     :translation (if start-arrow
  -                                                      (g+ (g* start-arrow-length axis)
  -                                                          translation)
  -                                                      translation)))
  +
              (when end-arrow
                (list (item-cone-axis parent (draw-subframe name "end-arrow")
                                      :options options
  
positive.code:                                 end-arrow
                                  start-arrow
                                  (width .01)
                                  (end-arrow-start-width (* 2 width))
                                  (end-arrow-end-width 0d0)
                                  (end-arrow-length width)
                                  (start-arrow-start-width (* 2 width))
                                  (start-arrow-end-width 0d0)
                                  (start-arrow-length width)
                                  (offset '(0 0 .33))
                                  configuration-map)
    "Draw arrow orthogonal to OFFSET"
    (let* ((v (tf-translation (scene-graph-tf-relative scene-graph tail tip
                                                       :configuration-map configuration-map)))
           (y (amino::tf-orth v offset)))
      (item-arrow-axis tail name
                       :options options
                       :translation offset
                       :axis (vec3-normalize y)
                       :length (vec-norm y)
                       :width width
                       :end-arrow end-arrow
                       :start-arrow start-arrow
                       :end-arrow-start-width end-arrow-start-width
                       :end-arrow-end-width end-arrow-end-width
                       :end-arrow-length end-arrow-length
                       :start-arrow-start-width start-arrow-start-width
                       :start-arrow-end-width start-arrow-end-width
                       :start-arrow-length start-arrow-length)))
  
  
  (defun draw-dimension-angular (scene-graph parent name
  
negative.code:                         (if start-arrow start-arrow-length 0)
                          (if end-arrow end-arrow-length 0))))
  
      (nconc (list (item-cylinder-axis parent name
                                       :options options
                                       :height body-length :radius (/ width 2)
                                       :axis axis
                                       :translation (if start-arrow
                                                        (g+ (g* start-arrow-length axis)
                                                            translation)
                                                        translation)))
             (when start-arrow
               (list (item-cone-axis parent (draw-subframe name "start-arrow")
                                     :options options
                                     :height start-arrow-length
  