anchor.diff:              (chain *ctx* (translate sx sy))
               (chain *ctx* (begin-path))
               (chain *ctx* (move-to 0 0))
  +            (setf (@ *ctx* line-width) (/ 1 *x-scale*))
               (with-slots (direction) *player*
                 (cond ((eq "North" direction) (chain *ctx* (line-to 0 (- sy dirlen))))
                       ((eq "South" direction) (chain *ctx* (line-to 0 (+ sy dirlen))))
  
positive.code:     (defvar *y-scale* .5)
      (defvar *x-offset* 400)
      (defvar *y-offset* 400)
      (defvar *player* (create coords []
                               zone ""
                               zone-name ""
  
negative.code:           (auto-follow-on)))
  
      ;; Lets assume player at 0,0.  Using an 800x600 map at .25 scale,
      ;; this should place the view at an offset of 1600 1200 (half map / scale)
      ;;
      ;; The formula should be xo = w/2/scale + x/scale
      ;;
  