mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
98974dccef
1. The condition of WLine breaking (in IntWalk_IWalking algorithm) has become more independent of the input tolerance. 2. Currently the algorithm of IntPatch_Points of WLine processing depends on the algorithm of obtaining the WLine. 3. The methods IntSurf_LineOn2S::Add(...) and IntSurf_LineOn2S::SetUV(...) have become not inline (see the message ~0077431 in the issue #29866).
33 lines
781 B
Plaintext
33 lines
781 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
|
|
bounds c u1 u2
|
|
set delta [dval (u2-u1)/1000.0]
|
|
cvalue c 0 xp yp zp
|
|
for {set p [dval u1] } {$p <= [dval u2] } {set p [expr $p + $delta]} {
|
|
cvalue c $p x y z
|
|
if {[dval z] < [dval zp]} {
|
|
puts "Error on parameter $p"
|
|
}
|
|
copy z zp
|
|
} |