5 ######################################################
6 # Shading is not correct for several overlapped faces, converted to B-Spline representation
7 ######################################################
9 restore [locate_data_file OCC223-1.brep] cylinder
11 restore [locate_data_file OCC223-2.brep] face
28 vsetdispmode cylinder 1
29 vsetcolor cylinder RED1
31 set ColorList [QAGetPixelColor $Start_X $Start_Y]
32 regexp {RED +: +([-0-9.+eE]+)} $ColorList full R_START_POINT
33 regexp {GREEN +: +([-0-9.+eE]+)} $ColorList full G_START_POINT
34 regexp {BLUE +: +([-0-9.+eE]+)} $ColorList full B_START_POINT
36 puts "R_START_POINT=$R_START_POINT ; G_START_POINT=$G_START_POINT ; B_START_POINT=$B_START_POINT"
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
51 puts "\nFaulty OCC223\n"
56 puts "\n------- Additional Comments From Igor FEOKTISTOV 2002-05-20 12:32 -------\n"
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"