[occt.git] / tests / v3d / trihedron / bug22368

puts "========================"
puts "OCC22368: AIS_Trihedron's highlight presentation isn't updated on trihedron relocation"
puts "========================"
puts ""

pload VISUALIZATION QAcommands
vclear
vinit View1
vtrihedron trihedron
OCC74_set trihedron 3

set x1 200
set x2 220
set x3 210

set y 190

vselect ${x3} ${y}

vsetlocation trihedron 100 100 100

set status 0
for {set i ${x1} } {$i <= ${x2} } {incr i} {
  checkcolor ${i} ${y} 0 0 0
}

vdump $imagedir/${casename}.png
Commit	Line	Data
0d828ac8	1	puts "========================"
	2	puts "OCC22368: AIS_Trihedron's highlight presentation isn't updated on trihedron relocation"
	3	puts "========================"
	4	puts ""
	5
	6	pload VISUALIZATION QAcommands
	7	vclear
	8	vinit View1
	9	vtrihedron trihedron
	10	OCC74_set trihedron 3
	11
	12	set x1 200
	13	set x2 220
	14	set x3 210
	15
	16	set y 190
	17
	18	vselect ${x3} ${y}
	19
	20	vsetlocation trihedron 100 100 100
	21
	22	set status 0
	23	for {set i ${x1} } {$i <= ${x2} } {incr i} {
	24	checkcolor ${i} ${y} 0 0 0
	25	}
	26
	27	vdump $imagedir/${casename}.png