[occt.git] / tests / bugs / modalg_6 / bug27780

puts "============"
puts "OCC27780"
puts "============"
puts ""
######################################################
# Face-face intersection produces 2D curve that has reversed derivative at its end
######################################################

restore [locate_data_file buc60532a.brep] p 
restore [locate_data_file buc60532b.brep] t1
explode t1 f

bopcurves p t1_2 -2d -p 6.2406621764215551 0.23999999463558200 0.00034444887595448459 -5.0019657458625186

pcurve p
trim c c2d1_1 0 1
2dcvalue c 0 u0 v0
2dcvalue c 1 u1 v1 du dv
dset u01 u1-u0
dset v01 v1-v0
dset dot u01*du+v01*dv

if {[dval dot] < 0} {
  puts "Error: p-curve has reversed direction at its end"
} else {
  puts "OK: p-curve has correct direction at its end"
}

view 1 -2D- 728 450 400 400
don p_* c
2dfit

checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
5185b161	1	puts "============"
	2	puts "OCC27780"
	3	puts "============"
	4	puts ""
	5	######################################################
	6	# Face-face intersection produces 2D curve that has reversed derivative at its end
	7	######################################################
	8
	9	restore [locate_data_file buc60532a.brep] p
	10	restore [locate_data_file buc60532b.brep] t1
	11	explode t1 f
	12
	13	bopcurves p t1_2 -2d -p 6.2406621764215551 0.23999999463558200 0.00034444887595448459 -5.0019657458625186
	14
	15	pcurve p
	16	trim c c2d1_1 0 1
	17	2dcvalue c 0 u0 v0
	18	2dcvalue c 1 u1 v1 du dv
	19	dset u01 u1-u0
	20	dset v01 v1-v0
	21	dset dot u01du+v01dv
	22
	23	if {[dval dot] < 0} {
	24	puts "Error: p-curve has reversed direction at its end"
	25	} else {
	26	puts "OK: p-curve has correct direction at its end"
	27	}
	28
	29	view 1 -2D- 728 450 400 400
	30	don p_* c
	31	2dfit
	32
	33	checkview -screenshot -2d -path ${imagedir}/${test_image}.png