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

puts "==========="
puts "OCC24224"
puts "==========="
puts ""
##########################################################################
# Suspicious logics in changing clipping planets at OpenGL_Structure
##########################################################################

## centre rectangle
set x1_coord 150
set y1_coord 250

## right rectangle
set x2_coord 255
set y2_coord 320

## left rectangle
set x3_coord 73
set y3_coord 150

vclear
vinit View1
box b1 0 0 0 10 10 10
box b2 30 0 0 10 40 10
box b3 -30 0 0 20 20 20
vsetdispmode 1
vdisplay b1 b2 b3
vfit

## test view-level clipping
vclipplane create pln1
vclipplane change pln1 equation 0 1 0 -5
vclipplane change pln1 capping on
vclipplane change pln1 capping color 0.9 0.9 0.9
vclipplane set pln1 view Driver1/Viewer1/View1

checkcolor $x1_coord $y1_coord 0.9 0.9 0.9
checkcolor $x2_coord $y2_coord 0.9 0.9 0.9

## test sharing of planes between view and object
vclipplane set pln1 object b1

## test object-level clipping
vclipplane create pln2
vclipplane change pln2 equation -0.707 0.707 0 -25
vclipplane change pln2 capping on
vclipplane change pln2 capping color 0.5 0.5 0.9
vclipplane change pln2 capping hatch on
vclipplane set pln2 object b3

checkcolor $x3_coord $y3_coord 0.5 0.5 0.9

checkview -screenshot -3d -path ${imagedir}/${test_image}.png
Commit	Line	Data
b859a34d	1	puts "==========="
	2	puts "OCC24224"
	3	puts "==========="
	4	puts ""
	5	##########################################################################
	6	# Suspicious logics in changing clipping planets at OpenGL_Structure
	7	##########################################################################
	8
	9	## centre rectangle
	10	set x1_coord 150
	11	set y1_coord 250
	12
	13	## right rectangle
	14	set x2_coord 255
	15	set y2_coord 320
	16
	17	## left rectangle
	18	set x3_coord 73
	19	set y3_coord 150
	20
deb02f86	21	vclear
deb02f86	22	vinit View1
b859a34d	23	box b1 0 0 0 10 10 10
	24	box b2 30 0 0 10 40 10
	25	box b3 -30 0 0 20 20 20
	26	vsetdispmode 1
	27	vdisplay b1 b2 b3
	28	vfit
	29
	30	## test view-level clipping
	31	vclipplane create pln1
	32	vclipplane change pln1 equation 0 1 0 -5
	33	vclipplane change pln1 capping on
	34	vclipplane change pln1 capping color 0.9 0.9 0.9
	35	vclipplane set pln1 view Driver1/Viewer1/View1
	36
	37	checkcolor $x1_coord $y1_coord 0.9 0.9 0.9
	38	checkcolor $x2_coord $y2_coord 0.9 0.9 0.9
	39
	40	## test sharing of planes between view and object
	41	vclipplane set pln1 object b1
	42
	43	## test object-level clipping
	44	vclipplane create pln2
	45	vclipplane change pln2 equation -0.707 0.707 0 -25
	46	vclipplane change pln2 capping on
	47	vclipplane change pln2 capping color 0.5 0.5 0.9
	48	vclipplane change pln2 capping hatch on
	49	vclipplane set pln2 object b3
	50
	51	checkcolor $x3_coord $y3_coord 0.5 0.5 0.9
	52
5747059b	53	checkview -screenshot -3d -path ${imagedir}/${test_image}.png