mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
115d350e09
Refactoring of the Line-Line intersection method strengthening the parallel and coincidence criteria to allow almost parallel lines have an intersection point.
40 lines
807 B
Plaintext
40 lines
807 B
Plaintext
puts "========"
|
|
puts "0030913: Invalid result of Fusing slices"
|
|
puts "========"
|
|
puts ""
|
|
|
|
restore [locate_data_file bug30913_case2.brep] s
|
|
|
|
bclearobjects
|
|
bcleartools
|
|
set exp [explode s]
|
|
baddobjects s_1
|
|
eval baddtools [lrange $exp 1 end]
|
|
|
|
# Use gluing Shift option
|
|
bglue 1
|
|
# Avoid History filling
|
|
setfillhistory 0
|
|
|
|
bfillds
|
|
bbop result 1
|
|
|
|
checkshape result
|
|
|
|
dchrono unify restart
|
|
unifysamedom result result
|
|
dchrono unify stop counter UNIFY_SD
|
|
|
|
checkshape result
|
|
|
|
checkprops result -s 3.89766e+06 -v 1.40733e+08
|
|
checknbshapes result -vertex 46597 -edge 70375 -wire 24212 -face 23995 -shell 1 -solid 1 -t
|
|
|
|
#if {![regexp "This shape seems to be OK" [bopcheck result]]} {
|
|
# puts "Error: result is a self-intersecting shape"
|
|
#}
|
|
|
|
checkview -display result -2d -path ${imagedir}/${test_image}.png
|
|
|
|
boptions -default
|