### by apn (no regresion in CR23352_3
###if { [array get env os_type] != "" } {
###    set os $env(os_type)
###}
###if { [string compare $os "windows"] == 0 } {
puts "TODO ?OCC12345 ALL: Error : Colors are not equal in default coordinate and in the near coordinates too"
puts "TODO ?OCC12345 ALL: Error : The style of edge is NOT dash"
###	by apn: Image is not correct on WNT
###}

puts "========================"
puts "BUC60738"                
puts "========================"
puts ""                                  
puts "=================================="
puts "It takes visual check for this BUG"
puts "=================================="
                        
vinit
BUC60738
vfit
vsetdispmode 1


set x_coord 261
set y_coord 314

checkcolor $x_coord $y_coord 0 1 0

if {$stat != 1} {
   puts "Error : The style of edge is NOT dash"
}

set only_screen 1
