0024130: Implementing ray tracing visualization core

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

puts "============"
puts "CR23407"
puts "============"
puts ""
#######################################################################
# Draw face outlines for XDE objects
#######################################################################
pload XDEDRAW

XNewDoc Doc1
ReadStep Doc1 [locate_data_file screw.step]
XShow Doc1 0:1:1:1
XShowFaceBoundary Doc1 0:1:1:1 1 255 0 0 10 1
vfit
vsetdispmode 1

set x_coord 178
set y_coord 36

checkcolor $x_coord $y_coord 1 0 0

if { $stat != 1 } {
   puts "Error : Boundary of face is not changed"
}

set x_coord 244
set y_coord 89

checkcolor $x_coord $y_coord 1 0 0

if { $stat != 01} {
   puts "Error : Boundary of face is not changed"
}

set only_screen 1