[occt.git] / tests / lowalgos / intss / bug23166

puts "================"
puts "OCC23166"
puts "================"
puts ""
#######################################################################
#  Intersection of plane and cone produces wrong result
#######################################################################

restore [locate_data_file bug23166_surface1_draw.draw] s1
restore [locate_data_file bug23166_surface2_draw.draw] s2

intersect result s1 s2

set log [dump result_1]
if { [regexp {Parameters} ${log}] } {
  puts "Error: untrimmed first hyperbola"
} else {
  puts "OK: untrimmed first hyperbola"
}

set log [dump result_2]
if { [regexp {Parameters} ${log}] } {
  puts "Error: untrimmed second hyperbola"
} else {
  puts "OK: untrimmed second hyperbola"
}

smallview
donly result*
fit
display s1 s2
checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
775530d4	1	puts "================"
	2	puts "OCC23166"
	3	puts "================"
	4	puts ""
	5	#######################################################################
	6	# Intersection of plane and cone produces wrong result
	7	#######################################################################
	8
	9	restore [locate_data_file bug23166_surface1_draw.draw] s1
	10	restore [locate_data_file bug23166_surface2_draw.draw] s2
	11
	12	intersect result s1 s2
	13
	14	set log [dump result_1]
	15	if { [regexp {Parameters} ${log}] } {
	16	puts "Error: untrimmed first hyperbola"
	17	} else {
	18	puts "OK: untrimmed first hyperbola"
	19	}
	20
	21	set log [dump result_2]
	22	if { [regexp {Parameters} ${log}] } {
	23	puts "Error: untrimmed second hyperbola"
	24	} else {
	25	puts "OK: untrimmed second hyperbola"
	26	}
	27
	28	smallview
	29	donly result*
	30	fit
	31	display s1 s2
	32	checkview -screenshot -2d -path ${imagedir}/${test_image}.png