[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

set nb_v_good 2
set nb_e_good 1
set nb_w_good 0
set nb_f_good 0
set nb_sh_good 0
set nb_sol_good 0
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 4

set length 0.592137

set 2dviewer 0
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
	23	set nb_v_good 2
	24	set nb_e_good 1
	25	set nb_w_good 0
	26	set nb_f_good 0
	27	set nb_sh_good 0
	28	set nb_sol_good 0
	29	set nb_compsol_good 0
	30	set nb_compound_good 1
	31	set nb_shape_good 4
	32
	33	set length 0.592137
	34
	35	set 2dviewer 0
	36