0027986: Visualization - AIS_InteractiveContext::SetLocation() does not update dynami...
[occt.git] / tests / bugs / vis / bug223
1 puts "========"
2 puts "OCC223"
3 puts "========"
4 puts ""
5 ######################################################
6 # Shading is not correct for several overlapped faces, converted to B-Spline representation
7 ######################################################
8
9 restore [locate_data_file OCC223-1.brep] cylinder
10 checkshape cylinder
11 restore [locate_data_file OCC223-2.brep] face
12 checkshape face
13
14 set Start_X 140
15 set Start_Y 40
16
17 vinit
18 tclean cylinder
19 tclean face
20
21 vdisplay cylinder
22 vdisplay face
23 vfit
24
25 vsetdispmode face 1
26 vsetcolor face GREEN1
27
28 vsetdispmode  cylinder 1
29 vsetcolor cylinder RED1
30
31 set ColorList [vreadpixel ${Start_X} ${Start_Y} rgb]
32 set R_START_POINT [lindex $ColorList 0]
33 set G_START_POINT [lindex $ColorList 1]
34 set B_START_POINT [lindex $ColorList 2]
35
36 puts "R_START_POINT=$R_START_POINT ;   G_START_POINT=$G_START_POINT ;   B_START_POINT=$B_START_POINT"
37
38 set IsGood 1
39 for {set count 0} {${count} <= 11} {incr count 1} {
40     checkcolor $Start_X $Start_Y $R_START_POINT $G_START_POINT $B_START_POINT
41     if {$stat != 1} {
42          set IsGood 0
43     }
44     incr $Start_X 10
45     incr $Start_Y 10
46 }
47
48 if {$IsGood == 1} {
49   puts "\nOCC223 OK\n"
50 } else {
51   puts "\nFaulty OCC223\n"
52 }
53
54 checkview -screenshot -3d -path ${imagedir}/${test_image}.png
55
56 puts "\n------- Additional Comments From Igor FEOKTISTOV 2002-05-20 12:32 -------\n"
57
58 puts "It is not problem of meshing."
59 puts "It is pure problem of shading geometrically coinciding faces with different"
60 puts "triangulation. If we create analitical cylinder and box by such way that plane"
61 puts "faces of cylinder and two faces of box are coinceded, we will have the same"
62 puts "result: fractional shading of coinciding faces.\n"