[occt.git] / tests / bugs / moddata_3 / bug25407_2

puts "================"
puts "OCC25407"
puts "================"
puts ""
#######################################################################
# Exception in extrema operation.
#######################################################################

restore [locate_data_file bug25407_e2.brep] e
restore [locate_data_file bug25407_f2.brep] f

mkcurve c e
mksurface s f

trim st s -0.168011130695572 0. -16.5 0.
trim ct c 1.1167213545471877e-008 0.033333343614041021

extrema ct st

if { [isdraw ext_1] } {
   mkedge result ext_1
   set length 1.00005e-07
} else {
   puts "Error: invalid result"
}

set 2dviewer 1
Commit	Line	Data
032d0272	1	puts "================"
	2	puts "OCC25407"
	3	puts "================"
	4	puts ""
	5	#######################################################################
	6	# Exception in extrema operation.
	7	#######################################################################
	8
	9	restore [locate_data_file bug25407_e2.brep] e
	10	restore [locate_data_file bug25407_f2.brep] f
	11
	12	mkcurve c e
	13	mksurface s f
	14
	15	trim st s -0.168011130695572 0. -16.5 0.
	16	trim ct c 1.1167213545471877e-008 0.033333343614041021
	17
	18	extrema ct st
	19
	20	if { [isdraw ext_1] } {
	21	mkedge result ext_1
	22	set length 1.00005e-07
	23	} else {
	24	puts "Error: invalid result"
	25	}
	26
	27	set 2dviewer 1