More naval gazing

graphgif.scm

@@ -5,17 +5,17 @@
 	     (srfi srfi-9 gnu)
 	     (srfi srfi-11)
 	     (srfi srfi-43))
-(re-export (cairo-pattern-create-rgb . create-color))
 
 ;;;;;;;;;;;;;;;;;;;
 ;; Basic Drawing ;;
 ;;;;;;;;;;;;;;;;;;;
 
-(define-public pi 3.14159) ;; Good enough
+(define-public pi  3.14159) ;; Good enough
 (define-public tau (* 2 pi))
 
 (define-public black (cairo-pattern-create-rgb 0 0 0))
 (define-public white (cairo-pattern-create-rgb 1 1 1))
+(define-public red   (cairo-pattern-create-rgb 1 0 0))
 
 (define-immutable-record-type <node>
   (node coords edges color)
@@ -198,7 +198,8 @@
 	  (when (< i-priority parent-priority)
 	    (vector-swap! heap i parent))
 	  (fix-up! parent heap))))
-  (fix-up! (vector-length heap) (vector-append heap (vector (cons priority item)))))
+  (fix-up! (vector-length heap)
+	   (vector-append heap (vector (cons priority item)))))
 
 (define-public (heap-peek heap)
   (if (vector-empty? heap) #f (vector-ref heap 0)))
@@ -267,7 +268,7 @@
       (when update (update visited heap))
       (iter (fold
 	     (lambda (edge heap)
-	       (heap-insert (+ dist (chebychev edge) 1) edge heap))
+p	       (heap-insert (+ dist (chebychev edge) 1) edge heap))
 	     (heap-pop heap)
 	     (node-edges (assv-ref graph idx)))
 	    (cons idx visited))])))