bacf808f248cd66e2a9684efb821910637de7dc7
[occt.git] / tests / bugs / vis / CR23407_1
1 puts "============"
2 puts "CR23407"
3 puts "============"
4 puts ""
5 #######################################################################
6 # Draw face outlines for XDE objects
7 #######################################################################
8 pload QAcommands
9 pload XDEDRAW
10
11 set r_check 1
12 set g_check 0
13 set b_check 0
14 set x1 227
15 set y1 143
16
17 XNewDoc Doc1
18 ReadStep Doc1 [locate_data_file CR23407-screw.step]
19 XShow Doc1 0:1:1:1
20 XShowFaceBoundary Doc1 0:1:1:1 1 255 0 0 200 1
21 vfit
22 vsetdispmode 1
23
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
28
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"
32 }
33
34 set 3dviewer 2