Adding test cases from grid chl
[occt.git] / tests / bugs / moddata / ger61235
1 puts "==========="
2 puts "GER61235"
3 puts "==========="
4
5 restore [locate_data_file ger61235a.brep] tool 
6 puts [checkshape tool]
7 restore [locate_data_file ger61235b.brep] object 
8 puts [checkshape object]
9
10 bsection result object tool 
11
12 puts "Result of section :"
13 puts [checkshape result]
14 #To check geometry part 
15 mksurface s1 tool 
16 mksurface s2 object 
17
18 puts "Result of intersect :"
19 intersect result s1 s2 
20 puts [checksection result]
21
22 set 2dviewer 0
23
24