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

puts "========"
puts "OCC28054"
puts "========"
puts ""
#################################################
# Regression: Class BRepProj_Projection gives invalid result after projection edge based on the line on the conical surface
#################################################

set Tol 1.0e-7

dsetsignal 1

restore [locate_data_file bug28054_FaceProj.brep] f1
restore [locate_data_file bug28054_EdgeProj.brep] e1

set ProjList [prj r e1 f1 0 0 1]

if { [llength $ProjList] < 1 } {
  puts "Error: no projections are found"
}

foreach wir $ProjList {
  set EdgeList [explode $wir e]
  foreach ed $EdgeList {
    set dist 1.0e+100
    regexp {Max Distance = +([-0-9.+eE]+)} [xdistef $ed f1] full dist
    if { $dist > $Tol } {
      puts "Error in projection. 3D and 2D curves of edge $ed are not same-parameter"
    } else {
      puts "OK: Max Distance is less than $Tol"
    }
  }
}
Commit	Line	Data
b0700466	1	puts "========"
	2	puts "OCC28054"
	3	puts "========"
	4	puts ""
	5	#################################################
	6	# Regression: Class BRepProj_Projection gives invalid result after projection edge based on the line on the conical surface
	7	#################################################
	8
	9	set Tol 1.0e-7
	10
	11	dsetsignal 1
	12
	13	restore [locate_data_file bug28054_FaceProj.brep] f1
	14	restore [locate_data_file bug28054_EdgeProj.brep] e1
	15
	16	set ProjList [prj r e1 f1 0 0 1]
	17
	18	if { [llength $ProjList] < 1 } {
	19	puts "Error: no projections are found"
	20	}
	21
	22	foreach wir $ProjList {
	23	set EdgeList [explode $wir e]
	24	foreach ed $EdgeList {
	25	set dist 1.0e+100
	26	regexp {Max Distance = +([-0-9.+eE]+)} [xdistef $ed f1] full dist
	27	if { $dist > $Tol } {
	28	puts "Error in projection. 3D and 2D curves of edge $ed are not same-parameter"
	29	} else {
	30	puts "OK: Max Distance is less than $Tol"
	31	}
	32	}
	33	}