(define num-col-row 100)
(define pause-num 10000)
(define size (floor (/ 700 num-col-row)))
(define obstacle-density 10)
(define step-count 0)
(load "grid-class.ss")
(load "grid-draw.ss")
(load "grid-make.ss")
(load "grid-priority-queue.ss")

(define grid0 (make-grid num-col-row)) 
(draw-obstacles grid0)
(define grid (convert-grid grid0))
(load "grid-new.ss")
(load "grid-get-next-goal.ss")
(load "grid-get-next-robot.ss")
(load "grid-chase.ss")

(set-goal grid)
(set-start grid)
(draw-start)
(draw-goal)
(draw-robot)
(show canvas)
(search grid 20000)