(load "graph-view.stklos")
(define g (graph '(1 2 3) '((1 2) (2 3) (1 3))))
(define gv (make <graph-view> :graph g :layout 'circular))
(define tree-edges (kruskal g))
(define t (graph (vertices g) tree-edges))
(define tv (make <graph-view> :graph t :layout 'circular))

(with-output-to-file "| cat > /a/lunar/u1/berryj/talks/jobtalk/kruskal1.ps"   
		(lambda() (display (postscript (slot-ref gv 'graph-canvas)))))
(with-output-to-file "| cat > /a/lunar/u1/berryj/talks/jobtalk/kruskal2.ps"   
		(lambda() (display (postscript (slot-ref tv 'graph-canvas)))))