Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / bug62
1 puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_4"
2 puts "TODO OCC12345 ALL: Error : The square of result shape is"
3
4 puts "================"
5 puts "OCC62"
6 puts "BUC61001"
7 puts "================"
8
9 cpulimit 1400
10 restore [locate_data_file OCC62.brep] sh 
11
12 explode sh 
13 puts [checkshape sh]
14
15 bfuse res1 sh_1 sh_3
16 puts [checkshape res1]
17
18 bfuse res2 res1 sh_2 
19 puts [checkshape res2]
20
21 bfuse res3 res2 sh_6
22 puts [checkshape res3]
23
24 bfuse res4 res3 sh_4
25 puts [checkshape res4]
26
27 bfuse res5 res4 sh_5
28 puts [checkshape res5]
29
30 renamevar res5 result
31
32 set square 0
33 set 2dviewer 0
34