mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-07-20 12:45:50 +03:00
af4b075434
1. Methods ClearVertexes(), RemoveVertex(...) and InsertVertexBefore(...) was added to the IntPatch_WLine class. 2. Function IsSame(...) for IntSurf_PntOn2S was added (see IntSurf_PntOn2S.cdl for detail information). 3. Concatenate WLine got if it is possible. Some test cases were changed according to their new behavior.
49 lines
1.3 KiB
Plaintext
Executable File
49 lines
1.3 KiB
Plaintext
Executable File
puts "============"
|
|
puts "OCC23218"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# Wrong value of tolerance for the intersection curve.
|
|
#######################################################################
|
|
|
|
set BugNumber OCC23218
|
|
|
|
puts "Load first shape ..."
|
|
restore [locate_data_file bug23218_b1] b1
|
|
|
|
puts "Load second shape ..."
|
|
restore [locate_data_file bug23218_b4] b2
|
|
|
|
puts "Start project operation ..."
|
|
set result [bopcurves b1 b2]
|
|
puts $result
|
|
puts "Finish project operation ..."
|
|
|
|
set GoodToleranceReached 6.3315853638232248e-007
|
|
regexp {Tolerance Reached=([-0-9.+eE]+)} $result full ToleranceReached
|
|
|
|
proc GetPercent {Value GoodValue} {
|
|
set Percent 0.
|
|
if {${GoodValue} != 0.} {
|
|
set Percent [expr abs(${Value} - ${GoodValue}) / abs(double(${GoodValue})) * 100.]
|
|
} elseif {${Value} != 0.} {
|
|
set Percent [expr abs(${GoodValue} - ${Value}) / abs(double(${Value})) * 100.]
|
|
} else {
|
|
set Percent 0.
|
|
}
|
|
return ${Percent}
|
|
}
|
|
|
|
|
|
set percent_max 0.1
|
|
set ToleranceReached_percent [expr abs ( [GetPercent ${ToleranceReached} ${GoodToleranceReached}] ) ]
|
|
|
|
if {${ToleranceReached_percent} > ${percent_max}} {
|
|
puts "${BugNumber}: Faulty"
|
|
} else {
|
|
puts "OK ${BugNumber}"
|
|
}
|
|
|
|
set 3dviewer 0
|
|
|