f1aa2b62 |
1 | |
2 | puts "========" |
3 | puts "OCC715" |
4 | puts "SAM1582" |
5 | puts "========" |
6 | puts "" |
7 | ########################################## |
8 | ## section of two faces produces wrong number of section edges |
9 | ########################################## |
10 | |
11 | restore [locate_data_file OCC715_2.brep] f2 |
12 | restore [locate_data_file OCC715_3.brep] f3 |
13 | |
14 | bsection result f2 f3 |
15 | |
16 | set expl [explode result] |
17 | |
18 | set length [llength $expl] |
19 | puts "Result is $length section edge" |
20 | |
21 | if {$length != 3} { |
22 | puts "Faulty OCC715" |
23 | } else { |
24 | puts "OCC715 OK" |
25 | } |
26 | |
58cf74e0 |
27 | checkprops result -l 100. |
28 | checkshape result |
29 | checksection result |
5747059b |
30 | checkview -display result -2d -path ${imagedir}/${test_image}.png |