| 6487fb1c |
1 | puts "========" |
| 2 | puts "0029994: Misprint in IntWalk_PWalking::Perform(...) method" |
| 3 | puts "========" |
| 4 | puts "" |
| 5 | |
| 6 | foreach a [directory res*] {unset $a} |
| 7 | |
| 8 | torus s1 185.793144150183 -13 70.9931441501827 0 -1 0 0 0 -1 27.0094480547676 0.25 |
| 9 | restore [locate_data_file bug29994_s2.draw] s2 |
| 10 | |
| 11 | intersect res s1 s2 1.0e-4 |
| 12 | |
| 13 | if { [info exists res] } { |
| 14 | #Only variable "res" exists |
| 15 | renamevar res res_1 |
| 16 | } |
| 17 | |
| 18 | bclearobjects |
| 19 | bcleartools |
| 20 | |
| 21 | set ic 1 |
| 22 | set AllowRepeat 1 |
| 23 | while { $AllowRepeat != 0 } { |
| 24 | if { ![info exists res_$ic] } { |
| 25 | set AllowRepeat 0 |
| 26 | } else { |
| 27 | bounds res_$ic U1 U2 |
| 28 | |
| 29 | if {[dval U2-U1] < 1.0e-9} { |
| 30 | puts "Error: Wrong curve's range!" |
| 31 | } |
| 32 | |
| 33 | xdistcs res_$ic s1 U1 U2 100 2.0e-7 |
| 34 | xdistcs res_$ic s2 U1 U2 100 2.0e-7 |
| 35 | |
| 36 | mkedge ee res_$ic |
| 37 | baddobjects ee |
| 38 | incr ic |
| 39 | } |
| 40 | } |
| 41 | |
| 42 | incr ic -1 |
| 43 | |
| 44 | if { $ic == 1 } { |
| 45 | puts "OK: good number of curves!" |
| 46 | checklength res_1 -l 0.70541045554962345 -eps 1.0e-3 |
| 47 | } else { |
| 48 | puts "Error: Incorrect number of curves in intersection result!" |
| 49 | bfillds |
| 50 | bbuild result |
| 51 | |
| 52 | # Check gaps between edges in result |
| 53 | checksection result -r 2 |
| 54 | checkmaxtol result -min_tol 2.0e-7 |
| 55 | checknbshapes result -edge 1 -vertex 2 |
| 56 | } |
| 57 | |
| 58 | smallview |
| 59 | don res_* |
| 60 | fit |
| 61 | disp s1 s2 |
| 62 | |
| 63 | checkview -screenshot -2d -path ${imagedir}/${test_image}.png |
projects / occt.git / blame