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

puts "TODO OCC12345 ALL: Error : Result shape is WRONG"

puts "============"
puts "OCC4717"
puts "============"
puts ""
######################################################
# A regression of new Boolean Operations
# (cfi/002/H3)
######################################################

dset SCALE1 10
protect SCALE1

box b -20 -20 -20 40 40 20
ellipse w1 0 0 0 15 10
mkedge w1 w1 -pi/2 pi/2
trotate w1 0 0 0 1 0 0 90
wire w w1
revol r w 0 0 0 0 0 1 360
shape s So
add r s
trotate s b 0 0 0 1 1 0 -40
trotate s b 0 0 0 0 0 1 -10
tscale b 0 0 0 SCALE1
tscale s 0 0 0 SCALE1

bop b s
boptuc result

set square 181937

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

set 2dviewer 0
Commit	Line	Data
352ffd73	1	puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
	2
	3	puts "============"
	4	puts "OCC4717"
	5	puts "============"
	6	puts ""
	7	######################################################
	8	# A regression of new Boolean Operations
	9	# (cfi/002/H3)
	10	######################################################
	11
	12	dset SCALE1 10
	13	protect SCALE1
	14
	15	box b -20 -20 -20 40 40 20
	16	ellipse w1 0 0 0 15 10
	17	mkedge w1 w1 -pi/2 pi/2
	18	trotate w1 0 0 0 1 0 0 90
	19	wire w w1
	20	revol r w 0 0 0 0 0 1 360
	21	shape s So
	22	add r s
	23	trotate s b 0 0 0 1 1 0 -40
	24	trotate s b 0 0 0 0 0 1 -10
	25	tscale b 0 0 0 SCALE1
	26	tscale s 0 0 0 SCALE1
	27
	28	bop b s
	29	boptuc result
	30
	31	set square 181937
352ffd73	32
	33	set nb_v_good 3
	34	set nb_e_good 4
	35	set nb_w_good 2
	36	set nb_f_good 2
	37	set nb_sh_good 1
	38	set nb_sol_good 1
	39	set nb_compsol_good 0
	40	set nb_compound_good 1
	41	set nb_shape_good 14
	42
	43	set 2dviewer 0