a87752f3 |
1 | puts "TODO OCC12345 ALL: Faulty : Now w1,w2 have bspline curves as basic !!!" |
58cf74e0 |
2 | puts "TODO OCC12345 ALL: Error : The area of result shape is" |
a87752f3 |
3 | |
4 | puts "========================" |
5 | puts " BUC60958 " |
6 | puts " OCC87 " |
7 | puts "========================" |
8 | |
9 | puts "Restoring the wires :" |
10 | restore [locate_data_file OCC86a.brep] w1 |
352ffd73 |
11 | checkshape w1 |
a87752f3 |
12 | restore [locate_data_file OCC86b.brep] w2 |
352ffd73 |
13 | checkshape w2 |
a87752f3 |
14 | |
15 | set first1 [dump w1] |
16 | set second1 [dump w2] |
17 | |
18 | # puts "Do Thrusection by following command: thrusections res 0 0 w1 w2 " |
19 | |
20 | thrusections result 0 0 w1 w2 |
21 | |
22 | set first2 [dump w1] |
23 | set second2 [dump w2] |
24 | |
25 | if {$first1 != $first2 || $second1 != $second2} { |
26 | puts "Faulty : Now w1,w2 have bspline curves as basic !!!" |
27 | } else { |
28 | puts "Correct result: Wires have circle curves as basic" |
29 | } |
30 | |
58cf74e0 |
31 | checkprops result -s 0 |
32 | checkshape result |
5747059b |
33 | checkview -display result -2d -path ${imagedir}/${test_image}.png |