tcl: .mycanvas create line $dx $dy $dx $y-$dy  — error

Надо create line в качестве одной из координат подсунуть выражение.
Код:
===========
set x 600
set y 400
set dx 20
set dy 20

canvas .mycanvas -width $x -height $y -borderwidth 0
.mycanvas create line $dx $dy $dx $y-$dy -fill black
pack .can

===========
Error in startup script: bad screen distance "400-20"
while executing


И где можно об tcl почитать, типа для совсем чайников. Спасибо.