[occt.git] / tests / bugs / modalg_7 / bug21414

puts "TODO OCC21414 ALL: ERROR: OCC21414 is reproduced."

puts "========"
puts "OCC21414"
puts "========"
puts ""
########################################################################################
# GeomAPI_IntCS fails to find all intersections between line and surface of revolution
########################################################################################

restore [locate_data_file bug21414_wave.brep] a

mksurface s a
line l 0 2.5 0 1 0 0

set theResList [intersect res l s]

if {[llength $theResList] != 100} {
  puts "ERROR: OCC21414 is reproduced. Total number of intersections is [llength $theResList] but should be 100."
}

smallview
fit
checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
b721c02a	1	puts "TODO OCC21414 ALL: ERROR: OCC21414 is reproduced."
	2
	3	puts "========"
	4	puts "OCC21414"
	5	puts "========"
	6	puts ""
	7	########################################################################################
	8	# GeomAPI_IntCS fails to find all intersections between line and surface of revolution
	9	########################################################################################
	10
	11	restore [locate_data_file bug21414_wave.brep] a
	12
	13	mksurface s a
	14	line l 0 2.5 0 1 0 0
	15
	16	set theResList [intersect res l s]
	17
	18	if {[llength $theResList] != 100} {
	19	puts "ERROR: OCC21414 is reproduced. Total number of intersections is [llength $theResList] but should be 100."
	20	}
	21
	22	smallview
	23	fit
	24	checkview -screenshot -2d -path ${imagedir}/${test_image}.png