#!/usr/bin/wish

canvas .c
pack .c

proc d_rect {"from" x1 y1 "to" x2 y2 "thick" thickness "clr" color} {
   .c create rectangle $x1 $y1 $x2 $y2 -width $thickness -outline $color
}

proc d_text {"at" x y txt "anchor" anch "clr" color} {
   .c create text $x $y -text $txt -anchor $anch -fill $color
}

source "datafile.dat"