5d010b1d |
1 | puts "TODO OCC27711 ALL: Error: tolerance" |
340054e1 |
2 | puts "========" |
3 | puts "OCC27711" |
4 | puts "========" |
5 | puts "" |
6 | ##################################### |
7 | # Blend-on-blend corrupts the shape |
8 | ##################################### |
9 | |
10 | smallview |
11 | |
81a55a69 |
12 | restore [locate_data_file bug27711.brep] s |
13 | |
340054e1 |
14 | clear |
81a55a69 |
15 | display s |
340054e1 |
16 | fit |
17 | xwd $imagedir/${casename}_step_0.png |
18 | |
81a55a69 |
19 | explode s e |
20 | blend result s 0.5 s_12 0.5 s_11 |
340054e1 |
21 | set bug_info [string trim [checkshape result]] |
22 | if {$bug_info != "This shape seems to be valid"} { |
23 | puts "ERROR: Problem of test case functionality. Should be additionally investigated." |
24 | } |
25 | clear |
26 | display result |
27 | xwd $imagedir/${casename}_step_1.png |
28 | |
29 | explode result e |
30 | # The correct command format should be following: |
31 | # blend res res 0.5 res_7 0.5 res_11 |
32 | # but it does not work properly on win64 vc 10 |
33 | # so for automated test case following command format was used: |
34 | blend result result 0.5 result_11 |
35 | set bug_info [string trim [checkshape result]] |
36 | if {$bug_info != "This shape seems to be valid"} { |
37 | puts "ERROR: Problem of test case functionality. Should be additionally investigated." |
38 | } |
39 | clear |
40 | display result |
41 | xwd $imagedir/${casename}_step_2.png |
42 | |
43 | explode result e |
44 | blend result result 0.35 result_4 0.25 ressult_15 0.2 result_27 |
45 | set bug_info [string trim [checkshape result]] |
46 | if {$bug_info != "This shape seems to be valid"} { |
47 | puts "ERROR: OCC27711 is reproduced. Result of blend operation is WRONG." |
48 | } |
5d010b1d |
49 | checkmaxtol result -min_tol 1.e-3 |
340054e1 |
50 | clear |
51 | display result |
52 | xwd $imagedir/${casename}_step_3.png |