mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-09-18 14:27:39 +03:00
bbeb1850e4
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.
61 lines
1.0 KiB
Plaintext
61 lines
1.0 KiB
Plaintext
puts "============"
|
|
puts "OCC26675"
|
|
puts "============"
|
|
puts ""
|
|
###############################
|
|
## 0026675: Eliminate normalization of coordinates in ApproxInt package
|
|
###############################
|
|
|
|
puts "TODO OCC25929 ALL: Error : T="
|
|
|
|
set GoodNbCurv 1
|
|
|
|
pload QAcommands
|
|
OCC26675_1 ss
|
|
|
|
intersect res ss_1 ss_2
|
|
|
|
set che [whatis res]
|
|
set ind [string first "3d curve" $che]
|
|
if {${ind} >= 0} {
|
|
#Only variable "res" exists
|
|
renamevar res res_1
|
|
}
|
|
|
|
|
|
set ic 1
|
|
set AllowRepeate 1
|
|
while { $AllowRepeate != 0 } {
|
|
set che [whatis res_$ic]
|
|
set ind [string first "3d curve" $che]
|
|
if {${ind} < 0} {
|
|
set AllowRepeate 0
|
|
} else {
|
|
display res_$ic
|
|
|
|
bounds res_$ic U1 U2
|
|
|
|
dval U1
|
|
dval U2
|
|
|
|
if {[dval U2-U1] < 1.0e-20} {
|
|
puts "Error: Wrong curve's range!"
|
|
}
|
|
|
|
xdistcs res_$ic ss_1 U1 U2 10 1e-7
|
|
xdistcs res_$ic ss_2 U1 U2 10 1e-7
|
|
|
|
incr ic
|
|
}
|
|
}
|
|
|
|
if {[expr {$ic - 1}] == $GoodNbCurv} {
|
|
puts "OK: Curve Number is good!"
|
|
} else {
|
|
puts "Error: Curve Number is bad!"
|
|
}
|
|
|
|
smallview
|
|
fit
|
|
set only_screen_axo 1
|