Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug140
1
2 puts "================"
3 puts "OCC140"
4 puts "================"
5 puts ""
6 #########################################################
7 ## Fillet is created incorrectly on attached shape.
8 #########################################################
9
10 restore [locate_data_file shading_137.brep] s 
11 puts [checkshape s]
12
13 dset SCALE1 5
14 tscale s 0 0 0 SCALE1
15 explode s e
16 blend sh s  4.5*SCALE1 s_4  4.5*SCALE1 s_5  4.5*SCALE1 s_1
17 explode sh so
18
19 renamevar sh_1 result 
20 fsameparameter result
21
22 set square 3.65424e+06
23 set 2dviewer 0