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 |