[occt.git] / tests / bugs / moddata_2 / bug2784_1

puts "============"
puts "OCC2784"
puts "============"
puts ""
######################################################
# Common and cut operations for two faces gives invalid result
######################################################
# Common and cut operations for two faces gives invalid result if one of the faces
# has a hole and other face lay in this hole (fill this hole).
######################################################
## (new topology)
## (bcut)
## (bcommon)
######################################################

############# data #############
box b1 10 20 10
box b2 1 1 1
ttranslate b2 5 5 0
explode b1 f
explode b2 f

bcut rcut1 b1_5 b2_5
checkshape rcut1

bcommon result rcut1 b2_5

regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m

if { $m != 0 } {
    puts "Error : area is not right"
}

checkview -display result -3d -path ${imagedir}/${test_image}.png
Commit	Line	Data
61c421bf	1	puts "============"
	2	puts "OCC2784"
	3	puts "============"
	4	puts ""
	5	######################################################
	6	# Common and cut operations for two faces gives invalid result
	7	######################################################
	8	# Common and cut operations for two faces gives invalid result if one of the faces
	9	# has a hole and other face lay in this hole (fill this hole).
	10	######################################################
	11	## (new topology)
	12	## (bcut)
	13	## (bcommon)
	14	######################################################
	15
	16	############# data #############
	17	box b1 10 20 10
	18	box b2 1 1 1
	19	ttranslate b2 5 5 0
	20	explode b1 f
	21	explode b2 f
	22
	23	bcut rcut1 b1_5 b2_5
	24	checkshape rcut1
	25
	26	bcommon result rcut1 b2_5
	27
	28	regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m
	29
	30	if { $m != 0 } {
58cf74e0	31	puts "Error : area is not right"
61c421bf	32	}
61c421bf	33
5747059b	34	checkview -display result -3d -path ${imagedir}/${test_image}.png