Lines Matching refs:expr

100   expr srand(0)
102     set dx [expr {int(rand()*40)+1}]
103     set dy [expr {int(rand()*40)+1}]
104     set x0 [expr {int(rand()*(10000 - $dx))}]
105     set x1 [expr {$x0+$dx}]
106     set y0 [expr {int(rand()*(10000 - $dy))}]
107     set y1 [expr {$y0+$dy}]
108     set id [expr {$i+10000}]
119   set dx [expr {int(rand()*100)}]
120   set dy [expr {int(rand()*100)}]
121   set x0 [expr {int(rand()*(10000 - $dx))}]
122   set x1 [expr {$x0+$dx}]
123   set y0 [expr {int(rand()*(10000 - $dy))}]
124   set y1 [expr {$y0+$dy}]