[occt.git] / tests / bugs / modalg / bug12213

puts "============"
puts "OCC12213"
puts "============"
puts ""
#######################################################################
# Invalid sweep was created by command "buildsweep" in DRAW in case circular path
#######################################################################

set BugNumber OCC12213

circle c1 0 0 0 100
trim cc1 c1 0 3.14
mkedge e2 cc1
wire w2 e2

box a 95 -10 -5 10 10 10
explode a w
explode a_4 e
wire w21 a_4_1 a_4_2 a_4_3 a_4_4

box b -110 -10 -5 20 10 10
explode b w
explode b_4 e
wire w22 b_4_1 b_4_2 b_4_3 b_4_4

explode w2 v

mksweep w2
addsweep w21 w2_1
addsweep w22 w2_2
buildsweep result

set square 15708.8

# Analysis of "nbshapes res"
set nb_v_good 8
set nb_e_good 12
set nb_w_good 4
set nb_f_good 4
set nb_sh_good 1
set nb_sol_good 0
set nb_compsol_good 0
set nb_compound_good 0
set nb_shape_good 29

set 2dviewer 1
Commit	Line	Data
61c421bf	1	puts "============"
	2	puts "OCC12213"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	# Invalid sweep was created by command "buildsweep" in DRAW in case circular path
	7	#######################################################################
	8
	9	set BugNumber OCC12213
	10
	11	circle c1 0 0 0 100
	12	trim cc1 c1 0 3.14
	13	mkedge e2 cc1
	14	wire w2 e2
	15
	16	box a 95 -10 -5 10 10 10
	17	explode a w
	18	explode a_4 e
	19	wire w21 a_4_1 a_4_2 a_4_3 a_4_4
	20
	21	box b -110 -10 -5 20 10 10
	22	explode b w
	23	explode b_4 e
	24	wire w22 b_4_1 b_4_2 b_4_3 b_4_4
	25
	26	explode w2 v
	27
	28	mksweep w2
	29	addsweep w21 w2_1
	30	addsweep w22 w2_2
	31	buildsweep result
	32
	33	set square 15708.8
	34
	35	# Analysis of "nbshapes res"
	36	set nb_v_good 8
	37	set nb_e_good 12
	38	set nb_w_good 4
	39	set nb_f_good 4
	40	set nb_sh_good 1
	41	set nb_sol_good 0
	42	set nb_compsol_good 0
	43	set nb_compound_good 0
	44	set nb_shape_good 29
	45
	46	set 2dviewer 1
	47