set x 10
set y 10
canvas .c
pack .c

.c create rectangle $x $y $x+100 $y+100