[occt.git] / tests / v3d / materials / bug27818_1

puts "============"
puts "OCC27818_1"
puts "============"
puts ""
####################################################################################
# Visualization - provide an interface to define highlight presentation properties:
# test change of highlight properties for whole interactive context
####################################################################################


pload VISUALIZATION MODELING

box b 10 20 30
pcone p 15 0 40

vinit
vclear

vdisplay b -dispMode 1
vdisplay p -dispMode 1
vsetcolor b RED
vsetcolor p GREEN

vviewparams -scale 17.8 -proj 0.9 -0.3 0.3
vviewparams -up -0.2 0.4 0.9 -at 1.99 2.4 20.9
vviewparams -eye 56.1 -17.7 39.4

vselprops dynHighlight -transp 0.1 -color PALEGREEN2 -dispMode 1

vmoveto 167 263
set aPixelColor [vreadpixel 167 263 name rgba]
set aTransp [lindex [split $aPixelColor { }] 1]
if { $aTransp == 1 } {
  puts "Error: highlighting of a cone is not transparent!"
}

vmoveto 285 212
set aPixelColor [vreadpixel 285 212 name rgba]
set aTransp [lindex [split $aPixelColor { }] 1]
if { $aTransp == 1 } {
  puts "Error: highlighting of a box is not transparent!"
}

vdump $imagedir/${casename}.png
Commit	Line	Data
8e5fb5ea	1	puts "============"
	2	puts "OCC27818_1"
	3	puts "============"
	4	puts ""
	5	####################################################################################
	6	# Visualization - provide an interface to define highlight presentation properties:
	7	# test change of highlight properties for whole interactive context
	8	####################################################################################
	9
	10
	11	pload VISUALIZATION MODELING
	12
	13	box b 10 20 30
	14	pcone p 15 0 40
	15
	16	vinit
	17	vclear
	18
f838dac4	19	vdisplay b -dispMode 1
f838dac4	20	vdisplay p -dispMode 1
8e5fb5ea	21	vsetcolor b RED
	22	vsetcolor p GREEN
	23
	24	vviewparams -scale 17.8 -proj 0.9 -0.3 0.3
	25	vviewparams -up -0.2 0.4 0.9 -at 1.99 2.4 20.9
	26	vviewparams -eye 56.1 -17.7 39.4
	27
f838dac4	28	vselprops dynHighlight -transp 0.1 -color PALEGREEN2 -dispMode 1
8e5fb5ea	29
	30	vmoveto 167 263
	31	set aPixelColor [vreadpixel 167 263 name rgba]
	32	set aTransp [lindex [split $aPixelColor { }] 1]
	33	if { $aTransp == 1 } {
	34	puts "Error: highlighting of a cone is not transparent!"
	35	}
	36
	37	vmoveto 285 212
	38	set aPixelColor [vreadpixel 285 212 name rgba]
	39	set aTransp [lindex [split $aPixelColor { }] 1]
	40	if { $aTransp == 1 } {
	41	puts "Error: highlighting of a box is not transparent!"
	42	}
	43
	44	vdump $imagedir/${casename}.png