mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
a6ebe9fc7c
1. New testgrid "lowalgos/intss" has been created. It will contain all test cases on geometrical intersection of two surfaces ("intersect" DRAW-command) and two faces ("bopcurves" DRAW-command).
2. New test case for the issue #28493 has been created because the problem is not reproduced on MASTER.
3. Test case (lowalgos/intss/bug24472) for the issue #29501 has been modified in order to check loops of the resulting intersection curves.
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.1e-7
|
|
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
|