anchor.diff:  (defpackage :src/drawer
     (:nicknames :drawer)
  -  (:use :common-lisp :src/field :src/utils :cl-svg)
  +  (:use :common-lisp :src/field :src/utils :cl-svg :cl-geometry)
     ;;(:import-from :mcts)
     (:import-from :spatial-trees)
     (:import-from :rectangles))
  
positive.code:             (draw group (:line :x1 (+ *scale* (- *border* a3)) :y1 cur-a :x2 (+ *scale* (+ *border* a3)) :y2 cur-a))
              ))))
  
  (defun draw-state (field &key (filename #p"~/field.svg"))
    (declare (ignore field))
    (let ((size (+ *scale* (* 2 *border*))))
  
negative.code: (defparameter *scale* 500)
  (defparameter *border* (round (/ *scale* 100)))
  (defparameter *steps* 5)
  
  (defun get-x (x)
    (round (* x *scale*)))
  
  (defun get-y (y)
    (round (- *scale* (* y *scale*))))
  
  (defun draw-field (scene)
    (let ((a1 *border*)
  