// Last edited on 2008-08-13 13:47:42 by stolfi
// Test scene... 

#include "misc_arrows.inc"
#include "desk_dimensions.inc"
#include "desk_textures.inc" 
#include "desk.inc"

#macro scene_test_desc(dims,axes) 

  // Desk dimensions:
  #local desk_sz = < desk_dx, desk_dy, desk_dz>;
      
  // Thickness of panels:
  #local side_thk = desk_side_thk;  // Thickness of side panels.
  #local topp_thk = desk_topp_thk;  // Thickness of top-of-step panels.

  #local scene = 
    object { 
      desk(desk_dx, desk_dy, desk_dz, desk_wx, desk_wy, desk_rad, dims)
    }

  union {
    object{ scene }
    #if (axes)
      coord_axes(1.25*step_sz.x)
    #end
  }

  // 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;
  #if (dims)
    #declare camera_dir = < 1, 1, 1 >; // Isometric
    #declare camera_dst = 8.0*scene_rad;
  #else
    #declare camera_dir = < 4, 5, 3 >;
    #declare camera_dst = 5.0*scene_rad;
  #end
  #declare camera_pos = camera_ctr + camera_dst*vnormalize(camera_dir);
#end