5 #######################################################################
6 # Draw face outlines for XDE objects
7 #######################################################################
21 vshowfaceboundary b 1 255 0 0 200 1
24 set color [ QAGetPixelColor ${x1} ${y1} ]
25 regexp {RED +: +([-0-9.+eE]+)} $color full rd
26 regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
27 regexp {BLUE +: +([-0-9.+eE]+)} $color full bl
29 if { $rd != $r_check || $gr != $g_check || $bl != $b_check } {
30 puts "Error : color are not equal"
31 puts "Error : Boundary of face is not changed"