[occt.git] / tests / bugs / modalg_6 / bug26910

puts "============"
puts "OCC26910"
puts "============"
puts ""
######################################################
# General fuse does not find intersection between line and circle
######################################################

restore [locate_data_file bug26910.brep] a

explode a
bclearobjects
bcleartools
baddobjects a_1
baddtools a_2
bfillds
bbuild r
set a 0
foreach r [explode r v] {
      set a [expr $a + 1]
  }
if { ${a} != 5 } {
  puts "Error: ${a} intersections were not found between line and circle"
} else {
  puts "Found ${a} intersection between line and circle"
}

smallview
fit

checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
45396f87	1	puts "============"
	2	puts "OCC26910"
	3	puts "============"
	4	puts ""
	5	######################################################
	6	# General fuse does not find intersection between line and circle
	7	######################################################
	8
	9	restore [locate_data_file bug26910.brep] a
	10
	11	explode a
	12	bclearobjects
	13	bcleartools
	14	baddobjects a_1
	15	baddtools a_2
	16	bfillds
	17	bbuild r
	18	set a 0
	19	foreach r [explode r v] {
	20	set a [expr $a + 1]
	21	}
	22	if { ${a} != 5 } {
	23	puts "Error: ${a} intersections were not found between line and circle"
	24	} else {
	25	puts "Found ${a} intersection between line and circle"
	26	}
	27
	28	smallview
	29	fit
	30
	31	checkview -screenshot -2d -path ${imagedir}/${test_image}.png