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 set env(os_type) $tcl_platform(platform)
65 if { [string compare $env(os_type) "windows"] != 0 } {
66 set result31 [regexp "$Cyan" [vreadpixel $x2 $y2 rgb]]
67 if { $result31 == 0 } {
73 if { !($result11 && $result12 && $result13 && $result14 && $result15 && $result16)
74 || !($result21 && $result22 && $result23 && $result24 && $result25) } {