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

puts "========"
puts "OCC154"
puts "========"
puts ""
##############################################################
##puts "Checking of functions V2DERASEALL and V2DDISPLAYALL "
##puts "(visual checking for this case is desirable)"
##############################################################
v2dinit

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

v2deraseall

set x_coord 370
set y_coord 37
set color2d 1

checkcolor $x_coord $y_coord 0 0 0

if { $stat != 1 } {
    puts "Error : Object was not erased"
}

v2ddisplayall

checkcolor $x_coord $y_coord 1 1 0

if { $stat != 1 } {
    puts "Error : Object was not displayed"
}

set only_screen2d 1
Commit	Line	Data
a87752f3	1	puts "========"
	2	puts "OCC154"
	3	puts "========"
	4	puts ""
	5	##############################################################
	6	##puts "Checking of functions V2DERASEALL and V2DDISPLAYALL "
	7	##puts "(visual checking for this case is desirable)"
	8	##############################################################
	9	v2dinit
	10
	11	box b 1 1 1
	12	box b1 10 10 10 1 1 1
	13	v2ddisplay b
	14	v2ddisplay b1
	15	v2dfit
	16
	17	v2deraseall
	18
f1aa2b62	19	set x_coord 370
	20	set y_coord 37
	21	set color2d 1
a87752f3	22
f1aa2b62	23	checkcolor $x_coord $y_coord 0 0 0
	24
	25	if { $stat != 1 } {
a87752f3	26	puts "Error : Object was not erased"
	27	}
	28
	29	v2ddisplayall
	30
f1aa2b62	31	checkcolor $x_coord $y_coord 1 1 0
a87752f3	32
f1aa2b62	33	if { $stat != 1 } {
a87752f3	34	puts "Error : Object was not displayed"
	35	}
	36
	37	set only_screen2d 1
f1aa2b62	38
f1aa2b62	39