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

puts "=========="
puts "OCC24519"
puts "=========="
puts ""
####################################################################
# 0024519: Intersection of a cylinder and a plane does not return
####################################################################

restore [locate_data_file bug24519_cylinder.brep] cy
restore [locate_data_file bug24519_plane.brep] pl

bsection r1 cy pl
section r2 cy pl
set exp1 [explode r1]
set exp2 [explode r2]

if { $exp1 != "r1_1" } {
  puts "Error: First intersection is not returned"
}
if { $exp2 != "r2_1" } {
  puts "Error: Second intersection is not returned"
}

checksection r1
checksection r2
checkprops r1 -l 3.83537
checkprops r2 -l 3.83537
Commit	Line	Data
3edc7eea	1	puts "=========="
	2	puts "OCC24519"
	3	puts "=========="
	4	puts ""
	5	####################################################################
	6	# 0024519: Intersection of a cylinder and a plane does not return
	7	####################################################################
	8
	9	restore [locate_data_file bug24519_cylinder.brep] cy
	10	restore [locate_data_file bug24519_plane.brep] pl
	11
	12	bsection r1 cy pl
	13	section r2 cy pl
	14	set exp1 [explode r1]
	15	set exp2 [explode r2]
	16
	17	if { $exp1 != "r1_1" } {
	18	puts "Error: First intersection is not returned"
	19	}
	20	if { $exp2 != "r2_1" } {
	21	puts "Error: Second intersection is not returned"
	22	}
	23
3edc7eea	24	checksection r1
3edc7eea	25	checksection r2
58cf74e0	26	checkprops r1 -l 3.83537
58cf74e0	27	checkprops r2 -l 3.83537