[occt.git] / tests / bugs / modalg_5 / bug23958

puts "========="
puts "OCC23958"
puts "========="
puts ""
#################################################################################
# Section of shell by plane is incomplete
#################################################################################

pload DATAEXCHANGEKERNEL

# shell
restore [locate_data_file bug23958_bug948-shape.brep] a

# plane
plane p 10.62752 0 0 1 0 0
mkface f p

# check that everything is Ok
checkshape a
tolerance a
bopargcheck a f -S #F

# build section
bsection result a f

# check total length of result
set length 1.21473

set 2dviewer 1
Commit	Line	Data
b4109929	1	puts "========="
	2	puts "OCC23958"
	3	puts "========="
	4	puts ""
	5	#################################################################################
	6	# Section of shell by plane is incomplete
	7	#################################################################################
	8
	9	pload DATAEXCHANGEKERNEL
	10
	11	# shell
	12	restore [locate_data_file bug23958_bug948-shape.brep] a
	13
	14	# plane
	15	plane p 10.62752 0 0 1 0 0
	16	mkface f p
	17
	18	# check that everything is Ok
	19	checkshape a
	20	tolerance a
	21	bopargcheck a f -S #F
	22
	23	# build section
	24	bsection result a f
	25
	26	# check total length of result
	27	set length 1.21473
	28
	29	set 2dviewer 1