0025492: the selected subshape does not have topological relationship with orginal...
[occt.git] / tests / bugs / vis / bug25492
1 puts "============"
2 puts "CR25492"
3 puts "============"
4 puts ""
5 #######################################################################
6 # The selected subshape does not have topological relationship
7 # with orginal shape in OCC680
8 #######################################################################
9 pload ALL
10
11 set isEqual 0
12 vinit
13 box aShape 5 5 5 3 3 3
14 vdisplay aShape
15 vfit
16 vselmode 4 1
17 vselect 100 200
18 vpickselected aSub
19 explode aShape F
20
21
22 for {set i 1} {$i <= 6 } {incr i} {
23   set aRes [compare aShape_$i aSub];
24   if { [lsearch $aRes equal] != -1} {
25     set isEqual 1
26   }
27 }
28
29 if {$isEqual == 0} {
30 puts "Error: No selected sub-shape was found in exploded sub-shapes"
31 }
32 set only_screen 1