[occt.git] / tests / bugs / modalg_1 / buc60668


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"
}
checkprops result -s 1800 
checkshape result
checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
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	}
58cf74e0	26	checkprops result -s 1800
58cf74e0	27	checkshape result
5747059b	28	checkview -display result -2d -path ${imagedir}/${test_image}.png