mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
9eee5ab7e4
ApproxInt_Approx, ApproxInt_KnotTools, BRepApprox_Approx, GeomInt_IntSS, IntTools_FaceFace: Analysis of curvature is added for adjusting ParametrizationType IntPatch_Intersection.cxx - adding methods for estimation of UV max step depending on used surfaces GeomInt_IntSS.cxx, IntTools_FaceFace.cxx - using methods for max step estimation Approx_SameParameter.cxx - adding control against big values. BOPAlgo_PaveFiller_6.cxx - adjusting position of faces before intersection
57 lines
1.1 KiB
Plaintext
57 lines
1.1 KiB
Plaintext
puts "========"
|
|
puts "OCC27664"
|
|
puts "========"
|
|
puts ""
|
|
#################################################
|
|
# Incomplete intersection curve from the attached shapes
|
|
#################################################
|
|
|
|
set ExpTol 1.e-5
|
|
set GoodNbCurv 3
|
|
set GoodLength 0.6288896355727489
|
|
|
|
restore [locate_data_file bug27664_pl0.brep] pl0
|
|
restore [locate_data_file bug27664_nsh_8.brep] nsh_8
|
|
explode nsh_8 f
|
|
explode pl0 f
|
|
|
|
set log [bopcurves pl0_1 nsh_8_4 -2d]
|
|
|
|
regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
|
|
|
|
if {${NbCurv} != ${GoodNbCurv}} {
|
|
puts "Error: Number of curves is bad!"
|
|
}
|
|
|
|
checkreal TolReached $Toler $ExpTol 0.0 0.1
|
|
|
|
set clen 0.0
|
|
|
|
for {set ic 1} { $ic <= ${NbCurv} } { incr ic} {
|
|
|
|
set le [length c_$ic]
|
|
regexp "The length c_$ic is +(\[-0-9.+eE\]+)" ${le} full ll
|
|
|
|
puts "ll = $ll"
|
|
|
|
set clen [expr $clen+$ll]
|
|
}
|
|
|
|
puts "Summary length = $clen"
|
|
|
|
checkreal Length $clen $GoodLength 0.0 1.0e-5
|
|
|
|
smallview
|
|
don c_*
|
|
fit
|
|
display pl0_1 nsh_8_4
|
|
|
|
checkview -screenshot -2d -path ${imagedir}/${test_image}_1.png
|
|
|
|
top
|
|
don c_*
|
|
fit
|
|
display pl0_1 nsh_8_4
|
|
|
|
checkview -screenshot -2d -path ${imagedir}/${test_image}_2.png
|