anchor.diff:      (defvar *y-scale* .5)
       (defvar *x-offset* 400)
       (defvar *y-offset* 400)
  +    (defvar *width* 800)
  +    (defvar *height* 500)
       (defvar *player* (create coords []
                                zone ""
                                zone-name ""
  
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:             *ctx* (chain *can* (get-context "2d")))
        (setf (@ *ctx* stroke-style) "rgba(0,100,0,0,.3)"
              (@ *ctx* line-width) 0.5)
        (setf (@ *can* width) *width*
              (@ *can* height) *height*)
        (bind-keys)
        (draw-map))
  
  