module Pov = Povray
module PovTextures = Pov.Textures
module PovInc = Pov.Inc_file

let () =
  let sc = Pov.new_scene () in

  let sc = Pov.add_include sc ~inc:PovInc.Colors in
  let sc = Pov.add_include sc ~inc:PovInc.Stones2 in

  let sc = Pov.add_background sc ~color:(RGB(0.2, 0.4, 0.8)) in
  let sc = Pov.add_camera sc ~location:(0, 2, -3) ~look_at:(0, 1, 2) in
  let sc = Pov.add_light_source sc ~location:(2, 4, -3) ~color:(RGB(1.0, 1.0, 1.0)) in

  let texture = Pov.get_texture ~color:Yellow () in

  let sc = Pov.add_sphere sc ~center:(0.0, 1.0, 2.0) ~radius:2.0 ~texture () in
  let sc = Pov.add_cone sc ~center1:(0., 2., 0.) ~radius1:0.6
                       ~center2:(1., 2., 3.) ~radius2:1.5
                       ~texture:(Pov.get_texture ~def:PovTextures.T_Stone25 ()) () in
  Pov.print_scene sc;
;;