puts "==========="
puts "GER61235"
puts "==========="

restore [locate_data_file ger61235a.brep] tool 
checkshape tool
restore [locate_data_file ger61235b.brep] object 
checkshape object

bsection result object tool 

puts "Result of section :"
checkshape result
#To check geometry part 
mksurface s1 tool 
mksurface s2 object 

puts "Result of intersect :"
intersect result s1 s2 
puts [checksection result]

set 2dviewer 0