0030969: Coding Rules - refactor Quantity_Color.cxx color table definition
[occt.git] / 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