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

puts "TODO OCC23163 ALL: Error: No resulting circle of radius 5 at the intersection of tori, only b-splines"

puts "================"
puts "OCC23163"
puts "================"
puts ""
#######################################################################
#  Intersection of tori fails to produce results
#######################################################################

torus t1 20 5
torus t2 40 0 0 20 5

intersect result t1 t2

set NbCurv [llength [directory result*]]

if { $NbCurv > 4 } {
  puts "OK: Number of curves is good"
} else {
  puts "Error: No resulting circle of radius 5 at the intersection of tori, only b-splines"
}

smallview
donly result*
fit
display t1 t2
checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
2508ca8e	1	puts "TODO OCC23163 ALL: Error: No resulting circle of radius 5 at the intersection of tori, only b-splines"
	2
	3	puts "================"
	4	puts "OCC23163"
	5	puts "================"
	6	puts ""
	7	#######################################################################
	8	# Intersection of tori fails to produce results
	9	#######################################################################
	10
	11	torus t1 20 5
	12	torus t2 40 0 0 20 5
	13
	14	intersect result t1 t2
	15
	16	set NbCurv [llength [directory result*]]
	17
	18	if { $NbCurv > 4 } {
	19	puts "OK: Number of curves is good"
	20	} else {
	21	puts "Error: No resulting circle of radius 5 at the intersection of tori, only b-splines"
	22	}
	23
	24	smallview
	25	donly result*
	26	fit
	27	display t1 t2
	28	checkview -screenshot -2d -path ${imagedir}/${test_image}.png