//  The orb - globe with gridlines
//  Last edited on 1999-02-13 18:38:24 by stolfi

//  Requires
//    orb_land_texture
//    orb_sea_texture
//    orb_grid_texture
//    orb_dot_texture
//    orb_focus_lon
//    orb_focus_lat
//  Defines
//    orb

#declare gridlines_thickness  = 0.012;
#declare gridlines_focus_lat  = (80/90) * 3.1415926/2;
#declare gridlines_polar_lat  = (52/90) * 3.1415926/2;
#declare gridlines_tropic_lat = (24/90) * 3.1415926/2;
#declare gridlines_line_texture = texture{ orb_grid_texture }
#declare gridlines_dot_texture = texture{ orb_dot_texture }
#include "gridlines.inc"

#declare orb =
  union{
    sphere{
      < 0, 0, 0>, 0.95
      texture { orb_sea_texture }
    }
    sphere{
      < 0, 0, 0>, 1
      texture { orb_land_texture }  // pole on Y axis
      rotate < 000, - orb_focus_lon, 000 >  // Bring focus into YZ-plane
      rotate < orb_focus_lat, 000, 000 >  // Bring focus over Z axis
    }
    object{
      gridlines
      scale 1.05
    }
  }