module Pov = Povray
module PovTextures = Pov.Textures
module PovInc = Pov.Inc_file
module PovColor = Pov.Color
module PovDesc = Pov.Desc

let () =
  let inc1 = PovInc.to_string PovInc.Colors in
  let inc2 = PovInc.to_string PovInc.Stones in

  let bg_color = PovColor.RGB(0.0, 0.1, 0.2) in

  let cam_loc, look_at = (0., 2., -3.), (0., 1., 2.) in

  let light_loc = (2.0, 4.0, -3.0) in
  let light_color = PovColor.RGB(0.4, 0.5, 0.6) in

  let sphere_radius = 1.8 in
  let sphere_center = (0.0, 1.0, 2.0) in
  let sphere_tex = Pov.new_texture ~color:PovColor.Green () in

  let c_radius1 = 0.4 in
  let c_radius2 = 0.6 in
  let c_center1 = (0., 2., 0.) in
  let c_center2 = (2., 2., 3.) in
  let c_texture = Pov.new_texture ~def:PovTextures.T_Stone21 () in

  let none = None in

  let desc = [
    Pov.Include inc1;
    Pov.Include inc2;

    Pov.Background bg_color;

    Pov.Camera (cam_loc, look_at);
    Pov.Light_source (light_loc, light_color);

    Pov.Sphere (sphere_radius, sphere_center, sphere_tex, none, none);
    Pov.Cone (c_radius1, c_radius2, c_center1, c_center2, c_texture);
  ] in

  let scene = PovDesc.to_scene desc in

  Pov.print_scene scene;
;;