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

puts "========"
puts "OCC204"
puts "========"

vinit
OCC204 1
vfit

set x_coord 150
set y_coord 200

checkcolor $x_coord $y_coord 0 0 0

if { ${stat} != 1 } {
    puts "Error : There are 3 boxes in the viewer! (should be nothing)"
}

set only_screen 1
Commit	Line	Data
a87752f3	1	puts "========"
	2	puts "OCC204"
	3	puts "========"
	4
	5	vinit
	6	OCC204 1
	7	vfit
	8
f1aa2b62	9	set x_coord 150
f1aa2b62	10	set y_coord 200
a87752f3	11
f1aa2b62	12	checkcolor $x_coord $y_coord 0 0 0
a87752f3	13
f1aa2b62	14	if { ${stat} != 1 } {
f1aa2b62	15	puts "Error : There are 3 boxes in the viewer! (should be nothing)"
a87752f3	16	}
	17
	18	set only_screen 1
f1aa2b62	19