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 Cyan "$Cyan_R $Cyan_G $Cyan_B" set Yellow_R 1 set Yellow_G 1 set Yellow_B 0 set Yellow "$Yellow_R $Yellow_G $Yellow_B" # There is not selection puts "There is not selection" set result11 [regexp "$Yellow" [vreadpixel $x1 $y1 rgb]] set result12 [regexp "$Yellow" [vreadpixel $x2 $y2 rgb]] set result13 [regexp "$Yellow" [vreadpixel $x3 $y3 rgb]] set result14 [regexp "$Yellow" [vreadpixel $x4 $y4 rgb]] set result15 [regexp "$Yellow" [vreadpixel $x5 $y5 rgb]] set result16 [regexp "$Yellow" [vreadpixel $x6 $y6 rgb]] # 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" set result21 [regexp "$Yellow" [vreadpixel $x1 $y1 rgb]] set result22 [regexp "$Yellow" [vreadpixel $x3 $y3 rgb]] set result23 [regexp "$Yellow" [vreadpixel $x4 $y4 rgb]] set result24 [regexp "$Yellow" [vreadpixel $x5 $y5 rgb]] set result25 [regexp "$Yellow" [vreadpixel $x6 $y6 rgb]] set env(os_type) $tcl_platform(platform) if { [string compare $env(os_type) "windows"] != 0 } { set result31 [regexp "$Cyan" [vreadpixel $x2 $y2 rgb]] if { $result31 == 0 } { set IsFaulty 1 } } set IsFaulty 0 if { !($result11 && $result12 && $result13 && $result14 && $result15 && $result16) || !($result21 && $result22 && $result23 && $result24 && $result25) } { set IsFaulty 1 } if {$IsFaulty != 0} { puts "Error : OCC232" } set only_screen 1