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

puts "========"
puts "OCC280"
puts "3. Fitall on perspective view does not fit all properly"
puts "========"

vinit
box b 100 900 300
vdisplay b
vsetdispmode b 1

OCC280 0 1

set x_coord 22
set y_coord 241

puts "Before View->FitAll()"

checkcolor $x_coord $y_coord 0 0 0

vfit

puts "After View->FitAll()"

checkcolor $x_coord $y_coord 0.78 0.55 0.9

if { $stat != 1 } {
    puts "Error : Function vfit works wrongly"
}

checkview -screenshot -3d -path ${imagedir}/${test_image}.png
Commit	Line	Data
a87752f3	1	puts "========"
	2	puts "OCC280"
	3	puts "3. Fitall on perspective view does not fit all properly"
	4	puts "========"
	5
	6	vinit
	7	box b 100 900 300
	8	vdisplay b
	9	vsetdispmode b 1
	10
	11	OCC280 0 1
	12
b5ac8292	13	set x_coord 22
197ac94e	14	set y_coord 241
a87752f3	15
a87752f3	16	puts "Before View->FitAll()"
a87752f3	17
f1aa2b62	18	checkcolor $x_coord $y_coord 0 0 0
a87752f3	19
	20	vfit
	21
	22	puts "After View->FitAll()"
a87752f3	23
f1aa2b62	24	checkcolor $x_coord $y_coord 0.78 0.55 0.9
a87752f3	25
f1aa2b62	26	if { $stat != 1 } {
a87752f3	27	puts "Error : Function vfit works wrongly"
	28	}
	29
5747059b	30	checkview -screenshot -3d -path ${imagedir}/${test_image}.png