[occt.git] / tests / bugs / modalg_6 / bug26565_4

puts "============"
puts "OCC26565"
puts "============"
puts ""
###############################
## Compsolid after cut becomes compound of solids
###############################

box b1 10 10 10
box b2 10 0 0 10 5 5
box b3 10 5 0 10 5 5
box b4 10 0 5 10 10 5

bclearobjects
bcleartools
baddobjects b1 b2 b3 b4

bfillds
bbuild r

explode r so

shape b1 CS
add r_1 b1
add r_2 b1
add r_3 b1
add r_4 b1

box b2 5 0 2 10 10 10
bclearobjects
bcleartools
baddobjects b1
baddtools b2

bfillds
bbop r 2

explode r

# should be compsolid
 
set ShapeType "COMPSOLID"
if { [regexp $ShapeType [whatis r_1]] == 1  } {
   puts "OK : There is $ShapeType; Compsolid is good"
} else {
   puts "Error : There is not $ShapeType; Compsolid is bad"
}
Commit	Line	Data
9526aa6a	1	puts "============"
	2	puts "OCC26565"
	3	puts "============"
	4	puts ""
	5	###############################
	6	## Compsolid after cut becomes compound of solids
	7	###############################
	8
	9	box b1 10 10 10
	10	box b2 10 0 0 10 5 5
	11	box b3 10 5 0 10 5 5
	12	box b4 10 0 5 10 10 5
	13
	14	bclearobjects
	15	bcleartools
	16	baddobjects b1 b2 b3 b4
	17
	18	bfillds
	19	bbuild r
	20
	21	explode r so
	22
	23	shape b1 CS
	24	add r_1 b1
	25	add r_2 b1
	26	add r_3 b1
	27	add r_4 b1
	28
	29	box b2 5 0 2 10 10 10
	30	bclearobjects
	31	bcleartools
	32	baddobjects b1
	33	baddtools b2
	34
	35	bfillds
	36	bbop r 2
	37
	38	explode r
	39
	40	# should be compsolid
	41
	42	set ShapeType "COMPSOLID"
	43	if { [regexp $ShapeType [whatis r_1]] == 1 } {
	44	puts "OK : There is $ShapeType; Compsolid is good"
	45	} else {
	46	puts "Error : There is not $ShapeType; Compsolid is bad"
	47	}