/*
 *  Ray++ - Object-oriented ray tracing library
 *  Copyright (C) 1998-2001 Martin Reinecke and others.
 *  See the AUTHORS file for more information.
 *
 *  This library is free software; you can redistribute it and/or
 *  modify it under the terms of the GNU Library General Public
 *  License as published by the Free Software Foundation; either
 *  version 2 of the License, or (at your option) any later version.
 *
 *  This library is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 *  Library General Public License for more details.
 *
 *  You should have received a copy of the GNU Library General Public
 *  License along with this library; if not, write to the Free
 *  Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 *  See the README file for more information.
 */

#include "kernel/globals.h"
#include "kernel/handle.h"
#include "worlds/scene.h"
#include "renderers/raytracer.h"
#include "outputs/tga_output.h"
#include "shapes/implicit.h"
#include "shapes/plane.h"
#include "surfaces/matte.h"
#include "objects/simple_object.h"
#include "lights/pointlight.h"
#include "cameras/std_camera.h"

#include "utils/noise.h"
#include "surfaces/pigments/std_pigments.h"

namespace RAYPP {

class Dens1: public IMPLICIT::DENSFUNC
  {
  private:
    NOISE Noise;

  public:
    float8 Density (const VECTOR &Loc) const
      {
      return 1-Loc.Length()+0.2*Noise.fBm (Loc, 2, 0.5, 5);
      }
    VECTOR Maxgrad () const
      {
      return VECTOR(4,4,4);
      }
    VECTOR Mingrad () const
      {
      return VECTOR(-4,-4,-4);
      }
  };

} // namespace RAYPP

int main ()
  {
  using namespace RAYPP;

  HANDLE<OUTPUT> Output;

  Output = Cnew TGA_OUTPUT (640, 480, "imptest2.tga");
  Output->Init();

  RAYTRACER *Raytracer = Cnew RAYTRACER;
  SCENE *Scn = Cnew SCENE;

  Raytracer->Add (Cnew STD_CAMERA (VECTOR (3,4,-6.5), VECTOR (0,0,0)));

  SIMPLE_OBJECT *obj;
  uint4 Priority = 1;

  COLOURMAP cmap;
  cmap.Add_Entry
    (Cnew LINEAR_CMAP_ENTRY (0,0.8,COLOUR(0.5,0.5,0.5), COLOUR(0.8,0.8,0.8)));
  cmap.Add_Entry
    (Cnew LINEAR_CMAP_ENTRY (0.8,1,COLOUR(0.8,0.8,0.8), COLOUR(0.8,0.9,0.8)));
  GRANITE *grnt=Cnew GRANITE;
  grnt->Set_CMap(cmap);
  grnt->Scale(0.2);

  IMPLICIT *imp=Cnew IMPLICIT;
  imp->Set_Minmax(AXISBOX(VECTOR(-1.5,-1.5,-1.5),VECTOR(1.5,1.5,1.5)));
  imp->Set_Densfunc(Cnew Dens1);

  obj = Cnew SIMPLE_OBJECT;
  obj->Set_Shape (imp);
  obj->Set_Surface (Cnew MATTE (0.2, 1.0, grnt));
  obj->Set_Priority (Priority);
  Scn->Add (obj);

  obj = Cnew SIMPLE_OBJECT;
  obj->Set_Shape (Cnew PLANE);
  obj->Translate(VECTOR(0,-2,0));
  obj->Set_Surface (Cnew MATTE (0.2, 1.0, COLOUR(1,1,1)));
  obj->Set_Priority (Priority);
  Scn->Add (obj);

  Scn->Add (Cnew POINTLIGHT (VECTOR (0,6,-10), COLOUR (80,80,80)));
  Scn->Add (Cnew POINTLIGHT (VECTOR (3,10,5), COLOUR (80,80,80)));

  World = Scn;
  World->Init();

  Renderer = Raytracer;
  Renderer->Init();

  Output->Render();
  }