puts "========"
puts "OCC232"
puts "Pick filter does NOT work for TopAbs_COMPSOLID topology"
puts "========"

vinit
OCC232
vfit

# selected point of first CompSolid
set x1 69
set y1 204

set x2 116
set y2 231

#set x3 160; set y3 257 - it's bad for lin,aki.
set x3 159
set y3 256

# selected point of second CompSolid
set x4 298
set y4 76

set x5 339
set y5 100

set x6 381
set y6 124

set Cyan_R 0
set Cyan_G 1
set Cyan_B 1

set Yellow_R 1
set Yellow_G 1
set Yellow_B 0

# There is not selection
puts "There is not selection"
catch {QAGetPixelColor $x1 $y1 $Yellow_R $Yellow_G $Yellow_B} result11
catch {QAGetPixelColor $x2 $y2 $Yellow_R $Yellow_G $Yellow_B} result12
catch {QAGetPixelColor $x3 $y3 $Yellow_R $Yellow_G $Yellow_B} result13
catch {QAGetPixelColor $x4 $y4 $Yellow_R $Yellow_G $Yellow_B} result14
catch {QAGetPixelColor $x5 $y5 $Yellow_R $Yellow_G $Yellow_B} result15
catch {QAGetPixelColor $x6 $y6 $Yellow_R $Yellow_G $Yellow_B} result16

# Move a mouse
puts "Move a mouse"
vmoveto $x2 $y2

# Second box of first CompSolid is selected
puts "Second box of first CompSolid is selected"
catch {QAGetPixelColor $x1 $y1 $Yellow_R $Yellow_G $Yellow_B} result21
catch {QAGetPixelColor $x3 $y3 $Yellow_R $Yellow_G $Yellow_B} result22
catch {QAGetPixelColor $x4 $y4 $Yellow_R $Yellow_G $Yellow_B} result23
catch {QAGetPixelColor $x5 $y5 $Yellow_R $Yellow_G $Yellow_B} result24
catch {QAGetPixelColor $x6 $y6 $Yellow_R $Yellow_G $Yellow_B} result25

if { [array get env os_type] != "" } {
    set os $env(os_type)
}
if { [string compare $os "windows"] != 0 } {
   catch {QAGetPixelColor $x2 $y2 $Cyan_R $Cyan_G $Cyan_B} result31
}

set IsFaulty 0
if { [regexp "Faulty" $result11] == 1 } {
   set IsFaulty 1
}
if { [regexp "Faulty" $result12] == 1 } {
   set IsFaulty 1
}
if { [regexp "Faulty" $result13] == 1 } {
   set IsFaulty 1
}
if { [regexp "Faulty" $result14] == 1 } {
   set IsFaulty 1
}
if { [regexp "Faulty" $result15] == 1 } {
   set IsFaulty 1
}
if { [regexp "Faulty" $result16] == 1 } {
   set IsFaulty 1
}
if { [regexp "Faulty" $result21] == 1 } {
   set IsFaulty 1
}
if { [regexp "Faulty" $result22] == 1 } {
   set IsFaulty 1
}
if { [regexp "Faulty" $result23] == 1 } {
   set IsFaulty 1
}
if { [regexp "Faulty" $result24] == 1 } {
   set IsFaulty 1
}
if { [regexp "Faulty" $result25] == 1 } {
   set IsFaulty 1
}

if { [string compare $os "windows"] != 0 } {
   if { [regexp "Faulty" $result31] == 1 } {
      set IsFaulty 1
   }
}

if {$IsFaulty != 0} {
   puts "Error : OCC232"
}

set only_screen 1
