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

puts "========"
puts "OCC154"
puts "========"
puts ""
#####################################################
##puts "Checking of function V2DERASE "
##puts "(visual checking for this case is desirable)"
#####################################################

v2dinit

box b 1 1 1 
v2ddisplay b
box b1 10 10 10 1 1 1 
v2ddisplay b1
v2dfit

v2derase b1

set color [QAAISGetPixelColor2d 370 37]
regexp {RED +: +([-0-9.+eE]+)} $color full rd
regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
regexp {BLUE +: +([-0-9.+eE]+)} $color full bl

if { ${rd} != 0 || ${gr} != 0 || ${bl} != 0 } {
    puts "Error : colors are not equal"
    puts "Object was not erased"
}

set only_screen2d 1
Commit	Line	Data
a87752f3	1	puts "========"
	2	puts "OCC154"
	3	puts "========"
	4	puts ""
	5	#####################################################
	6	##puts "Checking of function V2DERASE "
	7	##puts "(visual checking for this case is desirable)"
	8	#####################################################
	9
	10	v2dinit
	11
	12	box b 1 1 1
	13	v2ddisplay b
	14	box b1 10 10 10 1 1 1
	15	v2ddisplay b1
	16	v2dfit
	17
	18	v2derase b1
	19
	20	set color [QAAISGetPixelColor2d 370 37]
	21	regexp {RED +: +([-0-9.+eE]+)} $color full rd
	22	regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
	23	regexp {BLUE +: +([-0-9.+eE]+)} $color full bl
	24
	25	if { ${rd} != 0 \|\| ${gr} != 0 \|\| ${bl} != 0 } {
	26	puts "Error : colors are not equal"
	27	puts "Object was not erased"
	28	}
	29
	30	set only_screen2d 1
	31