Adding of testing cases from subgroups 937 940 and 941 of CHL group
[occt.git] / tests / bugs / modalg_4 / bug788_1
1
2 puts "========="
3 puts " OCC788 "
4 puts "========="
5 puts ""
6 #################################################
7 ## ThruSection cannot determine correctly correspondence between wires
8 #################################################
9 restore [locate_data_file OCC788_s1w.brep] w1 
10 explode w1
11 wire ww1 w1_1
12
13 restore [locate_data_file OCC788_s2w.brep] w2 
14 explode w2
15 wire ww2 w2_1
16
17 thrusections result 0 0 ww1 ww2
18
19 set 2dviewer 0
20 set square 148608.