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