tests/v3d/bugs/bug29837

   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