mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
d30895f5da
1. Unification of trimmed and not-trimmed cylinders processing (IntPatch_Intersection::GeomGeomPerfomTrimSurf() method has been removed). 2. Interface of IntPatch_ImpImpIntersection::Perform(...) method has been changed. 3. Now, WLine purging is forbidden for Geom-Geom-Intersection. 4. Bnd_Range class has been created. See Bnd_Range.hxx for detail information. 5. Algorithm of AddBoundaryPoint function has been improved in order to obtain intersection points in both boundaries (VFirst and VLast of every surface). 6. Earlier, method Geom2dConvert::ConcatG1(...) increased resulted B-spline degree (in case of not succession of previous iteration). Now increased value has been limited by Geom2d_BSplineCurve::MaxDegree() value (max degree = 25). 7. Algorithm of B-spline closure definition has been changed in the methods Geom2dConvert::C0BSplineToC1BSplineCurve(...) and Geom2dConvert::C0BSplineToArrayOfC1BSplineCurve(...). Creation of test case for this issue. Adjusting test cases according to their new behavior. Small correction in the code according to KGV's remark.
44 lines
1.1 KiB
Plaintext
44 lines
1.1 KiB
Plaintext
puts "================"
|
|
puts "OCC23178"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################################
|
|
# Intersection of cylinders fails to produce results
|
|
#######################################################################
|
|
|
|
set GoodNbCurv 6
|
|
|
|
foreach c [directory result*] {
|
|
unset $c
|
|
}
|
|
|
|
cylinder s1 4.999999999813, 1.35836143386791, 0.20975890778078 -1, 0, 0 0, 0, 1 10
|
|
cylinder s2 9.999999999813, 9.1401960568287, 0.11837300583107 0, -0.75870713028692, 0.651431877061437 0, -0.651431877061437, -0.75870713028692 5
|
|
|
|
intersect result s1 s2
|
|
|
|
foreach c [directory result*] {
|
|
bounds $c U1 U2
|
|
|
|
if {[dval U2-U1] < 1.0e-9} {
|
|
puts "Error: Wrong curve's range!"
|
|
}
|
|
|
|
xdistcs $c s1 U1 U2 10 2.0e-7
|
|
xdistcs $c s2 U1 U2 10 2.0e-7
|
|
}
|
|
|
|
set NbCurv [llength [directory result*]]
|
|
|
|
if { $NbCurv == $GoodNbCurv } {
|
|
puts "OK: Number of curves is good!"
|
|
} else {
|
|
puts "Error: $GoodNbCurv is expected but $NbCurv is found!"
|
|
}
|
|
|
|
smallview
|
|
don result*
|
|
fit
|
|
disp s1 s2
|
|
checkview -screenshot -2d -path ${imagedir}/${test_image}.png
|