tests/bugs/step/bug30856

   1 puts "========================"
   2 puts "0030856: Wrong colors after STEP file import"
   3 puts "========================"
   4
   5 pload DCAF
   6
   7 ReadStep D1 [locate_data_file bug30856_SOT223-4P230_700X190L65X72.step]
   8 WriteStep D1 $imagedir/${casename}.stp
   9 ReadStep D2 $imagedir/${casename}.stp
  10
  11 # Check colors
  12 # Blue
  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."
  17 }
  18
  19 # Gray
  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."
  24 }
  25
  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."
  30 }
  31
  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."
  36 }
  37
  38 # White
  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."
  43 }
  44
  45 # Clean data
  46 Close D1
  47 Close D2
  48 file delete $imagedir/${casename}.stp