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

puts "========="
puts "CR24472"
puts "========="
puts ""
###############################
## Wrong section curves
###############################

restore [locate_data_file bug24472_Pipe_1.brep] b1

explode b1 f
copy b1_2 f1
copy b1_3 f2
copy b1_6 f3
mksurface s1 f1
mksurface s2 f2
mksurface s3 f3

puts ""
puts "First test"
# 1.1 geometry
intersect i s1 s2

#donly i_22; fit

xdistcs i_22 s1 0 1 10 1e-7

puts ""
puts "Second test"
# 1.2 topology
bsection r f1 f2
bopcheck r
# r is self interfered
explode r e
mkcurve c r_1

#donly r_1; fit

xdistcs c s1 0.0714822451660209 1 10 1e-12 1e-7

puts ""
puts "Third test"
# 2.1 geometry
intersect i s1 s3

#donly i_4; fit

xdistcs i_4 s1 0 1 10 1e-6 1e-7

puts ""
puts "Fourth test"
# 2.2 topology
bsection r f1 f3
bopcheck r
#r is self interfered
explode r
mkcurve c r_1

#donly r_1; fit

xdistcs c s1 0.0714822451660209 1 10 1e-12 1e-7
Commit	Line	Data
00302ba4	1	puts "========="
	2	puts "CR24472"
	3	puts "========="
	4	puts ""
	5	###############################
	6	## Wrong section curves
	7	###############################
	8
00302ba4	9	restore [locate_data_file bug24472_Pipe_1.brep] b1
	10
	11	explode b1 f
	12	copy b1_2 f1
	13	copy b1_3 f2
	14	copy b1_6 f3
	15	mksurface s1 f1
	16	mksurface s2 f2
	17	mksurface s3 f3
	18
	19	puts ""
	20	puts "First test"
	21	# 1.1 geometry
	22	intersect i s1 s2
	23
	24	#donly i_22; fit
	25
6d368502	26	xdistcs i_22 s1 0 1 10 1e-7
00302ba4	27
	28	puts ""
	29	puts "Second test"
	30	# 1.2 topology
	31	bsection r f1 f2
	32	bopcheck r
	33	# r is self interfered
	34	explode r e
	35	mkcurve c r_1
	36
	37	#donly r_1; fit
	38
6d368502	39	xdistcs c s1 0.0714822451660209 1 10 1e-12 1e-7
00302ba4	40
	41	puts ""
	42	puts "Third test"
	43	# 2.1 geometry
	44	intersect i s1 s3
	45
	46	#donly i_4; fit
	47
6d368502	48	xdistcs i_4 s1 0 1 10 1e-6 1e-7
00302ba4	49
	50	puts ""
	51	puts "Fourth test"
	52	# 2.2 topology
	53	bsection r f1 f3
	54	bopcheck r
	55	#r is self interfered
	56	explode r
	57	mkcurve c r_1
	58
	59	#donly r_1; fit
	60
6d368502	61	xdistcs c s1 0.0714822451660209 1 10 1e-12 1e-7