[occt.git] / tests / bugs / modalg_7 / bug29333_1

puts "========"
puts "OCC29333"
puts "========"
puts ""
#################################################
# Boolean Operations - Prevent modification of the input shapes in case their sub-shapes have not been modified
#################################################

# create two touching faces
plane p 0 0 0 0 0 1
mkface f1 p -10 10 -10 10

copy f1 f2
ttranslate f2 20 0 0

# fuse these faces
bfuse s f1 f2

# split one of these faces
explode s f

line l 0 0 0 1 0 0 
mkedge e l
bclearobjects
bcleartools
baddobjects s_1
baddtools e
bfillds
bsplit s1_sp


# fuse again
bclearobjects
bcleartools
baddobjects s1_sp
baddtools s_2
bfillds
bbuild result

checkshape result
checkprops result -s 800
checknbshapes result -vertex 8 -edge 10 -wire 3 -face 3


# check that non of the shapes from s1_sp is modified
compound result s1_sp c
checknbshapes c -vertex 8 -edge 10 -wire 3 -face 3


# fuse with different order
bclearobjects
bcleartools
baddobjects s_2
baddtools s1_sp
bfillds
bbuild result

checkshape result
checkprops result -s 800
checknbshapes result -vertex 8 -edge 10 -wire 3 -face 3


# check that non of the shapes from s1_sp is modified
compound result s1_sp c
checknbshapes c -vertex 8 -edge 10 -wire 3 -face 3
Commit	Line	Data
81a55a69	1	puts "========"
	2	puts "OCC29333"
	3	puts "========"
	4	puts ""
	5	#################################################
	6	# Boolean Operations - Prevent modification of the input shapes in case their sub-shapes have not been modified
	7	#################################################
	8
	9	# create two touching faces
	10	plane p 0 0 0 0 0 1
	11	mkface f1 p -10 10 -10 10
	12
	13	copy f1 f2
	14	ttranslate f2 20 0 0
	15
	16	# fuse these faces
	17	bfuse s f1 f2
	18
	19	# split one of these faces
	20	explode s f
	21
	22	line l 0 0 0 1 0 0
	23	mkedge e l
	24	bclearobjects
	25	bcleartools
	26	baddobjects s_1
	27	baddtools e
	28	bfillds
	29	bsplit s1_sp
	30
	31
	32	# fuse again
	33	bclearobjects
	34	bcleartools
	35	baddobjects s1_sp
	36	baddtools s_2
	37	bfillds
	38	bbuild result
	39
	40	checkshape result
	41	checkprops result -s 800
	42	checknbshapes result -vertex 8 -edge 10 -wire 3 -face 3
	43
	44
	45	# check that non of the shapes from s1_sp is modified
	46	compound result s1_sp c
	47	checknbshapes c -vertex 8 -edge 10 -wire 3 -face 3
	48
	49
	50	# fuse with different order
	51	bclearobjects
	52	bcleartools
	53	baddobjects s_2
	54	baddtools s1_sp
	55	bfillds
	56	bbuild result
	57
	58	checkshape result
	59	checkprops result -s 800
	60	checknbshapes result -vertex 8 -edge 10 -wire 3 -face 3
	61
	62
	63	# check that non of the shapes from s1_sp is modified
	64	compound result s1_sp c
65	checknbshapes c -vertex 8 -edge 10 -wire 3 -face 3