Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug60668
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