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

puts "================"
puts "OCC25335"
puts "================"
puts ""
#######################################################################################
# Visualization - add test command for V3d_View::FitAll by view area
#######################################################################################

set check1_x 2
set check1_y 2

set check2_x 407
set check2_y 2

set check3_x 2
set check3_y 407

set check4_x 407
set check4_y 407

set check5_x 204
set check5_y 204

vinit View1
vtop

# 2D view area
vpoint p1  5.0   5.0  0.0
vpoint p2 15.0   5.0  0.0
vpoint p3 15.0  15.0  0.0
vpoint p4  5.0  15.0  0.0
vpoint p5 10.0  10.0  0.0

vfitarea 4.999 4.999 15.001 15.001

# Check area by 1st point
vmoveto ${check1_x} ${check1_y}
checkcolor ${check1_x} ${check1_y} 0 1 1

if {$stat != 1} {
    puts "Error : Fit all by view area is broken."
}

# Check area by 2nd point
vmoveto ${check2_x} ${check2_y}
checkcolor ${check2_x} ${check2_y} 0 1 1

if {$stat != 1} {
    puts "Error : Fit all by view area is broken."
}

# Check area by 3rd point
vmoveto ${check3_x} ${check3_y}
checkcolor ${check3_x} ${check3_y} 0 1 1

if {$stat != 1} {
    puts "Error : Fit all by view area is broken."
}

# Check area by 4th point
vmoveto ${check4_x} ${check4_y}
checkcolor ${check4_x} ${check4_y} 0 1 1

if {$stat != 1} {
    puts "Error : Fit all by view area is broken."
}

# Check area by 5th point
vmoveto ${check5_x} ${check5_y}
checkcolor ${check5_x} ${check5_y} 0 1 1

if {$stat != 1} {
    puts "Error : Fit all by view area is broken."
}

checkview -screenshot -3d -path ${imagedir}/${test_image}.png
Commit	Line	Data
6262a303	1	puts "================"
	2	puts "OCC25335"
	3	puts "================"
	4	puts ""
	5	#######################################################################################
	6	# Visualization - add test command for V3d_View::FitAll by view area
	7	#######################################################################################
	8
	9	set check1_x 2
	10	set check1_y 2
	11
	12	set check2_x 407
	13	set check2_y 2
	14
	15	set check3_x 2
	16	set check3_y 407
	17
	18	set check4_x 407
	19	set check4_y 407
	20
	21	set check5_x 204
	22	set check5_y 204
	23
	24	vinit View1
	25	vtop
	26
	27	# 2D view area
	28	vpoint p1 5.0 5.0 0.0
	29	vpoint p2 15.0 5.0 0.0
	30	vpoint p3 15.0 15.0 0.0
	31	vpoint p4 5.0 15.0 0.0
	32	vpoint p5 10.0 10.0 0.0
	33
	34	vfitarea 4.999 4.999 15.001 15.001
	35
	36	# Check area by 1st point
	37	vmoveto ${check1_x} ${check1_y}
	38	checkcolor ${check1_x} ${check1_y} 0 1 1
	39
	40	if {$stat != 1} {
	41	puts "Error : Fit all by view area is broken."
	42	}
	43
	44	# Check area by 2nd point
	45	vmoveto ${check2_x} ${check2_y}
	46	checkcolor ${check2_x} ${check2_y} 0 1 1
	47
	48	if {$stat != 1} {
	49	puts "Error : Fit all by view area is broken."
	50	}
	51
	52	# Check area by 3rd point
	53	vmoveto ${check3_x} ${check3_y}
	54	checkcolor ${check3_x} ${check3_y} 0 1 1
	55
	56	if {$stat != 1} {
	57	puts "Error : Fit all by view area is broken."
	58	}
	59
	60	# Check area by 4th point
	61	vmoveto ${check4_x} ${check4_y}
	62	checkcolor ${check4_x} ${check4_y} 0 1 1
	63
	64	if {$stat != 1} {
65	puts "Error : Fit all by view area is broken."
66	}
67
68	# Check area by 5th point
69	vmoveto ${check5_x} ${check5_y}
70	checkcolor ${check5_x} ${check5_y} 0 1 1
71
72	if {$stat != 1} {
73	puts "Error : Fit all by view area is broken."
74	}
75
5747059b	76	checkview -screenshot -3d -path ${imagedir}/${test_image}.png