[occt.git] / tests / bugs / moddata_1 / bug22720

puts "============"
puts "OCC22720"
puts "============"
puts ""
#######################################################################
# Wrong intersection point for the case of intersection between sphere and plane
#######################################################################

set BugNumber OCC22720

restore [locate_data_file OCC22720-f1.brep] f1 
restore [locate_data_file OCC22720-f2.brep] f2 

mksurface s1 f1
mksurface s2 f2

trim s1t s1 0 2 0 2
intersect result s1t s2

set 3dviewer 0
Commit	Line	Data
809eca9d	1	puts "============"
	2	puts "OCC22720"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	# Wrong intersection point for the case of intersection between sphere and plane
	7	#######################################################################
	8
	9	set BugNumber OCC22720
	10
	11	restore [locate_data_file OCC22720-f1.brep] f1
	12	restore [locate_data_file OCC22720-f2.brep] f2
	13
	14	mksurface s1 f1
	15	mksurface s2 f2
	16
	17	trim s1t s1 0 2 0 2
	18	intersect result s1t s2
	19
	20	set 3dviewer 0