5 ###############################
6 ## Wrong section curves
7 ###############################
9 puts "TODO OCC29501 ALL: Error in ii12_22"
10 puts "TODO OCC29501 All: Error: The curve ii12_22 is possible"
13 restore [locate_data_file bug24472_Pipe_1.brep] b1
28 foreach c [directory ii12*] {
31 if {[dval U2-U1] < 1.0e-9} {
32 puts "Error: Wrong curve's range!"
38 xdistcs $c s1 U1 U2 10 $MaxToler
39 xdistcs $c s2 U1 U2 10 $MaxToler
49 regexp {Tolerance MAX=([-0-9.+eE]+)} [tolerance r12] full toler
50 if { $toler > $MaxToler } { puts "Error: Tolerance of the section r12 is too large" }
57 foreach c [directory ii13*] {
60 if {[dval U2-U1] < 1.0e-9} {
61 puts "Error: Wrong curve's range!"
67 xdistcs $c s1 U1 U2 10 $MaxToler
68 xdistcs $c s2 U1 U2 10 $MaxToler
78 regexp {Tolerance MAX=([-0-9.+eE]+)} [tolerance r13] full toler
79 if { $toler > $MaxToler } { puts "Error: Tolerance of the section r13 is too large" }