1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-09-03 14:10:33 +03:00
Files
occt/tests/bugs/modalg_5/bug24915
nbv bbeb1850e4 0026675: Eliminate normalization of coordinates in ApproxInt package
Normalization has been eliminated.

Additionally,
1. Some methods of AppDef_Compute and ApproxInt_MultiLine classes have become inline (for speeding up performance).
2. Interfaces of AppDef_Compute::Parametrization(...) and BRepAlgo_BooleanOperations::SetApproxParameters() methods have been changed.
3. Overloaded methods for ApproxInt_Approx::SetParameters(...), TopOpeBRepTool_GeomTool::GetTolerances(...) and TopOpeBRepTool_GeomTool::SetTolerances(...) have been removed (because some fields of these classes are not used more).
4. Lost comments have been added in BRepApprox_TheMultiLineOfApprox.hxx and GeomInt_TheMultiLineOfWLApprox.hxx files.
5. Some fields have been deleted from ApproxInt_MultiLine class. Kept members have become constant.
6. Interface of ksection DRAW-command has been changed.
7. Some code fragments have been rewritten to make them easier.
8. Function CleanWline(...) has been added in IntPatch_Intersection.cxx file. See comments in code for detail description.

Adjusting some test case according to their new behavior.
Creation test case for this issue.
2015-10-29 16:49:32 +03:00

57 lines
1.2 KiB
Plaintext
Executable File

puts "TODO OCC25929 ALL: Error: Tolerance is too big!"
puts "TODO OCC25929 ALL: Error : T=0.505051 D=0.000100165"
puts "TODO OCC25929 ALL: Error : T=0.505051 D=0.000100918"
puts "========="
puts "CR24915"
puts "========="
puts ""
###############################
## Wrong intersection curves between two cylinders
###############################
puts "##############################"
puts "#!!!Searh \"Attention\" keyword on this web-page for additinal checking!!!"
puts "##############################"
restore [locate_data_file bug24915_ft2.brep] b1
restore [locate_data_file bug24915_ft3.brep] b2
# 1. topology
bclearobjects
bcleartools
baddobjects b1 b2
bfillds
bbuild r
checkshape r
# 2. geometry
set MaxTol 5.0e-7
set log [bopcurves b1 b2]
if { ! [regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv] } {
puts "Error: Cannot find tolerance value in output of bopcurve command"
}
if {${Toler} > ${MaxTol}} {
puts "Error: Tolerance is too big!"
}
mksurface s1 b1
mksurface s2 b2
set Tolerance 2.0e-5
set WarnTol 1.0e-7
for {set i 1} {$i <= ${NbCurv}} {incr i} {
bounds c_$i U1 U2
xdistcs c_$i s1 U1 U2 100 $Tolerance $WarnTol
xdistcs c_$i s2 U1 U2 100 $Tolerance $WarnTol
}
smallview
donly b2 c_2
fit
set only_screen_axo 1