TCL/TK

(Сорри, неккоректное форматирование) Вот кусок программки: (немогу понять в чем ошибка) global x1 y1 x2 y2 proc RandX {} { set x [expr rand()*1000] if {$x>600} { set x [expr 1000-$x] } return $x }

proc RandY {} { set y [expr rand()*1000] if {$y>600} { set y [expr 1000-$y] } return $y }

proc PaintRec {number} { for {set x 0} {$x<$number} {incr x} { set x1 RandX set y1 RandY set x2 RandX set y2 RandY .can create rectangle $x1 $y1 $x2 $y2 -outline Yellow } }

canvas .can -bg Black button .b_test -text Generate -command "PaintRec 10"

place .can -x 0 -y 0 -height 600 -width 600 place .b_test -x 270 -y 625 -width 60

Выскакивает вот такая ошибка: bad screen distance "RandX" bad screen distance "RandX" while executing ".can create rectangle $x1 $y1 $x2 $y2 -outline Yellow"

s/set [xy][12] Rand[XY]/set y1 [RandXY]/g =)

Сглючил, правильно так:

s/set \([xy][12]\) \(Rand[XY]\)/set \1 [\2]/g =)