44 lines
978 B
Tcl
44 lines
978 B
Tcl
# inicjalizacja
|
|
load ./q3.so
|
|
source symul_graf_lib.tcl
|
|
|
|
|
|
# budujemy drzewo
|
|
set liczbaWierz 0
|
|
array unset sasiedzi
|
|
G::sciezka2 0 10
|
|
G::gwiazda2 10 15 0
|
|
G::gwiazda2 15 20 1
|
|
G::gwiazda2 20 25 2
|
|
G::gwiazda2 25 30 3
|
|
G::gwiazda2 30 35 4
|
|
G::gwiazda2 35 40 5
|
|
G::gwiazda2 40 45 6
|
|
G::gwiazda2 45 50 7
|
|
|
|
|
|
# rysujemy graf w odpowiedniej kolejności
|
|
G::rysujGraf -zero 1
|
|
|
|
# sposób na konfig. połączeń na podstawie ID i nr_połączenia
|
|
proc tc_pol {id pol} {
|
|
global sasiedzi
|
|
set l1 "$id [lindex $sasiedzi($id) $pol]"
|
|
set l1 [lsort -integer $l1]
|
|
return "[lindex $l1 0]->[lindex $l1 1]"
|
|
}
|
|
|
|
# ustawiamy grubość krawędzi
|
|
.t.c itemconf 1$tc_edge([tc_pol 0 0]) -width 5
|
|
.t.c itemconf 1$tc_edge([tc_pol 1 0]) -width 5
|
|
.t.c itemconf 1$tc_edge([tc_pol 2 0]) -width 5
|
|
.t.c itemconf 1$tc_edge([tc_pol 3 0]) -width 5
|
|
|
|
|
|
# kolorujemy
|
|
.t.c itemconf 1$tc_node(5) -fill yellow
|
|
.t.c itemconf 1$tc_node(10) -fill red
|
|
.t.c itemconf 1$tc_node(15) -fill yellow
|
|
.t.c itemconf 1$tc_node(20) -fill red
|
|
|