[occt.git] / tests / bugs / modalg_6 / bug21670

puts "========"
puts "OCC21670"
puts "========"
puts ""
###################################
# BOP section produces bad result
###################################

smallview

restore [locate_data_file bug21633_SECC19_1_IZQ.brep] a

explode a f
mksurface s a_1
mkface f s

restore [locate_data_file bug21670-bug_prj_wire.brep] w

explode w
prism p w_1 0 0 -1

donly f p
fit

puts "Checking f: [bopcheck f] [checkshape f] [tolerance f]"
puts "Checking p: [bopcheck p] [checkshape p] [tolerance p]"

bsection result f p

set bug_info [explode result]
if {[llength $bug_info] != 1} {
  puts "ERROR: OCC21670 is reproduced. Result of bsection command is set of shapes."
}

checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
d0fdf989	1	puts "========"
	2	puts "OCC21670"
	3	puts "========"
	4	puts ""
	5	###################################
	6	# BOP section produces bad result
	7	###################################
	8
	9	smallview
	10
	11	restore [locate_data_file bug21633_SECC19_1_IZQ.brep] a
	12
	13	explode a f
	14	mksurface s a_1
	15	mkface f s
	16
	17	restore [locate_data_file bug21670-bug_prj_wire.brep] w
	18
	19	explode w
	20	prism p w_1 0 0 -1
	21
	22	donly f p
	23	fit
	24
	25	puts "Checking f: [bopcheck f] [checkshape f] [tolerance f]"
	26	puts "Checking p: [bopcheck p] [checkshape p] [tolerance p]"
	27
	28	bsection result f p
	29
	30	set bug_info [explode result]
	31	if {[llength $bug_info] != 1} {
	32	puts "ERROR: OCC21670 is reproduced. Result of bsection command is set of shapes."
	33	}
	34
5747059b	35	checkview -screenshot -2d -path ${imagedir}/${test_image}.png