mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
cc164fd7dc
GeomLib_IsPlanarSurface.cxx - using poles for checking BSpline, Bezier curves and surface changed
on checking by curve, surface points.
BRepOffset_MakeOffset.cxx - set normal of plane surface according to normal of initial face surface
tests/cr/bugs/bug33170 - new test case added
31 lines
889 B
Plaintext
31 lines
889 B
Plaintext
puts "============"
|
|
puts "0033170: Modeling Algorithms - Checking for canonical geometry: plane detection problems"
|
|
puts "============"
|
|
puts ""
|
|
|
|
set ExpectGap 0.0051495320504590563
|
|
brestore [locate_data_file bug33170.brep] f
|
|
set log1 [getanasurf asurf1 f pln 0.006]
|
|
regexp {Gap = +([-0-9.+eE]+)} $log1 full gap1
|
|
if {[isdraw asurf1]} {
|
|
set log [dump asurf1]
|
|
if { [regexp {Plane} $log ] != 1 } {
|
|
puts "Error: surface is not a plane"
|
|
}
|
|
} else {
|
|
puts "Error: required surface is not got"
|
|
}
|
|
checkreal FoundGap1 $gap1 $ExpectGap 1.0e-9 0.0
|
|
#
|
|
set log2 [getanasurf asurf2 f pln 1.]
|
|
regexp {Gap = +([-0-9.+eE]+)} $log1 full gap2
|
|
if {[isdraw asurf2]} {
|
|
set log [dump asurf2]
|
|
if { [regexp {Plane} $log ] != 1 } {
|
|
puts "Error: surface is not a plane"
|
|
}
|
|
} else {
|
|
puts "Error: required surface is not got"
|
|
}
|
|
checkreal FoundGap2 $gap2 $ExpectGap 1.0e-9 0.0
|