5 ##############################################################
6 # Wrong intersection curves obtained for a surface of revolution and a plane.
7 ##############################################################
11 restore [locate_data_file bug24650_fz1365.brep] b1
12 restore [locate_data_file bug24650_fz2495.brep] b2
16 trimu sb1tu sb1 0.242 0.291
20 set N [intersect res sb1tu sb2]
23 set ind [string first "3d curve" $che]
25 #Only variable "res" exists
32 while { $AllowRepeate != 0 } {
33 set che [whatis res_$ic]
34 set ind [string first "3d curve" $che]
45 if {[dval U2-U1] < 1.0e-20} {
46 puts "Error: Wrong curve's range!"
49 xdistcs res_$ic sb1tu U1 U2 10 1e-7
50 xdistcs res_$ic sb2 U1 U2 10 1e-7
56 if {[expr {$ic - 1}] == $GoodNbCurv} {
57 puts "OK: Curve Number is good!"
59 puts "Error: Curve Number is bad!"
64 checkview -screenshot -2d -path ${imagedir}/${test_image}.png