[occt.git] / tests / bugs / modalg_5 / bug25193

puts "================"
puts "OCC25193"
puts "================"
puts ""
#######################################################################
# Bad Intersection curveobtained by Surface/Surface Intersection Algorithm.
#######################################################################

restore [locate_data_file bug25193_s1t.draw] s1
restore [locate_data_file bug25193_s4t.draw] s4

set CurveNumb [intersect i s1 s4 3.6570868343352305e-005]

if { [llength ${CurveNumb}] != 6 } {
    puts "Error : Bad Intersection curveobtained by Surface/Surface Intersection Algorithm"
} else {
    puts "OK : Good Intersection curveobtained by Surface/Surface Intersection Algorithm"
}

smallview
fit

set only_screen_axo 1
Commit	Line	Data
68cdb44b	1	puts "================"
	2	puts "OCC25193"
	3	puts "================"
	4	puts ""
	5	#######################################################################
	6	# Bad Intersection curveobtained by Surface/Surface Intersection Algorithm.
	7	#######################################################################
	8
	9	restore [locate_data_file bug25193_s1t.draw] s1
	10	restore [locate_data_file bug25193_s4t.draw] s4
	11
	12	set CurveNumb [intersect i s1 s4 3.6570868343352305e-005]
	13
	14	if { [llength ${CurveNumb}] != 6 } {
	15	puts "Error : Bad Intersection curveobtained by Surface/Surface Intersection Algorithm"
	16	} else {
	17	puts "OK : Good Intersection curveobtained by Surface/Surface Intersection Algorithm"
	18	}
	19
	20	smallview
	21	fit
	22
	23	set only_screen_axo 1