3 puts "Pick filter does NOT work for TopAbs_COMPSOLID topology"
10 # selected point of first CompSolid
17 #set x3 160; set y3 257 - it's bad for lin,aki.
21 # selected point of second CompSolid
35 set Cyan "$Cyan_R $Cyan_G $Cyan_B"
41 set Yellow "$Yellow_R $Yellow_G $Yellow_B"
43 # There is not selection
44 puts "There is not selection"
45 set result11 [regexp "$Yellow" [vreadpixel $x1 $y1 rgb]]
46 set result12 [regexp "$Yellow" [vreadpixel $x2 $y2 rgb]]
47 set result13 [regexp "$Yellow" [vreadpixel $x3 $y3 rgb]]
48 set result14 [regexp "$Yellow" [vreadpixel $x4 $y4 rgb]]
49 set result15 [regexp "$Yellow" [vreadpixel $x5 $y5 rgb]]
50 set result16 [regexp "$Yellow" [vreadpixel $x6 $y6 rgb]]
56 # Second box of first CompSolid is selected
57 puts "Second box of first CompSolid is selected"
58 set result21 [regexp "$Yellow" [vreadpixel $x1 $y1 rgb]]
59 set result22 [regexp "$Yellow" [vreadpixel $x3 $y3 rgb]]
60 set result23 [regexp "$Yellow" [vreadpixel $x4 $y4 rgb]]
61 set result24 [regexp "$Yellow" [vreadpixel $x5 $y5 rgb]]
62 set result25 [regexp "$Yellow" [vreadpixel $x6 $y6 rgb]]
64 if { [array get env os_type] != "" } {
67 if { [string compare $os "windows"] != 0 } {
68 set result31 [regexp "$Cyan" [vreadpixel $x2 $y2 rgb]]
69 if { $result31 == 0 } {
75 if { !($result11 && $result12 && $result13 && $result14 && $result15 && $result16)
76 || !($result21 && $result22 && $result23 && $result24 && $result25) } {