0028681: UnifySameDomain distorts face boundary when merges a chain of small linear...

[occt.git] / tests / bugs / modalg_7 / bug29103

puts "========"
puts "OCC29103"
puts "========"
puts ""
#################################################
# No intersection curve between faces if starting points are given
#################################################

set MaxTolReached 2.0e-7
set GoodNbCurv 1
set ExpLength 0.074141742883251954

restore [locate_data_file bug29073_M6.brep] a
restore [locate_data_file bug29073_Shell.brep] b
explode a f
explode b f

don b_2
axo
fit
disp a_6

set log1 [bopcurves a_6 b_2 -2d]

checkview -screenshot -2d -path ${imagedir}/${test_image}_1.png
checklength c_1 -l $ExpLength

don b_2
axo
fit
disp a_6

set log2 [bopcurves a_6 b_2 -2d -p -0.55478319275098653 1.2919191091235780 0.80333089657224976 0.67079577554162440 -p -0.62451407353846222 1.2667484772947102 0.82894736842100003 0.70523311453721027]

checkview -screenshot -2d -path ${imagedir}/${test_image}_2.png
checklength c_1 -l $ExpLength

regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log1} full Toler1 NbCurv1
regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log2} full Toler2 NbCurv2

if {$Toler1 > $MaxTolReached} {
  puts "Error: Big tolerance is returned by intersector w/o start points"
}

if {$Toler2 > $MaxTolReached} {
  puts "Error: Big tolerance is returned by intersector with start points"
}

if {$NbCurv1 != $GoodNbCurv} {
  puts "Error: Please check NbCurves for intersector w/o start points"
}

if {$NbCurv2 != $GoodNbCurv} {
  puts "Error: Please check NbCurves for intersector with start points"
}