[occt.git] / tests / bugs / moddata / ger61235

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

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

bsection result object tool 

puts "Result of section :"
puts [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
Commit	Line	Data
	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