puts "TODO OCC12345 ALL: Error : Colors are not equal in default coordinate and in the near coordinates too" puts "================" puts "OCC136" puts "================" set x_coord 211 set y_coord 215 vinit OCC136 vfit checkcolor $x_coord $y_coord 0.8 0.8 0.8 set only_screen 1