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

puts "========"
puts "OCC24762 new interactive object AIS_ColoredShape with customized subshapes presentations"
puts "========"

# draw box in advance which should fit all our markers
box b  0 0 0 1 2 3
box bb 3 0 0 2 3 1

# prepare view
vinit View1
vclear
vglinfo
vsetdispmode 1
vaxo
vdisplay b bb
vfit

# customize box 1
explode b V
vaspects b -subshapes b_1      -setcolor GREEN
explode b E
vaspects b -subshapes b_6 b_12 -setcolor RED     -setwidth 6
explode b W
vaspects b -subshapes b_2      -setcolor HOTPINK -setwidth 4
explode b F
vaspects b -subshapes b_3      -setcolor GRAY

# customize box 2
explode bb F
vaspects bb -setcolor GREEN -subshapes bb_6 -setcolor RED
vsetdispmode bb 0

# take snapshot
vdump $imagedir/${casename}.png

# check colors on box 1
set aWireColor  [vreadpixel 54  150 rgb name]
set anEdgeColor [vreadpixel 100  90 rgb name]
set aFaceColor  [vreadpixel 30  200 rgb name]
if {"$aWireColor"  != "HOTPINK"} { puts "Error: wrong Wire color" }
if {"$anEdgeColor" != "RED"}     { puts "Error: wrong Edge color" }
if {"$aFaceColor"  != "GRAY69"}  { puts "Error: wrong Face color" }
Commit	Line	Data
ad3217cd	1	puts "========"
	2	puts "OCC24762 new interactive object AIS_ColoredShape with customized subshapes presentations"
	3	puts "========"
	4
	5	# draw box in advance which should fit all our markers
	6	box b 0 0 0 1 2 3
	7	box bb 3 0 0 2 3 1
	8
	9	# prepare view
	10	vinit View1
	11	vclear
	12	vglinfo
	13	vsetdispmode 1
	14	vaxo
	15	vdisplay b bb
	16	vfit
	17
	18	# customize box 1
	19	explode b V
	20	vaspects b -subshapes b_1 -setcolor GREEN
	21	explode b E
	22	vaspects b -subshapes b_6 b_12 -setcolor RED -setwidth 6
	23	explode b W
	24	vaspects b -subshapes b_2 -setcolor HOTPINK -setwidth 4
	25	explode b F
	26	vaspects b -subshapes b_3 -setcolor GRAY
	27
	28	# customize box 2
	29	explode bb F
	30	vaspects bb -setcolor GREEN -subshapes bb_6 -setcolor RED
	31	vsetdispmode bb 0
	32
	33	# take snapshot
	34	vdump $imagedir/${casename}.png
	35
	36	# check colors on box 1
	37	set aWireColor [vreadpixel 54 150 rgb name]
	38	set anEdgeColor [vreadpixel 100 90 rgb name]
	39	set aFaceColor [vreadpixel 30 200 rgb name]
ba00aab7	40	if {"$aWireColor" != "HOTPINK"} { puts "Error: wrong Wire color" }
	41	if {"$anEdgeColor" != "RED"} { puts "Error: wrong Edge color" }
	42	if {"$aFaceColor" != "GRAY69"} { puts "Error: wrong Face color" }