1 ########################################
2 # Wrong export to STEP of located root.
3 ########################################
7 XOpen [locate_data_file bug30189.xbf] D
8 WriteStep D $imagedir/${casename}.stp
9 ReadStep DD $imagedir/${casename}.stp
13 set props [lprops res]
15 if {[lindex $props 9] != "90"} {
16 puts "Error: wrong location on shape."
18 if {[lindex $props 12] != "75"} {
19 puts "Error: wrong location on shape."
21 if {[lindex $props 15] != "60"} {
22 puts "Error: wrong location on shape."
26 set top_level [XGetTopLevelShapes DD]
27 if {$top_level != "0:1:1:1 0:1:1:2 0:1:1:3 0:1:1:4 "} {
28 puts "Error: wrong structure of document."
30 set nb [XNbComponents DD 0:1:1:1]
32 puts "Error: wrong structure of document."
34 set nb [XNbComponents DD 0:1:1:2]
36 puts "Error: wrong structure of document."
40 if {[XGetShapeColor DD 0:1:1:3 surf] != "RED"} { puts "Error: wrong color." }
41 if {[XGetShapeColor DD 0:1:1:4 surf] != "DARKGOLDENROD1"} { puts "Error: wrong color." }
45 file delete $imagedir/${casename}.stp