0023400: Triangulation of thin ring contains gap

[occt.git] / tests / bugs / vis / bug23012

puts "================"
puts "OCC23012"
puts "================"
puts ""
#######################################################################################
# Detection gives incorrect results
######################################################################################

set BugNumber OCC23012

catch {pload XDE}

set x1 210
set y1 184

set x2 205
set y2 180

stepread [locate_data_file OCC23012-Sample_3.stp] a *
stepread [locate_data_file OCC23012-Sample_9.stp] b *
vdisplay a_1 b_1
vsetdispmode a_1 1
vsetdispmode b_1 1
vselprecision
vselprecision 1 0.1

set ColorBefore [QAGetPixelColor ${x1} ${y1}]
set R1 [lindex ${ColorBefore} 2]
set G1 [lindex ${ColorBefore} 5]
set B1 [lindex ${ColorBefore} 8]

vmoveto ${x2} ${y2}

set ColorAfter [QAGetPixelColor ${x1} ${y1}]
set R2 [lindex ${ColorAfter} 2]
set G2 [lindex ${ColorAfter} 5]
set B2 [lindex ${ColorAfter} 8]

set check_color 0
if { ${R1} == ${R2} && ${G1} == ${G2} && ${B1} == ${B2} } {
    set check_color 0
} else {
    set check_color 1
}

# Resume
puts ""
if { ${check_color} != 0} {
   puts "Faulty ${BugNumber}"
} else {
   puts "OK ${BugNumber}"
}
vfit
set only_screen 1