[occt.git] / tests / bugs / modalg_2 / bug21754

puts "================"
puts "OCC21754"
puts "================"
puts ""
#################################################################
# Section of face by plane yields empty result
#################################################################

set BugNumber OCC21754

# load shape and make face with natural bounds, to excluse possibility of
# lame excuse saying that it contains small edges
restore [locate_data_file OCC21754-bug_bsection_empty.brep] a 
mksurface s a
mkface f s

# create plane at Z=-0.410 (the bug is reproduced for Z in range [-0.405;-0.420])
plane pl 0 0 -0.410 0 0 1
mkface p pl 0 10 -5 5

bsection result f p -na

checknbshapes result -vertex 2 -edge 1 -wire 0 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 4
checkprops result -l 0.592137 
checkshape result 
checksection result

checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
809eca9d	1	puts "================"
	2	puts "OCC21754"
	3	puts "================"
	4	puts ""
	5	#################################################################
	6	# Section of face by plane yields empty result
	7	#################################################################
	8
	9	set BugNumber OCC21754
	10
	11	# load shape and make face with natural bounds, to excluse possibility of
	12	# lame excuse saying that it contains small edges
	13	restore [locate_data_file OCC21754-bug_bsection_empty.brep] a
	14	mksurface s a
	15	mkface f s
	16
	17	# create plane at Z=-0.410 (the bug is reproduced for Z in range [-0.405;-0.420])
	18	plane pl 0 0 -0.410 0 0 1
	19	mkface p pl 0 10 -5 5
	20
4e57c75e	21	bsection result f p -na
809eca9d	22
a4eba920	23	checknbshapes result -vertex 2 -edge 1 -wire 0 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 4
58cf74e0	24	checkprops result -l 0.592137
	25	checkshape result
	26	checksection result
809eca9d	27
5747059b	28	checkview -display result -2d -path ${imagedir}/${test_image}.png
809eca9d	29