352ffd73 |
1 | puts "========================" |
2 | puts " OCC1642 " |
3 | puts "========================" |
4 | puts "" |
5 | ########################################################### |
6 | puts " ShapeFix_Wire::FixSelfIntersectingEdge does not remove a loop" |
7 | ########################################################### |
8 | |
9 | pload QAcommands |
50174691 |
10 | cpulimit 1000 |
352ffd73 |
11 | |
12 | restore [locate_data_file OCC1642.brep] shape |
13 | |
14 | set list [OCC1642 result FinalFace InitWare InitFace shape FixReorder FixDegenerated FixConnected FixSelfIntersection] |
15 | |
16 | set FixSelfIntersection [string last "FixSelfIntersection" $list] |
17 | set Intersectingpt [string last "Intersecting pt :" $list] |
18 | |
19 | puts "FixSelfIntersection=${FixSelfIntersection}" |
20 | puts "Intersectingpt=${Intersectingpt}" |
21 | if { ${Intersectingpt} == -1} { |
22 | puts "Warning: There are not intersecting points" |
23 | } |
24 | |
58cf74e0 |
25 | checkprops result -l 3880.52 |
352ffd73 |
26 | |
27 | if { ${Intersectingpt} > ${FixSelfIntersection} } { |
28 | puts "OCC1642 Faulty" |
29 | } else { |
30 | puts "OCC1642 OK" |
31 | } |
32 | |
5747059b |
33 | checkview -display result -2d -path ${imagedir}/${test_image}.png |
352ffd73 |
34 | |