1 puts "TODO OCC11111 ALL: Faulty OCC1747"
3 puts "================"
5 puts "================"
7 #######################################################################################
8 # Cannot get entity number for translated shape from STEP in XDE case
9 ######################################################################################
26 ttranslate hryad -10 0 10
28 ttranslate uryad 0 0 20
29 compound ryad hryad uryad stena
33 SetName SA 0:1:1:1 Wall
34 SetName SA 0:1:1:2 Block-Array
35 SetName SA 0:1:1:3 Block
36 SetName SA 0:1:1:4 Half-Brick
37 SetName SA 0:1:1:5 Brick
39 SetName SA 0:1:1:1:1 base-array
40 SetName SA 0:1:1:1:2 next-array
41 SetName SA 0:1:1:1:3 top-array
43 SetName SA 0:1:1:2:1 left-block
44 SetName SA 0:1:1:2:2 right-block
46 SetName SA 0:1:1:3:1 half-brick
47 SetName SA 0:1:1:3:2 brick
49 WriteStep SA $imagedir/${test_image}.stp
51 ReadStep D $imagedir/${test_image}.stp
53 puts "INFO: get main shape from the XDE document D"
55 puts "INFO: now try to get translation history for it"
56 set info1 [ fromshape a ]
57 set index1 [ lsearch $info1 unknown ]
59 puts "INFO: now try to get translation history for subshape a_1"
60 set info2 [ fromshape a_1 ]
61 set index2 [ lsearch $info2 unknown ]
62 puts "INFO: now try to get translation history for subshape a_2"
63 set info3 [fromshape a_2 ]
64 set index3 [ lsearch $info3 unknown ]
66 set exception_status 0
67 if {$index1 > -1 || $index2 > -1 || $index3 > -1} {
68 set exception_status 1
71 if { ${exception_status} == 0 } {
72 puts "OK ${BugNumber}"
74 puts "Faulty ${BugNumber}"