1d54b807 |
1 | puts "TODO OCC27711 ALL: ERROR: OCC27711 is reproduced. Result of blend operation is WRONG." |
5d010b1d |
2 | puts "TODO OCC27711 ALL: Error: tolerance" |
1d54b807 |
3 | puts "TODO OCC27711 ALL: Faulty shapes in variables faulty_1 to faulty_" |
340054e1 |
4 | puts "========" |
5 | puts "OCC27711" |
6 | puts "========" |
7 | puts "" |
8 | ##################################### |
9 | # Blend-on-blend corrupts the shape |
10 | ##################################### |
11 | |
12 | smallview |
13 | |
81a55a69 |
14 | restore [locate_data_file bug27711.brep] s |
15 | |
340054e1 |
16 | clear |
81a55a69 |
17 | display s |
340054e1 |
18 | fit |
19 | xwd $imagedir/${casename}_step_0.png |
20 | |
81a55a69 |
21 | explode s e |
1d54b807 |
22 | blend r1 s 0.5 s_7 0.5 s_12 |
23 | set bug_info [string trim [checkshape r1]] |
340054e1 |
24 | if {$bug_info != "This shape seems to be valid"} { |
25 | puts "ERROR: Problem of test case functionality. Should be additionally investigated." |
26 | } |
27 | clear |
1d54b807 |
28 | display r1 |
340054e1 |
29 | xwd $imagedir/${casename}_step_1.png |
30 | |
1d54b807 |
31 | explode r1 e |
32 | blend r1 r1 0.5 r1_1 0.5 r1_8 |
33 | set bug_info [string trim [checkshape r1]] |
340054e1 |
34 | if {$bug_info != "This shape seems to be valid"} { |
35 | puts "ERROR: Problem of test case functionality. Should be additionally investigated." |
36 | } |
37 | clear |
1d54b807 |
38 | display r1 |
340054e1 |
39 | xwd $imagedir/${casename}_step_2.png |
40 | |
1d54b807 |
41 | explode r1 e |
42 | blend result r1 0.35 r1_4 0.25 r1_15 0.2 r1_27 |
340054e1 |
43 | set bug_info [string trim [checkshape result]] |
44 | if {$bug_info != "This shape seems to be valid"} { |
45 | puts "ERROR: OCC27711 is reproduced. Result of blend operation is WRONG." |
46 | } |
5d010b1d |
47 | checkmaxtol result -min_tol 1.e-3 |
340054e1 |
48 | clear |
49 | display result |
50 | xwd $imagedir/${casename}_step_3.png |