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

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

box b1 10 10 10
explode b1 f
copy b1_1 f
explode b1 e
copy b1_8 e

box b2 10 5 5
shape sh sh
add f sh
copy sh f
shape w w
add e w
copy w e

bclearobjects
bcleartools
baddobjects f e
baddtools b2

bfillds
bbop r 0

nbshapes r

bbop r 2

nbshapes r
explode r

# should be shell and wire
 
set ShapeType "SHELL"
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"
}

set ShapeType "WIRE"
if { [regexp $ShapeType [whatis r_2]] == 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	explode b1 f
	11	copy b1_1 f
	12	explode b1 e
	13	copy b1_8 e
	14
	15	box b2 10 5 5
	16	shape sh sh
	17	add f sh
	18	copy sh f
	19	shape w w
	20	add e w
	21	copy w e
	22
	23	bclearobjects
	24	bcleartools
	25	baddobjects f e
	26	baddtools b2
	27
	28	bfillds
	29	bbop r 0
	30
	31	nbshapes r
	32
	33	bbop r 2
	34
	35	nbshapes r
	36	explode r
	37
	38	# should be shell and wire
	39
	40	set ShapeType "SHELL"
	41	if { [regexp $ShapeType [whatis r_1]] == 1 } {
	42	puts "OK : There is $ShapeType; Compsolid is good"
	43	} else {
	44	puts "Error : There is not $ShapeType; Compsolid is bad"
	45	}
	46
	47	set ShapeType "WIRE"
	48	if { [regexp $ShapeType [whatis r_2]] == 1 } {
	49	puts "OK : There is $ShapeType; Compsolid is good"
	50	} else {
	51	puts "Error : There is not $ShapeType; Compsolid is bad"
	52	}