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

puts "============"
puts "CR26014"
puts "Check that the colored shading shape doesn't have a shading presentation"
puts "due to its triangulation isn't computed in case of disabled auto triangulation feature."
puts "But in this case the shape should have special wireframe presentation."
puts "============"
puts ""

vinit View1
vclear
vaxo
vsetdispmode 1
vdefaults -autoTriang off
pcone c 0 5 10
vdisplay c
vfit

explode c F
vaspects c -subshapes c_2 -setcolor RED

set aColorWireframe [vreadpixel 200 31 rgb name]
set aColorShaded [vreadpixel 180 60 rgb name]

vdump $imagedir/${casename}_shape_pres.png

if {"$aColorWireframe" != "RED" || "$aColorShaded" != "BLACK"} {
  puts "Error: presentation of shape is incorrect"
}
Commit	Line	Data
	1	puts "============"
	2	puts "CR26014"
	3	puts "Check that the colored shading shape doesn't have a shading presentation"
	4	puts "due to its triangulation isn't computed in case of disabled auto triangulation feature."
	5	puts "But in this case the shape should have special wireframe presentation."
	6	puts "============"
	7	puts ""
	8
	9	vinit View1
	10	vclear
	11	vaxo
	12	vsetdispmode 1
	13	vdefaults -autoTriang off
	14	pcone c 0 5 10
	15	vdisplay c
	16	vfit
	17
	18	explode c F
	19	vaspects c -subshapes c_2 -setcolor RED
	20
	21	set aColorWireframe [vreadpixel 200 31 rgb name]
	22	set aColorShaded [vreadpixel 180 60 rgb name]
	23
	24	vdump $imagedir/${casename}_shape_pres.png
	25
	26	if {"$aColorWireframe" != "RED" \|\| "$aColorShaded" != "BLACK"} {
	27	puts "Error: presentation of shape is incorrect"
	28	}