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

puts "========"
puts "OCC28690"
puts "========"
puts ""
##########################################
##  Section algorithm produces micro edge
##########################################

restore [locate_data_file bug28690_m8_faces.brep] a
ttranslate a -20000 -584.41225425562368 0
plane f 0 0 0 1 0 0
mkface f f
bsection r a f
checknbshapes r -edge 3 -vertex 4
checkshape r
checkprops r -l 594.045

# check that all edges have enough length
foreach e [explode r] {
  if {[validrange $e] == "edge has no valid range"} {
    regexp {Mass : *([0-9\-+.eE]+)} [lprops $e] dummy len
    regexp {Tolerance MAX=([0-9\-+.eE]+)} [tolerance $e] dummy tol
    puts "Error: edge $e (lenth=$len, tolerance=$tol) is too small"
  }
}
Commit	Line	Data
8ae442a8	1	puts "========"
	2	puts "OCC28690"
	3	puts "========"
	4	puts ""
	5	##########################################
	6	## Section algorithm produces micro edge
	7	##########################################
	8
	9	restore [locate_data_file bug28690_m8_faces.brep] a
	10	ttranslate a -20000 -584.41225425562368 0
	11	plane f 0 0 0 1 0 0
	12	mkface f f
	13	bsection r a f
	14	checknbshapes r -edge 3 -vertex 4
	15	checkshape r
	16	checkprops r -l 594.045
	17
	18	# check that all edges have enough length
	19	foreach e [explode r] {
	20	if {[validrange $e] == "edge has no valid range"} {
	21	regexp {Mass : *([0-9\-+.eE]+)} [lprops $e] dummy len
	22	regexp {Tolerance MAX=([0-9\-+.eE]+)} [tolerance $e] dummy tol
	23	puts "Error: edge $e (lenth=$len, tolerance=$tol) is too small"
	24	}
	25	}