[occt.git] / tests / bugs / modalg_2 / bug23008

puts "================"
puts "OCC23008"
puts "================"
puts ""
######################################################################################
# Too many intersection vertices between line and cylinder
######################################################################################

set BugNumber OCC23008

restore [locate_data_file bug23008_ez15] b1 
restore [locate_data_file bug23008_fz37] b2 
bclearobjects; bcleartools
baddobjects b1; baddtools b2
bfillds
set info [ bopnews v ]
for {set i 0} {$i <= 100} {incr i} {
    set word [lsearch $info z$i]
    if {$word == -1} {
	lappend check_z 0
    } else {
	lappend check_z 1
    }
}

# Resume
puts ""
set result [lsearch $check_z 1]
if { ${result} == -1 } {
   puts "OK ${BugNumber}"
} else {
   puts "Faulty ${BugNumber}"
}

checkview -display result -3d -path ${imagedir}/${test_image}.png
Commit	Line	Data
809eca9d	1	puts "================"
	2	puts "OCC23008"
	3	puts "================"
	4	puts ""
	5	######################################################################################
	6	# Too many intersection vertices between line and cylinder
	7	######################################################################################
	8
	9	set BugNumber OCC23008
	10
	11	restore [locate_data_file bug23008_ez15] b1
	12	restore [locate_data_file bug23008_fz37] b2
b1682e23	13	bclearobjects; bcleartools
	14	baddobjects b1; baddtools b2
	15	bfillds
	16	set info [ bopnews v ]
809eca9d	17	for {set i 0} {$i <= 100} {incr i} {
	18	set word [lsearch $info z$i]
	19	if {$word == -1} {
	20	lappend check_z 0
	21	} else {
	22	lappend check_z 1
	23	}
	24	}
	25
	26	# Resume
	27	puts ""
	28	set result [lsearch $check_z 1]
	29	if { ${result} == -1 } {
	30	puts "OK ${BugNumber}"
	31	} else {
	32	puts "Faulty ${BugNumber}"
	33	}
	34
5747059b	35	checkview -display result -3d -path ${imagedir}/${test_image}.png