3cdfdc9a |
1 | puts "TODO OCC24156 MacOS: Tcl Exception: tolerance ang" |
2 | puts "TODO ?OCC24156 MacOS: TEST INCOMPLETE" |
0e94a94e |
3 | |
4 | puts "================" |
5 | puts "OCC140" |
6 | puts "================" |
7 | puts "" |
8 | ######################################################### |
9 | ## Fillet is created incorrectly on attached shape. |
10 | ######################################################### |
11 | |
12 | restore [locate_data_file shading_137.brep] s |
352ffd73 |
13 | checkshape s |
0e94a94e |
14 | |
15 | dset SCALE1 5 |
16 | tscale s 0 0 0 SCALE1 |
17 | explode s e |
18 | blend sh s 4.5*SCALE1 s_4 4.5*SCALE1 s_5 4.5*SCALE1 s_1 |
19 | explode sh so |
20 | |
21 | renamevar sh_1 result |
22 | fsameparameter result |
23 | |
24 | set square 3.65424e+06 |
25 | set 2dviewer 0 |