mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
f76d42b445
1. Implementation of the *Generated* method for the algorithms in Boolean Component. In terms of these algorithms the shape from the arguments can have Generated shapes only if these new shapes have been obtained as a result of pure intersection (not overlapping) of this shape with any other shapes from arguments. Thus, the Generated shapes are always: * VERTICES created from the intersection points and may be Generated from edges and faces only; * EDGES created from the intersection edges and may be Generated from faces only. So, only EDGES and FACES could have information about Generated shapes. For all other types of shapes the list of Generated shapes will be empty. 2. Optimization and simplification of the *Modified* and *IsDeleted* methods based on the correct filling of the *BOPAlgo_BuilderShape::myImagesResult* map. 3. Provide history of unification of the solids in the CellsBuilder algorithm. 4. Update of the documentation of Boolean Operations User guide with new chapter "History Information" describing rules for filling history for operations in Boolean Component. 5. Test cases for the issue. New grid "history" has been added into "boolean" category.
67 lines
1.2 KiB
Plaintext
67 lines
1.2 KiB
Plaintext
puts "=========="
|
|
puts "OCC24869"
|
|
puts "=========="
|
|
puts ""
|
|
###################################################
|
|
# OCAF testing framework extending
|
|
###################################################
|
|
|
|
NewDocument D BinOcaf
|
|
|
|
#1 - create box1
|
|
NewCommand D
|
|
set B1 [AddObject D]
|
|
set F1 [AddFunction D $B1 Box]
|
|
BoxDX D $B1 100
|
|
BoxDY D $B1 200
|
|
BoxDZ D $B1 300
|
|
InitLogBook D
|
|
AddDriver D Box Section PTxyz
|
|
ComputeFun D $F1
|
|
GetShape D $F1:2 Box1
|
|
|
|
#1 - create box2
|
|
NewCommand D
|
|
set B2 [AddObject D]
|
|
set F2 [AddFunction D $B2 Box]
|
|
BoxDX D $B2 150
|
|
BoxDY D $B2 200
|
|
BoxDZ D $B2 300
|
|
ComputeFun D $F2
|
|
|
|
NewCommand D
|
|
set FTr2 [PTranslateDXYZ D $B2 30 40 50]
|
|
ComputeFun D $FTr2
|
|
# get modified result
|
|
GetShape D $FTr2:2 Box2
|
|
|
|
#3 Make Section Box1 Box2
|
|
NewCommand D
|
|
set CS [AddSection D $B1 $B2]
|
|
ComputeFun D $CS
|
|
erase
|
|
GetShape D $CS:2 S
|
|
|
|
# Check result
|
|
NewCommand D
|
|
erase
|
|
ExploreShape D $CS:2:1 R
|
|
|
|
# should be 12 edges and 6 vertices
|
|
set l1 [llength [directory R_*] ]
|
|
|
|
# should be 18 faces
|
|
set l2 [llength [directory oldR_*] ]
|
|
|
|
if { ${l1} == 18 } {
|
|
puts "OK: Good edge number"
|
|
} else {
|
|
puts "Error: Bad edge number"
|
|
}
|
|
|
|
if { ${l2} == 18 } {
|
|
puts "OK: Good face number"
|
|
} else {
|
|
puts "Error: Bad face number"
|
|
}
|