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

puts "============"
puts "OCC27269"
puts "============"
puts ""
###############################
## Intersection algorithm produces null-length curve
###############################


restore [locate_data_file bug27267_cmpd.brep] a
explode a f

smallview
don a_7; fit
disp a_1

#############################
set log [bopcurves a_1 a_7 -2d]
#############################

regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv

for {set i 1} {$i <= ${NbCurv}} {incr i} {
  bounds c_$i U1 U2
  
  dump U1 U2
  
  if {[dval U2-U1] < 1.0e-20} {
    puts "Error: Wrong curve's range!"
  }
  
  set le [length c_$i]
  regexp "The length c_$i is +(\[-0-9.+eE\]+)" ${le} full ll
  
  if { $ll < 1.0e-7 } {
    puts "Error: Curve c_$i is too small!"
  }
}

checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
b55bd023	1	puts "============"
	2	puts "OCC27269"
	3	puts "============"
	4	puts ""
	5	###############################
	6	## Intersection algorithm produces null-length curve
	7	###############################
	8
	9
	10	restore [locate_data_file bug27267_cmpd.brep] a
	11	explode a f
	12
3306fdd9	13	smallview
	14	don a_7; fit
	15	disp a_1
	16
b55bd023	17	#############################
	18	set log [bopcurves a_1 a_7 -2d]
	19	#############################
	20
	21	regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
	22
	23	for {set i 1} {$i <= ${NbCurv}} {incr i} {
	24	bounds c_$i U1 U2
	25
	26	dump U1 U2
	27
	28	if {[dval U2-U1] < 1.0e-20} {
	29	puts "Error: Wrong curve's range!"
	30	}
	31
	32	set le [length c_$i]
	33	regexp "The length c_$i is +(\[-0-9.+eE\]+)" ${le} full ll
	34
	35	if { $ll < 1.0e-7 } {
	36	puts "Error: Curve c_$i is too small!"
	37	}
	38	}
	39
3306fdd9	40	checkview -screenshot -2d -path ${imagedir}/${test_image}.png