Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / bug110_3
1
2 puts "========================"
3 puts "  BUC60706 "
4 puts " OCC110 "
5 puts "(case 7-9)"
6 puts "========================"
7
8 restore [locate_data_file buc60706s.brep] f 
9 puts [checkshape f]
10
11 restore [locate_data_file buc60706b.brep] w
12 puts [checkshape w]
13 pipe t w f
14
15 restore [locate_data_file buc60706l.brep] s
16 puts [checkshape s]
17
18 bcut res_1 s t
19 puts [checkshape res_1]
20
21 restore [locate_data_file buc60706v.brep] f 
22 puts [checkshape f]
23
24 restore [locate_data_file buc60706e.brep] w
25 puts [checkshape w]
26 pipe t w f
27
28 bcut res_2 res_1 t
29 puts [checkshape res_2]
30
31 restore [locate_data_file buc60706x.brep] f 
32 puts [checkshape f]
33
34 restore [locate_data_file buc60706h.brep] w
35 puts [checkshape w]
36 pipe t w f
37
38 bcut result res_2 t
39
40 set square 861220
41 set 2dviewer 0