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

puts "========"
puts "OCC25981"
puts "========"
puts ""
#################################################
# Wrong result obtained by projection algorithm.
#################################################

restore [locate_data_file bug25981_cb1_4.draw] c
restore [locate_data_file bug25981_b2f.brep] f
mksurface s f
project x c s

2dcvalue x 0 firstX firstY
set log [dump firstX]
regexp {([-0-9.+eE]+)} ${log} x1

set tol_abs 1.e-7
if {abs($x1) > $tol_abs} {
  puts "Error: Bad start position of projected curve"
}

view 1 -2D- 465 20 400 400
2dfit
pcurve f

xwd ${imagedir}/${casename}.png
Commit	Line	Data
3960a825	1	puts "========"
	2	puts "OCC25981"
	3	puts "========"
	4	puts ""
	5	#################################################
	6	# Wrong result obtained by projection algorithm.
	7	#################################################
	8
	9	restore [locate_data_file bug25981_cb1_4.draw] c
	10	restore [locate_data_file bug25981_b2f.brep] f
	11	mksurface s f
	12	project x c s
	13
	14	2dcvalue x 0 firstX firstY
	15	set log [dump firstX]
	16	regexp {([-0-9.+eE]+)} ${log} x1
	17
	18	set tol_abs 1.e-7
	19	if {abs($x1) > $tol_abs} {
	20	puts "Error: Bad start position of projected curve"
	21	}
	22
	23	view 1 -2D- 465 20 400 400
	24	2dfit
	25	pcurve f
	26
	27	xwd ${imagedir}/${casename}.png