5 ##############################################################
6 # Wrong intersection curves obtained for a surface of revolution and a plane.
7 ##############################################################
9 restore [locate_data_file bug24650_fz1365.brep] b1
10 restore [locate_data_file bug24650_fz2495.brep] b2
14 trimu sb1tu sb1 0.242 0.291
16 set N [intersect i sb1tu sb2]
18 if { [llength ${N}] != 1} {
19 puts "Error : Wrong intersection curves"
22 set type_of_curve "BSplineCurve"
23 if { [regexp ${type_of_curve} ${info1}] != 1 } {
24 puts "Error : Wrong type of intersection curve"
26 puts "OK : Good type of intersection curve"