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

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

box b 10 10 10
explode b f
mkshe profile b_1 b_3

polyline spine 0 0 0 10 10 0

pipe sh spine profile

whatis sh
plane pl 10 10 0 -1 -1 0 1 0 0
mkface f pl
mksol sl f

bcut res sh sl

explode res

# should be compsolid

set ShapeType "COMPSOLID"
if { [regexp $ShapeType [whatis res_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 b 10 10 10
	10	explode b f
	11	mkshe profile b_1 b_3
	12
	13	polyline spine 0 0 0 10 10 0
	14
	15	pipe sh spine profile
	16
	17	whatis sh
	18	plane pl 10 10 0 -1 -1 0 1 0 0
	19	mkface f pl
	20	mksol sl f
	21
	22	bcut res sh sl
	23
	24	explode res
	25
	26	# should be compsolid
	27
	28	set ShapeType "COMPSOLID"
	29	if { [regexp $ShapeType [whatis res_1]] == 1 } {
	30	puts "OK : There is $ShapeType; Compsolid is good"
	31	} else {
	32	puts "Error : There is not $ShapeType; Compsolid is bad"
	33	}