ro.cs.rpi.edu% setenv NEWLINKBASE /profs/projects/link/link ro.cs.rpi.edu% setenv STK_LIBRARY /usr/local/packages/STk/lib/stk/3.0b2/ ro.cs.rpi.edu% cd $NEWLINKBASE/stklos ro.cs.rpi.edu% $NEWLINKBASE/src/link ld.so: warning: /fs5/X/X11R5/local/lib/libXt.so.4.10 has older revision than expected 20 ld.so: warning: /fs5/X/X11R5/local/lib/libX11.so.4.10 has older revision than expected 20 Welcome to the STk interpreter version 3.0b2 [SunOS-4.1.X-sun4] Copyright (C) 1993,1994,1995 Erick Gallesio - I3S - CNRS / ESSI STk> (load "graph-view.stklos") defined#[undefined] STk> (define g (graph '(1 2 3) '((1 2) (1 3) (3 2)))) #[undefined] STk> (define gv (make :graph g)) #[undefined] STk> (define vg (vertices g)) #[undefined] STk> (describe vg) #[> #p567c5c] is an instance of class > Slots are: val = {1 2 3} #f STk> (define v (car (set-vertex->list vg))) #[undefined] STk> v #[ #p5a6874] STk> (define vgraphic (car (vertices gv))) #[undefined] STk> (set! (color vgraphic) "green") #[undefined] STk> (set! (size vgraphic) 40) #[undefined] STk> (set! (size vgraphic) 2) #[undefined] STk> (define egraphic (car (edges gv))) #[undefined] STk> (set! (color egraphic) "red") #[undefined] STk> (set! (text-color egraphic) "green") #[undefined] STk> (define e (car (set-edge->list (edges g)))) #[undefined] STk> (set-attribute! 'weight 10 e) #[undefined] STk> (map (lambda (x) (find-attribute 'weight x)) (set-edge->list (edges g)) ) (10 1 1) STk> (define tree-edges (kruskal g)) #[undefined] STk> (describe tree-edges) #[> #p5d51d0] is an instance of class > Slots are: val = {{1 3} {2 3}} #f STk> (define etab (slot-ref gv 'edge-table)) #[undefined] STk> (map (lambda (x) (let ((eg (hash-table-get etab x))) (set! (width eg) 4))) (set-edge->list tree-edges)) (#[undefined] #[undefined])