if { [array get env os_type] != "" } { set os $env(os_type) } if { [string compare $os "windows"] != 0 } { } puts "===========" puts "BUC60574" puts "===========" puts "==================================" puts "It takes visual check for this BUG" puts "==================================" vinit BUC60574 vselect 220 210 puts "" set x_coord 205 set y_coord 205 checkcolor $x_coord $y_coord 0.8 0.8 0.8 if {$stat != 1} { puts "OK: Plane of trihedron was selected properly " } ## modified colors set only_screen 1