607e5e62 |
1 | puts "============" |
2 | puts "0029837: Visualization, Graphic3d_Camera - Fit All operation works incorrectly on flat object" |
3 | puts "============" |
4 | puts "" |
5 | |
6 | pload VISUALIZATION |
7 | vclear |
8 | vinit View1 |
9 | vtop |
10 | vpoint p1 0 0 4000 |
11 | vpoint p2 200 0 4000 |
12 | vaspects p1 -setColor RED |
13 | vaspects p2 -setColor GREEN |
14 | vaspects p1 p2 -setMarkerType . -setMarkerSize 20 |
15 | vsegment s p1 p2 |
16 | vfit |
17 | if { [vreadpixel 5 200 -rgb -name] != "RED" } { puts "Error: p1 not found" } |
18 | if { [vreadpixel 402 200 -rgb -name] != "GREEN" } { puts "Error: p2 not found" } |
19 | |
20 | vdump $::imagedir/${::casename}.png |