[occt.git] / tests / bugs / vis / bug223

puts "========"
puts "OCC223"
puts "========"
puts ""
######################################################
# Shading is not correct for several overlapped faces, converted to B-Spline representation
######################################################

restore [locate_data_file OCC223-1.brep] cylinder
checkshape cylinder
restore [locate_data_file OCC223-2.brep] face
checkshape face

set Start_X 140
set Start_Y 40

vinit
tclean cylinder
tclean face

vdisplay cylinder
vdisplay face
vfit

vsetdispmode face 1
vsetcolor face GREEN1

vsetdispmode  cylinder 1
vsetcolor cylinder RED1

set ColorList [QAGetPixelColor $Start_X $Start_Y]
regexp {RED +: +([-0-9.+eE]+)} $ColorList full R_START_POINT
regexp {GREEN +: +([-0-9.+eE]+)} $ColorList full G_START_POINT
regexp {BLUE +: +([-0-9.+eE]+)} $ColorList full B_START_POINT

puts "R_START_POINT=$R_START_POINT ;   G_START_POINT=$G_START_POINT ;   B_START_POINT=$B_START_POINT"

set IsGood 1
for {set count 0} {${count} <= 11} {incr count 1} {
    checkcolor $Start_X $Start_Y $R_START_POINT $G_START_POINT $B_START_POINT
    if {$stat != 1} {
	 set IsGood 0
    }
    incr $Start_X 10
    incr $Start_Y 10
}

if {$IsGood == 1} {
  puts "\nOCC223 OK\n"
} else {
  puts "\nFaulty OCC223\n"
}

set only_screen 1

puts "\n------- Additional Comments From Igor FEOKTISTOV 2002-05-20 12:32 -------\n"

puts "It is not problem of meshing."
puts "It is pure problem of shading geometrically coinciding faces with different"
puts "triangulation. If we create analitical cylinder and box by such way that plane"
puts "faces of cylinder and two faces of box are coinceded, we will have the same"
puts "result: fractional shading of coinciding faces.\n"
Commit	Line	Data
61c421bf	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
61c421bf	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
	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} {
61c421bf	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	set only_screen 1
	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"