[occt.git] / tests / bugs / modalg_5 / bug25004_2

puts "=========="
puts "OCC25004  "
puts "=========="
puts ""
##################################################
## Extrema curve/curve incorrect result
##################################################

restore [locate_data_file bug25004_c1.draw] c1
restore [locate_data_file bug25004_c2.draw] c2

set list [extrema c1 c2]
set nb [llength ${list}]
if { ${nb} == 2} {
    puts "OK : command extrema works properly"
} else {
    puts "Error : command extrema does NOT work properly"
}

smallview
fit
set only_screen_axo 1
Commit	Line	Data
5493d334	1	puts "=========="
	2	puts "OCC25004 "
	3	puts "=========="
	4	puts ""
	5	##################################################
	6	## Extrema curve/curve incorrect result
	7	##################################################
	8
	9	restore [locate_data_file bug25004_c1.draw] c1
	10	restore [locate_data_file bug25004_c2.draw] c2
	11
	12	set list [extrema c1 c2]
	13	set nb [llength ${list}]
	14	if { ${nb} == 2} {
	15	puts "OK : command extrema works properly"
	16	} else {
	17	puts "Error : command extrema does NOT work properly"
	18	}
	19
	20	smallview
	21	fit
	22	set only_screen_axo 1