Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / bug472_3
1 puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_8"
2 puts "TODO OCC12345 ALL: Error : The square of result shape is"
3 puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must contains 5 vertexes instead of 6"
4
5 puts "========================"
6 puts " OCC472 "
7 puts "(case 3)"
8 puts "========================"
9 puts ""
10 #####################################################
11 ## Bad result of Fuse Operation (Cut&Common - bad too). SAM1470 (#2634) 
12 #####################################################
13
14 restore [locate_data_file OCC472a.brep] b1 
15 puts [checkshape b1]
16
17 restore [locate_data_file OCC472b.brep] b2
18 puts [checkshape b2]
19
20 bfuse result b1 b2
21
22 set nb_info [nbshapes result]
23 set nb_v_good 5
24 set nb_e_edge 7
25
26 set square 0
27 set 2dviewer 0
28