puts "====================" puts "BUC60668" puts "Three boxes must appear on picture" puts "====================" box b 100 0 0 10 10 10 box b1 10 10 10 box b2 50 50 50 10 10 10 box a -10 -10 -10 200 200 200 compound b b1 b2 c regexp {Mass +: +([-0-9.+eE]+)} [vprops c] full vcomp #compound b b1 c bcommon result c a regexp {Mass +: +([-0-9.+eE]+)} [vprops result] full vcomm if { $vcomp != $vcomm } { puts " Faulty : Common is incorrect" } else { puts " BUC60668 OK : Common was made properly" } set square 1800 set 2dviewer 0