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

box b 10 10 10
vinit
vdisplay b
vsetdispmode 1
vshowfaceboundary b 1 255 0 0 10 1
vfit

set x_coord 183
set y_coord 190

checkcolor $x_coord $y_coord 1 0 0

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

set x_coord 292
set y_coord 358

checkcolor $x_coord $y_coord 1 0 0

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

set x_coord 26
set y_coord 265

checkcolor $x_coord $y_coord 1 0 0

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

set only_screen 1
