module Pov = Povray

let font1 = "/usr/share/fonts/TTF/Vera.ttf"
let font2 = "/mnt/chromeos/fonts/monotype/verdana.ttf"

let () =
  let sc = Pov.new_scene () in
  let sc = Pov.add_include sc ~inc:Colors in

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

  let texture = Pov.get_texture ~color:Cyan () in
  (*
  let texture = Pov.get_texture ~color:(RGB(1.0, 0.8, 0.8)) () in
  *)
  let sc = Pov.add_text sc ~text:"Hello PovRay" ~font:font2 ~texture () in
  let sc = Pov.add_torus sc ~major:1.2 ~minor:0.2 ~texture ~translate:(2.0, 1.0, 2.0) () in

  Pov.print_scene sc;
;;