module Pov = Povray

let () =
  print_string (Pov.get_background ~color:(RGB(0.2, 0.4, 0.8)));
  print_string (Pov.get_camera (0., 2., -3.) (0., 1., 2.));
  print_string (Pov.get_light_source ~location:(2., 4., -3.) ~color:(RGB(1.0, 1.0, 1.0)));

  let texture = Pov.get_texture ~color:(RGBT(1.0, 0.8, 0.8, 0.5)) () in
  print_string (Pov.get_sphere ~center:(0.0, 0.8, 2.0) ~radius:1.6 ~texture ());
  print_string (Pov.get_sphere ~center:(0.0, 2.0, 2.0) ~radius:0.8 ~texture ());
;;