3cdfdc9a |
1 | puts "TODO OCC24156 MacOS: Tcl Exception: tolerance ang" |
2 | puts "TODO OCC24156 MacOS: TEST INCOMPLETE" |
3 | |
f1aa2b62 |
4 | puts "========================" |
5 | puts "OCC625" |
6 | puts "========================" |
7 | puts "" |
8 | ############################################################################### |
9 | ## Created filler looks strange (see attached picture) inspite of checkshapes told about correct source and result shapes. |
10 | ############################################################################### |
11 | |
12 | pload QAcommands |
13 | |
14 | restore [locate_data_file OCC625.brep] a |
352ffd73 |
15 | checkshape a |
f1aa2b62 |
16 | |
f1aa2b62 |
17 | tclean a |
18 | explode a e |
19 | |
20 | blend res1 a 10 a_22 10 a_14 |
21 | blend result res1 10 a_17 10 a_4 |
352ffd73 |
22 | checkshape result |
f1aa2b62 |
23 | |
24 | vinit |
25 | vdisplay result |
26 | vfit |
27 | vsetdispmode result 1 |
28 | |
f1aa2b62 |
29 | set x_coord 116 |
30 | set y_coord 252 |
31 | |
32 | checkcolor $x_coord $y_coord 0.82 0.58 0.09 |
33 | |
58cf74e0 |
34 | checkprops result -s 19977 |
5747059b |
35 | checkview -display result -3d -path ${imagedir}/${test_image}.png |