1 puts "========================"
2 puts "0030856: Wrong colors after STEP file import"
3 puts "========================"
7 ReadStep D1 [locate_data_file bug30856_SOT223-4P230_700X190L65X72.step]
8 WriteStep D1 $imagedir/${casename}.stp
9 ReadStep D2 $imagedir/${casename}.stp
13 set color1 [XGetShapeColor D1 0:1:1:1:1 s]
14 set color2 [XGetShapeColor D2 0:1:1:1:1 s]
15 if {$color1 != "BLUE" || $color2 != "BLUE"} {
16 puts "Error: wrong color."
20 set color1 [XGetShapeColor D1 0:1:1:1:2 s]
21 set color2 [XGetShapeColor D2 0:1:1:1:2 s]
22 if {$color1 != "GRAY" || $color2 != "GRAY"} {
23 puts "Error: wrong color."
26 set color1 [XGetShapeColor D1 0:1:1:1:3 s]
27 set color2 [XGetShapeColor D2 0:1:1:1:3 s]
28 if {$color1 != "GRAY" || $color2 != "GRAY"} {
29 puts "Error: wrong color."
32 set color1 [XGetShapeColor D1 0:1:1:1:4 s]
33 set color2 [XGetShapeColor D2 0:1:1:1:4 s]
34 if {$color1 != "GRAY" || $color2 != "GRAY"} {
35 puts "Error: wrong color."
39 set color1 [XGetShapeColor D1 0:1:1:1:30 s]
40 set color2 [XGetShapeColor D2 0:1:1:1:30 s]
41 if {$color1 != "WHITE" || $color2 != "WHITE"} {
42 puts "Error: wrong color."
48 file delete $imagedir/${casename}.stp