Rozproszone_moje_zad/TEMAT_A/zad0_3.tcl
2021-04-02 18:47:05 +02:00

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