Test for 0028551: Bad result of general fuse
[occt.git] / tests / bugs / modalg_7 / bug28551
1 puts "================"
2 puts "OCC28551"
3 puts "================"
4 puts ""
5 #######################################################################
6 # Bad result of general fuse
7 #######################################################################
8
9 restore [locate_data_file bug28551_ts_orig.brep] ts0
10 restore [locate_data_file bug28551_pc_orig.brep] pc
11
12 DT_ShapeDivide ts ts0
13
14 bfuzzyvalue 1.0
15 bclearobjects
16 bcleartools
17 baddobjects ts
18 baddtools pc
19
20 bfillds
21
22 bbuild result
23
24 checkshape result
25
26 checkview -display result -2d -path ${imagedir}/${test_image}.png