2 puts "OCC23972: Excep-tion thrown when intersecting two cones"
15 set ind [string first "3d curve" $che]
17 #Only variable "res" exists
23 while { $AllowRepeat != 0 } {
24 set che [whatis res_$ic]
25 set ind [string first "3d curve" $che]
32 # Hyperbola is expected as intersection result.
33 # So, all bounds are adjusted to allow correct computation.
34 if { [dval U1] < -20.0 } { dset U1 -20.0 }
35 if { [dval U2] > 20.0 } { dset U2 20.0 }
37 if {[dval U2-U1] < 1.0e-20} {
38 puts "Error: Wrong curve's range!"
41 xdistcs res_$ic s1 U1 U2 10 3.0e-7
42 xdistcs res_$ic s2 U1 U2 10 3.0e-7
48 if {[expr {$ic - 1}] == $GoodNbCurv} {
49 puts "OK: Number of curves is good!"
51 puts "Error: Number of curves is bad!"