anchor.diff:            (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.
  +    ;; this should place the view at an offset of 1600 1200 (half map / scale)
       ;;
       ;; The formula should be xo = w/2/scale + x/scale
       ;;
  
positive.code:     ;; (divide by it)
      (defun center-on-player ()
        "Center the map on the player character"
        (let ((mw 800)
              (mh 600))
        (setf *x-offset* (+ (/ mw 2 *x-scale*) (* (aref *coords* 0 2) *x-scale*))
              *y-offset* (+ (/ mh 2 *y-scale*) (* (aref *coords* 0 1) *y-scale*)))))
  
      (chain ($ document)
             (ready
              (lambda ()
                (set-timeout #'get-player-map-coords 1000)
                (set-timeout #'map-sync 1000)
                (auto-follow-on)
                (set-interval #'coord-override 100))))
      ))
  
negative.code:     (defun draw-line (sx sy dx dy)
        "Draw a line given source/destination"
        (setf (@ *ctx* stroke-style) "#000000")
        (setf (@ *ctx* line-width) (/ 1 *x-scale*))
        (chain *ctx* (begin-path))
        (chain *ctx* (move-to sx sy))
        (chain *ctx* (line-to dx dy))
  