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

puts "============"
puts "OCC22723"
puts "============"
puts ""
#######################################################################
# Wrong intersection curve for the case of intersection between cylinder and plane
#######################################################################

set BugNumber OCC22723 

restore [locate_data_file bug22723_fz44.brep] b1 
restore [locate_data_file bug22723_fz7.brep] b2 
mksurface s1 b1
mksurface s2 b2
intersect i s1 s2

regexp {Parameters : ([-0-9.+eE]+) ([-0-9.+eE]+)} [dump i] full a1 a2
set status 0

if { ${a1}>=0 } {
    if { ${a2}<6.29 } {
	set status 1
    }
}

if { ${status}==1 } {
    puts "OK ${BugNumber}"
} else {
    puts "Faulty ${BugNumber}"
}

set 3dviewer 0
Commit	Line	Data
809eca9d	1	puts "============"
	2	puts "OCC22723"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	# Wrong intersection curve for the case of intersection between cylinder and plane
	7	#######################################################################
	8
	9	set BugNumber OCC22723
	10
	11	restore [locate_data_file bug22723_fz44.brep] b1
	12	restore [locate_data_file bug22723_fz7.brep] b2
	13	mksurface s1 b1
	14	mksurface s2 b2
	15	intersect i s1 s2
	16
	17	regexp {Parameters : ([-0-9.+eE]+) ([-0-9.+eE]+)} [dump i] full a1 a2
	18	set status 0
	19
	20	if { ${a1}>=0 } {
	21	if { ${a2}<6.29 } {
	22	set status 1
	23	}
	24	}
	25
	26	if { ${status}==1 } {
	27	puts "OK ${BugNumber}"
	28	} else {
	29	puts "Faulty ${BugNumber}"
	30	}
	31
	32	set 3dviewer 0