mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
e67e482d99
Modified method: Approx_ComputeLine::Compute Check of multicurve is now always unconditional, the procedure of check is modified to avoid infinite loops. Modified classes: GeomLib_CheckBSplineCurve and GeomLib_Check2dBSplineCurve Correction of poles at the ends of curve is modified to fit the direction of tangent defined by two first points or two last points of walking line. Also modified: BOPAlgo_PaveFiller: modified methods PostTreatFF, RemoveUsedVertices - now unused vertices are included in the list of vertices to be absorbed by other ones.
32 lines
732 B
Plaintext
32 lines
732 B
Plaintext
puts "========"
|
|
puts "OCC27648"
|
|
puts "========"
|
|
puts ""
|
|
#################################################
|
|
# Regression vs 6.7.1: General Fuse operation fails to fuse the solids
|
|
#################################################
|
|
|
|
restore [locate_data_file bug27648_simple.brep] s
|
|
explode s
|
|
bsection r s_1 s_2
|
|
explode s_2 f
|
|
|
|
# find section edge belonging to the face s_2_3
|
|
foreach e [explode r e] {
|
|
if {[catch {mk2dcurve c2d $e s_2_3}] == 0} {
|
|
break
|
|
}
|
|
}
|
|
|
|
mkcurve c $e
|
|
|
|
# in a loop, check that curve has increased Z value along its length
|
|
set delta 0.001
|
|
cvalue c 0 xp yp zp
|
|
for {set p 0} {$p <= 1} {set p [expr $p + $delta]} {
|
|
cvalue c $p x y z
|
|
if {[dval z] < [dval zp]} {
|
|
puts "Error on parameter $p"
|
|
}
|
|
copy z zp
|
|
} |