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

puts "========"
puts "OCC60"
puts "SAM723"
puts "BUC60916"
puts "========"

vinit
box b 10 10 10
vdisplay b
vfit

set x_coord 83
set y_coord 337

checkcolor $x_coord $y_coord 1 1 0

set xmin 1
set ymin 1
set xmax 409
set ymax 300

# Select part of box
OCC60 ${xmin} ${ymin} ${xmax} ${ymax}
OCC60 ${xmin} ${ymin} ${xmax} ${ymax}

set Selection_R 0.8
set Selection_G 0.8
set Selection_B 0.8

checkcolor $x_coord $y_coord 0.8 0.8 0.8

set only_screen 1
Commit	Line	Data
61c421bf	1	puts "========"
	2	puts "OCC60"
	3	puts "SAM723"
	4	puts "BUC60916"
	5	puts "========"
	6
	7	vinit
	8	box b 10 10 10
	9	vdisplay b
	10	vfit
	11
	12	set x_coord 83
	13	set y_coord 337
	14
61c421bf	15	checkcolor $x_coord $y_coord 1 1 0
	16
	17	set xmin 1
	18	set ymin 1
	19	set xmax 409
	20	set ymax 300
	21
	22	# Select part of box
	23	OCC60 ${xmin} ${ymin} ${xmax} ${ymax}
	24	OCC60 ${xmin} ${ymin} ${xmax} ${ymax}
	25
	26	set Selection_R 0.8
	27	set Selection_G 0.8
	28	set Selection_B 0.8
	29
61c421bf	30	checkcolor $x_coord $y_coord 0.8 0.8 0.8
	31
	32	set only_screen 1