0e94a94e |
1 | |
2 | puts "====================" |
3 | puts "BUC60668" |
4 | puts "Three boxes must appear on picture" |
5 | puts "====================" |
6 | |
7 | box b 100 0 0 10 10 10 |
8 | box b1 10 10 10 |
9 | box b2 50 50 50 10 10 10 |
10 | box a -10 -10 -10 200 200 200 |
11 | |
12 | compound b b1 b2 c |
13 | |
14 | regexp {Mass +: +([-0-9.+eE]+)} [vprops c] full vcomp |
15 | |
16 | #compound b b1 c |
17 | bcommon result c a |
18 | |
19 | regexp {Mass +: +([-0-9.+eE]+)} [vprops result] full vcomm |
20 | |
21 | if { $vcomp != $vcomm } { |
22 | puts " Faulty : Common is incorrect" |
23 | } else { |
24 | puts " BUC60668 OK : Common was made properly" |
25 | } |
26 | set square 1800 |
27 | set 2dviewer 0 |