2 puts "===================="
4 puts "Three boxes must appear on picture"
5 puts "===================="
9 box b2 50 50 50 10 10 10
10 box a -10 -10 -10 200 200 200
14 regexp {Mass +: +([-0-9.+eE]+)} [vprops c] full vcomp
19 regexp {Mass +: +([-0-9.+eE]+)} [vprops result] full vcomm
21 if { $vcomp != $vcomm } {
22 puts " Faulty : Common is incorrect"
24 puts " BUC60668 OK : Common was made properly"