1 puts "TODO OCC24025 ALL: Two opened shells intersection"
2 puts "TODO OCC24025 ALL: Two shells intersection \\(one opened\\)"
3 puts "TODO OCC24025 ALL: ERROR OCCURS DURING TEST - FAULTY"
5 set Test "Boolean operations naming test"
9 if {[catch {set TestLab}] == 1} {
14 set myLab [set TestLab]:1
15 set myNameLab [set TestLab]:105
17 #################### four boxes: fuse, cut, common, intersection ####################
18 NameBox D $myLab 20 30 25
22 box b2 10 15 10 15 20 25
23 BuildNamedShape D $myLab PRIMITIVE b2
26 for {set i 0} {[lindex $bf $i]!=""} {incr i} {
27 BuildNamedShape D [set myLab]:[expr $i+1] PRIMITIVE [lindex $bf $i]
30 box b3 20 25 30 20 20 20
31 BuildNamedShape D $myLab PRIMITIVE b3
34 for {set i 0} {[lindex $bf $i]!=""} {incr i} {
35 BuildNamedShape D [set myLab]:[expr $i+1] PRIMITIVE [lindex $bf $i]
38 box b4 15 10 20 20 20 20
39 #box b4 5 5 5 20 20 20
40 BuildNamedShape D $myLab PRIMITIVE b4
43 for {set i 0} {[lindex $bf $i]!=""} {incr i} {
44 BuildNamedShape D [set myLab]:[expr $i+1] PRIMITIVE [lindex $bf $i]
48 NameFuse D $myLab b1 b2
50 Checking "Two boxes fuse"
51 GetShape D $FuseLab FuseShape
52 GetShape D $Box3Lab b3
53 NameCut D $myLab FuseShape b3
55 Checking "Fuse result and box cut"
56 GetShape D $CutLab CutShape
57 GetShape D $Box4Lab b4
58 NameCommon D $myLab b4 CutShape
60 Checking "Fuse cut result and box common"
61 GetShape D $CommonLab CommonShape
62 GetShape D $Box2Lab b2
63 #NameIntersection D $myLab CommonShape b2
64 #Checking "Fuse cut common result and box intersection"
66 #################### limit operation ####################
67 NameBox D $myLab 20 10 30
74 line l1 -10 -10 15 0 1 0
75 line l2 -10 100 15 1 -1 0
76 line l3 100 -10 15 -1 0 0
81 plane pl 0 0 15 0 0 15
83 NameImportShape D $myLab f
86 NameLimit D $myLab b1 f
87 Checking "Limit naming (box and planar face)"
89 #################### Intersection operation ####################
90 restore [locate_data_file Int_Sh1_3.brep] Obj1
91 NameImportShape D $myLab Obj1
95 restore [locate_data_file Int_Sh2_3.brep] Tool1
96 NameImportShape D $myLab Tool1
100 NameIntersection D $myLab Obj1 Tool1
101 Checking "Two opened shells intersection"
103 restore [locate_data_file Int_shell1.brep] Obj2
104 NameImportShape D $myLab Obj2
108 restore [locate_data_file Int_Sh1_3.brep] Tool2
109 NameImportShape D $myLab Tool2
113 NameIntersection D $myLab Obj2 Tool2
114 Checking "Two shells intersection (one opened)"
117 restore [locate_data_file Int_shell.brep] Obj3
118 NameImportShape D $myLab Obj3
122 restore [locate_data_file Int_wire.brep] Tool3
123 NameImportShape D $myLab Tool3
127 NameIntersection D $myLab Obj3 Tool3
128 Checking "Shell and wire intersection"
130 #################### bug with premature "IDENTIFY" naming: one cylinder cut another in the middle ####################
131 NameCylinder D $myLab 20 100 0 1
137 BuildNamedShape D $myLab PRIMITIVE c2
138 set cf [explode c2 F]
139 for {set i 0} {[lindex $cf $i]!=""} {incr i} {
140 BuildNamedShape D [set myLab]:[expr $i+1] PRIMITIVE [lindex $cf $i]
144 NameCut D $myLab c1 c2
145 Checking "Cut of two cylinders ( = = )"
147 #################### bug with MODIFUNTIL conceit: three cutted cylinders ####################
148 NameCylinder D $myLab 20 100 0 1
152 NameCylinder D $myLab 10 100 0 1
158 BuildNamedShape D $myLab PRIMITIVE c3
159 set cf [explode c3 F]
160 for {set i 0} {[lindex $cf $i]!=""} {incr i} {
161 BuildNamedShape D [set myLab]:[expr $i+1] PRIMITIVE [lindex $cf $i]
165 NameCut D $myLab c1 c2
166 GetShape D $myLab CutShape
169 NameCut D $myLab CutShape c3
170 #Checking "Cut of three cylinders ( 0=) 0=) )"
172 # mpv: BRepNaming_Fillet is not ready now for this test
173 #################### bug with FILTERBYNEIGHBOURGS confusion: cylinder, cutted by shpere + fillet ####################
174 #NameCylinder D $myLab 20 100 0 1
175 #GetShape D $myLab c1
179 #ttranslate s 30 20 50
180 #BuildNamedShape D $myLab PRIMITIVE s
182 ##name only face of sphere: it's enoth for this example
183 #BuildNamedShape D [set myLab]:1 PRIMITIVE s_1
186 #NameCut D $myLab c1 s
188 #GetShape D $myLab CutShape
191 #set se [explode CutShape E]
192 #set CutEdge CutShape_1
193 #set minX [lindex [CenterOfShape CutShape_1] 0]
194 #for {set i 1} {[lindex $se $i]!=""} {incr i} {
195 # set minC [lindex [CenterOfShape [lindex $se $i]] 0]
196 # if {$minC < $minX} {
198 # set CutEdge [lindex $se $i]
201 #SelectShape D $myLab $CutEdge CutShape
205 #NameFillet D $myLab $CutLab $EdgeLab 10
206 #Checking "Fillet at cut cylinder by sphere ( \[( )"