// Last edited on 2005-09-07 17:30:35 by stolfi
// Test scene with a single bench and coordinate axes.

#include "misc-arrows.inc"
#include "computer.inc"

#macro scene_test_computer() 

  #local scene = 
    union {
      object { computer(1,false) translate -computer_wx/2*x }
      object { computer(2,false) translate +computer_wx/2*x }
    }

  union {
    object{ scene }
    coord_axes(computer_wx)
  }

  // Camera parameters
  #local sclo = min_extent(scene);
  #local schi = max_extent(scene);
  #declare scene_rad = vlength(schi - sclo)/2;
  #declare camera_ctr = (schi + sclo)/2;
  #declare camera_dir = <4,-3,4>;
  #declare camera_dst = 5.0*scene_rad;
  #declare camera_pos = camera_ctr + camera_dst*vnormalize(camera_dir);

#end