mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
81a55a6996
Prevent modification of the input shapes in destructive mode in case their sub-shapes have not been modified: 1. Prevent edge splitting for the pave blocks with old vertices if it is possible to use the existing edge (*BOPAlgo_PaveFiller::MakeSplitEdges*); 2. Prevent creation of the new containers (WIRES/SHELLS/COMPSOLIDS) if non of its parts have been modified (*BOPAlgo_Builder::FillImagesContainer*); 3. Prevent creation of the new face if non of its wires have been modified (*BOPAlgo_Builder::FillImagesFaces*); 4. If possible, use the original face to be the representative for the group of SD faces (*BOPAlgo_Builder::FillSameDomainFaces*). Cosmetic changes: 1. Documentation of the *BOPAlgo_Builder* class. 2. Making simple methods of the *BOPAlgo_Builder* class inline. 3. Getting rid of the *BOPAlgo_Builder::mySplits* field as it is excessive. *BOPAlgo_Builder::myImages* can be used instead. 3. Moving the Check Inverted option from *BOPAlgo_Options* to *BOPAlgo_Builder*. Test cases for the issue. Adjustment of the test case to their current behavior. Test case *blend/complex/H2* has been deleted as duplicate of the test case *blend/simple/Z1*.
94 lines
2.3 KiB
Plaintext
Executable File
94 lines
2.3 KiB
Plaintext
Executable File
# =================== OCAF ======================
|
|
# Naming
|
|
#
|
|
# Testing purpose: Naming selection mechanism
|
|
# (name = FILTERBYNEIGHBOURGS)
|
|
# Check type migration
|
|
# ===============================================
|
|
# Test case: F8 (testing using SelectShape & SolveSelection)
|
|
# 1. Create 3 boxes $B1, $B2, $B3
|
|
# 2. $FS1 = Fuse ($B1, $B2)
|
|
# 3. $FS2 = Fuse ($B1, $B3)
|
|
# 4. Make selections of the face 'fuse2_19'
|
|
# 5. Modify B2
|
|
# 6. Recompute
|
|
# ===============================================
|
|
|
|
set doc d16
|
|
NewDocument $doc BinOcaf
|
|
AddDriver $doc Box Fuse Attach
|
|
|
|
#1. create 3 boxes
|
|
set B1 [AddBox $doc 100 200 350]
|
|
set B2 [AddBox $doc 330 330 90]
|
|
set B3 [AddBox $doc 60 450 150]
|
|
ComputeFun $doc $B1:1
|
|
ComputeFun $doc $B2:1
|
|
ComputeFun $doc $B3:1
|
|
|
|
#2. B1 = fuse (B1, B2)
|
|
set FS1 [AddFuse $doc $B1 $B2]
|
|
ComputeFun $doc $FS1
|
|
|
|
#3. B1 = fuse (B1, B3)
|
|
set FS2 [AddFuse $doc $B1 $B3]
|
|
ComputeFun $doc $FS2
|
|
GetShape $doc $FS2:2 fuse2
|
|
explode fuse2 f
|
|
|
|
|
|
#4. select fuse2_19 (using SelectShape)
|
|
set Sel1 0:2:19
|
|
SelectShape $doc $Sel1 fuse2_19 fuse2
|
|
GetShape $doc $Sel1 f19before
|
|
#f19before is face
|
|
set info1 [whatis f19before]
|
|
|
|
|
|
#5. Modify
|
|
BoxDZ $doc $B2 120
|
|
|
|
#6. recompute
|
|
ComputeFun $doc $B2:1
|
|
ComputeFun $doc $FS1
|
|
ComputeFun $doc $FS2
|
|
SolveSelection $doc $Sel1
|
|
GetShape $doc $Sel1 f19after
|
|
#f19after is face
|
|
set info2 [whatis f19after]
|
|
|
|
if { [regexp "shape" $info1] != 1 } {
|
|
puts "Error : There is not word shape in f19after"
|
|
}
|
|
if { [regexp "FACE" $info1] != 1 } {
|
|
puts "Error : There is not word FACE in f19after"
|
|
}
|
|
if { [regexp "REVERSED" $info1] != 1 } {
|
|
puts "Error : There is not word REVERSED in f19after"
|
|
}
|
|
if { [regexp "Modified" $info1] != 1 } {
|
|
puts "Error : There is not word Modified in f19after"
|
|
}
|
|
if { [regexp "Orientable" $info1] != 1 } {
|
|
puts "Error : There is not word Orientable in f19after"
|
|
}
|
|
|
|
if { [regexp "shape" $info2] != 1 } {
|
|
puts "Error : There is not word shape in f19before"
|
|
}
|
|
if { [regexp "FACE" $info2] != 1 } {
|
|
puts "Error : There is not word FACE in f19before"
|
|
}
|
|
if { [regexp "REVERSED" $info2] != 1 } {
|
|
puts "Error : There is not word REVERSED in f19before"
|
|
}
|
|
if { [regexp "Modified" $info2] != 1 } {
|
|
puts "Error : There is not word Modified in f19before"
|
|
}
|
|
if { [regexp "Orientable" $info2] != 1 } {
|
|
puts "Error : There is not word Orientable in f19before"
|
|
}
|
|
|
|
|
|
|