5 #######################################################################
6 # Draw face outlines for XDE objects
7 #######################################################################
25 vshowfaceboundary b 1 255 0 0 10 1
28 set color1 [ QAGetPixelColor ${x1} ${y1} ]
29 regexp {RED +: +([-0-9.+eE]+)} $color1 full rd1
30 regexp {GREEN +: +([-0-9.+eE]+)} $color1 full gr1
31 regexp {BLUE +: +([-0-9.+eE]+)} $color1 full bl1
33 if { $rd1 != $r_check || $gr1 != $g_check || $bl1 != $b_check } {
37 set color2 [ QAGetPixelColor ${x2} ${y2} ]
38 regexp {RED +: +([-0-9.+eE]+)} $color2 full rd2
39 regexp {GREEN +: +([-0-9.+eE]+)} $color2 full gr2
40 regexp {BLUE +: +([-0-9.+eE]+)} $color2 full bl2
42 if { $rd2 != $r_check || $gr2 != $g_check || $bl2 != $b_check } {
46 set color3 [ QAGetPixelColor ${x3} ${y3} ]
47 regexp {RED +: +([-0-9.+eE]+)} $color3 full rd3
48 regexp {GREEN +: +([-0-9.+eE]+)} $color3 full gr3
49 regexp {BLUE +: +([-0-9.+eE]+)} $color3 full bl3
51 if { $rd3 != $r_check || $gr3 != $g_check || $bl3 != $b_check } {
55 if { $status1 != 0 && $status2 != 0 && $status3 != 0 } {
56 puts "Error : color are not equal"
57 puts "Error : Boundary of face is not changed"