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

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

bclearobjects
bcleartools
baddobjects f e
baddtools b2

bfillds
bbop r 0

nbshapes r

bbop r 2

nbshapes r
explode r

# should edge and face

set ShapeType "FACE"
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 "EDGE"
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
	17	bclearobjects
	18	bcleartools
	19	baddobjects f e
	20	baddtools b2
	21
	22	bfillds
	23	bbop r 0
	24
	25	nbshapes r
	26
	27	bbop r 2
	28
	29	nbshapes r
	30	explode r
	31
	32	# should edge and face
	33
	34	set ShapeType "FACE"
	35	if { [regexp $ShapeType [whatis r_1]] == 1 } {
	36	puts "OK : There is $ShapeType; Compsolid is good"
	37	} else {
	38	puts "Error : There is not $ShapeType; Compsolid is bad"
	39	}
	40
	41	set ShapeType "EDGE"
	42	if { [regexp $ShapeType [whatis r_2]] == 1 } {
	43	puts "OK : There is $ShapeType; Compsolid is good"
	44	} else {
	45	puts "Error : There is not $ShapeType; Compsolid is bad"
	46	}